开通博客赚积分
发布资源赚积分
分类

源码开发语言/平台
当前位置：首页 > 源码/资料 > 编译器/解释器 > 查看源码
trans.h.2
资源名称：pascal2c.tar.Z　[点击查看]
上传用户：upcnvip
上传日期：2007-01-06
资源大小：474k
文件大小：27k
源码类别：

编译器/解释器

开发平台：

C/C++

trans.h.2：源码内容
  1.     'R', 'V', "QMARKBREAKPENALTY",     (anyptr) &qmarkbreakpenalty,       5000,
  2.     'R', 'V', "QMARKBREAKEXTRAPENALTY",(anyptr) &qmarkbreakextrapenalty,  3000,
  3.     'R', 'V', "PARENBREAKPENALTY",     (anyptr) &parenbreakpenalty,       2500,
  4.     'R', 'V', "PARENBREAKEXTRAPENALTY",(anyptr) &parenbreakextrapenalty,  1000,
  5.     'R', 'V', "WRONGSIDEPENALTY",      (anyptr) &wrongsidepenalty,        1000,
  6.     'R', 'V', "EARLYBREAKPENALTY",     (anyptr) &earlybreakpenalty,        100,
  7.     'R', 'V', "EXTRAINDENTPENALTY",    (anyptr) &extraindentpenalty,      3000,
  8.     'R', 'V', "BUMPINDENTPENALTY",     (anyptr) &bumpindentpenalty,       1000,
  9.     'R', 'V', "NOBUMPINDENTPENALTY",   (anyptr) &nobumpindentpenalty,     2500,
  10.     'R', 'V', "INDENTAMOUNTPENALTY",   (anyptr) &indentamountpenalty,       50,
  11.     'R', 'V', "SAMEINDENTPENALTY",     (anyptr) &sameindentpenalty,        500,
  12.     'R', 'V', "SHOWBADLIMIT",          (anyptr) &showbadlimit,            -120,
  13.     'L', 'R', "MAXLINEBREAKTRIES", (anyptr) &maxalts,      5000,
  14.     'G', 'V', "ALLORNONEBREAK",  (anyptr)  NULL,             FALLBREAK,
  15.     'G', 'V', "ONESPECIALARG",   (anyptr)  NULL,             FSPCARG1,
  16.     'G', 'V', "TWOSPECIALARGS",  (anyptr)  NULL,             FSPCARG2,
  17.     'G', 'V', "THREESPECIALARGS",(anyptr)  NULL,             FSPCARG3,
  18.     'B', 'V', "BREAKARITH",      (anyptr) &breakbeforearith,  BRK_RIGHT,
  19.     'B', 'V', "BREAKREL",        (anyptr) &breakbeforerel,    BRK_RIGHT,
  20.     'B', 'V', "BREAKLOG",        (anyptr) &breakbeforelog,    BRK_RIGHT,
  21.     'B', 'V', "BREAKDOT",        (anyptr) &breakbeforedot,    BRK_RIGHT,
  22.     'B', 'V', "BREAKASSIGN",     (anyptr) &breakbeforeassign, BRK_RIGHT,
  23.     'S', 'V', "FOR_ALLORNONE",   (anyptr) &for_allornone,     1,
  25. /* COMMENTS AND BLANK LINES */
  26.     'S', 'V', "EATCOMMENTS",     (anyptr) &eatcomments,       0,
  27.     'S', 'V', "SPITCOMMENTS",    (anyptr) &spitcomments,      0,
  28.     'S', 'V', "SPITORPHANCOMMENTS",(anyptr)&spitorphancomments, 0,
  29.     'S', 'V', "COMMENTAFTER",    (anyptr) &commentafter,     -1,
  30.     'S', 'V', "BLANKAFTER",      (anyptr) &blankafter,        1,
  31.     'A', 'V', "EATNOTES",        (anyptr) &eatnotes,          0,
  33. /* SPECIAL COMMENTS */
  34.     'C', 'V', "FIXEDCOMMENT",    (anyptr)  fixedcomment,     40,
  35.     'C', 'V', "PERMANENTCOMMENT",(anyptr)  permanentcomment, 40,
  36.     'C', 'V', "INTERFACECOMMENT",(anyptr)  interfacecomment, 40,
  37.     'C', 'V', "EMBEDCOMMENT",    (anyptr)  embedcomment,     40,
  38.     'C', 'V', "SKIPCOMMENT",     (anyptr)  skipcomment,      40,
  39.     'C', 'V', "NOSKIPCOMMENT",   (anyptr)  noskipcomment,    40,
  40.     'C', 'V', "SIGNEDCOMMENT",   (anyptr)  signedcomment,    40,
  41.     'C', 'V', "UNSIGNEDCOMMENT", (anyptr)  unsignedcomment,  40,
  43. /* STYLISTIC OPTIONS */
  44.     'I', 'V', "MAJORSPACING",    (anyptr) &majorspace,        2,
  45.     'I', 'V', "MINORSPACING",    (anyptr) &minorspace,        1,
  46.     'I', 'V', "FUNCSPACING",     (anyptr) &functionspace,     2,
  47.     'I', 'V', "MINFUNCSPACING",  (anyptr) &minfuncspace,      1,
  48.     'S', 'V', "EXTRAPARENS",     (anyptr) &extraparens,      -1,
  49.     'S', 'V', "BREAKADDPARENS",  (anyptr) &breakparens,      -1,
  50.     'S', 'V', "RETURNPARENS",    (anyptr) &returnparens,     -1,
  51.     'S', 'V', "SPACEEXPRS",      (anyptr) &spaceexprs,       -1,
  52.     'S', 'V', "IMPLICITZERO",    (anyptr) &implicitzero,     -1,
  53.     'S', 'V', "STARINDEX",       (anyptr) &starindex,        -1,
  54.     'S', 'V', "ADDINDEX",        (anyptr) &addindex,         -1,
  55.     'S', 'V', "STARARRAYS",      (anyptr) &stararrays,        1,
  56.     'S', 'V', "STARFUNCTIONS",   (anyptr) &starfunctions,    -1,
  57.     'S', 'V', "POSTINCREMENT",   (anyptr) &postincrement,     1,
  58.     'S', 'V', "MIXVARS",         (anyptr) &mixvars,          -1,
  59.     'S', 'V', "MIXTYPES",        (anyptr) &mixtypes,         -1,
  60.     'S', 'V', "MIXFIELDS",       (anyptr) &mixfields,        -1,
  61.     'S', 'V', "MIXINITS",        (anyptr) &mixinits,         -1,
  62.     'S', 'V', "MAINLOCALS",      (anyptr) &mainlocals,        1,
  63.     'S', 'V', "NULLCHAR",        (anyptr) &nullcharconst,     1,
  64.     'S', 'V', "HIGHCHARINT",     (anyptr) &highcharints,      1,
  65.     'I', 'V', "CASESPACING",     (anyptr) &casespacing,       1,
  66.     'D', 'V', "CASETABS",        (anyptr) &casetabs,       1000,
  67.     'I', 'V', "CASELIMIT",       (anyptr) &caselimit,         9,
  68.     'S', 'V', "USECOMMAS",       (anyptr) &usecommas,        -1,
  69.     'S', 'V', "USERETURNS",      (anyptr) &usereturns,        1,
  70.     'I', 'V', "RETURNLIMIT",     (anyptr) &returnlimit,       3,
  71.     'S', 'V', "USEBREAKS",       (anyptr) &usebreaks,         1,
  72.     'I', 'V', "BREAKLIMIT",      (anyptr) &breaklimit,        2,
  73.     'I', 'V', "CONTINUELIMIT",   (anyptr) &continuelimit,     5,
  74.     'S', 'V', "INFLOOPSTYLE",    (anyptr) &infloopstyle,      0,
  76. /* NAMING CONVENTIONS */
  77.     'C', 'V', "CODEFILENAME",    (anyptr)  codefnfmt,        40,
  78.     'C', 'V', "MODULEFILENAME",  (anyptr)  modulefnfmt,      40,
  79.     'C', 'V', "HEADERFILENAME",  (anyptr)  headerfnfmt,      40,
  80.     'C', 'V', "HEADERFILENAME2", (anyptr)  headerfnfmt2,     40,
  81.     'C', 'V', "LOGFILENAME",     (anyptr)  logfnfmt,         40,
  82.     'C', 'V', "INCLUDEFILENAME", (anyptr)  includefnfmt,     40,
  83.     'S', 'V', "SYMCASE",         (anyptr) &symcase,          -1,
  84.     'C', 'V', "SYMBOLFORMAT",    (anyptr)  symbolformat,     40,
  85.     'C', 'V', "CONSTFORMAT",     (anyptr)  constformat,      40,
  86.     'C', 'V', "MODULEFORMAT",    (anyptr)  moduleformat,     40,
  87.     'C', 'V', "FUNCTIONFORMAT",  (anyptr)  functionformat,   40,
  88.     'C', 'V', "VARFORMAT",       (anyptr)  varformat,        40,
  89.     'C', 'V', "FIELDFORMAT",     (anyptr)  fieldformat,      40,
  90.     'C', 'V', "TYPEFORMAT",      (anyptr)  typeformat,       40,
  91.     'C', 'V', "ENUMFORMAT",      (anyptr)  enumformat,       40,
  92.     'C', 'V', "RETURNVALUENAME", (anyptr)  name_RETV,        40,
  93.     'C', 'V', "UNITINITNAME",    (anyptr)  name_UNITINIT,    40,
  94.     'C', 'V', "HSYMBOLNAME",     (anyptr)  name_HSYMBOL,     40,
  95.     'C', 'V', "GSYMBOLNAME",     (anyptr)  name_GSYMBOL,     40,
  96.     'C', 'V', "STRINGMAXNAME",   (anyptr)  name_STRMAX,      40,
  97.     'C', 'V', "ARRAYMINNAME",    (anyptr)  name_ALOW,        40,
  98.     'C', 'V', "ARRAYMAXNAME",    (anyptr)  name_AHIGH,       40,
  99.     'C', 'V', "COPYPARNAME",     (anyptr)  name_COPYPAR,     40,
  100.     'C', 'V', "STATICLINKNAME",  (anyptr)  name_LINK,        40,
  101.     'C', 'V', "LOCALVARSSTRUCT", (anyptr)  name_LOC,         40,
  102.     'C', 'V', "LOCALVARSNAME",   (anyptr)  name_VARS,        40,
  103.     'C', 'V', "FWDSTRUCTNAME",   (anyptr)  name_STRUCT,      40,
  104.     'C', 'V', "ENUMLISTNAME",    (anyptr)  name_ENUM,        40,
  105.     'C', 'V', "UNIONNAME",       (anyptr)  name_UNION,       40,
  106.     'C', 'V', "UNIONPARTNAME",   (anyptr)  name_VARIANT,     40,
  107.     'C', 'V', "FAKESTRUCTNAME",  (anyptr)  name_FAKESTRUCT,  40,
  108.     'C', 'V', "LABELNAME",       (anyptr)  name_LABEL,       40,
  109.     'C', 'V', "LABELVARNAME",    (anyptr)  name_LABVAR,      40,
  110.     'C', 'V', "TEMPNAME",        (anyptr)  name_TEMP,        40,
  111.     'C', 'V', "DUMMYNAME",       (anyptr)  name_DUMMY,       40,
  112.     'C', 'V', "FORNAME",         (anyptr)  name_FOR,         40,
  113.     'C', 'V', "WITHNAME",        (anyptr)  name_WITH,        40,
  114.     'C', 'V', "PTRNAME",         (anyptr)  name_PTR,         40,
  115.     'C', 'V', "STRINGNAME",      (anyptr)  name_STRING,      40,
  116.     'C', 'V', "SETNAME",         (anyptr)  name_SET,         40,
  117.     'C', 'V', "FNVARNAME",       (anyptr)  name_FNVAR,       40,
  118.     'C', 'V', "FNSIZENAME",      (anyptr)  name_FNSIZE,      40,
  119.     'C', 'V', "ALTERNATENAME1",  (anyptr)  alternatename1,   40,
  120.     'C', 'V', "ALTERNATENAME2",  (anyptr)  alternatename2,   40,
  121.     'C', 'V', "ALTERNATENAME",   (anyptr)  alternatename,    40,
  122.     'C', 'V', "EXPORTSYMBOL",    (anyptr)  exportsymbol,     40,
  123.     'C', 'V', "EXPORT_SYMBOL",   (anyptr)  export_symbol,    40,
  124.     'C', 'V', "ALIAS",           (anyptr)  externalias,      40,
  125.     'X', 'V', "SYNONYM",         (anyptr)  NULL,              3,
  126.     'X', 'V', "NAMEOF",          (anyptr) &nameoflist,        1,
  127.     'G', 'V', "AVOIDNAME",       (anyptr)  NULL,             AVOIDNAME,
  128.     'G', 'V', "AVOIDGLOBALNAME", (anyptr)  NULL,             AVOIDGLOB,
  129.     'G', 'V', "WARNNAME",        (anyptr)  NULL,             WARNNAME,
  130.     'G', 'V', "NOSIDEEFFECTS",   (anyptr)  NULL,             NOSIDEEFF,
  131.     'G', 'V', "STRUCTFUNCTION",  (anyptr)  NULL,             STRUCTF,
  132.     'G', 'V', "STRLAPFUNCTION",  (anyptr)  NULL,             STRLAPF,
  133.     'F', 'V', "LEAVEALONE",      (anyptr)  NULL,             LEAVEALONE,
  134.     'G', 'V', "DETERMINISTIC",   (anyptr)  NULL,             DETERMF,
  135.     'G', 'V', "NEEDSTATIC",      (anyptr)  NULL,             NEEDSTATIC,
  136.     'S', 'V', "WARNNAMES",       (anyptr) &warnnames,         0,
  137.     'M', 'V', "VARMACRO",        (anyptr)  NULL,             MAC_VAR,
  138.     'M', 'V', "CONSTMACRO",      (anyptr)  NULL,             MAC_CONST,
  139.     'M', 'V', "FIELDMACRO",      (anyptr)  NULL,             MAC_FIELD,
  140.     'M', 'V', "FUNCMACRO",       (anyptr)  NULL,             MAC_FUNC,
  141.     'S', 'V', "WARNMACROS",      (anyptr) &warnmacros,        0,
  143. /* CODING OPTIONS */
  144.     'A', 'V', "INITIALCALLS",    (anyptr) &initialcalls,      0,
  145.     'S', 'V', "EXPANDINCLUDES",  (anyptr) &expandincludes,   -1,
  146.     'S', 'V', "COLLECTNEST",     (anyptr) &collectnest,       1,
  147.     'S', 'V', "SHORTCIRCUIT",    (anyptr) &shortcircuit,     -1,
  148.     'S', 'V', "SHORTOPT",        (anyptr) &shortopt,          1,
  149.     'S', 'V', "ELIMDEADCODE",    (anyptr) &elimdeadcode,      1,
  150.     'S', 'V', "FOLDCONSTANTS",   (anyptr) &foldconsts,       -1,
  151.     'S', 'V', "FOLDSTRCONSTANTS",(anyptr) &foldstrconsts,    -1,
  152.     'S', 'V', "USECONSTS",       (anyptr) &useconsts,        -1,
  153.     'S', 'V', "USEUNDEF",        (anyptr) &useundef,          1,
  154.     'L', 'V', "SKIPINDICES",     (anyptr) &skipindices,       0,
  155.     'S', 'V', "OFFSETFORLOOPS",  (anyptr) &offsetforloops,    1,
  156.     'S', 'V', "FOREVALORDER",    (anyptr) &forevalorder,      0,
  157.     'S', 'V', "STRINGLEADERS",   (anyptr) &stringleaders,     2,
  158.     'S', 'V', "STOREFILENAMES",  (anyptr) &storefilenames,   -1,
  159.     'S', 'V', "CHARFILETEXT",    (anyptr) &charfiletext,     -1,
  160.     'S', 'V', "SQUEEZESUBR",     (anyptr) &squeezesubr,       1,
  161.     'S', 'T', "USEENUM",         (anyptr) &useenum,          -1,
  162.     'S', 'V', "SQUEEZEENUM",     (anyptr) &enumbyte,         -1,
  163.     'S', 'V', "COMPENUMS",       (anyptr) &compenums,        -1,
  164.     'S', 'V', "PACKING",         (anyptr) &packing,           1,
  165.     'S', 'V', "PACKSIGNED",      (anyptr) &packsigned,        1,
  166.     'I', 'V', "STRINGCEILING",   (anyptr) &stringceiling,   255,
  167.     'I', 'V', "STRINGDEFAULT",   (anyptr) &stringdefault,   255,
  168.     'I', 'V', "STRINGTRUNCLIMIT",(anyptr) &stringtrunclimit, -1,
  169.     'I', 'V', "LONGSTRINGSIZE",  (anyptr) &longstringsize,   -1,
  170.     'S', 'V', "KEEPNULLS",       (anyptr) &keepnulls,         0,
  171.     'S', 'V', "HIGHCHARBITS",    (anyptr) &highcharbits,     -1,
  172.     'S', 'V', "ALWAYSCOPYVALUES",(anyptr) &alwayscopyvalues,  0,
  173.     'S', 'V', "STATICFUNCTIONS", (anyptr) &use_static,        1,
  174.     'S', 'V', "STATICVARIABLES", (anyptr) &var_static,        1,
  175.     'S', 'V', "VOIDARGS",        (anyptr) &void_args,        -1,
  176.     'S', 'V', "PROTOTYPES",      (anyptr) &prototypes,       -1,
  177.     'S', 'V', "FULLPROTOTYPING", (anyptr) &fullprototyping,  -1,
  178.     'S', 'V', "PROCPTRPROTOTYPES",(anyptr)&procptrprototypes, 1,
  179.     'S', 'V', "CASTARGS",        (anyptr) &castargs,         -1,
  180.     'S', 'V', "CASTLONGARGS",    (anyptr) &castlongargs,     -1,
  181.     'S', 'V', "PROMOTEARGS",     (anyptr) &promoteargs,      -1,
  182.     'S', 'V', "PROMOTEENUMS",    (anyptr) &promote_enums,    -1,
  183.     'S', 'V', "STATICLINKS",     (anyptr) &hasstaticlinks,   -1,
  184.     'S', 'V', "VARSTRINGS",      (anyptr) &varstrings,        0,
  185.     'S', 'V', "VARFILES",        (anyptr) &varfiles,          1,
  186.     'S', 'V', "ADDRSTDFILES",    (anyptr) &addrstdfiles,      0,
  187.     'S', 'V', "COPYSTRUCTFUNCS", (anyptr) &copystructfuncs,  -1,
  188.     'S', 'V', "ATAN2",           (anyptr) &atan2flag,         0,
  189.     'S', 'V', "BITWISEMOD",      (anyptr) &mod_po2,          -1,
  190.     'S', 'V', "BITWISEDIV",      (anyptr) &div_po2,          -1,
  191.     'S', 'V', "ASSUMEBITS",      (anyptr) &assumebits,        0,
  192.     'S', 'V', "ASSUMESIGNS",     (anyptr) &assumesigns,       1,
  193.     'S', 'V', "ALLOCZERONIL",    (anyptr) &alloczeronil,      0,
  194.     'S', 'V', "PRINTFONLY",      (anyptr) &printfonly,       -1,
  195.     'S', 'V', "MIXWRITELNS",     (anyptr) &mixwritelns,       1,
  196.     'S', 'V', "MESSAGESTDERR",   (anyptr) &messagestderr,     1,
  197.     'I', 'V', "INTEGERWIDTH",    (anyptr) &integerwidth,     -1,
  198.     'I', 'V', "REALWIDTH",       (anyptr) &realwidth,        12,
  199.     'S', 'V', "FORMATSTRINGS",   (anyptr) &formatstrings,     0,
  200.     'S', 'V', "WHILEFGETS",      (anyptr) &whilefgets,        1,
  201.     'S', 'V', "USEGETS",         (anyptr) &usegets,           1,
  202.     'S', 'V', "NEWLINESPACE",    (anyptr) &newlinespace,     -1,
  203.     'S', 'V', "BUILDREADS",      (anyptr) &buildreads,        1,
  204.     'S', 'V', "BUILDWRITES",     (anyptr) &buildwrites,       1,
  205.     'S', 'V', "BINARYMODE",      (anyptr) &binarymode,        1,
  206.     'S', 'V', "READWRITEOPEN",   (anyptr) &readwriteopen,    -1,
  207.     'C', 'V', "OPENMODE",        (anyptr)  openmode,         40,
  208.     'S', 'V', "LITERALFILES",    (anyptr) &literalfilesflag, -1,
  209.     'A', 'V', "LITERALFILE",     (anyptr) &literalfiles,      0,
  210.     'C', 'V', "FILENAMEFILTER",  (anyptr)  filenamefilter,   40,
  211.     'S', 'V', "FULLSTRWRITE",    (anyptr) &fullstrwrite,     -1,
  212.     'S', 'V', "FULLSTRREAD",     (anyptr) &fullstrread,       1,
  213.     'I', 'R', "SETBITS",         (anyptr) &setbits,          -1,
  214.     'I', 'V', "DEFAULTSETSIZE",  (anyptr) &defaultsetsize,   -1,
  215.     'S', 'V', "SMALLSETCONST",   (anyptr) &smallsetconst,    -2,
  216.     'S', 'V', "BIGSETCONST",     (anyptr) &bigsetconst,       1,
  217.     'S', 'V', "LELERANGE",       (anyptr) &lelerange,         0,
  218.     'S', 'V', "UNSIGNEDTRICK",   (anyptr) &unsignedtrick,     1,
  219.     'S', 'V', "USEISALPHA",      (anyptr) &useisalpha,        1,
  220.     'S', 'V', "USEISSPACE",      (anyptr) &useisspace,        0,
  221.     'S', 'V', "USESTRNCMP",  (anyptr) &usestrncmp,       1,
  223. /* TARGET LIBRARY */
  224.     'G', 'V', "WARNLIBRARY",     (anyptr)  NULL,             WARNLIBR,
  225.     'S', 'V', "QUOTEINCLUDES",   (anyptr) &quoteincludes,     1,
  226.     'X', 'V', "IMPORTFROM",      (anyptr) &importfrom,        1,
  227.     'A', 'V', "IMPORTDIR",       (anyptr) &importdirs,        0,
  228.     'A', 'V', "INCLUDEDIR",      (anyptr) &includedirs,       0,
  229.     'X', 'V', "INCLUDEFROM",     (anyptr) &includefrom,       1,
  230.     'A', 'V', "LIBRARYFILE",     (anyptr) &librfiles,         0,
  231.     'C', 'V', "HEADERNAME",      (anyptr)  p2c_h_name,       40,
  232.     'C', 'V', "PROCTYPENAME",    (anyptr)  name_PROCEDURE,   40,
  233.     'C', 'V', "UCHARNAME",       (anyptr)  name_UCHAR,       40,
  234.     'C', 'V', "SCHARNAME",       (anyptr)  name_SCHAR,       40,
  235.     'C', 'V', "BOOLEANNAME",     (anyptr)  name_BOOLEAN,     40,
  236.     'C', 'V', "TRUENAME",        (anyptr)  name_TRUE,        40,
  237.     'C', 'V', "FALSENAME",       (anyptr)  name_FALSE,       40,
  238.     'C', 'V', "NULLNAME",        (anyptr)  name_NULL,        40,
  239.     'C', 'V', "ESCAPECODENAME",  (anyptr)  name_ESCAPECODE,  40,
  240.     'C', 'V', "IORESULTNAME",    (anyptr)  name_IORESULT,    40,
  241.     'C', 'V', "ARGCNAME",        (anyptr)  name_ARGC,        40,
  242.     'C', 'V', "ARGVNAME",        (anyptr)  name_ARGV,        40,
  243.     'C', 'V', "MAINNAME",        (anyptr)  name_MAIN,        40,
  244.     'C', 'V', "ESCAPENAME",      (anyptr)  name_ESCAPE,      40,
  245.     'C', 'V', "ESCIONAME",       (anyptr)  name_ESCIO,       40,
  246.     'C', 'V', "CHECKIONAME",     (anyptr)  name_CHKIO,       40,
  247.     'C', 'V', "SETIONAME",       (anyptr)  name_SETIO,       40,
  248.     'C', 'V', "FILENOTFOUNDNAME",(anyptr)  filenotfoundname, 40,
  249.     'C', 'V', "FILENOTOPENNAME", (anyptr)  filenotopenname,  40,
  250.     'C', 'V', "FILEWRITEERRORNAME",(anyptr)filewriteerrorname,40,
  251.     'C', 'V', "BADINPUTFORMATNAME",(anyptr)badinputformatname,40,
  252.     'C', 'V', "ENDOFFILENAME",   (anyptr)  endoffilename,    40,
  253.     'C', 'V', "OUTMEMNAME",      (anyptr)  name_OUTMEM,      40,
  254.     'C', 'V', "CASECHECKNAME",   (anyptr)  name_CASECHECK,   40,
  255.     'C', 'V', "NILCHECKNAME",    (anyptr)  name_NILCHECK,    40,
  256.     'C', 'V', "SETBITSNAME",     (anyptr)  name_SETBITS,     40,
  257.     'S', 'V', "SPRINTFVALUE",    (anyptr) &sprintf_value,    -1,
  258.     'C', 'V', "SPRINTFNAME",     (anyptr)  sprintfname,      40,
  259.     'C', 'V', "MEMCPYNAME",      (anyptr)  memcpyname,       40,
  260.     'C', 'V', "ROUNDNAME",       (anyptr)  roundname,        40,
  261.     'C', 'V', "DIVNAME",  (anyptr)  divname,      40,
  262.     'C', 'V', "MODNAME",  (anyptr)  modname,      40,
  263.     'C', 'V', "REMNAME",  (anyptr)  remname,      40,
  264.     'C', 'V', "STRCICMPNAME",    (anyptr)  strcicmpname,     40,
  265.     'C', 'V', "STRSUBNAME",      (anyptr)  strsubname,       40,
  266.     'C', 'V', "STRPOSNAME",      (anyptr)  strposname,       40,
  267.     'S', 'V', "STRCPYLEFT",      (anyptr) &strcpyleft,        1,
  268.     'C', 'V', "STRDELETENAME",   (anyptr)  strdeletename,    40,
  269.     'C', 'V', "STRINSERTNAME",   (anyptr)  strinsertname,    40,
  270.     'C', 'V', "STRMOVENAME",     (anyptr)  strmovename,      40,
  271.     'C', 'V', "STRLTRIMNAME",    (anyptr)  strltrimname,     40,
  272.     'C', 'V', "STRRTRIMNAME",    (anyptr)  strrtrimname,     40,
  273.     'C', 'V', "STRRPTNAME",      (anyptr)  strrptname,       40,
  274.     'C', 'V', "STRPADNAME",      (anyptr)  strpadname,       40,
  275.     'C', 'V', "ABSNAME",         (anyptr)  absname,          40,
  276.     'C', 'V', "ODDNAME",         (anyptr)  oddname,          40,
  277.     'C', 'V', "EVENNAME",        (anyptr)  evenname,         40,
  278.     'C', 'V', "SWAPNAME",        (anyptr)  swapname,         40,
  279.     'C', 'V', "MALLOCNAME",      (anyptr)  mallocname,       40,
  280.     'C', 'V', "FREENAME",        (anyptr)  freename,         40,
  281.     'C', 'V', "FREERVALUENAME",  (anyptr)  freervaluename,   40,
  282.     'X', 'V', "SPECIALMALLOC",   (anyptr) &specialmallocs,    1,
  283.     'X', 'V', "SPECIALFREE",     (anyptr) &specialfrees,      1,
  284.     'X', 'V', "SPECIALSIZEOF",   (anyptr) &specialsizeofs,    1,
  285.     'C', 'V', "RANDREALNAME",    (anyptr)  randrealname,     40,
  286.     'C', 'V', "RANDINTNAME",     (anyptr)  randintname,      40,
  287.     'C', 'V', "RANDOMIZENAME",   (anyptr)  randomizename,    40,
  288.     'C', 'V', "SKIPSPACENAME",   (anyptr)  skipspacename,    40,
  289.     'C', 'V', "READLNNAME",      (anyptr)  readlnname,       40,
  290.     'C', 'V', "FREOPENNAME",     (anyptr)  freopenname,      40,
  291.     'C', 'V', "EOFNAME",         (anyptr)  eofname,          40,
  292.     'C', 'V', "EOLNNAME",        (anyptr)  eolnname,         40,
  293.     'C', 'V', "FILEPOSNAME",     (anyptr)  fileposname,      40,
  294.     'C', 'V', "MAXPOSNAME",      (anyptr)  maxposname,       40,
  295.     'C', 'V', "SETUNIONNAME",    (anyptr)  setunionname,     40,
  296.     'C', 'V', "SETINTNAME",      (anyptr)  setintname,       40,
  297.     'C', 'V', "SETDIFFNAME",     (anyptr)  setdiffname,      40,
  298.     'C', 'V', "SETXORNAME",      (anyptr)  setxorname,       40,
  299.     'C', 'V', "SETINNAME",       (anyptr)  setinname,        40,
  300.     'C', 'V', "SETADDNAME",      (anyptr)  setaddname,       40,
  301.     'C', 'V', "SETADDRANGENAME", (anyptr)  setaddrangename,  40,
  302.     'C', 'V', "SETREMNAME",      (anyptr)  setremname,       40,
  303.     'C', 'V', "SETEQUALNAME",    (anyptr)  setequalname,     40,
  304.     'C', 'V', "SUBSETNAME",      (anyptr)  subsetname,       40,
  305.     'C', 'V', "SETCOPYNAME",     (anyptr)  setcopyname,      40,
  306.     'C', 'V', "SETEXPANDNAME",   (anyptr)  setexpandname,    40,
  307.     'C', 'V', "SETPACKNAME",     (anyptr)  setpackname,      40,
  308.     'C', 'V', "SIGNEXTENDNAME",  (anyptr)  signextname,      40,
  309.     'C', 'V', "GETBITSNAME",     (anyptr)  getbitsname,      40,
  310.     'C', 'V', "CLRBITSNAME",     (anyptr)  clrbitsname,      40,
  311.     'C', 'V', "PUTBITSNAME",     (anyptr)  putbitsname,      40,
  312.     'C', 'V', "STOREBITSNAME",   (anyptr)  storebitsname,    40,
  313.     'C', 'V', "DECLBUFNAME",  (anyptr)  declbufname,      40,
  314.     'C', 'V', "DECLBUFNCNAME",  (anyptr)  declbufncname,    40,
  315.     'A', 'V', "BUFFEREDFILE",    (anyptr) &bufferedfiles,     0,
  316.     'A', 'V', "UNBUFFEREDFILE",  (anyptr) &unbufferedfiles,   0,
  317.     'C', 'V', "RESETBUFNAME",  (anyptr)  resetbufname,     40,
  318.     'C', 'V', "SETUPBUFNAME",  (anyptr)  setupbufname,     40,
  319.     'C', 'V', "GETFBUFNAME",     (anyptr)  getfbufname,      40,
  320.     'C', 'V', "CHARGETFBUFNAME", (anyptr)  chargetfbufname,  40,
  321.     'C', 'V', "ARRAYGETFBUFNAME",(anyptr)  arraygetfbufname, 40,
  322.     'C', 'V', "PUTFBUFNAME",     (anyptr)  putfbufname,      40,
  323.     'C', 'V', "CHARPUTFBUFNAME", (anyptr)  charputfbufname,  40,
  324.     'C', 'V', "ARRAYPUTFBUFNAME",(anyptr)  arrayputfbufname, 40,
  325.     'C', 'V', "GETNAME",         (anyptr)  getname,          40,
  326.     'C', 'V', "CHARGETNAME",     (anyptr)  chargetname,      40,
  327.     'C', 'V', "ARRAYGETNAME",    (anyptr)  arraygetname,     40,
  328.     'C', 'V', "PUTNAME",         (anyptr)  putname,          40,
  329.     'C', 'V', "CHARPUTNAME",     (anyptr)  charputname,      40,
  330.     'C', 'V', "ARRAYPUTNAME",    (anyptr)  arrayputname,     40,
  332. /* RANGE CHECKING */
  333.     'S', 'V', "CASECHECK",       (anyptr) &casecheck,         0,
  334.     'S', 'V', "ARRAYCHECK",      (anyptr) &arraycheck,        0,
  335.     'S', 'V', "RANGECHECK",      (anyptr) &rangecheck,        0,
  336.     'S', 'V', "NILCHECK",        (anyptr) &nilcheck,          0,
  337.     'S', 'V', "MALLOCCHECK",     (anyptr) &malloccheck,       0,
  338.     'S', 'V', "CHECKFILEOPEN",   (anyptr) &checkfileopen,     1,
  339.     'S', 'V', "CHECKFILEISOPEN", (anyptr) &checkfileisopen,   0,
  340.     'S', 'V', "CHECKFILEWRITE",  (anyptr) &checkfilewrite,    2,
  341.     'S', 'V', "CHECKREADFORMAT", (anyptr) &checkreadformat,   2,
  342.     'S', 'V', "CHECKFILEEOF",    (anyptr) &checkfileeof,      2,
  343.     'S', 'V', "CHECKSTDINEOF",   (anyptr) &checkstdineof,     2,
  344.     'S', 'V', "CHECKFILESEEK",   (anyptr) &checkfileseek,     2,
  345. }
  346. #endif /* define_parameters */
  347.     ;
  350. #undef extern
  353. #ifdef define_parameters
  354.   int numparams = sizeof(rctable) / sizeof(struct rcstruct);
  355.   Strlist *rcprevvalues[sizeof(rctable) / sizeof(struct rcstruct)];
  356. #else
  357.   extern int numparams;
  358.   extern Strlist *rcprevvalues[];
  359. #endif /* define_parameters */
  363. /* Global variables: */
  365. #ifdef define_globals
  366. # define extern
  367. #endif /* define_globals */
  370. extern char *charname, *ucharname, *scharname, *integername;
  371. extern long min_schar, max_schar, max_uchar;
  372. extern long min_sshort, max_sshort, max_ushort;
  374. extern char *alloctemp;
  375. extern short error_crash;
  376. extern int total_bytes, total_exprs, total_meanings, total_strings;
  377. extern int total_symbols, total_types, total_stmts, total_strlists;
  378. extern int total_literals, total_ctxstacks, total_tempvars, total_inprecs;
  379. extern int total_parens, total_ptrdescs, total_misc;
  380. extern int final_bytes, final_exprs, final_meanings, final_strings;
  381. extern int final_symbols, final_types, final_stmts, final_strlists;
  382. extern int final_literals, final_ctxstacks, final_tempvars, final_inprecs;
  383. extern int final_parens, final_ptrdescs, final_misc;
  385. extern char *infname, *outfname, *codefname, *hdrfname;
  386. extern char *requested_module;
  387. extern FILE *inf, *outf, *codef, *hdrf, *logf;
  388. extern short setup_complete, found_module;
  389. extern short regression, verbose, conserve_mem;
  390. extern int inf_lnum, inf_ltotal;
  392. extern int outindent, outputmode;
  393. extern int outf_lnum;
  394. extern short dontbreaklines;
  396. extern Token curtok;
  397. extern char curtokbuf[256], curtokcase[256];
  398. extern char *inbufptr;
  399. extern int inbufindent;
  400. extern long curtokint;
  401. extern Symbol *curtoksym;
  402. extern Meaning *curtokmeaning;
  403. extern Strlist *curcomments;
  404. extern Strlist **keepingstrlist;
  405. extern short ignore_directives, skipping_module;
  406. extern short C_lex;
  407. extern char sysprog_flag, partial_eval_flag, iocheck_flag;
  408. extern char range_flag, ovflcheck_flag, stackcheck_flag;
  409. extern short switch_strpos;
  410. extern int fixedflag;
  411. extern int numimports;
  412. extern Strlist *tempoptionlist;
  413. extern long curserial, serialcount;
  414. extern int notephase;
  415. extern Strlist *permimports;
  416. extern int permflag;
  418. #define SYMHASHSIZE 293
  419. extern Symbol *(symtab[SYMHASHSIZE]);
  420. extern short partialdump;
  422. #define MAXWITHS 100
  423. extern int withlevel;
  424. extern Type *withlist[MAXWITHS];
  425. extern Expr *withexprs[MAXWITHS];
  427. extern Token blockkind;
  428. extern Meaning *curctx, *curctxlast, *nullctx;
  430. extern int fixexpr_tryblock;
  431. extern short fixexpr_tryflag;
  433. extern Type *tp_integer, *tp_char, *tp_boolean, *tp_real, *tp_longreal;
  434. extern Type *tp_anyptr, *tp_jmp_buf, *tp_schar, *tp_uchar;
  435. extern Type *tp_int, *tp_sshort, *tp_ushort, *tp_abyte, *tp_sbyte, *tp_ubyte;
  436. extern Type *tp_void, *tp_str255, *tp_strptr, *tp_text, *tp_charptr;
  437. extern Type *tp_unsigned, *tp_uint, *tp_sint, *tp_smallset, *tp_proc;
  438. extern Meaning *mp_string, *mp_true, *mp_false;
  439. extern Meaning *mp_input, *mp_output, *mp_stderr;
  440. extern Meaning *mp_maxint, *mp_minint, *mp_escapecode, *mp_ioresult;
  441. extern Meaning *mp_uchar, *mp_schar, *mp_unsigned, *mp_uint;
  442. extern Meaning *mp_str_hp, *mp_str_turbo;
  443. extern Meaning *mp_val_modula, *mp_val_turbo;
  444. extern Meaning *mp_blockread_ucsd, *mp_blockread_turbo;
  445. extern Meaning *mp_blockwrite_ucsd, *mp_blockwrite_turbo;
  446. extern Meaning *mp_dec_dec, *mp_dec_turbo;
  447. extern Expr *ex_input, *ex_output;
  448. extern Strlist *attrlist;
  451. #ifndef define_globals
  452. # undef extern
  453. #endif
  458. /* Function declarations are created automatically by "makeproto" */
  460. #include "p2c.hdrs"
  462. #include "p2c.proto"
  466. /* Our library omits declarations for these functions! */
  468. int link           PP( (char *, char *) );
  469. int unlink         PP( (char *) );
  473. #define minspcthresh ((minspacingthresh >= 0) ? minspacingthresh : minspacing)
  475. #define delfreearg(ex, n) freeexpr((*(ex))->args[n]), deletearg(ex, n)
  476. #define delsimpfreearg(ex, n) freeexpr((*(ex))->args[n]), delsimparg(ex, n)
  478. #define swapexprs(a,b) do {register Expr *t=(a);(a)=(b);(b)=(t);} while (0)
  479. #define swapstmts(a,b) do {register Stmt *t=(a);(a)=(b);(b)=(t);} while (0)
  481. #define CHECKORDEXPR(ex,v) ((ex)->kind==EK_CONST ? (ex)->val.i - (v) : -2)
  483. #define FCheck(flag)  ((flag) == 1 || (!iocheck_flag && (flag)))
  484. #define checkeof(fex)  (isvar(fex, mp_input) ? FCheck(checkstdineof)  
  485.      : FCheck(checkfileeof))
  488. #ifdef TEST_MALLOC   /* Memory testing */
  490. #define ALLOC(N,TYPE,NAME) 
  491.     (TYPE *) test_malloc((unsigned)((N)*sizeof(TYPE)),  
  492.  &__CAT__(total_,NAME), &__CAT__(final_,NAME))
  494. #define ALLOCV(N,TYPE,NAME) 
  495.     (TYPE *) test_malloc((unsigned)(N),  
  496.  &__CAT__(total_,NAME), &__CAT__(final_,NAME))
  498. #define REALLOC(P,N,TYPE) 
  499.     (TYPE *) test_realloc((char *)(P), (unsigned)((N)*sizeof(TYPE)))
  501. #define FREE(P) test_free((char*)(P))
  503. #else  /* not TEST_MALLOC */
  505. /* If p2c always halts immediately with an out-of-memory error, try
  506.    recompiling all modules with BROKEN_OR defined. */
  507. #ifdef BROKEN_OR
  509. #define ALLOC(N,TYPE,NAME) 
  510.     ((alloctemp = malloc((unsigned)((N)*sizeof(TYPE)))), 
  511.      (alloctemp ? (TYPE *) alloctemp : (TYPE *) outmem()))
  513. #define ALLOCV(N,TYPE,NAME) 
  514.     ((alloctemp = malloc((unsigned)(N))), 
  515.      (alloctemp ? (TYPE *) alloctemp : (TYPE *) outmem()))
  517. #define REALLOC(P,N,TYPE) 
  518.     ((alloctemp = realloc((char*)(P), (unsigned)((N)*sizeof(TYPE)))), 
  519.      (alloctemp ? (TYPE *) alloctemp : (TYPE *) outmem()))
  521. #define FREE(P) free((char*)(P))
  523. #else  /* not BROKEN_OR */
  525. #define ALLOC(N,TYPE,NAME) 
  526.     ((alloctemp = malloc((unsigned)((N)*sizeof(TYPE)))) || outmem(), 
  527.      (TYPE *) alloctemp)
  529. #define ALLOCV(N,TYPE,NAME) 
  530.     ((alloctemp = malloc((unsigned)(N))) || outmem(), 
  531.      (TYPE *) alloctemp)
  533. #define REALLOC(P,N,TYPE) 
  534.     ((alloctemp = realloc((char*)(P), (unsigned)((N)*sizeof(TYPE)))) || outmem(), 
  535.      (TYPE *) alloctemp)
  537. #define FREE(P) free((char*)(P))
  539. #endif  /* BROKEN_OR */
  540. #endif  /* TEST_MALLOC */
  543. #define MIN(a,b) ((a) < (b) ? (a) : (b))
  544. #define MAX(a,b) ((a) > (b) ? (a) : (b))
  548. #ifdef toupper
  549. # undef toupper
  550. # undef tolower
  551. # define toupper(c)  my_toupper(c)
  552. # define tolower(c)  my_tolower(c)
  553. # define _toupper(c)  ((c)-'a'+'A')
  554. # define _tolower(c)  ((c)-'A'+'a')
  555. #endif
  560. /* End. */