23 rick 1.2 {ARG_STRING, "name", "Not Specified", "a string"},
24 {ARG_INT, "ival", "1", "a positive integer", "[1,)"},
25 {ARG_INTS, "iptr", "[0]", "array of integers"},
26 {ARG_FLOAT, "fval", "0.0", "a real number"},
27 {ARG_FLOAT, "fvalns", "Unspecified", "a real number"},
28 {ARG_FLOATS, "fptr", "{2.71828, 3.14159, -1}", "array of real numbers"},
29 {ARG_TIME, "time", "1582.10.5_00:00:00",
30 "a time, in standard date_time format"},
31 {ARG_NUME, "colour", "", "enumerated choice without a default",
32 "red, orange, yellow, green, blue, indigo, violet"},
33 {ARG_NUME, "mois", "Brumaire", "enumerated choice with a default",
34 "Vendémiaire, Brumaire, Frimaire, Nivôse, Pluviôse, Ventôse, Germinal, \
35 Florial, Prairial, Messidor, Thermidor, Fructidor"},
36 {ARG_FLAG, "e", "", "a flag value"},
|
42 rick 1.2 double *fpval;
43 int *ipval;
44 int i, fpvals, ipvals;
45 char *colours[] = {"red", "orange", "yellow", "green", "blue", "violet"};
46 char *moiss[] = {"Vendémiaire", "Brumaire", "Frimaire", "Nivôse", "Pluviôse",
47 "Ventôse", "Germinal", "Florial", "Prairial", "Messidor", "Thermidor",
48 "Fructidor"};
49 char key[64], tbuf[64];
50
51 TIME tval = params_get_time (params, "time");
52 double fval = params_get_double (params, "fval");
53 int ival = params_get_int (params, "ival");
54 int colour = params_get_int (params, "colour");
55 int mois = params_get_int (params, "mois");
|
57 rick 1.2 int flagset = params_isflagset (params, "e");
58
59 printf ("name = %s\n", name);
60 printf ("fval = %g\n", fval);
61 printf ("ival = %d\n", ival);
62 sprint_time (tbuf, tval, "UT", 3);
63 printf ("time = %s\n", tbuf);
64 printf ("colour = %d (%s)\n", colour, colours[colour]);
65 printf ("mois = %d (%s)\n", mois, moiss[mois]);
66 printf ("-e? : %d\n", flagset);
67
68 printf ("fpvals = %d\n", fpvals = params_get_int (params, "fptr_nvals"));
69 fpval = (double *)malloc (fpvals * sizeof (double));
70 for (i = 0; i < fpvals; i++) {
71 sprintf (key, "fptr_%d_value", i);
72 fpval[i] = params_get_double (params, key);
73 printf ("fpval[%d] = %g\n", i, fpval[i]);
|