[q-lang-cvs] q/modules/odbc/examples odbc_examp.q,1.4,1.5

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

Update of /cvsroot/q-lang/q/modules/odbc/examples
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv32759

Modified Files:
	odbc_examp.q 
Log Message:
updated examples

Index: odbc_examp.q
===================================================================
RCS file: /cvsroot/q-lang/q/modules/odbc/examples/odbc_examp.q,v
retrieving revision 1.4
retrieving revision 1.5
diff -C2 -d -r1.4 -r1.5
*** odbc_examp.q	14 Apr 2004 08:38:16 -0000	1.4
--- odbc_examp.q	25 Apr 2006 18:01:32 -0000	1.5
***************
*** 80,85 ****
     with data. */
  
- private init_table NAME DESC DATA, fields DESC, params DESC;
- 
  init			= catch report
  			  (init_table "pet" PET_DESC PET_DATA ||
--- 80,83 ----
***************
*** 104,109 ****
     interpreter. */
  
- private prompt, display SETS, display_set SET, display_row WIDTHS ROW;
- 
  mysql			= exec prompt;
  
--- 102,105 ----
***************
*** 120,125 ****
  /* Display a result set. */
  
- private widths RESULTS, rule WIDTH;
- 
  display_set ROWS:Int	= printf "%d rows affected.\n" ROWS;
  display_set RESULTS:List
--- 116,119 ----
***************
*** 141,157 ****
  /* Determine column widths. */
  
- private maxwidths Xs Ys;
- 
  widths RESULTS		= foldl maxwidths INIT RESULTS
  			    where INIT = map (cst 0) (list (hd RESULTS));
  
- private value_str VALUE;
- 
  maxwidths Xs Ys		= zipwith max Xs (map ((#).value_str) (list Ys));
  
  /* Display a data row. */
  
- private column WIDTH VALUE;
- 
  display_row WIDTHS ROW	= printf "%s\n"
  			  (join "   " (zipwith column WIDTHS (list ROW)));
--- 135,145 ----
***************
*** 163,168 ****
  /* Format a data value. */
  
- private format WIDTH S;
- 
  column WIDTH VALUE	= format WIDTH (value_str VALUE);
  
--- 151,154 ----