From 2992a37fe5e0a4c5f8bf3fef60ffa74854f7b425 Mon Sep 17 00:00:00 2001
From: Dmitry Shubin <dmitry.sh@gmail.com>
Date: Mon, 28 Jun 2010 01:52:36 +0400
Subject: [PATCH] gdbm: add gdbm-info

---
 extra/gdbm/gdbm-docs.factor | 4 ++++
 extra/gdbm/gdbm.factor      | 2 ++
 2 files changed, 6 insertions(+)

diff --git a/extra/gdbm/gdbm-docs.factor b/extra/gdbm/gdbm-docs.factor
index 7a00e214c3..80735145f2 100644
--- 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 90aaa7fade..7993864643 100644
--- 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 ;