プロジェクト

全般

プロフィール

操作
履歴

SourceThird » 履歴 » リビジョン 1

リビジョン 1/3 | 次 »
Yuumi Yoshida, 2008-06-04 22:02

リスト１：ＲＤＢプログラム
{{{
(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 <br>\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 "<html><body>\n" port)
(display "<h2>Asia League Ice Hockey</h2>\n" port)
(display "<table border='1'>" port)
(for-each
(lambda (row)
(display " <tr>" port)
(display #",(getter row \"no\")" port)
(display #"<td>,(getter row \"name\")</td>" port)
(display #",(getter row \"g\")" port)
(display "\n" port))
res)
(dbi-close conn)
(display "\n" port)
(get-output-string port)))
}}}

Yuumi Yoshida さんがほぼ16年前に更新 · 1件の履歴