[q-lang-cvs] q-csv/examples readsamples.q, 1.1.1.1, 1.2 writesamples.q, 1.1.1.1, 1.2

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

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