11.5 dbm - 汎用DBMインタフェース

Module: dbm

DBM系のライブラリはキーでインデックスされた値をファイルに格納する簡単な方法を 提供します。一種の永続的な連想記憶と言えるでしょう。

このモジュールが定義する抽象クラス<dbm>は、DBM系ライブラリへの 統一されたインタフェースを提供します。dbmモジュールだけをインポートすれば、 既にオープンされたデータベースを操作することができます。

データベースをオープンしたり作成したりするには、dbmインタフェースを実装した モジュールが必要になります。今のところGaucheでは以下の実装が使えます。 それぞれのモジュールは、dbmインタフェース共通の手続きの他に、 直接実装を操作できる低レベルの手続きも提供します。 システムによっては以下のインタフェースの全てが実装されているわけではないことに 注意してください。Gaucheではシステムが提供する実装のみを定義します。

dbm.fsdbm

ファイルシステムdbm (dbm.fsdbm - ファイルシステムdbm参照).

dbm.gdbm

GDBMライブラリ (dbm.gdbm - GDBMインタフェース参照).

dbm.ndbm

NDBMライブラリ (dbm.ndbm - NDBMインタフェース参照).

dbm.odbm

DBMライブラリ (dbm.odbm - オリジナルのDBMインタフェース参照).

以下にdbmデータベースの使用例を示します。

(use dbm)         ; dbm abstract interface
(use dbm.gdbm)    ; dbm concrete interface

; open the database
(define *db* (dbm-open <gdbm> :path "mydb" :rw-mode :write))

; put the value to the database
(dbm-put! *db* "key1" "value1")

; get the value from the database
(define val (dbm-get *db* "key1"))

; iterate over the database
(dbm-for-each *db* (lambda (key val) (foo key val)))

; close the database
(dbm-close *db*)

11.5.1 DBMデータベースのオープンとクローズ

Class: <dbm>

DBM系のデータベースのための抽象クラスです。データベースへの共通のオペレーションを 定義します。以下のインスタンススロットを持ちます。これらのスロットの値は dbm-openによってデータベースがオープンされる前にセットされて いなければなりません。

具体クラスは、データベースの操作をより細かく行うための追加のスロット(例えばロックを 行うかどうか)を持つかもしれません。

Instance Variable of <dbm>: path

データベースファイルのパス名。dbmの実装によっては、このパスにサフィックスが追加されます。

Instance Variable of <dbm>: rw-mode

読み書きのモードを指定します。以下の値のいずれかを取ります。

:read

データベースはdbm-openによって読みだし専用モードでオープンされます。 オープンされる時点でデータベースは存在していなければなりません。

:write

データベースはdbm-openによって読み書き可能なモードでオープンされます。 データベースが存在しなければ、dbm-openは新しいデータベースを作成します。

:create

dbm-openによって新しいデータベースが作成され、読み書き可能なモードでオープンされます。 既にデータベースが存在していた場合、その内容はクリアされます。

Instance Variable of <dbm>: file-mode

データベースが作成されるときのファイルパーミッションを指定します。 デフォルトは#o664です。

Instance Variable of <dbm>: key-convert

Instance Variable of <dbm>: value-convert

デフォルトでは、dbmデータベースはキーにも値にも文字列しか使うことはできません。 これらのスロットによって、それ以外のSchemeオブジェクトを取り扱う方法を指定することが できます。以下の値のいずれかが可能です。

#f

デフォルトの値です。キーあるいは値は変換されません。それらは文字列でなければなりません。

#t

キーあるいは値はwriteを使って文字列に変換されデータベースに格納されます。 そしてreadを使って文字列からSchemeオブジェクトへと変換されます。 後でreadで読みこめるようなキーあるいは値のみを扱うことができます。 (但し、dbmライブラリは書き込み時にそれが後で読み込めるかどうかのチェックは行いません)。 キーの比較は文字列に変換された後で行われるので、同じ値となるキーは同じ文字列表現を 持つ必要があります。

二つの手続きのリスト

どちらの手続きも一つの引数を取ります。最初の手続きはSchemeオブジェクトを受け取り、 文字列を返します。キーあるいは値をデータベースに格納する時に呼ばれます。 二つ目の手続きは文字列を受け取りSchemeオブジェクトを返します。データベースから キーあるいは値を取り出す時に呼ばれます。 キーの比較は文字列に変換された後で行われるので、同じ値となるキーは同じ文字列に 変換される必要があります。

Metaclass: <dbm-meta>

<dbm>クラス及びそのサブクラスのメタクラスです。

Method: dbm-open (dbm <dbm>)

DBMデータベースをオープンします。dbmは、<dbm>クラスを継承した 具体クラスのインスタンスでなければなりません。また、そのスロットには適切な値が セットされている必要があります。オープンに成功したらdbm自身が返されます。 失敗した場合はエラーが報告されます。

Method: dbm-open (dbm-class <dbm-meta>) options …

DBMインスタンスを作成してオープンするための便利なメソッドです。 次のように定義されます。

(define-method dbm-open ((class <class>) . initargs) (dbm-open (apply make class initargs)))

データベースファイルはガベージコレクトされる際にクローズされますが、 変更を正しくデータベースに反映するには、明示的にクローズした方が良いでしょう。

Method: dbm-close (dbm <dbm>)

データベースdbmをクローズします。データベースがクローズされると、 それ以降のアクセスオペレーションはエラーとなります。

Method: dbm-closed? (dbm <dbm>)

データベースdbmが既にクローズされていたら#tを返します。

11.5.2 DBMデータベースのアクセス

データベースがオープンされたら、以下のアクセスメソッドが使えます。

