[q-lang-cvs] q-csv csv.c,1.4,1.5

[Albert G. <ag...@us...>]

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

Modified Files:
	csv.c 
Log Message:
add unicode support

Index: csv.c
===================================================================
RCS file: /cvsroot/q-lang/q-csv/csv.c,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** csv.c	13 Jan 2008 17:27:14 -0000	1.4
--- csv.c	14 Jan 2008 04:23:43 -0000	1.5
***************
*** 34,38 ****
  { 
    FILE *fp;
!   char *buff, *bp, *tp, *strdl;
    int len = 0, q_cnt = 0, size = BSIZE;
    register int c;
--- 34,38 ----
  { 
    FILE *fp;
!   char *buff, *bp, *tp, *strdl, *s;
    int len = 0, q_cnt = 0, size = BSIZE;
    register int c;
***************
*** 63,70 ****
      *bp++ = c;
    }
-   buff = (char *)realloc(buff, len+2);
    *bp++ = c;
    *bp = 0;
!   return mkstr(buff);
  }
  
--- 63,74 ----
      *bp++ = c;
    }
    *bp++ = c;
    *bp = 0;
!   s = to_utf8(buff, NULL);
!   free(buff);
!   if (s)
!     return mkstr(s);
!   else
!     return __ERROR;
  }