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

Diff for /OpenXM_contrib2/asir2000/parse/glob.c between version 1.94 and 1.96

version 1.94, 2016/08/26 04:51:34 version 1.96, 2017/08/29 07:18:30
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/glob.c,v 1.93 2016/08/24 08:21:03 ohara Exp $   * $OpenXM: OpenXM_contrib2/asir2000/parse/glob.c,v 1.95 2017/02/07 08:30:31 noro Exp $
 */  */
 #include "ca.h"  #include "ca.h"
 #include "al.h"  #include "al.h"
Line 162  void glob_init() {
Line 162  void glob_init() {
                 VR(&oVLIST[i]) = &oVAR[i]; NEXT(&oVLIST[i]) = &oVLIST[i+1];                  VR(&oVLIST[i]) = &oVAR[i]; NEXT(&oVLIST[i]) = &oVLIST[i+1];
         }          }
         VR(&oVLIST[i]) = &oVAR[i]; NEXT(&oVLIST[i]) = 0;          VR(&oVLIST[i]) = &oVAR[i]; NEXT(&oVLIST[i]) = 0;
         reallocarray((char **)&GPVS->va,(int *)&GPVS->asize,(int *)&GPVS->n,(int)sizeof(struct oPV));          asir_reallocarray((char **)&GPVS->va,(int *)&GPVS->asize,(int *)&GPVS->n,(int)sizeof(struct oPV));
         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));
         reallocarray((char **)&PPVS->va,(int *)&PPVS->asize,(int *)&PPVS->n,(int)sizeof(struct oPV));          asir_reallocarray((char **)&PPVS->va,(int *)&PPVS->asize,(int *)&PPVS->n,(int)sizeof(struct oPV));
         CPVS = GPVS;          CPVS = GPVS;
         MKNODE(ONENODE,mkfnode(1,I_FORMULA,ONE),NULLP);          MKNODE(ONENODE,mkfnode(1,I_FORMULA,ONE),NULLP);
         OID(F_TRUE)=O_F; FOP(F_TRUE)=AL_TRUE; F_TRUE->arg.dummy = 0;          OID(F_TRUE)=O_F; FOP(F_TRUE)=AL_TRUE; F_TRUE->arg.dummy = 0;
Line 190  void notdef(VL vl,Obj a,Obj b,Obj *c)
Line 190  void notdef(VL vl,Obj a,Obj b,Obj *c)
         error("undefined arithmetic operation.");          error("undefined arithmetic operation.");
 }  }
   
   int disable_debugger;
 int do_asirrc;  int do_asirrc;
 int do_file;  int do_file;
 char *do_filename;  char *do_filename;
Line 354  void process_args(int ac,char **av)
Line 355  void process_args(int ac,char **av)
 #if !defined(MPI)  #if !defined(MPI)
         do_message = 1;          do_message = 1;
 #endif  #endif
   #if defined(VISUAL) && defined(VISUAL_CONSOLE)
           disable_debugger=1;
   #endif
         do_quiet = 0;          do_quiet = 0;
         while ( ac > 0 ) {          while ( ac > 0 ) {
                 if ( !strcmp(*av,"-heap") && (ac >= 2) ) {                  if ( !strcmp(*av,"-heap") && (ac >= 2) ) {
Line 374  void process_args(int ac,char **av)
Line 378  void process_args(int ac,char **av)
                         av += 2; ac -= 2;                          av += 2; ac -= 2;
                 } else if ( !strcmp(*av,"-cpp") && (ac >= 2) ) {                  } else if ( !strcmp(*av,"-cpp") && (ac >= 2) ) {
                         strcpy(cppname,*(av+1)); av += 2; ac -= 2;                          strcpy(cppname,*(av+1)); av += 2; ac -= 2;
                   } else if ( !strcmp(*av,"-d") && (ac >= 2) ) {
   #if defined(VISUAL) && defined(VISUAL_CONSOLE)
                           disable_debugger=0;
   #endif
                           av += 2; ac -= 2;
                 } else if ( !strcmp(*av,"-f") && (ac >= 2) ) {                  } else if ( !strcmp(*av,"-f") && (ac >= 2) ) {
                         do_quiet = 1;                          do_quiet = 1;
                         in_fp = fopen(*(av+1),"r");                          in_fp = fopen(*(av+1),"r");
Line 534  void int_handler(int sig)
Line 543  void int_handler(int sig)
         NODE t;          NODE t;
   
   
         if ( do_file ) {          if ( do_file || disable_debugger ) {
                 ExitAsir();                  ExitAsir();
         }          }
         if ( !ox_get_pari_result && critical_when_signal ) {          if ( !ox_get_pari_result && critical_when_signal ) {
Legend:
Removed from v.1.94  
changed lines
  Added in v.1.96
FreeBSD-CVSweb <freebsd-cvsweb@FreeBSD.org>