int intcase
=1, arbcase
=0;
int exitsize
=0; /* max number of nodes to be left in loop without iterating */
int maxnode
=400; /* max number of nodes */
int maxhash
=347; /* prime number = size of hash table */
int progress
=0; /* if not 0, print line number every n lines, n = progress */
int labinit
=10; /* labels generated starting with labinit */
int labinc
=10; /* labels increase by labinc */
int inputform
=0; /* = 0 if freeform input, 1 if standard form input */
int levbrk
=1; /* true implies multilevel breaks; false implies single-level breaks only */
int levnxt
=1; /* true implies multilevel nexts; false implies single-level nexts only */
int maxprogsw
=12; /* number of program switches which can be set */
char *progsw
[] = {"i", "a",
int *swval
[] = {&intcase
, &arbcase
,
char *getargs(argc
, argv
)
for (n
= 1; n
< argc
; ++n
)
error("multiple input files - using first one: ", argv
[infile
],"");
if (!infile
) faterr("no input file","","");
infd
= fopen(argv
[infile
],"r");
faterr("can't open input file:",argv
[infile
],"");
for (i
= 0; 'a' <= str
[i
] && str
[i
] <= 'z'; ++i
)
error("invalid switch:",str
,"");
swnum
= find(temp
,progsw
,maxprogsw
);
error("invalid switch:", str
,"");
*(swval
[swnum
]) = !*(swval
[swnum
]);
sscanf(&str
[i
],"%d",&val
);