/[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

Annotation of /TokyoDystopia.xs

Parent Directory Parent Directory | Revision Log Revision Log


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