This is a live mirror of the Perl 5 development currently hosted at https://github.com/perl/perl5
perl 5.0 alpha 5
[perl5.git] / ext / dbm / SDBM_File.xs
CommitLineData
463ee0b2
LW
1#include "EXTERN.h"
2#include "perl.h"
3#include "XSUB.h"
4#include "ext/dbm/sdbm/sdbm.h"
5
6typedef DBM* SDBM_File;
7#define sdbm_new(dbtype,filename,flags,mode) sdbm_open(filename,flags,mode)
ed6116ce 8#define nextkey(db,key) sdbm_nextkey(db)
463ee0b2
LW
9
10MODULE = SDBM_File PACKAGE = SDBM_File PREFIX = sdbm_
11
12SDBM_File
13sdbm_new(dbtype, filename, flags, mode)
14 char * dbtype
15 char * filename
16 int flags
17 int mode
18
19void
20sdbm_DESTROY(db)
21 SDBM_File db
22 CODE:
23 sdbm_close(db);
24
25datum
26sdbm_fetch(db, key)
27 SDBM_File db
28 datum key
29
30int
31sdbm_store(db, key, value, flags = DBM_REPLACE)
32 SDBM_File db
33 datum key
34 datum value
35 int flags
36
37int
38sdbm_delete(db, key)
39 SDBM_File db
40 datum key
41
42datum
43sdbm_firstkey(db)
44 SDBM_File db
45
46datum
ed6116ce 47nextkey(db, key)
463ee0b2
LW
48 SDBM_File db
49 datum key
50
51int
52sdbm_error(db)
53 SDBM_File db
54
55int
56sdbm_clearerr(db)
57 SDBM_File db
58