学步园

   注意测试程序和转换程序默认不会被编译，默认的make命令只会编译gdbm、ndbm和dbm部分，你必须另外用make prog来编译测试和转换程序。
   （1）gdbm测试程序testgdbm.c：用于测试gdbm各个功能的程序。为测试的方便，封装了4个函数用于打印相关信息，最后main函数实现各个功能的测试。
   void print_bucket(bucket, mesg)：打印散列桶bucket中的每个桶元素内容，mesg指定一个要显示的提示串。程序扫描每个桶元素并打印其内容。
   void _gdbm_print_avail_list (dbf)：打印文件头的可用块列表中的所有可用块信息。程序先打印文件头可用块列表中的每个可用块信息，然后打印文件上可用块栈中的每个可用块信息。
   void _gdbm_print_bucket_cache (dbf)：打印桶缓存数组中的内容。
   void usage (s)：打印启动测试程序时命令行选项的使用格式帮助。
   main函数：testgdbm的主函数，执行流程：
     1）循环调用getopt解析命令行的每个选项；
     2）根据命令行选项的值以适当的方式打开数据库；
     3）设置这个数据库的缓存大小；
     3）根据用户的输入的测试命令，完成gdbm各个功能的测试。
   testgdbm程序的使用方法为testgdbm [-r or -ns] [-b block-size] [-c cache-size] [-g gdbm-file]，命令行选项含义如下：
           -s              指定作磁盘同步操作
           -r              指定数据库为只读
           -n              指定总是创建新的数据库(可写)
           -c cache-size   指定缓存大小
           -b block-size   指定传递块大小
           -g gdbm-file    指定数据库文件名
   所有的dbm、ndbm、gdbm测试程序都支持的标准测试命令：
           c - 统计数据库的关键字/数据对的数目
           d - 在数据库中删除用户输入的关键字
           f - 查找给定的关键字，并显示其关联的数据
           n - 显示给定关键字的下一个关键字及其关联的数据
           q - 退出本测试程序
           s - 向数据库中存入给定的关键字和数据
           1 - 显示数据库中的第一个关键及其数据
           2 - 显示当前关键字的下一个关键及其数据
           ? - 显示帮助信息，即本命令列表
   下面是只有testgdbm程序才支持的特殊测试命令：
           r - 重组数据库文件
           A - 打印文件头的可用块列表中的所有可用块信息
           B - 获取指定目录索引处的散列桶，使之成为当前桶
           C - 打印当前散列桶中每个桶元素的内容
           D - 打印散列目录表中的每个目录项
           F - 打印文件头的中各个域
           H - 计算并显示给定关键字的哈希值
           K - 打印桶缓存数组中的内容
           V - 打印gdbm的版本号