Method: dbm-put! (dbm <dbm>) key value

値valueをキーkeyと関連付けて保存します。

Method: dbm-get (dbm <dbm>) key &optional default

キーkeyに関連付けられた値を返します。もし値が存在しなければ、defaultが 与えられていればそれを返し、そうでなければエラーを報告します。

Method: dbm-exists? (dbm <dbm>) key

キーkeyに関連付けられた値が存在すれば#tを返します。

Method: dbm-delete! (dbm <dbm>) key

キーkeyに関連付けられた値を消去します。値が存在しない場合は何もしません。

11.5.3 DBMデータベース上の繰り返し処理

全データベースを渡り歩く処理のために、以下のメソッドが用意されています。

Method: dbm-fold (dbm <dbm>) procedure knil

基本的な繰り返し処理です。データベース内の各キー／値のペアに関して、手続き procedureが (procedure key value r), のように呼ばれます。ここでrは、最初のprocedureの呼び出しの時にはknil が、以降の呼び出しの時にはその直前のprocedureが返した値が渡されます。 最後のprocedureの戻り値がdbm-foldの戻り値となります。 データベース中にデータがひとつもなければknilがそのまま返されます。

次の例は、データベース中の整数の値を全て加算します。

(dbm-fold dbm (lambda (k v r) (if (integer? v) (+ v r) r)) 0)

Method: dbm-for-each (dbm <dbm>) procedure

データベース内の各キー／値のペアに関して、手続きprocedureを呼び出します。 procedureにはキーと値が渡されます。procedureの戻り値は捨てられます。

Method: dbm-map (dbm <dbm>) procedure

データベース内の各キー／値のペアに関して、手続きprocedureを呼び出します。 procedureにはキーと値が渡されます。procedureの戻り値はリストに 集められてdbm-mapの戻り値となります。

11.5.4 DBMデータベースインスタンスの管理

各DBM実装は、データベースを格納するのに独自の方法を使います。 レガシーなDBMは、pathスロットの値にそれぞれ‘.dir’と ‘.pag’を付けた名前の2つのファイルを使います。 fsdbmはpathの下にディレクトリを作ります。 DBMデータベースが他のデータベースサーバによってバック アップされる場合は、pathはそのサーバで単なるキーと して使われるでしょう。

以下のメソッドは、そのようなバリエーションを隠し、 データベースそれ自体を管理する簡易な方法を提供します。 最初の引数に、具体的なDBMデータベースを実装している クラスを渡す必要があります。

Generic Function: dbm-db-exists? class name

nameで指定されたclassクラスのデータベースが 存在する場合は#tを返します。

;; Returns #t if testdb.dir and testdb.pag exist (dbm-db-exists? <odbm> "testdb")

Generic Function: dbm-db-remove class name

nameで指定されるclassクラスのデータベース 全体を削除します。

Generic Function: dbm-db-copy class from to

fromで指定されたclassクラスのデータベースを toへコピーします。 classのdbm実装がロックをサポートしている限り、fromの一貫性は 保たれます (つまり、コピー中に他のプロセスがfromを 変更しようとした場合であっても、toが壊れたデータベースになることは ありません)。 もしコピー先のtoが既に存在するデータベースで あった場合、toの元の内容は失われます。 コピーが中断された場合にtoが不完全な状態のままになるかどうかは dbm実装に依存します。dbm実装の多くはトランザクショナルな振る舞い、 すなわち、コピーが失敗した場合に元のtoを復元することを試みます。 しかし確実な操作のためには、コピーが失敗した場合には呼び出し側でtoの 状態を確認することが必要です。

(dbm-db-copy <gdbm> "testdb.dbm" "backup.dbm")

Generic Function: dbm-db-move class from to

fromで指定されたclassクラスのデータベースを toへ移動、あるいはリネームします。dbm-db-copyと同じく、 classのdbm実装がロックをサポートしていれば データベースの一貫性は保証されます。移動先のtoが既に 存在していた場合、その元の内容は失われます。 存在

11.5.5 DBM実装を書く

When you write an extension module that behaves like a persistent hashtable, it is a good idea to adapt it to the dbm interface, so that the application can use the module in a generic way.

The minimum procedures to conform the dbm interface are as follow:

• Define a metaclass <foo-meta>. It doesn't need to inherit anything except <class>.
• Define a dbm class <foo> that inherits <dbm> and whose metaclass is <foo-meta>.
• Define methods for dbm-open, dbm-close, dbm-put!, dbm-get, dbm-exists, dbm-delete!, dbm-fold, dbm-closed?, specialized for <foo>. (The case of dbm-open for <foo-meta> is handled automatically, so you don't need to define it unless you want something special). Also note that the specialized dbm-open must call next-method in it to set up dbm base class internals.
• Define methods for dbm-db-exists? and dbm-db-remove on <foo-meta>.

Besides above, you may define the following methods.

• Methods for dbm-for-each and dbm-map. If you don't define them, a generic implementation by dbm-fold is used. There may be an implementation specific way which is more efficient.
• Methods for dbm-db-copy and dbm-db-move. If you don't define them, a fallback method opens the specified databases and copies elements one by one, and removes the original if the method is dbm-db-move. Note that the fallback method is not only inefficient, but also it may not copy any implementation-specific meta information. It is highly recommended for the dbm implementation to provide these methods as well.

It is generally recommended to name the implementation module as dbm.foo, and the class of the implementation as <foo>. With this convention it is easier to write an application that dynamically loads and uses dbm implementation specified at runtime.

This document was generated by Shiro Kawai on November, 22 2009 using texi2html 1.78.