Age Owner Branch data TLA Line data Source code
1 : : #include "header.h"
2 : :
1150 peter@eisentraut.org 3 :CBC 19 : extern struct SN_env * SN_create_env(int S_size, int I_size)
4 : : {
6081 tgl@sss.pgh.pa.us 5 : 19 : struct SN_env * z = (struct SN_env *) calloc(1, sizeof(struct SN_env));
6 [ - + ]: 19 : if (z == NULL) return NULL;
7 : 19 : z->p = create_s();
8 [ - + ]: 19 : if (z->p == NULL) goto error;
9 [ - + ]: 19 : if (S_size)
10 : : {
11 : : int i;
6081 tgl@sss.pgh.pa.us 12 :UBC 0 : z->S = (symbol * *) calloc(S_size, sizeof(symbol *));
13 [ # # ]: 0 : if (z->S == NULL) goto error;
14 : :
15 [ # # ]: 0 : for (i = 0; i < S_size; i++)
16 : : {
17 : 0 : z->S[i] = create_s();
18 [ # # ]: 0 : if (z->S[i] == NULL) goto error;
19 : : }
20 : : }
21 : :
6081 tgl@sss.pgh.pa.us 22 [ + - ]:CBC 19 : if (I_size)
23 : : {
24 : 19 : z->I = (int *) calloc(I_size, sizeof(int));
25 [ - + ]: 19 : if (z->I == NULL) goto error;
26 : : }
27 : :
28 : 19 : return z;
6081 tgl@sss.pgh.pa.us 29 :UBC 0 : error:
30 : 0 : SN_close_env(z, S_size);
31 : 0 : return NULL;
32 : : }
33 : :
34 : 0 : extern void SN_close_env(struct SN_env * z, int S_size)
35 : : {
36 [ # # ]: 0 : if (z == NULL) return;
37 [ # # ]: 0 : if (S_size)
38 : : {
39 : : int i;
40 [ # # ]: 0 : for (i = 0; i < S_size; i++)
41 : : {
42 : 0 : lose_s(z->S[i]);
43 : : }
44 : 0 : free(z->S);
45 : : }
46 : 0 : free(z->I);
47 [ # # ]: 0 : if (z->p) lose_s(z->p);
48 : 0 : free(z);
49 : : }
50 : :
6081 tgl@sss.pgh.pa.us 51 :CBC 3401 : extern int SN_set_current(struct SN_env * z, int size, const symbol * s)
52 : : {
53 : 3401 : int err = replace_s(z, 0, z->l, size, s, NULL);
54 : 3401 : z->c = 0;
55 : 3401 : return err;
56 : : }
|
