version 1.21, 2015/08/08 14:19:42 |
version 1.23, 2017/02/07 08:30:31 |
|
|
* 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.20 2015/08/06 10:01:53 fujimoto Exp $ |
* $OpenXM: OpenXM_contrib2/asir2000/parse/pvar.c,v 1.22 2015/08/14 13:51:56 fujimoto Exp $ |
*/ |
*/ |
#include "ca.h" |
#include "ca.h" |
#include "parse.h" |
#include "parse.h" |
Line 177 unsigned int makepvar(char *str) |
|
Line 177 unsigned int makepvar(char *str) |
|
fprintf(stderr," `%s' is bound to the global variable\n",str); |
fprintf(stderr," `%s' is bound to the global variable\n",str); |
CPVS->va[c].attr = IS_GLOBAL; |
CPVS->va[c].attr = IS_GLOBAL; |
c1 = getpvar(GPVS,str,1); c = PVGLOBAL((unsigned int)c1); |
c1 = getpvar(GPVS,str,1); c = PVGLOBAL((unsigned int)c1); |
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
|
} |
} |
} else { |
} else { |
if ( CUR_MODULE ) { |
if ( CUR_MODULE ) { |
Line 225 unsigned int makepvar(char *str) |
|
Line 222 unsigned int makepvar(char *str) |
|
fprintf(stderr, |
fprintf(stderr, |
"Warning: \"%s\", near line %d: undeclared local variable `%s'\n", |
"Warning: \"%s\", near line %d: undeclared local variable `%s'\n", |
asir_infile->name,asir_infile->ln,str); |
asir_infile->name,asir_infile->ln,str); |
#if defined(__MINGW32__) || defined(__MINGW64__) |
|
fflush(stderr); |
|
#endif |
|
} |
} |
break; |
break; |
} |
} |
Line 304 int getpvar(VS pvs,char *str,int searchonly) |
|
Line 298 int getpvar(VS pvs,char *str,int searchonly) |
|
if ( searchonly ) |
if ( searchonly ) |
return -1; |
return -1; |
if ( pvs->asize == pvs->n ) |
if ( pvs->asize == pvs->n ) |
reallocarray((char **)&pvs->va,(int *)&pvs->asize,(int *)&pvs->n,(int)sizeof(struct oPV)); |
asir_reallocarray((char **)&pvs->va,(int *)&pvs->asize,(int *)&pvs->n,(int)sizeof(struct oPV)); |
v = &pvs->va[pvs->n]; |
v = &pvs->va[pvs->n]; |
NAME(v) = (char *)CALLOC(strlen(str)+1,sizeof(char)); |
NAME(v) = (char *)CALLOC(strlen(str)+1,sizeof(char)); |
strcpy(NAME(v),str); v->priv = 0; |
strcpy(NAME(v),str); v->priv = 0; |
Line 312 int getpvar(VS pvs,char *str,int searchonly) |
|
Line 306 int getpvar(VS pvs,char *str,int searchonly) |
|
return i; |
return i; |
} |
} |
|
|
#if defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__) |
#if defined(VISUAL) || defined(__MINGW32__) |
#define PCLOSE _pclose |
#define PCLOSE _pclose |
#else |
#else |
#define PCLOSE pclose |
#define PCLOSE pclose |
Line 323 void closecurrentinput() |
|
Line 317 void closecurrentinput() |
|
if ( asir_infile && !asir_infile->fp ) |
if ( asir_infile && !asir_infile->fp ) |
return; |
return; |
|
|
#if defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__) |
#if defined(VISUAL) || defined(__MINGW32__) |
fclose(asir_infile->fp); |
fclose(asir_infile->fp); |
unlink(asir_infile->tname); |
unlink(asir_infile->tname); |
#else |
#else |
Line 367 void restorepvs() |
|
Line 361 void restorepvs() |
|
void storeans(pointer p) |
void storeans(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)); |
asir_reallocarray((char **)&APVS->va,(int *)&APVS->asize,(int *)&APVS->n,(int)sizeof(struct oPV)); |
APVS->va[APVS->n++].priv = p; |
APVS->va[APVS->n++].priv = p; |
} |
} |