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: { $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 ;