unmaintained/db/mysql/mysql.factor

   1 ! Copyright (C) 2008 Doug Coleman.
   2 ! See http://factorcode.org/license.txt for license.
   3 USING: alien continuations destructors io kernel prettyprint
   4 sequences db db.mysql.ffi ;
   5 IN: db.mysql
   6
   7 TUPLE: mysql-db handle host user password db port ;
   8 TUPLE: mysql-statement ;
   9 TUPLE: mysql-result-set ;
  10
  11 M: mysql-db db-open ( mysql-db -- )
  12     ;
  13
  14 M: mysql-db dispose ( mysql-db -- )
  15     mysql-db-handle mysql_close ;
  16
  17 M: mysql-db <simple-statement> ( str in out -- statement )
  18     3drop f ;
  19
  20 M: mysql-db <prepared-statement> ( str in out -- statement )
  21     3drop f ;
  22
  23 M: mysql-statement prepare-statement ( statement -- )
  24     drop ;
  25
  26 M: mysql-statement bind-statement* ( statement -- )
  27     drop ;
  28
  29 M: mysql-statement query-results ( query -- result-set )
  30     drop f ;
  31
  32 M: mysql-result-set #rows ( result-set -- n )
  33     drop 0 ;
  34
  35 M: mysql-result-set #columns ( result-set -- n )
  36     drop 0 ;
  37
  38 M: mysql-result-set row-column ( result-set n -- obj )
  39     2drop f ;
  40
  41 M: mysql-result-set advance-row ( result-set -- )
  42     drop ;
  43
  44 M: mysql-db begin-transaction ( -- )
  45     ;
  46
  47 M: mysql-db commit-transaction ( -- )
  48     ;
  49
  50 M: mysql-db rollback-transaction ( -- )
  51     ;