/[Search-TokyoDystopia]/TokyoDystopia.xs
This is repository of my old source code which isn't updated any more. Go to git.rot13.org for current projects!
ViewVC logotype

Contents of /TokyoDystopia.xs

Parent Directory Parent Directory | Revision Log Revision Log


Revision 17 - (show annotations)
Mon Aug 18 17:45:56 2008 UTC (15 years, 7 months ago) by dpavlin
File size: 1724 byte(s)
tcidbget
1 #include "EXTERN.h"
2 #include "perl.h"
3 #include "XSUB.h"
4 #include <dystopia.h>
5 #include <stdlib.h>
6 #include <stdbool.h>
7 #include <stdint.h>
8
9
10 MODULE = Search::TokyoDystopia PACKAGE = Search::TokyoDystopia
11 PROTOTYPES: DISABLE
12
13 const char *
14 tcidberrmsg(ecode)
15 int ecode
16 CODE:
17 RETVAL = tcidberrmsg(ecode);
18 OUTPUT:
19 RETVAL
20
21
22 void *
23 tcidbnew()
24 PREINIT:
25 TCIDB *idb;
26 CODE:
27 idb = tcidbnew();
28 RETVAL = idb;
29 OUTPUT:
30 RETVAL
31
32
33 void
34 tcidbdel(idb)
35 void * idb
36 CODE:
37 tcidbdel(idb);
38
39
40 int
41 tcidbecode(idb)
42 void * idb
43 CODE:
44 RETVAL = tcidbecode(idb);
45 OUTPUT:
46 RETVAL
47
48
49 int
50 tcidbtune(idb, ernum, etnum, iusiz, opts)
51 void * idb
52 int ernum
53 int etnum
54 int iusiz
55 int opts
56 CODE:
57 RETVAL = tcidbtune(idb, ernum, etnum, iusiz, opts);
58 OUTPUT:
59 RETVAL
60
61
62 int
63 tcidbsetcache(idb, icsiz, lcnum)
64 void * idb
65 int icsiz
66 int lcnum
67 CODE:
68 RETVAL = tcidbsetcache(idb, icsiz, lcnum);
69 OUTPUT:
70 RETVAL
71
72
73 int
74 tcidbsetfwmmax(idb, fwmax)
75 void * idb
76 int fwmax
77 CODE:
78 RETVAL = tcidbsetfwmmax(idb, fwmax);
79 OUTPUT:
80 RETVAL
81
82
83 int
84 tcidbopen(idb, path, omode)
85 void * idb
86 char * path
87 int omode
88 CODE:
89 RETVAL = tcidbopen(idb, path, omode);
90 OUTPUT:
91 RETVAL
92
93
94 int
95 tcidbclose(idb)
96 void * idb
97 CODE:
98 RETVAL = tcidbclose(idb);
99 OUTPUT:
100 RETVAL
101
102
103 int
104 tcidbput(idb, id, val)
105 void * idb
106 int id
107 SV * val
108 PREINIT:
109 STRLEN vsiz;
110 const char *vbuf;
111 CODE:
112 vbuf = SvPV(val, vsiz);
113 RETVAL = tcidbput(idb, id, vbuf);
114 OUTPUT:
115 RETVAL
116
117
118 int
119 tcidbout(idb, id)
120 void * idb
121 int id
122 CODE:
123 RETVAL = tcidbout(idb, id);
124 OUTPUT:
125 RETVAL
126
127
128 void
129 tcidbget(idb, id)
130 void * idb
131 int id
132 PREINIT:
133 char *vbuf;
134 PPCODE:
135 vbuf = tcidbget(idb, id);
136 if(vbuf){
137 XPUSHs(sv_2mortal(newSVpvn(vbuf, strlen(vbuf))));
138 tcfree(vbuf);
139 } else {
140 XPUSHs((SV *)&PL_sv_undef);
141 }
142 XSRETURN(1);
143

  ViewVC Help
Powered by ViewVC 1.1.26