scsh-0.5/scsh/ndbmo.c

28 lines
550 B
C
Raw Normal View History

1995-10-13 23:34:21 -04:00
/* 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"
/* 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;
}