5 /* either egcs or libc breaks fwrite on some platforms -- this is confirmed */
7 static void fw(char *p, size_t a, size_t b, FILE *f)
20 static int kdcmp (const void *a, const void *b)
22 return (strcmp( (*(const struct kd **)a)->key,
23 (*(const struct kd **)b)->key));
26 int main(int argc, char **argv)
28 if (argc < 2) exit(1);
34 size_t keylen, datalen;
35 struct kd *kdlist, **kdarray;
38 if (dbw.Open(argv[1], "R"))
44 printf("Dumping %s:\n", argv[1]);
47 for (key=dbw.FetchFirstKeyVal(keylen, data, datalen);
48 key; key=dbw.FetchNextKeyVal(keylen, data, datalen))
50 struct kd *k=(struct kd *)malloc(sizeof(struct kd));
57 if ((k->key=(char *)malloc(keylen+1)) == 0 ||
58 (k->data=(char *)malloc(datalen+1)) == 0)
63 memcpy(k->key, key, keylen);
65 memcpy(k->data, data, datalen);
73 if ((kdarray=(struct kd **)
74 malloc( (kdcnt+1)*sizeof(struct kd *))) == 0)
82 kdarray[kdcnt++]=kdlist;
87 qsort( kdarray, kdcnt, sizeof(kdarray[0]), &kdcmp);
89 for (kdcnt=0; kdarray[kdcnt]; kdcnt++)
92 fw(kdarray[kdcnt]->key, strlen(kdarray[kdcnt]->key),
95 fw(kdarray[kdcnt]->data, strlen(kdarray[kdcnt]->data),
98 free(kdarray[kdcnt]->key);
99 free(kdarray[kdcnt]->data);
100 free(kdarray[kdcnt]);
104 } else if (argc < 4 && argv[2][0] == '-')
108 if (dbw.Open(argv[1], "W"))
114 printf("Deleting %s from %s:\n", argv[2], argv[1]);
115 if (dbw.Delete(argv[2]+1, strlen(argv[2]+1)))
116 fprintf(stderr, "Not found.\n");
123 if (dbw.Open(argv[1], "R"))
130 char *val=dbw.Fetch(argv[2], strlen(argv[2]), len, 0);
134 fprintf(stderr, "%s: not found.\n", argv[2]);
137 printf("Fetching %s from %s: ", argv[2], argv[1]);
138 fw(val, len, 1, stdout);
147 if (dbw.Open(argv[1], "C"))
153 printf("Storing %s/%s into %s:\n", argv[2], argv[3], argv[1]);
154 if (dbw.Store(argv[2], strlen(argv[2]),
155 argv[3], strlen(argv[3]), "R"))