2003-05-02 03:20:37 -04:00
|
|
|
#include <string.h>
|
|
|
|
#include <stddef.h>
|
|
|
|
#include <stdio.h>
|
|
|
|
#include <stdlib.h>
|
|
|
|
#include <errno.h>
|
|
|
|
|
|
|
|
#include "scheme48.h"
|
1999-09-14 09:32:05 -04:00
|
|
|
#define Alloc(type) ((type *) malloc(sizeof(type)))
|
|
|
|
#define Malloc(type,n) ((type *) malloc(sizeof(type)*(n)))
|
|
|
|
#define Free(p) (free((char *)(p)))
|
|
|
|
#define Realloc(type,p,n) ((type *) realloc(p, (n)*sizeof(type)))
|
|
|
|
|
|
|
|
/* String equality predicate. */
|
|
|
|
#define streq(a,b) (!strcmp((a),(b)))
|
|
|
|
|
2000-05-16 05:24:54 -04:00
|
|
|
s48_value char_pp_2_string_list(char **);
|
2003-05-02 03:20:37 -04:00
|
|
|
char *scheme2c_strcpy(s48_value sstr);
|
|
|
|
|
|
|
|
/* The rest is needed by dbm.c and ndbm.c only */
|
|
|
|
s48_value strlen_or_false(const char *s);
|
|
|
|
void cig_check_nargs(int arity, int nargs, const char *fn);
|