8 if (z == NULL)
return NULL;
10 if (z->
p == NULL)
goto error;
15 if (z->
S == NULL)
goto error;
17 for (i = 0; i < S_size; i++)
20 if (z->
S[i] == NULL)
goto error;
26 z->
I = (
int *) calloc(I_size,
sizeof(
int));
27 if (z->
I == NULL)
goto error;
32 z->
B = (
unsigned char *) calloc(B_size,
sizeof(
unsigned char));
33 if (z->
B == NULL)
goto error;
44 if (z == NULL)
return;
48 for (i = 0; i < S_size; i++)
62 int err =
replace_s(z, 0, z->
l, size, s, NULL);
struct SN_env * SN_create_env(int S_size, int I_size, int B_size)
int SN_set_current(struct SN_env *z, int size, const symbol *s)
void SN_close_env(struct SN_env *z, int S_size)