;;;; Programmers: Kevin M. Rosenberg and onShore Development Inc\r
;;;; Date Started: Mar 2002\r
;;;;\r
-;;;; $Id: mysql-usql.cl,v 1.4 2002/04/27 21:12:32 kevin Exp $\r
+;;;; $Id: mysql-usql.cl,v 1.6 2002/05/27 17:19:30 kevin Exp $\r
;;;;\r
;;;; This file, part of CLSQL, is Copyright (c) 2002 by Kevin M. Rosenberg\r
;;;; and by onShore Development Inc.\r
database)\r
(mysql:mysql-insert-id (clsql-mysql::database-mysql-ptr database)))\r
\r
-;; Transactions\r
-\r
-(defmethod database-start-transaction ((database mysql-database))\r
- "Start a transaction in DATABASE."\r
- (database-execute-command "BEGIN" database))\r
-\r
-(defmethod database-commit-transaction ((database mysql-database))\r
- "Commit current transaction in DATABASE."\r
- (database-execute-command "COMMIT" database))\r
-\r
-(defmethod database-abort-transaction ((database mysql-database))\r
- "Abort current transaction in DATABASE."\r
- (database-execute-command "ROLLBACK" database))\r
-\r
;; Misc USQL functions\r
\r
+#|\r
#+ignore\r
(defmethod database-output-sql ((expr clsql-sys::sql-typecast-exp) \r
(database mysql-database))\r
(make-instance 'clsql-sys::sql-typecast-exp\r
:modifier 'int8\r
:components val)))\r
+|#\r