From: Kevin M. Rosenberg Date: Thu, 13 Nov 2003 15:26:07 +0000 (+0000) Subject: r8185: convert programlisting to screen X-Git-Tag: v3.8.6~778 X-Git-Url: http://git.kpe.io/?p=clsql.git;a=commitdiff_plain;h=eefedf3f7e0ace05e4c9724567f87dc88a3f1c2e r8185: convert programlisting to screen --- diff --git a/doc/appendix.xml b/doc/appendix.xml index 4a0a364..4c77eaa 100644 --- a/doc/appendix.xml +++ b/doc/appendix.xml @@ -25,7 +25,7 @@ Initialization Use - (mk:load-system :clsql-mysql) + (mk:load-system :clsql-mysql) to load the MySQL back-end. The database type for the MySQL back-end is :mysql. @@ -91,7 +91,7 @@ Initialization Use - (mk:load-system :clsql-postgresql) + (mk:load-system :clsql-postgresql) to load the PostgreSQL back-end. The database type for the PostgreSQL back-end is :postgresql. @@ -180,7 +180,7 @@ Initialization Use - (mk:load-system :clsql-postgresql-socket) + (mk:load-system :clsql-postgresql-socket) to load the PostgreSQL Socket back-end. The database type for the PostgreSQL Socket back-end is :postgresql-socket. @@ -270,7 +270,7 @@ Initialization Use - (mk:load-system :clsql-aodbc) + (mk:load-system :clsql-aodbc) to load the MySQL back-end. The database type for the AODBC back-end is :aodbc. diff --git a/doc/intro.xml b/doc/intro.xml index b0a431a..fa9a2a7 100644 --- a/doc/intro.xml +++ b/doc/intro.xml @@ -126,9 +126,9 @@ Ensure &asdf; is loaded Simply load the file asdf.lisp. - + (load "asdf.lisp") - + @@ -155,9 +155,9 @@ linking on Linux. If you are using FreeBSD or Solaris, you will need to change the linker setting as instructed in the Makefile. Then, you can give the command - + make libs - + in the root directory of &clsql; to build the libraries interfaces/mysql/clsql-mysql.so and interfaces/clsql-uffi/clsql-uffi.so. @@ -173,10 +173,10 @@ make libs The following example code assumes the &uffi; files reside in the /usr/share/lisp/uffi/ directory. - + (push #P"/usr/share/lisp/uffi/" asdf:*central-registry*) (asdf:oos 'asdf:load-op :uffi) - + @@ -189,10 +189,10 @@ make libs The following example code assumes the cl-md5 files reside in the /usr/share/lisp/cl-md5/ directory. - + (push #P"/usr/share/lisp/cl-md5/" asdf:*central-registry*) (asdf:oos 'asdf:load-op :md5) - + @@ -206,7 +206,7 @@ make libs /usr/share/lisp/clsql/ directory. You need to load, at a minimum, the main :clsql system and at least one interface system. - + (push #P"/usr/share/lisp/clsql/" asdf:*central-repository*) (asdf:operate 'asdf:load-op 'clsql-base) ; base clsql package (asdf:operate 'asdf:load-op 'clsql-mysql) ; MySQL interface @@ -214,7 +214,7 @@ make libs (asdf:operate 'asdf:load-op 'clsql-postgresql-socket) ; Socket PGSQL interface (asdf:operate 'asdf:load-op 'clsql-aodbc) ; Allegro ODBC interface (asdf:operate 'asdf:load-op 'clsql) ; main clsql package - + @@ -227,9 +227,9 @@ make libs in the tests/tests.lisp file in the &clsql; source directory. After creating that file, you can run the test suite with &asdf;: - + (asdf:operate 'asdf:test-op 'clsql) - . . + diff --git a/doc/ref_clsql.xml b/doc/ref_clsql.xml index 04062ce..a567cc7 100644 --- a/doc/ref_clsql.xml +++ b/doc/ref_clsql.xml @@ -555,12 +555,12 @@ Examples - + (setf *default-database-type* :mysql) => :mysql (initialize-database-type) => t - + Affected By @@ -606,14 +606,14 @@ Examples - + (setf *default-database-type* :mysql) => :mysql (initialize-database-type) => t *initialized-database-types* => (:MYSQL) - + Affected By @@ -685,7 +685,7 @@ Examples - + *initialized-database-types* => NIL (setf *default-database-type* :mysql) @@ -701,7 +701,7 @@ => T *initialized-database-types* => (:MYSQL) - + Side Effects @@ -833,7 +833,7 @@ Examples - + (connected-databases) => NIL (connect '(nil "template1" "dent" nil) :database-type :postgresql) @@ -851,7 +851,7 @@ => T (connected-databases) => NIL - + Side Effects @@ -926,7 +926,7 @@ Examples - + (connected-databases) => NIL (connect '("dent" "newesim" "dent" "dent") :database-type :mysql) @@ -951,7 +951,7 @@ => NIL (connected-databases) => NIL - + Affected By @@ -1105,7 +1105,7 @@ Examples - + (database-name-from-spec '("dent" "newesim" "dent" "dent") :mysql) => "dent/newesim/dent" (connect '("dent" "newesim" "dent" "dent") :database-type :mysql) @@ -1122,7 +1122,7 @@ (database-name-from-spec '("www.pmsf.de" "template1" "dent" nil) :postgresql) => "www.pmsf.de/template1/dent" - + Side Effects @@ -1220,7 +1220,7 @@ Examples - + (database-name-from-spec '("dent" "newesim" "dent" "dent") :mysql) => "dent/newesim/dent" (connect '("dent" "newesim" "dent" "dent") :database-type :mysql) @@ -1246,7 +1246,7 @@ => NIL (find-database **) => #<CLSQL-POSTGRESQL:POSTGRESQL-DATABASE {48392D2D}> - + Side Effects @@ -1413,7 +1413,7 @@ Examples - + (database-name-from-spec '("dent" "newesim" "dent" "dent") :mysql) => "dent/newesim/dent" (connect '("dent" "newesim" "dent" "dent") :database-type :mysql) @@ -1442,7 +1442,7 @@ >> (SETQ RESULT OLD-DB))) >> 0] 0 => #<CLSQL-MYSQL:MYSQL-DATABASE {480451F5}> - + Side Effects @@ -1540,10 +1540,10 @@ The default is &nil;. Examples - + (disconnect :database (find-database "dent/newesim/dent")) => T - + Side Effects @@ -1610,10 +1610,10 @@ The default is &nil;. Examples - + (disconnect-pool) => T - + Side Effects @@ -1701,7 +1701,7 @@ The default is &nil;. Examples - + (database-name-from-spec '("dent" "newesim" "dent" "dent") :mysql) => "dent/newesim/dent" (connect '("dent" "newesim" "dent" "dent") :database-type :mysql) @@ -1727,7 +1727,7 @@ The default is &nil;. => NIL (find-database **) => #<CLSQL-POSTGRESQL:POSTGRESQL-DATABASE {48392D2D}> - + Side Effects @@ -1803,7 +1803,7 @@ The default is &nil;. Examples - + (execute-command "create table eventlog (time char(30),event char(70))") => T @@ -1829,7 +1829,7 @@ The default is &nil;. (execute-command "drop table eventlog") => T - + Side Effects @@ -1956,7 +1956,7 @@ The default is &nil;. Examples - + (execute-command "create table simple (name char(50), salary numeric(10,2))") => T (execute-command "insert into simple values ('Mai, Pierre',10000)") @@ -1979,7 +1979,7 @@ The default is &nil;. ;; MySQL-specific: (query "show tables") => (("demo") ("log") ("newlog") ("simple") ("spacetrial")) - + Side Effects @@ -2116,7 +2116,7 @@ The default is &nil;. Examples - + (map-query 'list #'(lambda (salary name) (declare (ignorable name)) (read-from-string salary)) @@ -2140,7 +2140,7 @@ The default is &nil;. list)) => NIL => (("Hacker, Random J." . 8000.5) ("Mai, Pierre" . 10000.0)) - + Side Effects @@ -2264,7 +2264,7 @@ The default is &nil;. Examples - + (do-query ((salary name) "select salary,name from simple") (format t "~30A gets $~2,5$~%" name (read-from-string salary))) >> Mai, Pierre gets $10000.00 @@ -2274,7 +2274,7 @@ The default is &nil;. (do-query ((salary name) "select salary,name from simple") (return (cons salary name))) => ("10000.00" . "Mai, Pierre") - + Side Effects @@ -2378,7 +2378,7 @@ The default is &nil;. Examples - + (defvar *my-db* (connect '("dent" "newesim" "dent" "dent")) "My database" => *MY-DB* @@ -2411,7 +2411,7 @@ The default is &nil;. >> CLOS Benchmark entry => 32000 => #<EQUAL hash table, 3 entries {48350A1D}> => #<EQUAL hash table, 5 entries {48350FCD}> - + Side Effects