[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.17 and 1.20

version 1.17, 2006/03/11 23:14:53 version 1.20, 2015/08/06 10:01:53
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.16 2006/02/08 02:11:19 noro Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/pvar.c,v 1.19 2014/08/09 06:08:11 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "parse.h"  #include "parse.h"
Line 68  void mkpvs(char *fname)
Line 68  void mkpvs(char *fname)
                         buf = ALLOCA(strlen("undeclared function "+strlen(fname)+10));                          buf = ALLOCA(strlen("undeclared function "+strlen(fname)+10));
                         sprintf(buf,"undeclared function `%s'",fname);                          sprintf(buf,"undeclared function `%s'",fname);
                         yyerror(buf);                          yyerror(buf);
                           error("cannot continue to read inputs");
                 }                  }
         }          }
         pvs = (VS)MALLOC(sizeof(struct oVS));          pvs = (VS)MALLOC(sizeof(struct oVS));
Line 305  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)  #if defined(VISUAL) || defined(__MINGW32__) || defined(__MINGW64__)
 #define PCLOSE _pclose  #define PCLOSE _pclose
 #else  #else
 #define PCLOSE pclose  #define PCLOSE pclose
Line 316  void closecurrentinput()
Line 317  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 324  void closecurrentinput()
Line 325  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.17  
changed lines
  Added in v.1.20
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>