#lang racket/base
(require racket/contract
racket/class
racket/tcp
"../generic/main.rkt"
"../generic/socket.rkt"
"../generic/find-socket.rkt"
"connection.rkt"
"dbsystem.rkt")
(provide mysql-connect
mysql-guess-socket-path
(rename-out [dbsystem mysql-dbsystem]))
(define (mysql-connect #:user user
#:database database
#:password [password #f]
#:server [server #f]
#:port [port #f]
#:socket [socket #f])
(let ([connection-options
(+ (if (or server port) 1 0)
(if socket 1 0))])
(when (> connection-options 1)
(error 'mysql-connect "cannot give both server/port and socket arguments")))
(let ([c (new connection%)])
(cond [socket
(let-values ([(in out) (unix-socket-connect socket)])
(send c attach-to-ports in out))]
[else
(let ([server (or server "localhost")]
[port (or port 3306)])
(let-values ([(in out) (tcp-connect server port)])
(send c attach-to-ports in out)))])
(send c start-connection-protocol database user password)
c))
(define socket-paths
'("/var/run/mysqld/mysqld.sock"))
(define (mysql-guess-socket-path)
(guess-socket-path/paths 'mysql-guess-socket-path socket-paths))