Mercurial > mxe-octave
annotate src/qdbm-test.c @ 3966:e1c46df42951
of-netcdf: update to 1.0.7
* src/of-netcdf.mk: update versuion, checksum
* build_packages.m: update netcdf version
* src/of-netcdf-1-cross-fixes.patch: removed file
* dist-files.mk: removed of-netcdf-1-cross-fixes.patch
author | John Donoghue <john.donoghue@ieee.org> |
---|---|
date | Mon, 15 Jun 2015 20:50:52 -0400 |
parents | e7c40b6c3e66 |
children |
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 } |