Changeset 8191 in project for release/3/mysql/trunk/mysql-eggdoc.scm

Timestamp:

02/06/08 07:22:47 (13 years ago)

Author:

Kon Lovett

Message:

Save

File:

• release/3/mysql/trunk/mysql-eggdoc.scm (modified) (6 diffs)

release/3/mysql/trunk/mysql-eggdoc.scm

@@ -31 +31 @@
 (use mysql)
 
-(let [(db (mysql-connect host: "mysql.example.com" user: "example"
-                         passwd: "secret"))]
+(let ((db (mysql-connect host: "mysql.example.com" user: "example" passwd: "secret")))
   (mysql-query db "SHOW DATABASES")
-  (do [(row (mysql-fetch-row db) (mysql-fetch-row db))]
-      [(not row)]
-    (display (conc "Row " idx ": " (row "Database") "\n")))
-  (mysql-close db))
+  (do ((row (mysql-fetch-row db) (mysql-fetch-row db)))
+      ((not row))
+    (print "Row " idx ": " (row "Database")) )
+  (mysql-close db) )
 END
 )
@@ -44 +43 @@
 (use mysql)
 
-(let [(db (mysql-connect host: "mysql.example.com" user: "example"
-                         passwd: "secret"))]
-  (mysql-query-foreach db "SHOW DATABASES"
-                       (lambda (row idx)
-                         (display (conc "Row " idx ": " (row "Database") "\n"))))
-  (mysql-close db))
+(let ((db (mysql-connect host: "mysql.example.com" user: "example" passwd: "secret")))
+  (mysql-query-for-each
+   db "SHOW DATABASES" (lambda (row idx) (print "Row " idx ": " (row "Database"))))
+  (mysql-close db) )
 END
 )
@@ -200 +197 @@
             "most recent call to " (tt "mysql-query") ". If the "
             "last query failed, or if there are no more rows left "
-            "in the result set, returns " (tt "#f") "; otherwise "
+            "in the result set, returns " (code "#f") "; otherwise "
             "returns a row object.")
           (a (@ (" name='rowobj'")))
@@ -207 +204 @@
             "takes a single argument. If the argument is a number, "
             "the function returns the value of the field for which "
-            "that number is the index, or " (tt "#f") " if the "
+            "that number is the index, or " (code "#f") " if the "
             "index is out of range. Otherwise, the argument must "
             "be a symbol or string, in which case the function returns "
             "the value of the field for which that string (or symbol "
             "converted into a string) is the field/column name. If "
-            "no such field exists, returns " (tt "#f") ".") )
+            "no such field exists, returns " (code "#f") ".") )
 
         (procedure "(mysql-field-count CONN)"
@@ -233 +230 @@
           (p
             "Returns the number of rows in the current result set. "
-            "If no result set exists, returns " (tt "#f") ".") )
+            "If no result set exists, returns " (code "#f") ".") )
 
         (procedure "(mysql-num-fields CONN)"
           (p
             "Returns the number of fields in the current result set. "
-            "If no result set exists, returns " (tt "#f") ".") )
+            "If no result set exists, returns " (code "#f") ".") )
 
         (procedure "(mysql-affected-rows CONN)"
@@ -833 +830 @@
         "All MySQL result data (except NULL) are returned as Scheme strings.")
       (p
-        "The NULL value is represented by " (tt "#f") ".")
-      (p "Booleans are expressed "
-        "as the Scheme strings " (tt "\"1\"") " and " (tt "\"0\"") ".")
-      (p "All remaining "
-        "types, including numeric types, blobs, and strings are returned as Scheme "
-        "strings.")
+        "The NULL value is represented by " (code "#f") ".")
+      (p
+        "Booleans are expressed as the Scheme strings " (code "\"1\"") " and "
+        (code "\"0\"") ".")
+      (p
+        "All remaining types, including numeric types, blobs, and strings are "
+        "returned as Scheme strings.")
     ) ; section "Data Type Conversion"