scsh-0.5/scsh/ndbm1.c

108 lines
2.1 KiB
C

/* Scheme48/scsh Unix system interface.
** Routines that require custom C support.
** Copyright (c) 1995 by David Albertz.
*/
/* Common dbm access routines */
#include <stdio.h>
#include <errno.h>
#include <ndbm.h>
#include "cstuff.h"
extern int errno;
int database_close (DBM *db)
{
dbm_close(db);
return 0;
}
int database_error(DBM *db)
{
return(dbm_error(db));
}
int database_clearerr(DBM *db)
{
return(dbm_clearerr(db));
}
int database_delete(DBM *db, char *key)
{
datum work_key;
work_key.dptr = key;
work_key.dsize = strlen(key);
return(dbm_delete(db, work_key));
}
char *database_fetch(DBM *db, char *key)
{
datum work_key, work_data;
char *work_string;
work_key.dptr = key;
work_key.dsize = strlen(key);
work_data = dbm_fetch(db, work_key);
if (work_data.dptr == NULL)
{
work_string = Malloc(char, 1);
work_string[0] = '\0';
}
else
{
work_string = Malloc(char, work_data.dsize+1);
strncpy(work_string,work_data.dptr,work_data.dsize);
work_string[work_data.dsize] = '\0';
}
return(work_string);
}
int database_store(DBM *db, char *key, char *data, int flags)
{
datum work_key, work_data;
work_key.dptr = key;
work_key.dsize = strlen(key);
work_data.dptr = data;
work_data.dsize = strlen(data);
return(dbm_store(db, work_key, work_data, flags));
}
char *database_first(DBM *db)
{
datum work_key;
char *work_string;
work_key = dbm_firstkey(db);
if (work_key.dptr == NULL)
{
work_string = Malloc(char, 1);
work_string[0] = '\0';
}
else
{
work_string = Malloc(char, work_key.dsize+1);
strncpy(work_string,work_key.dptr,work_key.dsize);
work_string[work_key.dsize] = '\0';
}
return(work_string);
}
char *database_next(DBM *db)
{
datum work_key;
char *work_string;
work_key = dbm_nextkey(db);
if (work_key.dptr == NULL)
{
work_string = Malloc(char, 1);
work_string[0] = '\0';
}
else
{
work_string = Malloc(char, work_key.dsize+1);
strncpy(work_string,work_key.dptr,work_key.dsize);
work_string[work_key.dsize] = '\0';
}
return(work_string);
}