Changeset 27838 for branches/tap_branches/Ohana/src/opihi/cmd.basic/run_for.c

Timestamp:

May 3, 2010, 8:41:49 AM (16 years ago)

Author:

eugene

Message:

updates from trunk

Location:

branches/tap_branches

Files:

• . (modified) (1 prop)
• Ohana (modified) (1 prop)
• Ohana/src/opihi/cmd.basic/run_for.c (modified) (2 diffs)

branches/tap_branches/Ohana/src/opihi/cmd.basic/run_for.c

@@ -7 +7 @@
   int ThisList, depth, i, done, status, found, NLINES, j;
   double start, end, delta;
-  char *input;
+  char *input, *endptr;
   double value, sign;
   Macro loop;
@@ -16 +16 @@
   }
 
-  start = atof (argv[2]);
-  end   = atof (argv[3]);
+  start = strtod (argv[2], &endptr);
+  if (*endptr) {
+    gprint (GP_ERR, "for loop starting value must be numerical (%s)\n", argv[2]);
+    return (FALSE);
+  }
+
+  end = strtod (argv[3], &endptr);
+  if (*endptr) {
+    gprint (GP_ERR, "for loop ending value must be numerical (%s)\n", argv[3]);
+    return (FALSE);
+  }
+
   delta = 1.0;
-  if (argc == 5) delta = atof (argv[4]);
+  if (argc == 5) { 
+    delta = strtod (argv[4], &endptr);
+    if (*endptr) {
+      gprint (GP_ERR, "for loop delta value must be numerical (%s)\n", argv[4]);
+      return (FALSE);
+    }
+  }
   sign = SIGN(delta);