[BACK]Return to pvar.c CVS log [TXT][DIR] Up to [local] / OpenXM_contrib2 / asir2000 / parse

Diff for /OpenXM_contrib2/asir2000/parse/pvar.c between version 1.16 and 1.21

version 1.16, 2006/02/08 02:11:19 version 1.21, 2015/08/08 14:19:42
Line 45 
Line 45 
  * 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.15 2005/10/26 07:33:03 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/pvar.c,v 1.20 2015/08/06 10:01:53 fujimoto Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 58  int gdef,mgdef,ldef;
Line 58  int gdef,mgdef,ldef;
 void mkpvs(char *fname)  void mkpvs(char *fname)
 {  {
         VS pvs;          VS pvs;
         char *fullname;          char *fullname,*buf;
         FUNC f;          FUNC f;
   
         if ( CUR_MODULE ) {          if ( CUR_MODULE ) {
                 /* function must be declared in advance */                  /* function must be declared in advance */
                 searchf(CUR_MODULE->usrf_list,fname,&f);                  searchf(CUR_MODULE->usrf_list,fname,&f);
                 if ( !f ) {                  if ( !f ) {
                         fprintf(stderr,"\"%s\", near line %d: undeclared function `%s'",                          buf = ALLOCA(strlen("undeclared function "+strlen(fname)+10));
                                 asir_infile->name,asir_infile->ln,fname);                          sprintf(buf,"undeclared function `%s'",fname);
                         error("");                          yyerror(buf);
                           error("cannot continue to read inputs");
                 }                  }
         }          }
         pvs = (VS)MALLOC(sizeof(struct oVS));          pvs = (VS)MALLOC(sizeof(struct oVS));
Line 132  void poppvs() {
Line 133  void poppvs() {
 unsigned int makepvar(char *str)  unsigned int makepvar(char *str)
 {  {
         int c,c1,created;          int c,c1,created;
           char *buf;
   
         if ( str[0] == '_' ) {          if ( str[0] == '_' ) {
                 /* pattern variable */                  /* pattern variable */
Line 175  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 220  unsigned int makepvar(char *str)
Line 225  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 232  unsigned int makepvar(char *str)
Line 240  unsigned int makepvar(char *str)
                         c = PVGLOBAL((unsigned int)c);                          c = PVGLOBAL((unsigned int)c);
                 } else {                  } else {
                         /* not declared as static or extern */                          /* not declared as static or extern */
                         fprintf(stderr,"\"%s\", near line %d: undeclared variable `%s'",                          buf = ALLOCA(strlen("undeclared variable"+strlen(str)+10));
                                 asir_infile->name,asir_infile->ln,str);                          sprintf(buf,"undeclared variable `%s'",str);
                         error("");                          yyerror(buf);
                 }                  }
         } else {          } else {
                 /* outside function, outside module */                  /* outside function, outside module */
Line 243  unsigned int makepvar(char *str)
Line 251  unsigned int makepvar(char *str)
         return c;          return c;
   
 CONFLICTION:  CONFLICTION:
         fprintf(stderr,"\"%s\", near line %d: conflicting declarations for `%s'",          buf = ALLOCA(strlen("conflicting declarations for "+strlen(str)+10));
                 asir_infile->name,asir_infile->ln,str);          sprintf(buf,"conflicting declarations for `%s'",str);
         error("");          yyerror(buf);
 }  }
   
 extern FUNC parse_targetf;  extern FUNC parse_targetf;
Line 304  int getpvar(VS pvs,char *str,int searchonly)
Line 312  int getpvar(VS pvs,char *str,int searchonly)
         return i;          return i;
 }  }
   
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__)
 #define PCLOSE _pclose  #define PCLOSE _pclose
 #else  #else
 #define PCLOSE pclose  #define PCLOSE pclose
Line 315  void closecurrentinput()
Line 323  void closecurrentinput()
         if ( asir_infile && !asir_infile->fp )          if ( asir_infile && !asir_infile->fp )
                 return;                  return;
   
 #if defined(VISUAL)  #if defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__)
         fclose(asir_infile->fp);          fclose(asir_infile->fp);
         unlink(asir_infile->tname);          unlink(asir_infile->tname);
 #else  #else
Line 323  void closecurrentinput()
Line 331  void closecurrentinput()
                 PCLOSE(asir_infile->fp);                  PCLOSE(asir_infile->fp);
 #endif  #endif
         asir_infile = NEXT(asir_infile);          asir_infile = NEXT(asir_infile);
         resetpvs();  
 }  }
   
 void resetpvs()  void resetpvs()
Legend:
Removed from v.1.16  
changed lines
  Added in v.1.21
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>