Update of /cvsroot/q-lang/q-csv/examples
In directory sc8-pr-cvs16.sourceforge.net:/tmp/cvs-serv12175/examples
Modified Files:
readsamples.q writesamples.q
Log Message:
fix typos
Index: writesamples.q
===================================================================
RCS file: /cvsroot/q-lang/q-csv/examples/writesamples.q,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** writesamples.q 10 Jan 2008 22:41:21 -0000 1.1.1.1
--- writesamples.q 10 Jan 2008 22:54:02 -0000 1.2
***************
*** 2,6 ****
To run:
! At the command line> Q writesamples.q
At the prompt ==> main
Using your favorite editor open the write samples to see what was wrought.
--- 2,6 ----
To run:
! At the command line> q writesamples.q
At the prompt ==> main
Using your favorite editor open the write samples to see what was wrought.
***************
*** 45,58 ****
("a, b", "", 0, 0.0, "00")];
! main = writes "Writing 'write-sample1.csv: (standard CSV)\n"
|| writefile (fopen "write-sample1.csv" "w") Sample1
|| writes "\ndone.\n\n-----\n"
! || write "Writing 'write-sample2.csv: (standard CSV, quoted)\n"
|| writefile_string (fopen "write-sample2.csv" "w") Sample1
|| writes "\ndone.\n\n-----\n"
! || writes "Writing 'write-sample3.csv: (tab delimited)\n"
|| writefile_tab (fopen "write-sample3.csv" "w") Sample2
|| writes "\ndone.\n\n-----\n"
! || writes "Writing 'write-sample4.csv: (tab delimited, single quoted)\n"
|| writefile_tab_quote (fopen "write-sample4.csv" "w") Sample3
|| writes "\ndone.\n\n-----\n";
--- 45,58 ----
("a, b", "", 0, 0.0, "00")];
! main = writes "Writing 'write-sample1.csv': (standard CSV)\n"
|| writefile (fopen "write-sample1.csv" "w") Sample1
|| writes "\ndone.\n\n-----\n"
! || writes "Writing 'write-sample2.csv': (standard CSV, quoted)\n"
|| writefile_string (fopen "write-sample2.csv" "w") Sample1
|| writes "\ndone.\n\n-----\n"
! || writes "Writing 'write-sample3.csv': (tab delimited)\n"
|| writefile_tab (fopen "write-sample3.csv" "w") Sample2
|| writes "\ndone.\n\n-----\n"
! || writes "Writing 'write-sample4.csv': (tab delimited, single quoted)\n"
|| writefile_tab_quote (fopen "write-sample4.csv" "w") Sample3
|| writes "\ndone.\n\n-----\n";
Index: readsamples.q
===================================================================
RCS file: /cvsroot/q-lang/q-csv/examples/readsamples.q,v
retrieving revision 1.1.1.1
retrieving revision 1.2
diff -C2 -d -r1.1.1.1 -r1.2
*** readsamples.q 10 Jan 2008 22:41:21 -0000 1.1.1.1
--- readsamples.q 10 Jan 2008 22:54:02 -0000 1.2
***************
*** 2,6 ****
To run:
! at the command line> Q readsamples.q
at the prompt ==> main
*/
--- 2,6 ----
To run:
! at the command line> q readsamples.q
at the prompt ==> main
*/
***************
*** 32,47 ****
= [freadcsv (F, "\t", ",") | readfile_tab_quote F];
! main = writes "Reading 'read-sample1.csv: (standard CSV)\n"
|| write (readfile (fopen "read-sample1.csv" "r"))
|| writes "\n\n-----\n"
! || write "Reading 'read-sample1.csv: (standard CSV, no convertions)\n"
|| write (readfile_string (fopen "read-sample1.csv" "r"))
|| writes "\n\n-----\n"
! || writes "Reading 'read-sample2.csv: (tab delimited)\n"
|| write (readfile_tab (fopen "read-sample2.csv" "r"))
|| writes "\n\n-----\n"
! || writes "Reading 'read-sample3.csv: (tab delimited, single quoted)\n"
|| write (readfile_tab (fopen "read-sample3.csv" "r"))
|| writes "\n\n-----\n"
! || writes "Reading 'read-sample4.csv: (Malformed)\n"
|| write (readfile (fopen "read-sample4.csv" "r"));
\ No newline at end of file
--- 32,47 ----
= [freadcsv (F, "\t", ",") | readfile_tab_quote F];
! main = writes "Reading 'read-sample1.csv': (standard CSV)\n"
|| write (readfile (fopen "read-sample1.csv" "r"))
|| writes "\n\n-----\n"
! || writes "Reading 'read-sample1.csv': (standard CSV, no convertions)\n"
|| write (readfile_string (fopen "read-sample1.csv" "r"))
|| writes "\n\n-----\n"
! || writes "Reading 'read-sample2.csv': (tab delimited)\n"
|| write (readfile_tab (fopen "read-sample2.csv" "r"))
|| writes "\n\n-----\n"
! || writes "Reading 'read-sample3.csv': (tab delimited, single quoted)\n"
|| write (readfile_tab (fopen "read-sample3.csv" "r"))
|| writes "\n\n-----\n"
! || writes "Reading 'read-sample4.csv': (Malformed)\n"
|| write (readfile (fopen "read-sample4.csv" "r"));
\ No newline at end of file
|
