Gauche 関連情報

リスト１：ＲＤＢプログラム

(use dbi)
(use gauche.collection)

(define (print-goal)
(let* ((conn (dbi-connect "dbi:sqlite3:alih.db"))
(res (dbi-do conn
"SELECT no, name, g FROM player WHERE pos='F' ORDER BY g desc"))
(getter (relation-accessor res)))
(for-each
(lambda (row)
(format #t "~3d ~22a ~5d\n"

(getter row "no")
(getter row "name")
(getter row "g")))
res)
(dbi-close conn)))

(print-goal)

図１：GaucheでWebサーバー

(use gauche.net)
(use rfc.uri)
(use www.cgi)

(define (web-server)
(let ((server-socket (make-server-socket 'inet 3030 :reuse-addr? #t)))
(while #t
(let ((client-socket (socket-accept server-socket)))
(receive (path params) (get-request (socket-input-port client-socket))
(put-response (render path params)
(socket-output-port client-socket)))
(socket-close client-socket)))))

(define (get-request in-port)
(cond ((rxmatch #/^{GET\s+(\S+)\s/} (read-line in-port))
=> (lambda (m)
(parse-uri (rxmatch-substring m 1))))
(else (values "" ()))))

(define (parse-uri uri)
(receive (host path query fragment) (uri-decompose-hierarchical uri)
(values path (cgi-parse-parameters :query-string (or query "")))))

(define (put-response content out-port)
(display "HTTP/1.1 200 OK\r\n" out-port)
(display "Content-Type: text/html; charset=utf-8\r\n" out-port)
(display #@"Content-Length: ,(string-size content)\r\n" out-port)
(display "\r\n" out-port)
(display content out-port))

(define (render path params)
(let ((port (open-output-string)))
(display "\n" port)
(display "simple web server\n" port)
(display #@"path: ,path \n" port)
(for-each (lambda (p)
(display #@" ,(car p) : ,(cdr p) \n" port))
params)
(display "\n" port)
(get-output-string port)))

(web-server)

図３： GaucheでWebアプリ

(use dbi)
(use gauche.collection)
(define (render path params)
(let* ((port (open-output-string))
(conn (dbi-connect "dbi:sqlite3:alih.db"))
(pos (cgi-get-parameter "pos" params))
(sql (if (and pos (rxmatch #/^[DFG]$/ pos))
#@"SELECT no, name, g FROM player WHERE pos=',pos' ORDER by no"
"SELECT no, name, g FROM player ORDER by no"))
(res (dbi-do conn sql))
(getter (relation-accessor res)))
(display "\n" port)
(display "Asia League Ice Hockey\n" port)
(display "" port)
(for-each
(lambda (row)
(display " " port)
(display #@",(getter row \"no\")" port)
(display #@",(getter row \"name\")" port)
(display #@",(getter row \"g\")" port)
(display "\n" port))
res)
(dbi-close conn)
(display "\n" port)
(get-output-string port)))