#DEFN RATLIB STANDARD DEFINITIONS # # THESE DEFINITIONS ARE CONSISTANT WITH THOSE OF THE RATFOR LIBRARY # (RATLIB) AND THE SYKES RATFOR PREPROCESSOR # # DEFINE (ALPHA=-4) DEFINE (ALPHABETIC=ALPHA) DEFINE (ARB=10000) DEFINE (BAD=-1) DEFINE (BINARY=2) DEFINE (BLANK=32) DEFINE (CHAR=LOGICAL*1) DEFINE (CHARACTER=LOGICAL*1) #!!! DEFINE (DECIMAL=10) DEFINE (DIGIT=-5) DEFINE (DUMMYSIZE=1) #LENGTH OF ARGUMENT ARRAYS IN SUBROUTINES DEFINE (ENDBLOCK=]) DEFINE (ENDELSE=]) DEFINE (ENDFOR=]) DEFINE (ENDIF=]) DEFINE (ENDREPEAT=]) DEFINE (ENDWHILE=]) DEFINE (EOF=-3) DEFINE (EOS=0) #END-OF-STRING !!!! DEFINE (ESCAPECHAR=64) DEFINE (HEX=16) DEFINE (HUGE=32767) #ARBITRARILY LARGE NUMBER DEFINE (LETTER=-30) DEFINE (MAXDIGITS=18) # MAXIMUM NUMBER OF DIGITS FOR INTEGER AS STRING DEFINE (MAXLINE=132) DEFINE (NEWLINE=10) DEFINE (NO=0) DEFINE (NUMERIC=DIGIT) DEFINE (OCTAL=8) DEFINE (PRINTER=6) DEFINE (STDIN=3) DEFINE (STDLUNIN=3) DEFINE (STDLUNOUT=4) DEFINE (STDLUNIND=2) # LUN FOR INDIRECT COMMAND FILES DEFINE (STDLUNTI=5) DEFINE (STDOUT=4) DEFINE (TAB=9) DEFINE (TYPER=5) DEFINE (YES=1) MACRO (DECREMENT,$=$-1) MACRO (INCREMENT,$=$+1)