[q-lang-cvs] q-csv csv.c,1.17,1.18

[RER <ed...@us...>]

Update of /cvsroot/q-lang/q-csv
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv9835

Modified Files:
	csv.c 
Log Message:
Fixed a bug when converting null fields.

Index: csv.c
===================================================================
RCS file: /cvsroot/q-lang/q-csv/csv.c,v
retrieving revision 1.17
retrieving revision 1.18
diff -C2 -d -r1.17 -r1.18
*** csv.c	11 Feb 2008 14:17:48 -0000	1.17
--- csv.c	29 Feb 2008 21:09:56 -0000	1.18
***************
*** 106,109 ****
--- 106,110 ----
    char *p, *t;
  
+   printf("%d\n", (s[0]==0));
    if (cvt_f) {
      i = strtol(s, &p, 0);
***************
*** 197,203 ****
        case 0:
          fldp = fld;
          n_fld = 0;
          if (!strncmp(s, delimiter, n_delimiter)) {
-           *fldp = 0;
            putrec(CSV_QUOTE_ALL);
            s += n_delimiter;
--- 198,204 ----
        case 0:
          fldp = fld;
+ 	*fldp = 0;
          n_fld = 0;
          if (!strncmp(s, delimiter, n_delimiter)) {
            putrec(CSV_QUOTE_ALL);
            s += n_delimiter;