globalhs/apps/durcon.c

/* self-contained source code for durcon,
   converts commandline arguments given as a duration to a number of seconds.
   compile it like this: 'cc -o durcon durcon.c' or similar
*/ 

#include <stdlib.h>
#include <time.h>
#include <errno.h>
#include <stdio.h>
#include <math.h>

char *cvsinfo_durcon = "cvsinfo: $Header: durcon.c,v tplarson Exp $";

static int parse_duration(char **, double *);
int drms_names_parseduration(char **, double *);

int main(int argc, char **argv)
{
  int status=0;
  double dval;
  while (--argc > 0)
  {
    status+=drms_names_parseduration(++argv,&dval);
    printf("%.3f   ",dval);
  }
  printf("\n");
  return status;
}


static inline int IsZero(double d)
{
return d == (double)0.0;
}

static inline int IsPosHugeVal(double d)
{
return d == HUGE_VAL;
}

static inline int IsNegHugeVal(double d)
{
return d == -HUGE_VAL;
}

/* Parse time duration constant */
static int parse_duration(char **in, double *duration)
{
  char *end, *p = *in;
  double dval;

  dval = strtod(p,&end);
  if ( (IsZero(dval) && end==p)  || 
       ((IsPosHugeVal(dval) || IsNegHugeVal(dval)) && errno==ERANGE))
  {
    fprintf(stderr,"Syntax Error: Expected finite floating point value at "
            "beginning of time duration, found '%s'.\n", p);    
    goto error;
  }
  else
    p = end;
  switch(*p++)
  {
  case 's':
    *duration = 1.0*dval;
    break;
  case 'm':
    *duration = 60.0*dval;
    break;
  case 'h':
    *duration = 3600.0*dval;
    break;
  case 'd':
    *duration = 86400.0*dval;
    break;
  case 'u':
    /* Means 'unit' - for SLOT type slotted keys, can have a query of the form
     * [392.3/100u].  This just means [392.3 - 492.3). */
    *duration = 1.0*dval;
    break;
  default:
    fprintf(stderr,"Syntax Error: Time duration unit must be one of 's', "
            "'m', 'h', 'd', 'u', found '%c', '%s'.\n", *(p-1), p); 
    goto error;
  }
  *in = p;
  return 0;
 error:
  return 1;
}

int drms_names_parseduration(char **in, double *duration)
{
   char *tmp = strdup(*in);
   int ret = 1;

   if (tmp)
   {
      char *tmp2 = tmp;
      ret = parse_duration(&tmp2, duration);
      free(tmp);
   }

   return ret;
}
Revision:	1.2
Committed:	Sun Apr 28 08:05:54 2013 UTC (10 years, 4 months ago) by tplarson
Content type:	text/plain
Branch:	MAIN
CVS Tags:	globalhs_version_5, Ver_8-7, Ver_8-5, globalhs_version_23, globalhs_version_22, globalhs_version_21, globalhs_version_20, Ver_LATEST, globalhs_version_24, Ver_8-3, globalhs_version_8, globalhs_version_9, globalhs_version_0, globalhs_version_1, globalhs_version_2, globalhs_version_3, globalhs_version_4, Ver_9-41, globalhs_version_6, globalhs_version_7, Ver_9-5, Ver_8-8, globalhs_version_19, Ver_8-2, Ver_8-10, Ver_8-1, Ver_8-6, Ver_9-1, Ver_8-4, Ver_9-2, globalhs_version_12, globalhs_version_13, globalhs_version_10, globalhs_version_11, globalhs_version_16, globalhs_version_17, globalhs_version_14, globalhs_version_15, globalhs_version_18, Ver_9-4, Ver_9-3, Ver_8-11, Ver_8-12, Ver_9-0, HEAD
Changes since 1.1:	+2 -0 lines
Log Message:	added string to track cvs versions
#	Content
1	/* self-contained source code for durcon,
2	converts commandline arguments given as a duration to a number of seconds.
3	compile it like this: 'cc -o durcon durcon.c' or similar
4	*/
5
6	#include <stdlib.h>
7	#include <time.h>
8	#include <errno.h>
9	#include <stdio.h>
10	#include <math.h>
11
12	char *cvsinfo_durcon = "cvsinfo: $Header: durcon.c,v tplarson Exp $";
13
14	static int parse_duration(char *, double );
15	int drms_names_parseduration(char *, double );
16
17	int main(int argc, char **argv)
18	{
19	int status=0;
20	double dval;
21	while (--argc > 0)
22	{
23	status+=drms_names_parseduration(++argv,&dval);
24	printf("%.3f ",dval);
25	}
26	printf("\n");
27	return status;
28	}
29
30
31	static inline int IsZero(double d)
32	{
33	return d == (double)0.0;
34	}
35
36	static inline int IsPosHugeVal(double d)
37	{
38	return d == HUGE_VAL;
39	}
40
41	static inline int IsNegHugeVal(double d)
42	{
43	return d == -HUGE_VAL;
44	}
45
46	/* Parse time duration constant */
47	static int parse_duration(char *in, double duration)
48	{
49	char end, p = *in;
50	double dval;
51
52	dval = strtod(p,&end);
53	if ( (IsZero(dval) && end==p) \|\|
54	((IsPosHugeVal(dval) \|\| IsNegHugeVal(dval)) && errno==ERANGE))
55	{
56	fprintf(stderr,"Syntax Error: Expected finite floating point value at "
57	"beginning of time duration, found '%s'.\n", p);
58	goto error;
59	}
60	else
61	p = end;
62	switch(*p++)
63	{
64	case 's':
65	duration = 1.0dval;
66	break;
67	case 'm':
68	duration = 60.0dval;
69	break;
70	case 'h':
71	duration = 3600.0dval;
72	break;
73	case 'd':
74	duration = 86400.0dval;
75	break;
76	case 'u':
77	/* Means 'unit' - for SLOT type slotted keys, can have a query of the form
78	* [392.3/100u]. This just means [392.3 - 492.3). */
79	duration = 1.0dval;
80	break;
81	default:
82	fprintf(stderr,"Syntax Error: Time duration unit must be one of 's', "
83	"'m', 'h', 'd', 'u', found '%c', '%s'.\n", *(p-1), p);
84	goto error;
85	}
86	*in = p;
87	return 0;
88	error:
89	return 1;
90	}
91
92	int drms_names_parseduration(char *in, double duration)
93	{
94	char tmp = strdup(in);
95	int ret = 1;
96
97	if (tmp)
98	{
99	char *tmp2 = tmp;
100	ret = parse_duration(&tmp2, duration);
101	free(tmp);
102	}
103
104	return ret;
105	}