gdbm: add gdbm-info

diff --git a/extra/gdbm/gdbm-docs.factor b/extra/gdbm/gdbm-docs.factor
index 7a00e214c3a14dc3a499cfe4a02fb2bf6e2d01b2..80735145f293a90ed5f939651b1854fa29a958b6 100644 (file)
--- a/extra/gdbm/gdbm-docs.factor
+++ b/extra/gdbm/gdbm-docs.factor
@@ -28,6 +28,10 @@ HELP: <gdbm>
 { $values { "gdbm" gdbm } }
 { $description "Creates database configuration object with all slots set to their default values. See " { $link gdbm } " for complete slots description." } ;
 
+HELP: gdbm-info
+{ $values { "str" string } }
+{ $description "Returns version number and build date." } ;
+
 HELP: gdbm-delete
 { $values { "key" object } }
 { $description "Removes the keyed item from the database." } ;

diff --git a/extra/gdbm/gdbm.factor b/extra/gdbm/gdbm.factor
index 90aaa7fadeff58baeaca09900cb342acadee9c60..7993864643588218bc975c0f47ec5a47db161ff5 100644 (file)
--- a/extra/gdbm/gdbm.factor
+++ b/extra/gdbm/gdbm.factor
@@ -67,6 +67,8 @@ DESTRUCTOR: gdbm-close
 PRIVATE>
 
 
+: gdbm-info ( -- str ) gdbm_version ;
+
 : gdbm-error-message ( error -- msg ) gdbm_strerror ;
 
 : gdbm-replace ( key content -- ) GDBM_REPLACE gdbm-store ;