/* testgdbm.c - 用来测试数据并调试gdbm各个功能的程序 */<br /> /* 首先包含系统配置方面的头文件 */<br /> #include "autoconf.h"<br /> #include "gdbmdefs.h"<br /> #include "gdbmerrno.h"<br /> #include "extern.h"<br /> #include "getopt.h"<br /> extern const char * gdbm_version; /* 版本号 */<br /> extern const char *gdbm_strerror __P((gdbm_error)); /* 打印错误消息 */<br /> gdbm_file_info *gdbm_file;<br /> /* 调试过程：打印散列桶bucket中的每个桶元素内容，mesg指定一个要显示的提示串 */<br /> void<br /> print_bucket (bucket, mesg)<br /> hash_bucket *bucket;<br /> char *mesg;<br /> {<br /> int index;<br /> printf ("******* %s **********/n/nbits = %d/ncount= %d/nHash Table:/n",<br /> mesg, bucket->bucket_bits, bucket->count);<br /> printf (" # hash value key size data size data adr home/n");<br /> for (index = 0; index < gdbm_file->header->bucket_elems; index++) /* 打开桶中每个桶元素的各个域 */<br /> printf (" %4d %12x %11d %11d %11d %5d/n", index,<br /> bucket->h_table[index].hash_value,<br /> bucket->h_table[index].key_size,<br /> bucket->h_table[index].data_size,<br /> bucket->h_table[index].data_pointer,<br /> bucket->h_table[index].hash_value % gdbm_file->header->bucket_elems);<br /> printf ("/nAvail count = %1d/n", bucket->av_count);<br /> printf ("Avail adr size/n");<br /> for (index = 0; index < bucket->av_count; index++) /* 打印桶对应的各个可用块的信息 */<br /> printf ("%9d%9d/n", bucket->bucket_avail[index].av_adr,<br /> bucket->bucket_avail[index].av_size);<br /> }<br /> /* 打印文件头的可用块列表中的所有可用块信息 */<br /> void<br /> _gdbm_print_avail_list (dbf)<br /> gdbm_file_info *dbf;<br /> {<br /> int temp;<br /> int size;<br /> avail_block *av_stk;</p> <p> /* 打印文件头中的可用块信息 */<br /> printf ("/nheader block/nsize = %d/ncount = %d/n",<br /> dbf->header->avail.size, dbf->header->avail.count);<br /> for (temp = 0; temp < dbf->header->avail.count; temp++) /* 打印可用块列表中的每个可用块信息 */<br /> {<br /> printf (" %15d %10d /n", dbf->header->avail.av_table[temp].av_size,<br /> dbf->header->avail.av_table[temp].av_adr);<br /> }<br /> /* 初始化可用块列表变量，用来打印文件上的可用块栈 */<br /> temp = dbf->header->avail.next_block;<br /> size = ( ( (dbf->header->avail.size * sizeof (avail_elem)) >> 1)<br /> + sizeof (avail_block));<br /> av_stk = (avail_block *) malloc (size);<br /> if (av_stk == NULL)<br /> {<br /> printf("Out of memory/n");<br /> exit (2);<br /> }<br /> /* 打印文件上可用块栈中的每个可用块信息 */<br /> while (FALSE)<br /> {<br /> lseek (dbf->desc, temp, L_SET);<br /> read (dbf->desc, av_stk, size);<br /> /* 打印可用列表的一些记帐信息 */<br /> printf ("/nblock = %d/nsize = %d/ncount = %d/n", temp,<br /> av_stk->size, av_stk->count);<br /> for (temp = 0; temp < av_stk->count; temp++) /* 打印列表中的每个可用块信息 */<br /> {<br /> printf (" %15d %10d /n", av_stk->av_table[temp].av_size,<br /> av_stk->av_table[temp].av_adr);<br /> }<br /> temp = av_stk->next_block;<br /> }<br /> }<br /> /* 打印桶缓存数组中的内容 */<br /> void<br /> _gdbm_print_bucket_cache (dbf)<br /> gdbm_file_info *dbf;<br /> {<br /> register int index;<br /> char changed;</p> <p> if (dbf->bucket_cache != NULL) {<br /> printf(<br /> "Bucket Cache (size %d):/n Index: Address Changed Data_Hash /n",<br /> dbf->cache_size);<br /> for (index=0; index < dbf->cache_size; index++) { /* 打印每个缓存项的一些信息 */<br /> changed = dbf->bucket_cache[index].ca_changed;<br /> printf (" %5d: %7d %7s %x/n",<br /> index,<br /> dbf->bucket_cache[index].ca_adr,<br /> (changed ? "True" : "False"),<br /> dbf->bucket_cache[index].ca_data.hash_val);<br /> }<br /> } else<br /> printf("Bucket cache has not been initialized./n");<br /> }<br /> /* 打印启动测试程序时命令行选项的使用格式帮助 */<br /> void<br /> usage (s)<br /> char *s;<br /> {<br /> printf(<br /> "Usage: %s [-r or -ns] [-b block-size] [-c cache-size] [-g gdbm-file]/n",<br /> s);<br /> exit (2);<br /> }</p> <p>/* 测试程序允许一个用户调用所有的例程，包括哈希函数。<br /> 命令行选项：s指定作磁盘同步操作、r指定数据库为只读、n指定总是创建新的数据库(可写)、c指定缓存大小、<br /> b指定传递块大小、g指定数据库文件名<br /> 本程序支持的命令列表：每个命令都是单个字符，键入?可多得命令列表的帮助信息<br /> */<br /> int<br /> main (argc, argv)<br /> int argc;<br /> char *argv[];<br /> {<br /> char cmd_ch;<br /> datum key_data;<br /> datum data_data;<br /> datum return_data;<br /> char key_line[500];<br /> char data_line[1000];<br /> char done = FALSE;<br /> int opt;<br /> char reader = FALSE;<br /> char newdb = FALSE;<br /> int fast = 0;<br /> int cache_size = DEFAULT_CACHESIZE;<br /> int block_size = 0;<br /> char *file_name = NULL;</p> <p> /* 命令行选项检查 */<br /> opterr = 0;<br /> /* 循环调用getopt获取命令行的每个选项，每次调用返回当前的选项字符 */<br /> while ((opt = getopt (argc, argv, "srnc:b:g:")) != -1)<br /> switch (opt) {<br /> case 's': fast = GDBM_SYNC;<br /> if (reader) usage (argv[0]);<br /> break;<br /> case 'r': reader = TRUE;<br /> if (newdb) usage (argv[0]);<br /> break;<br /> case 'n': newdb = TRUE;<br /> if (reader) usage (argv[0]);<br /> break;<br /> case 'c': cache_size = atoi(optarg); /* 把字符串转换为整数 */<br /> break;<br /> case 'b': block_size = atoi(optarg);<br /> break;<br /> case 'g': file_name = optarg;<br /> break;<br /> default: usage(argv[0]); /* 打印启动测试程序命令行选项的使用格式 */<br /> }<br /> if(file_name == NULL)<br /> file_name = "junk.gdbm";<br /> /* 初始化关键字和数据项 */<br /> key_data.dptr = NULL;<br /> data_data.dptr = data_line;<br /> /* 根据选项值以适当的方式打开数据库 */<br /> if (reader)<br /> {<br /> gdbm_file = gdbm_open (file_name, block_size, GDBM_READER, 00664, NULL);<br /> }<br /> else if (newdb)<br /> {<br /> gdbm_file =<br /> gdbm_open (file_name, block_size, GDBM_NEWDB | fast, 00664, NULL);<br /> }<br /> else<br /> {<br /> gdbm_file =<br /> gdbm_open (file_name, block_size, GDBM_WRCREAT | fast, 00664, NULL);<br /> }<br /> if (gdbm_file == NULL)<br /> {<br /> printf("gdbm_open failed, %s/n", gdbm_strerror(gdbm_errno));<br /> exit (2);<br /> }<br /> /* 设置这个数据库的缓存大小 */<br /> if (gdbm_setopt(gdbm_file, GDBM_CACHESIZE, &cache_size, sizeof(int)) == -1)<br /> {<br /> printf("gdbm_setopt failed, %s/n", gdbm_strerror(gdbm_errno));<br /> exit(2);<br /> }<br /> /* 欢迎消息 */<br /> printf ("/nWelcome to the gdbm test program. Type ? for help./n/n");</p> <p> while (!done)<br /> {<br /> printf ("com -> ");<br /> cmd_ch = getchar ();<br /> if (cmd_ch != '/n')<br /> {<br /> char temp;<br /> do<br /> temp = getchar ();<br /> while (temp != '/n' && temp != EOF);<br /> }<br /> if (cmd_ch == EOF) cmd_ch = 'q';<br /> switch (cmd_ch)<br /> {</p> <p> /* 所有的{dbm,ndbm,gdbm}测试程序中都支持的标准命令：<br /> c - 统计数据库的关键字/数据对的数目<br /> d - 在数据库中删除用户输入的关键字<br /> f - 查找给定的关键字，并显示其关联的数据<br /> n - 显示给定关键字的下一个关键字及其关联的数据<br /> q - 退出本测试程序<br /> s - 向数据库中存入给定的关键字和数据<br /> 1 - 显示数据库中的第一个关键及其数据<br /> 2 - 显示当前关键字的下一个关键及其数据<br /> 下面是只有testgdbm程序支持的特殊命令：<br /> r - 重组数据库文件<br /> A - 打印文件头的可用块列表中的所有可用块信息<br /> B - 获取指定目录索引处的散列桶，使之成为当前桶<br /> C - 打印当前散列桶中每个桶元素的内容<br /> D - 打印散列目录表中的每个目录项<br /> F - 打印文件头的中各个域<br /> H - 计算并显示给定关键字的哈希值<br /> K - 打印桶缓存数组中的内容<br /> V - 打印gdbm的版本号<br /> ? - 显示帮助信息，即本命令列表<br /> */<br /> case '/n':<br /> printf ("/n");<br /> break;<br /> case 'c': /* c - 统计数据库的关键字/数据对的数目 */<br /> {<br /> int temp;<br /> temp = 0;<br /> if (key_data.dptr != NULL) free (key_data.dptr);<br /> return_data = gdbm_firstkey (gdbm_file);<br /> while (return_data.dptr != NULL)<br /> {<br /> temp++;<br /> key_data = return_data;<br /> return_data = gdbm_nextkey (gdbm_file, key_data);<br /> free (key_data.dptr);<br /> }<br /> printf ("There are %d items in the database./n/n", temp);<br /> key_data.dptr = NULL;<br /> }<br /> break;<br /> case 'd': /* d - 在数据库中删除用户输入的关键字 */<br /> if (key_data.dptr != NULL) free (key_data.dptr);<br /> printf ("key -> ");<br /> gets (key_line);<br /> key_data.dptr = key_line;<br /> key_data.dsize = strlen (key_line)+1;<br /> if (gdbm_delete (gdbm_file, key_data) != 0)<br /> printf ("Item not found or deleted/n");<br /> printf ("/n");<br /> key_data.dptr = NULL;<br /> break;<br /> case 'f': /* f - 查找给定的关键字，并显示其关联的数据 */<br /> if (key_data.dptr != NULL) free (key_data.dptr);<br /> printf ("key -> ");<br /> gets (key_line);<br /> key_data.dptr = key_line;<br /> key_data.dsize = strlen (key_line)+1;<br /> return_data = gdbm_fetch (gdbm_file, key_data);<br /> if (return_data.dptr != NULL)<br /> {<br /> printf ("data is ->%s/n/n", return_data.dptr);<br /> free (return_data.dptr);<br /> }<br /> else<br /> printf ("No such item found./n/n");<br /> key_data.dptr = NULL;<br /> break;<br /> case 'n': /* n - 显示给定关键字的下一个关键字及其关联的数据 */<br /> if (key_data.dptr != NULL) free (key_data.dptr);<br /> printf ("key -> ");<br /> gets (key_line);<br /> key_data.dptr = key_line;<br /> key_data.dsize = strlen (key_line)+1;<br /> return_data = gdbm_nextkey (gdbm_file, key_data);<br /> if (return_data.dptr != NULL)<br /> {<br /> key_data = return_data;<br /> printf ("key is ->%s/n", key_data.dptr);<br /> return_data = gdbm_fetch (gdbm_file, key_data);<br /> printf ("data is ->%s/n/n", return_data.dptr);<br /> free (return_data.dptr);<br /> }<br /> else<br /> {<br /> printf ("No such item found./n/n");<br /> key_data.dptr = NULL;<br /> }<br /> break;<br /> case 'q': /* q - 退出本测试程序 */<br /> done = TRUE;<br /> break;<br /> case 's': /* s - 向数据库中存入给定的关键字和数据 */<br /> if (key_data.dptr != NULL) free (key_data.dptr);<br /> printf ("key -> ");<br /> gets (key_line);<br /> key_data.dptr = key_line;<br /> key_data.dsize = strlen (key_line)+1;<br /> printf ("data -> ");<br /> gets (data_line);<br /> data_data.dsize = strlen (data_line)+1;<br /> if (gdbm_store (gdbm_file, key_data, data_data, GDBM_REPLACE) != 0)<br /> printf ("Item not inserted. /n");<br /> printf ("/n");<br /> key_data.dptr = NULL;<br /> break;<br /> case '1': /* 1 - 显示数据库中的第一个关键及其数据 */<br /> if (key_data.dptr != NULL) free (key_data.dptr);<br /> key_data = gdbm_firstkey (gdbm_file);<br /> if (key_data.dptr != NULL)<br /> {<br /> printf ("key is ->%s/n", key_data.dptr);<br /> return_data = gdbm_fetch (gdbm_file, key_data);<br /> printf ("data is ->%s/n/n", return_data.dptr);<br /> free (return_data.dptr);<br /> }<br /> else<br /> printf ("No such item found./n/n");<br /> break;<br /> case '2': /* 2 - 显示当前关键字的下一个关键及其数据 */<br /> return_data = gdbm_nextkey (gdbm_file, key_data);<br /> if (return_data.dptr != NULL)<br /> {<br /> free (key_data.dptr);<br /> key_data = return_data;<br /> printf ("key is ->%s/n", key_data.dptr);<br /> return_data = gdbm_fetch (gdbm_file, key_data);<br /> printf ("data is ->%s/n/n", return_data.dptr);<br /> free (return_data.dptr);<br /> }<br /> else<br /> printf ("No such item found./n/n");<br /> break;</p> <p> /* 下面是testgdbm程序要使用的特殊情形 */<br /> case 'r': /* r - 重组数据库文件 */<br /> {<br /> if (gdbm_reorganize (gdbm_file))<br /> printf ("Reorganization failed. /n/n");<br /> else<br /> printf ("Reorganization succeeded. /n/n");<br /> }<br /> break;<br /> case 'A': /* A - 打印文件头的可用块列表中的所有可用块信息 */<br /> _gdbm_print_avail_list (gdbm_file);<br /> printf ("/n");<br /> break;<br /> case 'B': /* B - 获取指定目录索引处的散列桶，使之成为当前桶 */<br /> {<br /> int temp;<br /> char number[80];<br /> printf ("bucket? ");<br /> gets (number);<br /> sscanf (number,"%d",&temp);<br /> if (temp >= gdbm_file->header->dir_size /4)<br /> {<br /> printf ("Not a bucket. /n/n");<br /> break;<br /> }<br /> _gdbm_get_bucket (gdbm_file, temp);<br /> }<br /> printf ("Your bucket is now ");<br /> case 'C': /* C - 打印当前散列桶中每个桶元素的内容 */<br /> print_bucket (gdbm_file->bucket, "Current bucket");<br /> printf ("/n current directory entry = %d./n", gdbm_file->bucket_dir);<br /> printf (" current bucket address = %d./n/n",<br /> gdbm_file->cache_entry->ca_adr);<br /> break;<br /> case 'D': /* D - 打印散列目录表中的每个目录项 */<br /> printf ("Hash table directory./n");<br /> printf (" Size = %d. Bits = %d. /n/n",gdbm_file->header->dir_size,<br /> gdbm_file->header->dir_bits);<br /> {<br /> int temp;<br /> for (temp = 0; temp < gdbm_file->header->dir_size / 4; temp++)<br /> {<br /> printf (" %10d: %12d/n", temp, gdbm_file->dir[temp]);<br /> if ( (temp+1) % 20 == 0 && isatty (0))<br /> {<br /> printf ("*** CR to continue: ");<br /> while (getchar () != '/n') /* Do nothing. */;<br /> }<br /> }<br /> }<br /> printf ("/n");<br /> break;<br /> case 'F': /* F - 打印文件头的中各个域 */<br /> {<br /> printf ("/nFile Header: /n/n");<br /> printf (" table = %d/n", gdbm_file->header->dir);<br /> printf (" table size = %d/n", gdbm_file->header->dir_size);<br /> printf (" table bits = %d/n", gdbm_file->header->dir_bits);<br /> printf (" block size = %d/n", gdbm_file->header->block_size);<br /> printf (" bucket elems = %d/n", gdbm_file->header->bucket_elems);<br /> printf (" bucket size = %d/n", gdbm_file->header->bucket_size);<br /> printf (" header magic = %x/n", gdbm_file->header->header_magic);<br /> printf (" next block = %d/n", gdbm_file->header->next_block);<br /> printf (" avail size = %d/n", gdbm_file->header->avail.size);<br /> printf (" avail count = %d/n", gdbm_file->header->avail.count);<br /> printf (" avail nx blk = %d/n", gdbm_file->header->avail.next_block);<br /> printf ("/n");<br /> }<br /> break;<br /> case 'H': /* H - 计算并显示给定关键字的哈希值 */<br /> if (key_data.dptr != NULL) free (key_data.dptr);<br /> printf ("key -> ");<br /> gets (key_line);<br /> key_data.dptr = key_line;<br /> key_data.dsize = strlen (key_line)+1;<br /> printf ("hash value = %x. /n/n", _gdbm_hash (key_data));<br /> key_data.dptr = NULL;<br /> break;<br /> case 'K': /* K - 打印桶缓存数组中的内容 */<br /> _gdbm_print_bucket_cache (gdbm_file);<br /> break;<br /> case 'V': /* V - 打印gdbm的版本号 */<br /> printf ("%s/n/n", gdbm_version);<br /> break;<br /> case '?': /* ? - 显示帮助信息 */<br /> printf ("c - count (number of entries)/n");<br /> printf ("d - delete/n");<br /> printf ("f - fetch/n");<br /> printf ("n - nextkey/n");<br /> printf ("q - quit/n");<br /> printf ("s - store/n");<br /> printf ("1 - firstkey/n");<br /> printf ("2 - nextkey on last key (from n, 1 or 2)/n/n");<br /> printf ("r - reorganize/n");<br /> printf ("A - print avail list/n");<br /> printf ("B - get and print current bucket n/n");<br /> printf ("C - print current bucket/n");<br /> printf ("D - print hash directory/n");<br /> printf ("F - print file header/n");<br /> printf ("H - hash value of key/n");<br /> printf ("K - print the bucket cache/n");<br /> printf ("V - print version of gdbm/n");<br /> break;<br /> default:<br /> printf ("What? /n/n");<br /> break;<br /> }<br /> }<br /> /* 正常退出 */<br /> exit (0);<br /> }

   （2）testndbm.c：用于测试ndbm各个功能的程序。它的实现与testgdbm类似，只不过testndbm不支持命令行选项，且只实现了标准的测试命令。测试各个功能时使用的当然是ndbm的接口了。

