Update of /cvsroot/q-lang/q/examples
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv23520/examples
Modified Files:
csv.q except.q
Log Message:
fixes for latest clib
Index: except.q
===================================================================
RCS file: /cvsroot/q-lang/q/examples/except.q,v
retrieving revision 1.18
retrieving revision 1.19
diff -C2 -d -r1.18 -r1.19
*** except.q 29 Sep 2007 08:10:14 -0000 1.18
--- except.q 23 Jan 2008 05:57:22 -0000 1.19
***************
*** 209,212 ****
--- 209,244 ----
bstr B = throw (clib_err (bstr B));
bytes B = throw (clib_err (bytes B));
+ get_int8 B I = throw (clib_err (get_int8 B I));
+ get_int16 B I = throw (clib_err (get_int16 B I));
+ get_int32 B I = throw (clib_err (get_int32 B I));
+ get_uint8 B I = throw (clib_err (get_uint8 B I));
+ get_uint16 B I = throw (clib_err (get_uint16 B I));
+ get_uint32 B I = throw (clib_err (get_uint32 B I));
+ get_float B I = throw (clib_err (get_float B I));
+ get_double B I = throw (clib_err (get_double B I));
+ put_int8 B I X = throw (clib_err (put_int8 B I X));
+ put_int16 B I X = throw (clib_err (put_int16 B I X));
+ put_int32 B I X = throw (clib_err (put_int32 B I X));
+ put_uint8 B I X = throw (clib_err (put_uint8 B I X));
+ put_uint16 B I X = throw (clib_err (put_uint16 B I X));
+ put_uint32 B I X = throw (clib_err (put_uint32 B I X));
+ put_float B I X = throw (clib_err (put_float B I X));
+ put_double B I X = throw (clib_err (put_double B I X));
+ int8_list B = throw (clib_err (int8_list B));
+ int16_list B = throw (clib_err (int16_list B));
+ int32_list B = throw (clib_err (int32_list B));
+ uint8_list B = throw (clib_err (uint8_list B));
+ uint16_list B = throw (clib_err (uint16_list B));
+ uint32_list B = throw (clib_err (uint32_list B));
+ float_list B = throw (clib_err (float_list B));
+ double_list B = throw (clib_err (double_list B));
+ int8_vect Xs = throw (clib_err (int8_vect Xs));
+ int16_vect Xs = throw (clib_err (int16_vect Xs));
+ int32_vect Xs = throw (clib_err (int32_vect Xs));
+ uint8_vect Xs = throw (clib_err (uint8_vect Xs));
+ uint16_vect Xs = throw (clib_err (uint16_vect Xs));
+ uint32_vect Xs = throw (clib_err (uint32_vect Xs));
+ float_vect Xs = throw (clib_err (float_vect Xs));
+ double_vect Xs = throw (clib_err (double_vect Xs));
fdopen FD MODE = throw (clib_err (fdopen FD MODE));
freopen NAME MODE F = throw (clib_err (freopen NAME MODE F));
***************
*** 272,275 ****
--- 304,319 ----
jacobi M N = throw (clib_err (jacobi M N));
sort P Xs = throw (clib_err (sort P Xs));
+ fnmatch PATTERN S = throw (clib_err (fnmatch PATTERN S));
+ glob PATTERN = throw (clib_err (glob PATTERN));
+ regmatch OPTS REGEX S = throw (clib_err (regmatch OPTS REGEX S));
+ regnext = throw (clib_err regnext);
+ regdone = throw (clib_err regdone);
+ regex OPTS REGEX S EXPR = throw (clib_err (regex OPTS REGEX S EXPR));
+ regstart = throw (clib_err regstart);
+ regskip = throw (clib_err regskip);
+ reg N = throw (clib_err (reg N));
+ regpos N = throw (clib_err (regpos N));
+ regend N = throw (clib_err (regend N));
+ regs = throw (clib_err regs);
/* complex *******************************************************************/
***************
*** 684,697 ****
dcngettext DOMAIN MSGID1 MSGID2 N CATEGORY
= throw (system_err (dcngettext DOMAIN MSGID1 MSGID2 N CATEGORY));
- fnmatch PATTERN S = throw (system_err (fnmatch PATTERN S));
- glob PATTERN = throw (system_err (glob PATTERN));
- regmatch OPTS REGEX S = throw (system_err (regmatch OPTS REGEX S));
- regnext = throw (system_err regnext);
- regdone = throw (system_err regdone);
- regex OPTS REGEX S EXPR = throw (system_err (regex OPTS REGEX S EXPR));
- regstart = throw (system_err regstart);
- regskip = throw (system_err regskip);
- reg N = throw (system_err (reg N));
- regpos N = throw (system_err (regpos N));
- regend N = throw (system_err (regend N));
- regs = throw (system_err regs);
--- 728,729 ----
Index: csv.q
===================================================================
RCS file: /cvsroot/q-lang/q/examples/csv.q,v
retrieving revision 1.2
retrieving revision 1.3
diff -C2 -d -r1.2 -r1.3
*** csv.q 28 Sep 2007 22:40:58 -0000 1.2
--- csv.q 23 Jan 2008 05:57:22 -0000 1.3
***************
*** 46,51 ****
*/
- from system import regex, reg, regs, regskip;
-
public csvreadfile F, csvreadline F, csvread S;
public csvwritefile F L, csvwriteline F L, csvwrite L;
--- 46,49 ----
|
