scsh-0.6/scsh/ndbmo.c

30 lines
569 B
C

/* Scheme48/scsh Unix system interface.
** Routines that require custom C support.
** Copyright (c) 1995 by David Albertz.
*/
/* Vanilla ndbm version of the database open function */
#include <stdio.h>
#include <errno.h>
#include <ndbm.h>
#include "cstuff.h"
extern int errno;
/* stub used to return FALSE when scheme checks for Berkeley dbm */
int db_check()
{
return 0;
}
scheme_value db_open_default (char *file, int flags, int mode, DBM **db_ptr)
{
*db_ptr = dbm_open(file, flags, mode);
if(*db_ptr == NULL)
return -1;
else
return 0;
}