/[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 6 - (show annotations)
Sun Aug 17 22:37:16 2008 UTC (15 years, 7 months ago) by dpavlin
File size: 699 byte(s)
strip (redundant) prefix tcidb from xs bindings function names
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 errmsg(ecode)
15 int ecode
16 CODE:
17 RETVAL = tchdberrmsg(ecode);
18 OUTPUT:
19 RETVAL
20
21
22 void *
23 new()
24 PREINIT:
25 TCIDB *db;
26 CODE:
27 db = tcidbnew();
28 RETVAL = db;
29 OUTPUT:
30 RETVAL
31
32
33 void
34 del(db)
35 void * db
36 CODE:
37 tcidbdel(db);
38
39
40 int
41 ecode(db)
42 void * db
43 CODE:
44 RETVAL = tcidbecode(db);
45 OUTPUT:
46 RETVAL
47
48
49 int
50 tune(db, ernum, etnum, iusiz, opts)
51 void * db
52 int ernum
53 int etnum
54 int iusiz
55 int opts
56 CODE:
57 RETVAL = tcidbtune(db, ernum, etnum, iusiz, opts);
58 OUTPUT:
59 RETVAL
60

  ViewVC Help
Powered by ViewVC 1.1.26