Skip to content

HTTPS clone URL

Subversion checkout URL

You can clone with
or
.
Download ZIP
Tree: fdf8ad9301
Fetching contributors…

Cannot retrieve contributors at this time

177 lines (139 sloc) 4.219 kB
;;; Copyright (c) 2006 by Eric Knauel. See file COPYING.
;;; enum-sets
;;; #########
(define-interface enum-sets-interface
(export (define-enum-set-type :syntax)
enum-set->list
enum-set-member?
enum-set=?
enum-set-union
enum-set-intersection
enum-set-negation))
(define-interface enum-sets-internal-interface
(export enum-set-has-type?
enum-set?
enum-set-type
enum-set->integer
integer->enum-set))
(define-structures ((enum-sets enum-sets-interface)
(enum-sets-internal enum-sets-internal-interface))
(open scheme define-record-types
finite-types
bitwise
util
signals
external-calls)
(optimize auto-integrate)
(files enum-set))
;;; srfi-42-byte-vectors
;;; ####################
(define-structure srfi-42-byte-vectors
(export (byte-vector-ec :syntax)
(:byte-vector :syntax))
(open scheme srfi-42
byte-vectors)
(files bytevec-42))
;;; utils
;;; #####
(define-structure mysql-utils
(export string->byte-vector
byte-vector->string
mod2+ mod5+ mod2*
floor-int)
(open scheme
srfi-42 srfi-42-byte-vectors
ascii)
(files util))
;;; mysql-connection
;;; ################
(define-interface mysql-connection-interface
(export open-tcp-connection
write-string
force-output))
;;; The mysql-connection module for the scsh API
(define-structure mysql-connection-scsh mysql-connection-interface
(open scheme-with-scsh
srfi-23)
(files net-scsh))
;;; The mysql-connection module for the Scheme 48 API
;;;
;;; Comment out the definition for mysql-connection-scsh if you are
;;; using Scheme 48 since there isn't a scheme-with-scsh module in
;;; Scheme 48. And vice versa: scsh doesn't have i/o nor sockets.
(define-structure mysql-connection-s48 mysql-connection-interface
(open scheme
srfi-42
i/o sockets)
(files net-s48))
(define mysql-connection mysql-connection-scsh)
;;; mysql-low
;;; #########
(define-interface mysql-low-interface
(export connection? open-mysql-tcp-connection
read-packet print-packet
write-packet
(client-option :syntax)
client-option? client-options client-option-name
standard-client-options
make-option-set option-set?
read-server-greeting greeting?
greeting-protocol-ver greeting-server-ver
greeting-thread-id greeting-salt greeting-capabilities
greeting-charset greeting-status greeting-rest-salt
make-client-auth-message
make-old-password-message
(field-type :syntax)
field-type? field-type-elements field-type-name
(charset :syntax)
charset? charset-elements charset-name
(status-code :syntax)
status-code? status-codes status-code-name
make-status-code-set status-code-set?
(command :syntax)
command? commands command-name
make-command-message
ok-packet? parse-ok-packet
ok-packet-affected-rows ok-packet-insert-id
ok-packet-server-status ok-packet-warning-count
ok-packet-message
error-packet? parse-error-packet
error-packet-errno error-packet-sql-state
error-packet-message
eof-packet? parse-eof-packet
eof-packet-warning-count eof-packet-status-flags
old-style-eof-packet?
parse-result-set-header-packet
field-packet? parse-field-packet
field-packet-catalog field-packet-db
field-packet-table field-packet-org-table
field-packet-name field-packet-org-name
field-packet-charset field-packet-length
field-packet-type field-packet-flags
field-packet-decimals field-packet-default
row-packet? parse-row-packet
row-packet-columns
parse-tabular-response
read/parse-response))
(define-structure mysql-low
mysql-low-interface
(open scheme
mysql-connection
define-record-types
finite-types enum-sets enum-sets-internal
ascii bitwise byte-vectors
mysql-utils sha1
srfi-42 srfi-42-byte-vectors
srfi-11 srfi-23 srfi-28)
(files mysql))
;;; sha1
;;; ####
(define-interface sha1-interface
(export sha1-hash-string
sha1-hash-byte-vector
hash-value->byte-vector))
(define-structure sha1 sha1-interface
(open scheme
bitwise byte-vectors ascii
mysql-utils
srfi-28)
(files sha1))
Jump to Line
Something went wrong with that request. Please try again.