After a few weeks wrestling with the MySQL protocol, I've finally managed to produce a reasonable attempt at a client for Gambit (and probably other Scheme's).
This is a pure Scheme implementation rather than using Gambit's C interface to glue the existing MySQL C API into Gambit. The reason for this is that Gambit's power, and in my view fantastic potential as a web platform, comes from it's lightweight threads which allows Gambit to process thousands of concurrent requests in a single OS thread. This is all acheived by an internal schedular, continuations and very careful use of non-blocking calls on all I/O functions. Using the C API effectively takes the OS thread out of Gambit and into the C code and therefore all of those lovely threads stop executing until your call is completed - seriously bad news for a web application.
This library is now around 80% complete and supports the following features :-
- Multiple concurrent connections to MySQL,
- Authentication using both the old and new authentication methods,
- Switching Schema's,
- Dynamic queries, updates, deletes etc.
- Prepared statement creation,
- Executing prepared statements (queries and updates) with bind variables for most datatypes,
- Closing prepared statements,
- Closing connections.
There are a few limitations with the driver, i.e. features that aren't implemented yet :-
- Not all datatypes are supported yet in prepared statements e.g. floats, doubles, sets, enums and one or two others. Some of these can easily be avoided e.g. by using DECIMAL instead of FLOAT or DOUBLE.
- BLOB's and large character fields are not yet supported in either dynamic or prepared statements.
- Large result sets requiring supplementary fetches aren't supported as I haven't implemented the additional fetch function.
The library is in the Gambit Dumping Grounds. Here's an example of how you use it :-
(load "sql")
(load "mysql")
(with-connection (sql-connect "localhost" 3306 "test" "fred" "fred")
;;(mysql-execute "drop table test")
(mysql-execute "create table test (id integer PRIMARY KEY AUTO_INCREMENT, name varchar(50), inserted datetime, amount decimal(10,2) DEFAULT -4.5)")
(pp (sql-execute "select * from test"))
;; Prepared Statements
(let ((stmt1 (sql-prepare-statement "insert into test (name, amount, inserted) values (?, ?, sysdate())"))
(stmt2 (sql-prepare-statement "select id, name, amount, inserted from test where amount > ? order by id")))
(pp (sql-execute-prepared-statement stmt1 '("Fred" 10.5)))
(pp (sql-execute-prepared-statement stmt1 '("Joe" 5.5)))
(sql-close-statement stmt1)
(pp (sql-execute-prepared-statement stmt2 '(4.5)))
(sql-close-statement stmt2))
;; Close connection
(sql-close-connection)))
Result sets are returned as a list of lists i.e. a list of column values for each row in a list for the result set. The first row in the list is the column headings. For dynamic statements, the column data is always a string regardless of the SQL type because this is the way that MySQL sends it and I haven't implemented any type conversions yet. Prepared statements return binary types so I've mapped some of these e.g. strings and numbers into their respective Scheme types.
I would strongly recommend using prepared statements rather than dynamic statements for performance reasons and also for their natural resistance to SQL injection attacks in web applications.
Once the library is finished, I'll create a persistence layer that builds on top of the prepared statements to give a framework similar to ActiveRecord in Rails or Hibernate in Java.
I have tried to run your examples and I get the following error:
ReplyDeleteUnbound variable: with-connection
Any suggestions?
Well spotted Scott, there's a line missing in the example - I'll fix it.
ReplyDeleteTry adding (load "sql") before the (load "mysql") and that should do it.
Thanks
I'm still getting the same error.
ReplyDeletebash-3.00$ gsi
Gambit v4.4.3
> (load "sql")
"/home/----/downloads/sql.scm"
> (load "mysql")
"/home/-----/downloads/mysql.scm"
> (with-connection (sql-connect "localhost" 3306 "crpm" "----" "-----")
(pp (sql-execute "select * from person")))
*** ERROR IN (console)@3.2 -- Unbound variable: with-connection
1>
Hi Scott,
ReplyDeleteI finally worked it out - it's down to the fact that Gambit doesn't load macros when you load only when you include, so you'll need to include the two files rather than load them e.g.
(include "sql.scm")
(include "mysql.scm")
(with-connection) is a macro hence the problem. I'll shortly be moving this library into Black Hole so we won't have these problems as you can import functions and macros with the same ease.
Thanks
Andrew
Bravo. This is great news. Can't wait to start playing with it.
ReplyDeleteThis is pretty good stuff, especially that it doesn't block. Thanks for writing it. :)
ReplyDeleteHi Andrew
ReplyDeleteFunny, we've been doing similar stuff at almost exactly the same time without bumping into each others work.
http://search.cpan.org/dist/Net-Wire10/lib/Net/Wire10.pm
I admire how elegant your implementation is.
Great work! :)
-David