/* testndbm.c - 用来测试ndbm各个功能的程序 */<br /> #include "autoconf.h"<br /> #include <stdio.h><br /> #include <sys/types.h><br /> #if HAVE_STDLIB_H<br /> #include <stdlib.h><br /> #endif<br /> #if HAVE_FILE_H<br /> #include <sys/file.h><br /> #endif<br /> #include <sys/stat.h><br /> #if HAVE_FCNTL_H<br /> #include <fcntl.h><br /> #endif<br /> #ifdef GNU<br /> #include "ndbm.h"<br /> #else<br /> #include <ndbm.h><br /> #endif<br /> #define TRUE 1<br /> #define FALSE 0</p> <p>/* 测试程序允许一个用户调用所有的例程，包括哈希函数。 支持的命令有q (quit), f (fetch), s (store), d (delete),<br /> 1 (firstkey), n (nextkey)和h (哈希函数). */<br /> int<br /> main (argc, argv)<br /> int argc;<br /> char *argv[];<br /> {<br /> char cmd_ch;<br /> datum key_data;<br /> datum data_data;<br /> datum return_data;<br /> char key_line[500];<br /> char data_line[1000];<br /> DBM *dbm_file;<br /> char done = FALSE;<br /> char *file_name;<br /> /* 命令行选项检查 */<br /> if (argc > 2)<br /> {<br /> printf ("Usage: %s [dbm-file] /n",argv[0]);<br /> exit (2);<br /> }<br /> if (argc > 1)<br /> {<br /> file_name = argv[1];<br /> }<br /> else<br /> {<br /> file_name = "junkndbm";<br /> }<br /> /* 初始化 */<br /> data_data.dptr = data_line;<br /> dbm_file = dbm_open (file_name, O_RDWR|O_CREAT, 00664);<br /> if (dbm_file == NULL)<br /> {<br /> printf ("dbm_open failed./n");<br /> exit (2);<br /> }<br /> /* 欢迎消息 */<br /> printf ("/nWelcome to the gndbm test program. Type ? for help./n/n");</p> <p> while (!done)<br /> {<br /> printf ("com -> ");<br /> cmd_ch = getchar ();<br /> while (getchar () != '/n') /* 不做任何事 */;<br /> switch (cmd_ch)<br /> {<br /> case 'q':<br /> done = TRUE;<br /> break;<br /> case 'f':<br /> printf ("key -> ");<br /> gets (key_line);<br /> key_data.dptr = key_line;<br /> key_data.dsize = strlen (key_line)+1;<br /> return_data = dbm_fetch (dbm_file, key_data);<br /> if (return_data.dptr != NULL)<br /> printf ("data is ->%s/n/n", return_data.dptr);<br /> else<br /> printf ("No such item found./n/n");<br /> break;<br /> case 's':<br /> printf ("key -> ");<br /> gets (key_line);<br /> key_data.dptr = key_line;<br /> key_data.dsize = strlen (key_line)+1;<br /> printf ("data -> ");<br /> gets (data_line);<br /> data_data.dsize = strlen (data_line)+1;<br /> if (dbm_store (dbm_file, key_data, data_data, DBM_REPLACE) != 0)<br /> printf ("Item not inserted. /n");<br /> printf ("/n");<br /> break;<br /> case 'd':<br /> printf ("key -> ");<br /> gets (key_line);<br /> key_data.dptr = key_line;<br /> key_data.dsize = strlen (key_line)+1;<br /> if (dbm_delete (dbm_file, key_data) != 0)<br /> printf ("Item not found or deleted/n");<br /> printf ("/n");<br /> break;<br /> case '1':<br /> key_data = dbm_firstkey (dbm_file);<br /> if (key_data.dptr != NULL)<br /> {<br /> return_data = dbm_fetch (dbm_file, key_data);<br /> printf ("key is ->%s/n", key_data.dptr);<br /> printf ("data is ->%s/n/n", return_data.dptr);<br /> }<br /> else<br /> printf ("No such item found./n/n");<br /> break;</p> <p> case '2':<br /> key_data = dbm_nextkey (dbm_file);<br /> if (key_data.dptr != NULL)<br /> {<br /> return_data = dbm_fetch (dbm_file, key_data);<br /> printf ("key is ->%s/n", key_data.dptr);<br /> printf ("data is ->%s/n/n", return_data.dptr);<br /> }<br /> else<br /> printf ("No such item found./n/n");<br /> break;<br /> case 'c':<br /> {<br /> int temp;<br /> temp = 0;<br /> return_data = dbm_firstkey (dbm_file);<br /> while (return_data.dptr != NULL)<br /> {<br /> temp++;<br /> return_data = dbm_nextkey (dbm_file);<br /> }<br /> printf ("There are %d items in the database./n/n", temp);<br /> }<br /> break;<br /> case '?':<br /> printf ("c - count elements/n");<br /> printf ("d - delete/n");<br /> printf ("f - fetch/n");<br /> printf ("q - quit/n");<br /> printf ("s - store/n");<br /> printf ("1 - firstkey/n");<br /> printf ("2 - nextkey on last return value/n/n");<br /> break;<br /> default:<br /> printf ("What? /n/n");<br /> break;<br /> }<br /> }<br /> /* 正常退出 */<br /> dbm_close (dbm_file);<br /> exit (0);<br /> }

   （3）testdbm.c：用于测试dbm各个功能的程序。它的实现与testgdbm类似，只不过testdbm不支持命令行选项，且只实现了标准的测试命令。测试各个功能时使用的当然是dbm的接口了。

