![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to pvar.c CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib2 / asir2000 / parse|
Return to pvar.c CVS log | Up to [local] / OpenXM_contrib2 / asir2000 / parse |
1.1 noro 1: /* $OpenXM: OpenXM/src/asir99/parse/pvar.c,v 1.1.1.1 1999/11/10 08:12:34 noro Exp $ */
2: #include "ca.h"
3: #include "parse.h"
4:
5: NODE PVSS;
6:
7: void mkpvs()
8: {
9: VS pvs;
10:
11: pvs = (VS)MALLOC(sizeof(struct oVS));
12: pvs->va = (struct oPV *)MALLOC(DEFSIZE*sizeof(struct oPV));
13: pvs->n = 0;
14: pvs->asize=DEFSIZE;
15: CPVS = pvs;
16: }
17:
18: void pushpvs(f)
19: FUNC f;
20: {
21: VS pvs;
22: NODE node;
23: int level;
24: extern int evalstatline;
25:
26: pvs = f->f.usrf->pvs;
27: if ( PVSS ) {
28: ((VS)BDY(PVSS))->at = evalstatline;
29: level = ((VS)BDY(PVSS))->level+1;
30: } else
31: level = 1;
32: MKNODE(node,pvs,PVSS);
33: PVSS = node;
34: CPVS = (VS)MALLOC(sizeof(struct oVS)); BDY(PVSS) = (pointer)CPVS;
35: CPVS->usrf = f;
36: CPVS->n = CPVS->asize = pvs->n;
37: CPVS->level = level;
38: if ( CPVS->n ) {
39: CPVS->va = (struct oPV *)MALLOC(CPVS->n*sizeof(struct oPV));
40: bcopy((char *)pvs->va,(char *)CPVS->va,(int)(pvs->n*sizeof(struct oPV)));
41: }
42: if ( nextbp )
43: nextbplevel++;
44: }
45:
46: void poppvs() {
47: PVSS = NEXT(PVSS);
48: if ( PVSS )
49: CPVS = (VS)BDY(PVSS);
50: else
51: CPVS = GPVS;
52: if ( nextbp )
53: nextbplevel--;
54: }
55:
56: int gdef;
57:
58: int makepvar(str)
59: char *str;
60: {
61: int c;
62:
63: c = getpvar(CPVS,str,0);
64: if ( gdef ) {
65: getpvar(EPVS,str,0);
66: if ( CPVS != GPVS ) {
67: getpvar(GPVS,str,0);
68: CPVS->va[c].attr = 1;
69: }
70: } else if ( (CPVS != GPVS) &&
71: (CPVS->va[c].attr || (getpvar(EPVS,str,1) >= 0)) ) {
72: CPVS->va[c].attr = 1;
73: c = (getpvar(GPVS,str,1)|MSB);
74: }
75: return c;
76: }
77:
78: extern FUNC parse_targetf;
79:
80: int searchpvar(str)
81: char *str;
82: {
83: VS pvs;
84: int i;
85:
86: if ( parse_targetf && parse_targetf->id != A_USR )
87: return -1;
88: pvs = parse_targetf ? parse_targetf->f.usrf->pvs : GPVS;
89: i = getpvar(pvs,str,1);
90: if ( ((i>=0)&&pvs->va[i].attr) || (i<0) )
91: return getpvar(GPVS,str,1)|MSB;
92: else
93: return i;
94: }
95:
96: int getpvar(pvs,str,searchonly)
97: VS pvs;
98: char *str;
99: int searchonly;
100: {
101: struct oPV *va;
102: PV v;
103: int i;
104:
105: for ( va = pvs->va, i = 0; i < (int)pvs->n; i++ )
106: if ( va[i].name && !strcmp(va[i].name,str) )
107: return i;
108: if ( searchonly )
109: return -1;
110: if ( pvs->asize == pvs->n )
111: reallocarray((char **)&pvs->va,(int *)&pvs->asize,(int *)&pvs->n,(int)sizeof(struct oPV));
112: v = &pvs->va[pvs->n];
113: NAME(v) = (char *)CALLOC(strlen(str)+1,sizeof(char));
114: strcpy(NAME(v),str); v->priv = 0;
115: v->attr= 0; v->type = -1; i = pvs->n; pvs->n++;
116: return i;
117: }
118:
119: #if defined(VISUAL)
120: #define PCLOSE _pclose
121: #else
122: #define PCLOSE pclose
123: #endif
124:
125: void closecurrentinput()
126: {
127: if ( asir_infile && !asir_infile->fp )
128: return;
129:
130: #if defined(THINK_C) || defined(VISUAL)
131: #if defined(THINK_C)
132: void setDir(short);
133:
134: fclose(asir_infile->fp);
135: setDir(asir_infile->vol);
136: unlink(asir_infile->tname);
137: resetDir();
138: #else
139: fclose(asir_infile->fp);
140: unlink(asir_infile->tname);
141: #endif
142: #else
143: PCLOSE(asir_infile->fp);
144: #endif
145: asir_infile = NEXT(asir_infile);
146: resetpvs();
147: }
148:
149: void resetpvs()
150: {
151: if ( !NEXT(asir_infile) ) {
152: PVSS = 0; CPVS = GPVS; nextbp = 0;
153: if ( EPVS->va ) {
154: bzero((char *)EPVS->va,(int)(EPVS->asize*sizeof(struct oPV))); EPVS->n = 0;
155: }
156: }
157: }
158:
159: static NODE saved_PVSS;
160: static VS saved_CPVS;
161: static int saved_nextbp, saved_nextbplevel;
162:
163: void savepvs()
164: {
165: saved_PVSS = PVSS;
166: saved_CPVS = CPVS;
167: saved_nextbp = nextbp;
168: saved_nextbplevel = nextbplevel;
169: }
170:
171: void restorepvs()
172: {
173: PVSS = saved_PVSS;
174: CPVS = saved_CPVS;
175: nextbp = saved_nextbp;
176: nextbplevel = saved_nextbplevel;
177: }
178:
179: void storeans(p)
180: pointer p;
181: {
182: if ( APVS->asize == APVS->n )
183: reallocarray((char **)&APVS->va,(int *)&APVS->asize,(int *)&APVS->n,(int)sizeof(struct oPV));
184: APVS->va[APVS->n++].priv = p;
185: }
186:
187: #if 1
188: pointer evalpv(id,expr,f)
189: int id;
190: FNODE expr;
191: pointer f;
192: {
193: pointer a,val = 0;
194: pointer *addr;
195:
196: if ( expr->id != I_PVAR && expr->id != I_CAST )
197: error("evalpv : invalid assignment");
198: switch ( id ) {
199: case I_PRESELF:
200: getmemberp((FNODE)expr,(Obj **)&addr);
201: (*((ARF)f)->fp)(CO,*addr,ONE,&val); *addr = val; break;
202: case I_POSTSELF:
203: getmemberp((FNODE)expr,(Obj **)&addr);
204: val = *addr; (*((ARF)f)->fp)(CO,*addr,ONE,&a); *addr = a; break;
205: case I_PVAR:
206: getmember((FNODE)expr,(Obj *)&val); break;
207: case I_ASSPVAR:
208: getmemberp((FNODE)expr,(Obj **)&addr); *addr = val = eval((FNODE)f); break;
209: }
210: return val;
211: }
212: #endif
213:
214: #if 0
215: pointer evalpv(id,tree,f)
216: int id;
217: NODE2 tree;
218: pointer f;
219: {
220: pointer a,val = 0;
221: pointer *addr;
222: int pv;
223: NODE ind,tn;
224:
225: switch ( id ) {
226: case I_PRESELF:
227: getmemberp((FNODE)tree,(Obj **)&addr);
228: (*((ARF)f)->fp)(CO,*addr,ONE,&val); *addr = val; break;
229: case I_POSTSELF:
230: getmemberp((FNODE)tree,(Obj **)&addr);
231: val = *addr; (*((ARF)f)->fp)(CO,*addr,ONE,&a); *addr = a; break;
232: case I_PVAR:
233: pv = (int)BDY1(tree); ind = (NODE)BDY2(tree); GETPV(pv,a);
234: if ( !ind )
235: val = a;
236: else {
237: evalnodebody(ind,&tn); getarray(a,tn,&val);
238: }
239: break;
240: case I_ASSPVAR:
241: pv = (int)BDY1(tree); ind = (NODE)BDY2(tree);
242: if ( !ind ) {
243: val = eval(f); ASSPV(pv,val);
244: } else {
245: GETPV(pv,a);
246: if ( a ) {
247: evalnodebody(ind,&tn); putarray(a,tn,val = eval(f));
248: }
249: }
250: break;
251: }
252: return val;
253: }
254: #endif