################################################################## # # # Part 1 - Symbols and common blocks for the # # ratfor preprocessor # # Extract each one and place it on a file # # with the name specified # # # ################################################################## #----------------------------------------------------------------------- ## definitions for the preprocessor (hashed version from Dave Hanson) # put on a file named 'rat4sym' # Used by ratfor preprocessor, macro, and form tools define(BUFSIZE,300) #pushback buffer for ngetch and putbak define(DEFTYPE,-4) define(LEXBREAK,-8) define(LEXDIGITS,-9) define(LEXDO,-7) define(LEXELSE,-11) define(LEXFOR,-16) define(LEXIF,-12) define(LEXLITERAL,-19) define(LEXNEXT,-13) define(LEXOTHER,-14) define(LEXREPEAT,-17) define(LEXRETURN,-20) define(LEXUNTIL,-18) define(LEXWHILE,-15) define(LEXWRITE,-21) define(LEXREAD,-22) define(LEXENCODE,-23) define(LEXDECODE,-24) define(LEXFORMAT,-25) define(MAXCHARS,10) # characters for outnum # (should be compatible with "putdec") define(MAXDEF,200) #max chars in a definition define(MAXFILE,10) #max files which can be open at a time define(NFILES,6) #max depth of file inclusion #(should be max nbr open files allowed - 4) define(MAXFNAMES,NFILES*FILENAMESIZE) define(MAXFORSTK,200) #max space for for reinit clauses define(MAXNAME,20) #function name size in gettok define(MAXPTR,650) #number of defines in lookup define(MAXSTACK,100) #max stack depth for parser define(MAXTBL,6500) #max chars in all definitions define(MAXTOK,200) #max chars in a token define(MAXFORMAT,200) #max length of format in read, write, encode, decode define(TOGGLE,PERCENT) #literal toggle flag