1a2,7 > > !!%external%string(255)%fn%spec cliparam > !!%external%integer%fn%spec cputime > > %string(255)cliparam = "adec" > 12c18 < %constinteger WHICH='.imp' --- > %constinteger WHICH=M'.imp' 47,48c53,54 < %external%routine%spec EDI(%record(edfile)%name main,sec, < %string(255) message) --- > !!%external%routine%spec EDI(%record(edfile)%name main,sec, > !! %string(255) message) 51,61c57,71 < %external%routine%spec DEFINE PARAM %alias "PAM_DEFSTRING" %c < (%string(255) name, %name variable, %integer flags) < %external%routine%spec DEFINE INT PARAM %alias "PAM_DEFINT" %c < (%string(255) name, %name variable, %integer flags) < %external%routine%spec DEFINE BOOLEAN PARAMS %alias "PAM_DEFBOOL" %c < (%string(255) name, %name variable, %integer flags) < %external%routine%spec PROCESS PARAMETERS %alias "PAM_PROCESS"(%string(255) parm) < %external%routine%spec CONNECT EDFILE(%record(edfile)%name f) < %external%routine%spec DISCONNECT EDFILE(%record(edfile)%name f) < %external%string(8)%fnspec DATE < %external%string(5)%fnspec TIME --- > !!%external%routine%spec DEFINE PARAM %alias "PAM_DEFSTRING" %c > !! (%string(255) name, %name variable, %integer flags) > !!%external%routine%spec DEFINE INT PARAM %alias "PAM_DEFINT" %c > !! (%string(255) name, %name variable, %integer flags) > !!%external%routine%spec DEFINE BOOLEAN PARAMS %alias "PAM_DEFBOOL" %c > !! (%string(255) name, %name variable, %integer flags) > !!%external%routine%spec PROCESS PARAMETERS %alias "PAM_PROCESS"(%string(255)!! parm) > !!%external%routine%spec CONNECT EDFILE(%record(edfile)%name f) > !!%external%routine%spec DISCONNECT EDFILE(%record(edfile)%name f) > !!%external%string(8)%fnspec DATE > !!%external%string(5)%fnspec TIME > > %string(8) DATE = "02/02/02" > %string(5) TIME = "02:02" > %integer CPUTIME = 123 267,271c277,281 < define boolean params( %c < "ARR,LOOP,CAP,OVER,ASS,STRASS,SASS,BASS,LINE,DIAG,TRACE,STACK,".%C < "CHECK,SYS,STRICT,VOL,HALF,LOW,EDIT,RUN,FORCE,LOG,WARN,NONS,PERM,NEW,".%C < "CODE,DICT,EXP,MAP,TT,LIST",control,0) < process parameters(parm) --- > !! define boolean params( %c > !! "ARR,LOOP,CAP,OVER,ASS,STRASS,SASS,BASS,LINE,DIAG,TRACE,STACK,".%C > !! "CHECK,SYS,STRICT,VOL,HALF,LOW,EDIT,RUN,FORCE,LOG,WARN,NONS,PERM,NEW,".%C > !! "CODE,DICT,EXP,MAP,TT,LIST",control,0) > !! process parameters(parm) 296,300c306,310 < define param("SOURCE",mainfile,nodefault) < define param("OFILE",objfile,newgroup) < define param("LFILE",listfile,0) < define int param("IDents",dictlim,newgroup) < define int param("KBytes",finalbound,0) --- > !! define param("SOURCE",mainfile,nodefault) > !! define param("OFILE",objfile,newgroup) > !! define param("LFILE",listfile,0) > !! define int param("IDents",dictlim,newgroup) > !! define int param("KBytes",finalbound,0) 307c317 < connect edfile(file(main)) --- > !! connect edfile(file(main)) 465c475 < %const%byte%array CHARINIT(0:CMAX) = --- > %OWN%byte%array CHARINIT(0:CMAX) = 581c591 < %const%short%array DICTINIT(41*6:PREMAX*6+5) = --- > %own%short%array DICTINIT(41*6:PREMAX*6+5) = 1389c1399 < edi(file(main),file(main+1),rep); !main+1 to keep editor happy --- > !! edi(file(main),file(main+1),rep); !main+1 to keep editor happy 2341,2349c2351,2358 < ![Note: sets HI after LO -- see dummy params in VALOK] < %record(identinfo)%name tp==typecell(t) < %if tp_type = t # inttype %start; !basetype < lo = 0; hi = tp_size < %else < %if tp[1]_mode # litmode %then lo = minint %c < %else lo = tp[1]_val < %if tp[2]_mode # litmode %then hi = maxint %c < %else hi = tp[2]_val --- > ![Note: sets HI after LO -- see dummy params in VALOK] > %if dict(t)_type = t # inttype %start; !basetype > lo = 0; hi = dict(t)_size > %else > %if dict(t+1)_mode # litmode %then lo = minint %c > %else lo = dict(t+1)_val > %if dict(t+2)_mode # litmode %then hi = maxint %c > %else hi = dict(t+2)_val 2478c2487 < %const%short%array PRIMCODE(1:396) <- --- > %own%short%array PRIMCODE(1:396) = 2548c2557 < set code longword(dx[1]_val); !lower --- > set code longword(dict(x+1)_val); !lower 2552c2561 < set code longword(dx[2]_val); !upper --- > set code longword(dict(x+2)_val); !upper 5010c5019 < disconnect edfile(cur) --- > !! disconnect edfile(cur) 5634,5637c5643,5646 < %if wp[1]_mode # litmode %then get bounds(wp[1]_type,lo,hi) %c < %else lo = wp[1]_val < %if wp[2]_mode # litmode %then get bounds(wp[2]_type,hi,hi) %c < %else hi = wp[2]_val --- > %if dict(wanted+1)_mode # litmode %then get bounds(dict(wanted+1)_type,lo,hi) %c > %else lo = dict(wanted+1)_val > %if dict(wanted+2)_mode # litmode %then get bounds(dict(wanted+2)_type,hi,hi) %c > %else hi = dict(wanted+2)_val 5643,5646c5652,5655 < %if tp[1]_mode # litmode %then get bounds(tp[1]_type,l,h) %c < %else l = tp[1]_val < %if tp[2]_mode # litmode %then get bounds(tp[2]_type,h,h) %c < %else h = tp[2]_val --- > %if dict(t+1)_mode # litmode %then get bounds(dict(t+1)_type,l,h) %c > %else l = dict(t+1)_val > %if dict(t+2)_mode # litmode %then get bounds(dict(t+2)_type,h,h) %c > %else h = dict(t+2)_val 5964c5973 < %if fxp[1]_mode # litmode %start; !non-literal lower --- > %if dict(ftp_xtype+1)_mode # litmode %start; !non-literal lower 5966c5975 < item = 0 %and value = axp[1]_val %if axp[1]_mode = litmode --- > item = 0 %and value = dict(atp_xtype+1)_val %if dict(atp_xtype+1)_mode = litmode 5970c5979 < %if fxp[2]_mode # litmode %start; !non-literal upper --- > %if dict(ftp_xtype+2)_mode # litmode %start; !non-literal upper 5972c5981 < item = 0 %and value = axp[2]_val %if axp[2]_mode = litmode --- > item = 0 %and value = dict(atp_xtype+2)_val %if dict(atp_xtype+2)_mode = litmode 7293c7302 < %and ditem[-1]_val = lo --- > %and dict(item-1)_val = lo 8173c8182 < define param("INC",cur_name,nodefault) --- > !! define param("INC",cur_name,nodefault) 8175c8184 < connect edfile(cur) --- > !! connect edfile(cur) 8332c8341 < disconnect edfile(file(main)) --- > !! disconnect edfile(file(main))