Changeset 32993

Timestamp:

Dec 21, 2011, 4:10:45 PM (15 years ago)

Author:

eugene

Message:

add iparse_csv function

Location:

branches/eam_branches/ipp-20111122/Ohana/src/libohana

Files:

• include/ohana.h (modified) (1 diff)
• src/string.c (modified) (1 diff)

branches/eam_branches/ipp-20111122/Ohana/src/libohana/include/ohana.h

@@ -238 +238 @@
 int     dparse                 PROTO((double *X, int NX, char *line));
 int     dparse_csv             PROTO((double *X, int NX, char *line));
+int     iparse_csv             PROTO((int *X, int NX, char *line));
 int     fparse                 PROTO((float *X, int NX, char *line));
 int     get_argument           PROTO((int argc, char **argv, char *arg));

branches/eam_branches/ipp-20111122/Ohana/src/libohana/src/string.c

@@ -205 +205 @@
 }
 
+int iparse_csv (int *X, int NX, char *line) {
+
+  int i;
+  char *word;
+  char *ptr;
+
+  word = line;
+  for (i = 0; i < NX - 1; i++)
+    word = _parse_nextword_csv (word);
+  
+  if (word[0] == '"') word[0] = ' ';
+  if (word[0] == ',') {
+      *X = 0;
+      return 1;
+  }
+
+  *X = strtol (word, &ptr, 0);
+  if (ptr == word) return (FALSE);
+  if (word[0] == '-') return (-1);
+  return (1);
+}
+
 int fparse (float *X, int NX, char *line) {