divert(-1)
# @(#)Copyright (c), 1987, 1993 StatSci, Inc.  All rights reserved.
define(`NULL',0)
define(`USED',1)
define(`ALPHA',-100)
define(`MAXTBL',200) #size of table of built-in names and types
define(`MAXPTR',20)
define(`CALLSIZE',20)
define(`ARGSIZE',100)
define(`MAXDEF',250) #max size for built-in or temp defn
define(`MAXTOK',130)
define(`MAXARG',40)
define(`BLT_NAME_LEN',10)	# max length of a built-in name

define(`DOT',`ICHAR(".")')
define(`STAR',`ICHAR("*")')
define(`LESSTHAN',`ICHAR("<")')
define(`COMMA',`ICHAR(`","')')
define(`LPAREN',`ICHAR(`"("')')
define(`RPAREN',`ICHAR(`")"')')
define(`LBRACK',`ICHAR("[")')
define(`RBRACK',`ICHAR("]")')
define(`SLASH',`ICHAR("/")')
define(`DQUOTE',`34')	# double quote
define(`SQUOTE',`39')	# single quote
define(`QUESTION',`ICHAR("?")')
define(`PERCENT',`ICHAR("%")')
define(`EQUAL',`ICHAR("=")')
define(`DOLLAR',`ICHAR("$")')
define(`ARGFLAG',`DOLLAR')
define(`SHARP',`ICHAR(`"#"')')
define(`LETTER_T',`ICHAR("T")')

# definitions of built-in macros
define(`IFTYPE',-11)
define(`INCTYPE',-12)
define(`SUBTYPE',-13)
define(`USRTYPE',-14)
define(`PROMPTTYPE',-15)
define(`MSGTYPE',-16)
define(`FATTYPE',-18)
define(`LOOPTYPE',-17)
define(`DEFTYPE',-19)
define(`SYSTYPE',-20)
define(`IFDTYPE',-21)
define(`TMPTYPE',-22)

define(`KEEP_WHITE',0)	# for gettok
define(`SKIP_WHITE',1)
define(`SKIP_NL',2)
define(`BUFSIZE',4000)
define(`YES',-20)
define(`NO',-21)
define(`ARB',`200')
define(`LETTER',-30)
define(`DIGIT',-31)
define(`EOF',-40)
define(`MACROEOS',-41)
define(`INIT_PUTC',-42)
define(`END_MACRO',`ICHAR(BACKSPACE)')	# unlikely to occur in macros!
define(`M_BLANK',iqmcbl)define(`M_NEWLINE',iqmcnl)define(`M_TAB',iqmcta)
divert(0)
common/macspc/M_BLANK,M_NEWLINE,M_TAB
integer M_BLANK,M_NEWLINE,M_TAB
SCCS_ID(93017,`@(#)'macro.m 3.9 last edit 2/20/93 StatSci. From BASEFILE)
