Trailing-Edge
-
PDP-10 Archives
-
decuslib20-01
-
decus/20-0002/profil.sai
There is 1 other file named profil.sai in the archive. Click here to see a list.
COMMENT VALID 00025 PAGES
C REC PAGE DESCRIPTION
C00001 00001
C00007 00002 BEGIN "PROFILE"
C00009 00003 DEFINE DSCR="COMMENT "
C00015 00004 EXTERNAL INTEGER RPGSW
C00018 00005 LABEL NXTIME
C00021 00006 ELSE IF CMDBRK = "_" OR CMDBRK = "," THEN
C00024 00007 COMMENT Swinehart's scanner package (an old version)
C00029 00008 DEFINE OVERDEL="14", NOTATOM="13", STRSTOP="12", STRTEST="11"
C00032 00009 PROCEDURE DOLAND(REFERENCE INTEGER I INTEGER MASK)
C00034 00010 PROCEDURE ATOMINIT(
C00036 00011 INTEGER PROCEDURE ATOM(REFERENCE STRING TOSSED,TOKEN)
C00039 00012 RESERVED WORD SYMBOL TABLE
C00043 00013 PRELOADED ARRAYS FOR SYMBOL TABLE-- LOOKR
C00046 00014 FINITE STATE PARSER
C00048 00015 MAIN PROGRAM, EXECUTION STARTS HERE
C00052 00016 PROCEDURES SCAN1, SCAN2, TERP1, AND TERPRI
C00056 00017 PROCEDURES INDENT,UNDENT,SPRINT, PRINT1, & COUNTSTR
C00060 00018 PROCEDURES WIDTH,PRINTS, PRINTC, AND FINISH
C00066 00019 RECURSIVE PROCEDURE SCANSTMT(INTEGER DOINDENT)
C00069 00020 ROUTINES FOR SIMPLE EX AND NON-EX STMTS AND PROC. DECLS
C00072 00021 ROUTINES FOR BLOCK AND CASE STATEMENTS
C00075 00022 DO,DONE,RETURN,FOR,FOREACH,WHILE,GOTO
C00077 00023 IF STATEMENT AND STARTCODE, ALSO NULL STATEMENT, AND LET
C00081 00024 END OF THE VARIOUS STATEMENT ROUTINES
C00082 00025 THE REST OF THE MAIN PROGRAM
C00085 ENDMK
C;