|
1 |
| -#include <stdlib.h> |
2 | 1 |
|
| 2 | +#include <stdlib.h> /* for calloc, free */ |
3 | 3 | #include "header.h"
|
4 | 4 |
|
5 |
| -struct SN_env * |
6 |
| -SN_create_env(int S_size, int I_size, int B_size) |
| 5 | +extern struct SN_env * SN_create_env(int S_size, int I_size, int B_size) |
7 | 6 | {
|
8 |
| - struct SN_env *z = (struct SN_env *) calloc(1, sizeof(struct SN_env)); |
9 |
| - struct SN_env *z2 = z; |
| 7 | + struct SN_env * z = (struct SN_env *) calloc(1, sizeof(struct SN_env)); |
| 8 | + if (z == NULL) return NULL; |
| 9 | + z->p = create_s(); |
| 10 | + if (z->p == NULL) goto error; |
| 11 | + if (S_size) |
| 12 | + { |
| 13 | + int i; |
| 14 | + z->S = (symbol * *) calloc(S_size, sizeof(symbol *)); |
| 15 | + if (z->S == NULL) goto error; |
10 | 16 |
|
11 |
| - if (!z) |
12 |
| - return z; |
| 17 | + for (i = 0; i < S_size; i++) |
| 18 | + { |
| 19 | + z->S[i] = create_s(); |
| 20 | + if (z->S[i] == NULL) goto error; |
| 21 | + } |
| 22 | + z->S_size = S_size; |
| 23 | + } |
13 | 24 |
|
14 |
| - z->p = create_s(); |
15 |
| - if (!z->p) |
16 |
| - z = NULL; |
| 25 | + if (I_size) |
| 26 | + { |
| 27 | + z->I = (int *) calloc(I_size, sizeof(int)); |
| 28 | + if (z->I == NULL) goto error; |
| 29 | + z->I_size = I_size; |
| 30 | + } |
17 | 31 |
|
18 |
| - if (z && S_size) |
19 |
| - { |
20 |
| - if ((z->S = (symbol * *) calloc(S_size, sizeof(symbol *)))) |
21 |
| - { |
22 |
| - int i; |
| 32 | + if (B_size) |
| 33 | + { |
| 34 | + z->B = (symbol *) calloc(B_size, sizeof(symbol)); |
| 35 | + if (z->B == NULL) goto error; |
| 36 | + z->B_size = B_size; |
| 37 | + } |
23 | 38 |
|
24 |
| - for (i = 0; i < S_size; i++) |
25 |
| - { |
26 |
| - if (!(z->S[i] = create_s())) |
27 |
| - { |
28 |
| - z = NULL; |
29 |
| - break; |
30 |
| - } |
31 |
| - } |
32 |
| - z2->S_size = i; |
33 |
| - } |
34 |
| - else |
35 |
| - z = NULL; |
36 |
| - } |
37 |
| - |
38 |
| - if (z && I_size) |
39 |
| - { |
40 |
| - z->I = (int *) calloc(I_size, sizeof(int)); |
41 |
| - if (z->I) |
42 |
| - z->I_size = I_size; |
43 |
| - else |
44 |
| - z = NULL; |
45 |
| - } |
46 |
| - |
47 |
| - if (z && B_size) |
48 |
| - { |
49 |
| - z->B = (symbol *) calloc(B_size, sizeof(symbol)); |
50 |
| - if (z->B) |
51 |
| - z->B_size = B_size; |
52 |
| - else |
53 |
| - z = NULL; |
54 |
| - } |
55 |
| - |
56 |
| - if (!z) |
57 |
| - SN_close_env(z2); |
58 |
| - |
59 |
| - return z; |
| 39 | + return z; |
| 40 | +error: |
| 41 | + SN_close_env(z); |
| 42 | + return NULL; |
60 | 43 | }
|
61 | 44 |
|
62 |
| -void |
63 |
| -SN_close_env(struct SN_env * z) |
| 45 | +extern void SN_close_env(struct SN_env * z) |
64 | 46 | {
|
65 |
| - if (z->S && z->S_size) |
66 |
| - { |
67 |
| - { |
68 |
| - int i; |
69 |
| - |
70 |
| - for (i = 0; i < z->S_size; i++) |
71 |
| - lose_s(z->S[i]); |
72 |
| - } |
73 |
| - free(z->S); |
74 |
| - } |
75 |
| - if (z->I_size) |
76 |
| - free(z->I); |
77 |
| - if (z->B_size) |
78 |
| - free(z->B); |
79 |
| - if (z->p) |
80 |
| - lose_s(z->p); |
81 |
| - free(z); |
| 47 | + if (z == NULL) return; |
| 48 | + if (z->S_size) |
| 49 | + { |
| 50 | + int i; |
| 51 | + for (i = 0; i < z->S_size; i++) |
| 52 | + { |
| 53 | + lose_s(z->S[i]); |
| 54 | + } |
| 55 | + free(z->S); |
| 56 | + } |
| 57 | + if (z->I_size) free(z->I); |
| 58 | + if (z->B_size) free(z->B); |
| 59 | + if (z->p) lose_s(z->p); |
| 60 | + free(z); |
82 | 61 | }
|
83 | 62 |
|
84 |
| -void |
85 |
| -SN_set_current(struct SN_env * z, int size, const symbol * s) |
| 63 | +extern int SN_set_current(struct SN_env * z, int size, const symbol * s) |
86 | 64 | {
|
87 |
| - replace_s(z, 0, z->l, size, s); |
88 |
| - z->c = 0; |
| 65 | + int err = replace_s(z, 0, z->l, size, s, NULL); |
| 66 | + z->c = 0; |
| 67 | + return err; |
89 | 68 | }
|
| 69 | + |
0 commit comments