support fast mode for gdmb

diff --git a/Modules/gdbmmodule.c b/Modules/gdbmmodule.c
index e5bc4ac110c0e8bd85d0900ec918bd5f21051996..ecfd31eee68aa8e5664a4562025a47215c30cbc8 100644 (file)
--- a/Modules/gdbmmodule.c
+++ b/Modules/gdbmmodule.c
@@ -335,27 +335,34 @@ dbmopen(self, args)
     object *args;
 {
     char *name;
-    char *flags = "r";
+    char *flags = "r ";
     int iflags;
    int mode = 0666;
 
-/* XXXX add other flags */
-        if ( !newgetargs(args, "s|si", &name, &flags, &mode) )
+/* XXXX add other flags. 2nd character can be "f" meaning open in fast mode. */
+    if ( !newgetargs(args, "s|si", &name, &flags, &mode) )
          return NULL;
-       if ( strcmp(flags, "r") == 0 )
+       switch (flags[0]) {
+       case 'r':
          iflags = GDBM_READER;
-       else if ( strcmp(flags, "w") == 0 )
+         break;
+       case 'w':
          iflags = GDBM_WRITER;
-       else if ( strcmp(flags, "c") == 0 )
+         break;
+       case 'c':
          iflags = GDBM_WRCREAT;
-       else if ( strcmp(flags, "n") == 0 )
+         break;
+       case 'n':
          iflags = GDBM_NEWDB;
-       else {
+         break;
+    default:
            err_setstr(DbmError,
                       "Flags should be one of 'r', 'w', 'c' or 'n'");
            return NULL;
        }
-        return newdbmobject(name, iflags, mode);
+       if (flags[1] == 'f')
+         iflags |= GDBM_FAST;
+    return newdbmobject(name, iflags, mode);
 }
 
 static struct methodlist dbmmodule_methods[] = {