int infertypes = 1; char used_rets[TYSUBR+1]; extern char *tmpdir; static int h0align = 0; char *halign, *ohalign; int krparens = NO; int hsize; /* for padding under -h */ int htype; /* for wr_equiv_init under -h */ int trapuv; chainp Iargs; #define f2c_entry(swit,count,type,store,size) \ p_entry ("-", swit, 0, count, type, store, size) static arg_info table[] = { f2c_entry ("w66", P_NO_ARGS, P_INT, &ftn66flag, YES), f2c_entry ("w", P_NO_ARGS, P_INT, &nowarnflag, YES), f2c_entry ("66", P_NO_ARGS, P_INT, &no66flag, YES), f2c_entry ("1", P_NO_ARGS, P_INT, &onetripflag, YES), f2c_entry ("onetrip", P_NO_ARGS, P_INT, &onetripflag, YES), f2c_entry ("I2", P_NO_ARGS, P_INT, &useshortints, YES), f2c_entry ("I4", P_NO_ARGS, P_INT, &uselongints, YES), f2c_entry ("U", P_NO_ARGS, P_INT, &shiftcase, NO), f2c_entry ("u", P_NO_ARGS, P_INT, &undeftype, YES), f2c_entry ("O", P_ONE_ARG, P_INT, &maxregvar, 0), f2c_entry ("C", P_NO_ARGS, P_INT, &checksubs, YES), f2c_entry ("Nq", P_ONE_ARG, P_INT, &maxequiv, 0), f2c_entry ("Nx", P_ONE_ARG, P_INT, &maxext, 0), f2c_entry ("Ns", P_ONE_ARG, P_INT, &maxstno, 0), f2c_entry ("Nc", P_ONE_ARG, P_INT, &maxctl, 0), f2c_entry ("Nn", P_ONE_ARG, P_INT, &maxhash, 0),
int forcereal = NO; char *file_name, *filename0, *parens; int chars_per_wd, gflag; int infertypes = 1; char used_rets[TYSUBR+1]; extern char *tmpdir; static int h0align = 0; char *halign, *ohalign; int hsize; /* for padding under -h */ int htype; /* for wr_equiv_init under -h */ #define f2c_entry(swit,count,type,store,size) \ p_entry ("-", swit, 0, count, type, store, size) static arg_info table[] = { f2c_entry ("lu", P_NO_ARGS, P_INT, &LabUnused, YES), f2c_entry ("w66", P_NO_ARGS, P_INT, &ftn66flag, YES), f2c_entry ("w", P_NO_ARGS, P_INT, &nowarnflag, YES), f2c_entry ("66", P_NO_ARGS, P_INT, &no66flag, YES), f2c_entry ("d", P_ONE_ARG, P_INT, &debugflag, YES), f2c_entry ("1", P_NO_ARGS, P_INT, &onetripflag, YES), f2c_entry ("onetrip", P_NO_ARGS, P_INT, &onetripflag, YES), f2c_entry ("I2", P_NO_ARGS, P_INT, &useshortints, YES), f2c_entry ("I4", P_NO_ARGS, P_INT, &uselongints, YES), f2c_entry ("U", P_NO_ARGS, P_INT, &shiftcase, NO), f2c_entry ("u", P_NO_ARGS, P_INT, &undeftype, YES), f2c_entry ("Nq", P_ONE_ARG, P_INT, &maxequiv, 0), f2c_entry ("Nx", P_ONE_ARG, P_INT, &maxext, 0), f2c_entry ("Ns", P_ONE_ARG, P_INT, &maxstno, 0), f2c_entry ("Nc", P_ONE_ARG, P_INT, &maxctl, 0), f2c_entry ("Nn", P_ONE_ARG, P_INT, &maxhash, 0),