|
1 | | -#include<stdlib.h> |
2 | 1 |
|
| 2 | +#include<stdlib.h>/* for calloc, free */ |
3 | 3 | #include"header.h" |
4 | 4 |
|
5 | | -structSN_env* |
6 | | -SN_create_env(intS_size,intI_size,intB_size) |
| 5 | +externstructSN_env*SN_create_env(intS_size,intI_size,intB_size) |
7 | 6 | { |
8 | | -structSN_env*z= (structSN_env*)calloc(1,sizeof(structSN_env)); |
9 | | -structSN_env*z2=z; |
| 7 | +structSN_env*z= (structSN_env*)calloc(1,sizeof(structSN_env)); |
| 8 | +if (z==NULL)returnNULL; |
| 9 | +z->p=create_s(); |
| 10 | +if (z->p==NULL) gotoerror; |
| 11 | +if (S_size) |
| 12 | + { |
| 13 | +inti; |
| 14 | +z->S= (symbol**)calloc(S_size,sizeof(symbol*)); |
| 15 | +if (z->S==NULL) gotoerror; |
10 | 16 |
|
11 | | -if (!z) |
12 | | -returnz; |
| 17 | +for (i=0;i<S_size;i++) |
| 18 | + { |
| 19 | +z->S[i]=create_s(); |
| 20 | +if (z->S[i]==NULL) gotoerror; |
| 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) gotoerror; |
| 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 | | -inti; |
| 32 | +if (B_size) |
| 33 | + { |
| 34 | +z->B= (symbol*)calloc(B_size,sizeof(symbol)); |
| 35 | +if (z->B==NULL) gotoerror; |
| 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 | | -returnz; |
| 39 | +returnz; |
| 40 | +error: |
| 41 | +SN_close_env(z); |
| 42 | +returnNULL; |
60 | 43 | } |
61 | 44 |
|
62 | | -void |
63 | | -SN_close_env(structSN_env*z) |
| 45 | +externvoidSN_close_env(structSN_env*z) |
64 | 46 | { |
65 | | -if (z->S&&z->S_size) |
66 | | -{ |
67 | | -{ |
68 | | -inti; |
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 | +inti; |
| 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(structSN_env*z,intsize,constsymbol*s) |
| 63 | +externintSN_set_current(structSN_env*z,intsize,constsymbol*s) |
86 | 64 | { |
87 | | -replace_s(z,0,z->l,size,s); |
88 | | -z->c=0; |
| 65 | +interr=replace_s(z,0,z->l,size,s,NULL); |
| 66 | +z->c=0; |
| 67 | +returnerr; |
89 | 68 | } |
| 69 | + |