version 1.5, 2000/12/05 01:24:57 |
version 1.6, 2001/10/09 01:36:25 |
|
|
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* DEVELOPER SHALL HAVE NO LIABILITY IN CONNECTION WITH THE USE, |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* PERFORMANCE OR NON-PERFORMANCE OF THE SOFTWARE. |
* |
* |
* $OpenXM: OpenXM_contrib2/asir2000/parse/pvar.c,v 1.4 2000/09/21 09:19:27 noro Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/pvar.c,v 1.5 2000/12/05 01:24:57 noro Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
|
|
NODE PVSS; |
NODE PVSS; |
|
|
void mkpvs() |
void mkpvs() |
{ |
{ |
VS pvs; |
VS pvs; |
|
|
pvs = (VS)MALLOC(sizeof(struct oVS)); |
pvs = (VS)MALLOC(sizeof(struct oVS)); |
|
|
CPVS = pvs; |
CPVS = pvs; |
} |
} |
|
|
void pushpvs(f) |
void pushpvs(FUNC f) |
FUNC f; |
|
{ |
{ |
VS pvs; |
VS pvs; |
NODE node; |
NODE node; |
|
|
|
|
int gdef; |
int gdef; |
|
|
int makepvar(str) |
int makepvar(char *str) |
char *str; |
|
{ |
{ |
int c; |
int c; |
|
|
|
|
|
|
extern FUNC parse_targetf; |
extern FUNC parse_targetf; |
|
|
int searchpvar(str) |
int searchpvar(char *str) |
char *str; |
|
{ |
{ |
VS pvs; |
VS pvs; |
int i; |
int i; |
|
|
return i; |
return i; |
} |
} |
|
|
int getpvar(pvs,str,searchonly) |
int getpvar(VS pvs,char *str,int searchonly) |
VS pvs; |
|
char *str; |
|
int searchonly; |
|
{ |
{ |
struct oPV *va; |
struct oPV *va; |
PV v; |
PV v; |
Line 215 void restorepvs() |
|
Line 209 void restorepvs() |
|
nextbplevel = saved_nextbplevel; |
nextbplevel = saved_nextbplevel; |
} |
} |
|
|
void storeans(p) |
void storeans(pointer p) |
pointer p; |
|
{ |
{ |
if ( APVS->asize == APVS->n ) |
if ( APVS->asize == APVS->n ) |
reallocarray((char **)&APVS->va,(int *)&APVS->asize,(int *)&APVS->n,(int)sizeof(struct oPV)); |
reallocarray((char **)&APVS->va,(int *)&APVS->asize,(int *)&APVS->n,(int)sizeof(struct oPV)); |
|
|
} |
} |
|
|
#if 0 |
#if 0 |
pointer evalpv(id,tree,f) |
pointer evalpv(int id,NODE2 tree,pointer f) |
int id; |
|
NODE2 tree; |
|
pointer f; |
|
{ |
{ |
pointer a,val = 0; |
pointer a,val = 0; |
pointer *addr; |
pointer *addr; |