Guile Scheme 之 dbi

Question

本帖最后由 Lispor 于 2010-12-03 19:01 编辑

Guile-dbi(data base interface) 为 guile 提供了一种简单、通用和易于使用的各种数据库接口, 例如, Postgres, MySQL 或者是 SQLite.

guile-dbi 被分为两部分: DBI(database independent) 和 DBD(database dependent) 插件, DBI 为 guile提供操作接口, 而 DBD 插件为 scheme 连接特定的 SQL server. 现在, 只有 Postgres, MySQL 和 SQLite3 的 DBD 后端.

1.1 历史

2004 年, Maurizio Boriani 写道:

我在寻找一个为 guile scheme 提供通用的 database 库, 虽然找到了一些, 但是他们并不是真正的 'dynamic', 只是几个不同的后端简单的编译而成, 而我寻找的是像 perl, php, tcl等语言的 dbi 系统, 其可以在运行时连接 database driver, 最后没有寻找到, 因此我就写了一个.

2008 年, Linas Vepstas 写道:

我在寻找一个为 guile scheme 提供通用的 database 库, 并且这是我找到的唯一具有文档说明, 能够保证工作的一个. 经过一些补丁后, 满足了我的需求, 现在我就在我的 OpenCog NLP 子系统工程里使用它.

1.2 获取 Guile DBI

你可以从 http://www.gna.org/projects/guile-dbi/ 网页获得 Guile dbi 最新版本.

2. 使用手册

scheme 接口非常简单, 只有 5 个函数: dbi-open, dbi-close, dbi-query, dbi-get_status 和 dbi-get_row.

只要有相应的 dbd backend, guile DBI 可以支持任何数据库, 目前只有 MySQL, Postgres 和 SQLite 后端.

下面是一个 SQLite3 的使用实例:

1. (use-modules (dbi dbi))
3. ;; Log into the database.
4. (define db-obj (dbi-open "sqlite3" "my-example-db"))
6. ;; Create a table.
7. (dbi-query db-obj "create table hellotable(id int, name varchar(15))")
9. ;; Look at the return status of the last SQL command
10. (display db-obj) (newline)
12. ;; Populate the table with values.
13. (dbi-query db-obj
14.            "insert into hellotable ('id', 'name') values('33', 'ola')")
15. (dbi-query db-obj
16.            "insert into hellotable ('id', 'name') values('34', 'dzien dobre')")
17. (dbi-query db-obj
18.            "insert into hellotable ('id', 'name') values('44', 'annyong haseyo')")
19. (display db-obj) (newline)
21. ;; Display each of the rows of the table, in turn.
22. (dbi-query db-obj "select * from hellotable")
23. (display db-obj) (newline)
24. (write (dbi-get_row db-obj)) (newline)
25. (write (dbi-get_row db-obj)) (newline)
26. (write (dbi-get_row db-obj)) (newline)
27. (write (dbi-get_row db-obj)) (newline)
29. ;; Close the database.
30. (dbi-close db-obj)
31. (display db-obj) (newline)

复制代码下面是使用 MySQL 数据库的一个实例. 这个实例假定 MySQL 服务已经运行, 并且一个名为 pippo 的 table 已经被创建, 并被存储了一些数据:

1. #!/usr/bin/guile -e main -s
2. !#
4. (use-modules (dbi dbi))
6. (define ciccio (dbi-open "mysql"
7.                          "user:pass:pluto:tcp:localhost:3306"))
8. (define ret #f)
9. ;; (define ciccio (dbi-open "mysql"
10.                             "user:pass:pluto:socket:/tmp/mysql.sock"))
12. (define main
13.   (lambda (args)
14.     (display "HERE")(newline)
15.     (display ciccio)(newline)
16.     (dbi-query ciccio "select * from pippo")
17.     (display ciccio)(newline)
18.     (set! ret (dbi-get_row ciccio))
19.     (while (not (equal? ret #f))
20.            (display ret)(newline)
21.            (set! ret (dbi-get_row ciccio))
22.            )
23.     (display ret)(newline)
25. ))

复制代码