59 if (
strcmp(
l->mode,
"rw")==0) mode=
"rw";
133 d_key.dptr = (
char*)key->Data();
143 WerrorS(
"read(`GDBM link`,`string`) expected");
157 if (db->actual.dptr==
NULL)
209 PrintS(
"Write error on readonly source\n");
231 d_key.dptr = (
char *)key->Data();
237 if (
ret==-1) {
PrintS(
"reader calls gdbm_store!");}
257 d_key.dptr = (
char *)key->Data();
266 WerrorS(
"write(`GDBM link`,`key string` [,`data string`]) expected");
284 const char *mode =
"r";
289 && ((
l->mode[0]==
'w')||(
l->mode[1]==
'w')))
310 l->data=(
void *)(db);
352 WerrorS(
"read(`DBM link`,`string`) expected");
409 Werror(
"DBM link I/O error. Is '%s' readonly?",
l->name);
427 WerrorS(
"write(`DBM link`,`key string` [,`data string`]) expected");
Class used for (list of) interpreter objects.
const Variable & v
< [in] a sqrfree bivariate poly
void WerrorS(const char *s)
EXTERN_VAR omBin sleftv_bin
int dbm_store(DBM *db, datum key, datum dat, int replace)
datum dbm_fetch(DBM *db, datum key)
int dbm_delete(DBM *db, datum key)
datum dbm_nextkey(DBM *db)
datum dbm_firstkey(DBM *db)
DBM * dbm_open(char *file, int flags, int mode)
#define omFreeSize(addr, size)
#define omFreeBinAddr(addr)
void PrintS(const char *s)
void Werror(const char *fmt,...)
#define SI_LINK_W_OPEN_P(l)
#define SI_LINK_SET_R_OPEN_P(l)
#define SI_LINK_SET_CLOSE_P(l)
#define SI_LINK_RW_OPEN_P(l)
#define SI_LINK_R_OPEN_P(l)
#define SI_LINK_SET_RW_OPEN_P(l)
#define SI_LINK_SET_W_OPEN_P(l)
#define SI_LINK_CLOSE_P(l)
LINKAGE BOOLEAN dbClose(si_link l)
LINKAGE BOOLEAN dbWrite(si_link l, leftv key)
LINKAGE leftv dbRead1(si_link l)
LINKAGE BOOLEAN dbOpen(si_link l, short flag, leftv)
LINKAGE leftv dbRead2(si_link l, leftv key)