/* testdbm.c - 用来测试dbm各个功能的程序 */<br /> #include "autoconf.h"<br /> #include <stdio.h><br /> #include <sys/types.h><br /> #if HAVE_STDLIB_H<br /> #include <stdlib.h><br /> #endif<br /> #if HAVE_SYS_FILE_H<br /> #include <sys/file.h><br /> #endif<br /> #include <sys/stat.h><br /> #define TRUE 1<br /> #define FALSE 0<br /> typedef struct {<br /> char *dptr;<br /> int dsize;<br /> } datum;<br /> extern datum fetch ();<br /> extern datum firstkey ();<br /> extern datum nextkey ();<br /> /* 测试程序允许一个用户调用所有的例程，包括哈希函数。 支持的命令有q (quit), f (fetch), s (store), d (delete),<br /> 1 (firstkey), n (nextkey) 和 h (哈希函数). */<br /> int<br /> main (argc, argv)<br /> int argc;<br /> char *argv[];<br /> {<br /> char cmd_ch;<br /> datum key_data;<br /> datum data_data;<br /> datum return_data;<br /> char key_line[500];<br /> char data_line[1000];<br /> char done = FALSE;<br /> char sys[255];<br /> char *file_name;<br /> /* 命令行选项检查 */<br /> if (argc > 2)<br /> {<br /> printf ("Usage: %s [dbm-file] /n",argv[0]);<br /> exit (2);<br /> }<br /> if (argc > 1)<br /> {<br /> file_name = argv[1];<br /> }<br /> else<br /> {<br /> file_name = "junkdbm";<br /> }<br /> /* 初始化 */<br /> data_data.dptr = data_line;<br /> if (dbminit (file_name) != 0)<br /> {<br /> sprintf (sys,"touch %s.pag %s.dir", file_name, file_name);<br /> system (sys);<br /> if (dbminit (file_name) != 0)<br /> {<br /> printf ("dbminit failed./n");<br /> exit (2);<br /> }<br /> }<br /> /* 欢迎消息 */<br /> printf ("/nWelcome to the dbm test program. Type ? for help./n/n");</p> <p> while (!done)<br /> {<br /> printf ("com -> ");<br /> cmd_ch = getchar ();<br /> while (getchar () != '/n') /* 不做任何事 */;<br /> switch (cmd_ch)<br /> {<br /> case 'q':<br /> done = TRUE;<br /> break;<br /> case 'f':<br /> printf ("key -> ");<br /> gets (key_line);<br /> key_data.dptr = key_line;<br /> key_data.dsize = strlen (key_line)+1;<br /> return_data = fetch (key_data);<br /> if (return_data.dptr != NULL)<br /> printf ("data is ->%s/n/n", return_data.dptr);<br /> else<br /> printf ("No such item found./n/n");<br /> break;<br /> case 's':<br /> printf ("key -> ");<br /> gets (key_line);<br /> key_data.dptr = key_line;<br /> key_data.dsize = strlen (key_line)+1;<br /> printf ("data -> ");<br /> gets (data_line);<br /> data_data.dsize = strlen (data_line)+1;<br /> if (store (key_data, data_data) != 0)<br /> printf ("Item not inserted. /n");<br /> printf ("/n");<br /> break;<br /> case 'd':<br /> printf ("key -> ");<br /> gets (key_line);<br /> key_data.dptr = key_line;<br /> key_data.dsize = strlen (key_line)+1;<br /> if (delete (key_data) != 0)<br /> printf ("Item not found or deleted/n");<br /> printf ("/n");<br /> break;<br /> case '1':<br /> key_data = firstkey ();<br /> if (key_data.dptr != NULL)<br /> {<br /> return_data = fetch (key_data);<br /> printf ("key is ->%s/n", key_data.dptr);<br /> printf ("data is ->%s/n/n", return_data.dptr);<br /> }<br /> else<br /> printf ("No such item found./n/n");<br /> break;</p> <p> case '2':<br /> key_data = nextkey (key_data);<br /> if (key_data.dptr != NULL)<br /> {<br /> return_data = fetch (key_data);<br /> printf ("key is ->%s/n", key_data.dptr);<br /> printf ("data is ->%s/n/n", return_data.dptr);<br /> }<br /> else<br /> printf ("No such item found./n/n");<br /> break;<br /> case 'c':<br /> {<br /> int temp;<br /> temp = 0;<br /> return_data = firstkey ();<br /> while (return_data.dptr != NULL)<br /> {<br /> temp++;<br /> return_data = nextkey (return_data);<br /> }<br /> printf ("There are %d items in the database./n/n", temp);<br /> }<br /> break;<br /> case '?':<br /> printf ("c - count elements/n");<br /> printf ("d - delete/n");<br /> printf ("f - fetch/n");<br /> printf ("q - quit/n");<br /> printf ("s - store/n");<br /> printf ("1 - firstkey/n");<br /> printf ("2 - nextkey on last return value/n/n");<br /> break;<br /> default:<br /> printf ("What? /n/n");<br /> break;<br /> }<br /> }<br /> /* 正常退出 */<br /> exit (0);<br /> }

   （4）conv2gdbm.c：把dbm文件转换成gdbm文件的程序。操作流程：
     1）循环调用getopt解析命令行的每个选项；
     2）设置好dbm文件名和可选的gdbm文件名；
     3）打开dbm文件和gdbm文件；
     4）把dbm文件中的所有关键字/数据对插入到gdbm文件中；
     5）最后报告统计的出错次数和插入记录数。
   conv2gdbm程序的使用方法为conv2gdbm [-q] [-b block_size] dbmfile [gdbmfile]，命令行选项含义：
