Mercurial > mxe-octave

annotate src/qdbm-test.c @ 5534:372ea4c0afb2

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Move of-ocs PKG_XXXX to inst dir and add break patch * src/of-ocs-3-break-fixes.patch, src/of-ocs-4-pkgadd-fixes.patch: new files * dist-files.mk: add ref to files
author John Donoghue <john.donoghue@ieee.org>
date Sun, 13 Sep 2020 08:15:14 -0400
parents e7c40b6c3e66
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2521
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
1 /*
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
2 * This file is part of MXE.
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
3 * See index.html for further information.
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
4 *
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
5 * Taken from examples at http://fallabs.com/qdbm/spex.html
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
6 */
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
7
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
8 #include <depot.h>
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
9 #include <stdlib.h>
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
10 #include <stdio.h>
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
11
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
12 #define NAME "mikio"
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
13 #define NUMBER "000-1234-5678"
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
14 #define DBNAME "book"
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
15
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
16 int main(int argc, char **argv){
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
17 DEPOT *depot;
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
18 char *val;
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
19
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
20 (void)argc;
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
21 (void)argv;
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
22
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
23 /* open the database */
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
24 if(!(depot = dpopen(DBNAME, DP_OWRITER | DP_OCREAT, -1))){
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
25 fprintf(stderr, "dpopen: %s\n", dperrmsg(dpecode));
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
26 return 1;
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
27 }
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
28
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
29 /* store the record */
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
30 if(!dpput(depot, NAME, -1, NUMBER, -1, DP_DOVER)){
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
31 fprintf(stderr, "dpput: %s\n", dperrmsg(dpecode));
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
32 }
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
33
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
34 /* retrieve the record */
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
35 if(!(val = dpget(depot, NAME, -1, 0, -1, NULL))){
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
36 fprintf(stderr, "dpget: %s\n", dperrmsg(dpecode));
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
37 }
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
38 else {
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
39 printf("Name: %s\n", NAME);
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
40 printf("Number: %s\n", val);
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
41 free(val);
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
42 }
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
43
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
44 /* close the database */
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
45 if(!dpclose(depot)){
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
46 fprintf(stderr, "dpclose: %s\n", dperrmsg(dpecode));
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
47 return 1;
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
48 }
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
49
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
50 return 0;
e7c40b6c3e66 package qdbm: static cross-build, enable optional deps, test program
Tony Theodore <tonyt@logyst.com>
parents:
diff changeset
51 }