# lib_def.r.i --- Software Tools Subsytem Library definitions
#                     Version 9

# Defines for I/O routines:
define(MAXFILESTATE,258) # NFILES + Primos funits + 2
define(MAXLSBUF,16384)
define(MAXFDBUF,16384)
define(MAXTERMBUF,128)
define(MAXSTDPORTS,6)
define(MAXARGV,256)
define(MAXKILLRESP,33)
define(MAXPRTDEST,17)
define(MAXPRTFORM,9)
define(NFILES,128)
define(BUFSIZE,128)
define(FDSIZE,16)
define(DEVTTY,1)
define(DEVDSK,2)
define(DEVNULL,3)
define(FDBYTE,:100000)
define(FDREAD,:040000)
define(FDWRITE,:020000)
define(FDEOF,:010000)
define(FDERR,:004000)
define(FDCOMP,:002000)
define(FDOPENED,:001000)
define(FDFTYPE,:000700)
define(FDMBZ,:000060)
define(FDLASTOP,:000017)
define(FDINITIAL,0)
define(FDREADF,1)
define(FDWRITEF,2)
define(FDGETLIN,3)
define(FDPUTLIN,4)
define(fdoffset(f),f*FDSIZE-FDSIZE+1)
define(SETLASTOP(f,o),Fdflags(f)=and(Fdflags(f),not(FDLASTOP))+o)
define(LASTOP(f),and(Fdflags(f),FDLASTOP))

# Defines for 'lopen$':
define(FTN,:100000)
define(EXP,:40000)
define(LNR,:20000)
define(NHD,:10000)
define(NEJ,:4000)
define(RAW,:2000)
define(DEF,:400)
define(LOC,:200)
define(ATL,:100)
define(COP,:20)

# Defines for 'print' and 'input':
define(FORMATFLAG,'*'c)
define(ADDRFORM,'a'c)
define(BOOLFORM,'b'c)
define(CHARFORM,'c'c)
define(DOUBLEFORM,'d'c)
define(FLOATFORM,'f'c)
define(GOTOFORM,'g'c)
define(HOLLERITHFORM,'h'c)
define(INTFORM,'i'c)
define(RCINTFORM,'j'c)
define(SKIPFORM,'k'c)
define(LONGINTFORM,'l'c)
define(RCLONGINTFORM,'m'c)
define(NLINE,'n'c)
define(PACKEDSTRINGFORM,'p'c)
define(REALFORM,'r'c)
define(STRINGFORM,'s'c)
define(TABFORM,'t'c)
define(DEFAULTFORM,'u'c)
define(VARYINGFORM,'v'c)
define(FILLFORM,'x'c)
define(YESNOFORM,'y'c)

# Defines for memory management routines:
define(DS_MEMEND,1)
define(DS_AVAIL,2)
define(DS_CLOSE,8)
define(DS_LINK,1)
define(DS_SIZE,0)
define(DS_OHEAD,2)

# Defines for symbol table routines:
define(ST_LINK,0)
define(ST_DATA,1)
define(ST_HTABSIZE,43)

# Defines for template expander:
define(TEMPLATE_COMMON,"=incl=/temp_com.r.i")
define(MAXTEMPHASH,37)
define(MAXTEMPBUF,4059) # 4096-MAXTEMPHASH
define(TEMP_DATE,1)
define(TEMP_TIME,2)
define(TEMP_USER,3)
define(TEMP_PID,4)
define(TEMP_PASSWD,5)
define(TEMP_DAY,6)
define(TEMP_HOME,7)

# Defines for 'tscan$'
define(REATTACH,1)
define(PREORDER,2)
define(POSTORDER,4)
define(EODPAUSE,8)
define(EOD,0)  # must be different from EOF, ERR, OK
define(MAXLEV,32)
define(DESCEND,1)
define(COULDNT_DESCEND,2)
define(GET_NEXT_ENTRY,3)
define(ASCEND,4)
define(ATEOD,5)

# defines for 'ldseg$'
define(SG_SEGNUM,1)
define(SG_FLAGS,0)
define(SG_NODESIZE,9)
define(SG_CHAIN,8)
define(NULL,:100000)

# Definitions used only for pattern matching
define(PAT_AND,'&'c)
define(PAT_ANY,'?'c)
define(PAT_BOL,'%'c)
define(PAT_CCL,'['c)
define(PAT_CCLEND,']'c)
define(PAT_CHAR,'a'c)
define(PAT_CLOSIZE,4)
define(PAT_CLOSURE,'*'c)
define(PAT_COUNT,1)
define(PAT_DASH,'-'c)
define(PAT_DITTO,-3)
define(PAT_EOL,'$'c)
define(PAT_MARK,-10)    # to different than any digit
define(PAT_NCCL,'n'c)
define(PAT_NOT,'~'c)
define(PAT_PREVCL,2)
define(PAT_START,3)
define(PAT_START_TAG,'{'c)
define(PAT_STOP_TAG,'}'c)

# Miscellaneous definitions:
define(MAX_NAME, 7)
define(MAXINTEGER,:77777)
define(CHARS_PER_WORD,2)
define(NOTEXECUTABLE,1)
define(ISCIFILE,-4)
define(NOTFOUND,0)
define(FOUND,1)
define(DAM,1)
define(SAM,0)