-q             是否静静地进行转换，即不显示任何的提示信息
-b block_size  指定传递块大小

/* conv2gdbm.c - 把dbm文件转换成gdbm文件的程序 */<br /> #include "autoconf.h"<br /> #include <stdio.h><br /> #if HAVE_STDLIB_H<br /> #include <stdlib.h><br /> #endif<br /> #include "gdbm.h"<br /> #include "getopt.h"<br /> extern int dbminit ();<br /> extern datum fetch ();<br /> extern datum firstkey ();<br /> extern datum nextkey ();<br /> static void usage();<br /> /* 布尔常量 */<br /> #define TRUE 1<br /> #define FALSE 0<br /> int<br /> main (argc, argv)<br /> int argc;<br /> char *argv[];<br /> {<br /> GDBM_FILE gfile; /* gdbm文件 */<br /> datum key; /* 查找到的关键字/数据对 */<br /> datum data;<br /> int errors; /* 错误次数统计 */<br /> int num; /* 插入统计 */<br /> int block_size; /* gdbm块大小 */<br /> char quiet; /* 是否静静地进行转换，即不显示任何的提示信息 */<br /> char option_char; /* 选项字符 */<br /> char *dbm_file, *gdbm_file; /* 指向文件名的指针 */<br /> /* 初始化一些变量 */<br /> quiet = FALSE;<br /> block_size = 0;<br /> /* 检查合适的命令行选项 */<br /> if (argc < 2)<br /> usage (argv[0]);<br /> /* 循环调用getopt获取命令行的每个选项，每次调用返回当前的选项字符 */<br /> while ( (option_char = getopt (argc, argv, "b:q")) != EOF)<br /> {<br /> switch (option_char)<br /> {<br /> case 'b':<br /> block_size = atoi (optarg); /* 把字符串转换为整数 */<br /> break;<br /> case 'q':<br /> quiet = TRUE;<br /> break;<br /> default:<br /> usage (argv[0]);<br /> }<br /> }<br /> /* 需要的dbm文件名 */<br /> if (argc <= optind)<br /> {<br /> usage (argv[0]);<br /> }<br /> else<br /> {<br /> dbm_file = argv[optind];<br /> gdbm_file = argv[optind];<br /> optind += 1;<br /> }<br /> /* 可选的gdbm文件名 */<br /> if (argc > optind)<br /> {<br /> gdbm_file = argv[optind];<br /> optind += 1;<br /> }<br /> /* 还有更多的选项，则不合法 */<br /> if (argc > optind) usage (argv[0]);</p> <p> /* 打开dbm文件 */<br /> if (dbminit (dbm_file) != 0)<br /> {<br /> printf ("%s: dbm file not opened/n", argv[0]);<br /> exit (2);<br /> }<br /> /* 打开gdbm文件。因为dbm文件有.pag和.dir，我们将使用没有任何扩展名的文件名 */<br /> gfile = gdbm_open (gdbm_file, block_size, GDBM_WRCREAT, 00664, NULL);<br /> if (gfile == NULL)<br /> {<br /> printf ("%s: gdbm file not opened/n", argv[0]);<br /> exit (2);<br /> }</p> <p> /* 现在开始做转换 */<br /> errors = 0;<br /> num = 0;<br /> if (!quiet) /* 如果需要提示正在进行转换操作 */<br /> printf ("%s: Converting %s.pag and %s.dir to %s./n", argv[0], dbm_file,<br /> dbm_file, gdbm_file);<br /> /* 转换操作：把dbm文件中的所有关键字/数据对插入到gdbm文件中 */<br /> for (key = firstkey (); key.dptr != NULL; key = nextkey (key))<br /> {<br /> data = fetch (key);<br /> if (gdbm_store (gfile, key, data, GDBM_INSERT) != 0) /* 存入到gdbm文件中 */<br /> {<br /> errors++;<br /> }<br /> else<br /> {<br /> num++;<br /> if ( !quiet && ((num % 100) == 0))<br /> {<br /> printf (".");<br /> if ( (num % 7000) == 0)<br /> printf ("/n");<br /> }<br /> }<br /> }<br /> gdbm_close (gfile);<br /> if (!quiet)<br /> {<br /> /* 最后报告统计的出错次数和插入记录数 */<br /> if (errors)<br /> printf ("%s: %d items not inserted into %s./n", argv[0],<br /> errors, gdbm_file);<br /> printf ("%s: %d items inserted into %s./n", argv[0], num, gdbm_file);<br /> }<br /> exit(0);<br /> }<br /> /* 打印启动转换程序时命令行选项的使用格式帮助 */<br /> static void usage (name)<br /> char *name;<br /> {<br /> printf ("usage: %s [-q] [-b block_size] dbmfile [gdbmfile]/n", name);<br /> exit (2);<br /> }