mirror of
https://github.com/PDP-10/its.git
synced 2026-01-25 19:56:53 +00:00
69 lines
2.4 KiB
Plaintext
69 lines
2.4 KiB
Plaintext
'<PCODE "5SKIPY"> ;"This is an edited version of SKIPY FBIN5 MPROG2;"
|
||
|
||
<PACKAGE "SKIP">
|
||
|
||
<ENTRY SKIP SKIPTO SKIPOUT QLOAD>
|
||
|
||
<SETG SKIP %<RSUBR!- '[ %<PCODE!- "5SKIPY" 0> SKIP #DECL ("VALUE" ANY CHANNEL
|
||
"OPTIONAL" <OR '!"Z '!"F '!"R '!"W '!"C> CHARACTER) SKIPA (ACTIVATION) "FRZ"
|
||
">)]}" "\\\"" %<RGLOC BREAKS T> %<RGLOC BREAKS+ T> [!"< ">" !"( ")" !"[ "]" !"{
|
||
"}"] #FALSE () %<RGLOC VEC2 T> %<RGLOC WALLS T> T
|
||
READER-SYNTAX-ERROR-ERRET-ANYTHING-TO-GO-ON!-ERRORS " INSTEAD OF " "<>()[]{}" ""
|
||
%<RGLOC SEPS T> "<([{" "#;" ";#%" "READ" OBLIST QLOAD %<RGLOC NULOB T>
|
||
KEEP-FIXUPS (ANY) (<LIST [REST <OR OBLIST 'DEFAULT>]>) REDEFINE (NULL) NULL NTH
|
||
"([{" ![DEFINE SETG DEFMAC!] SETG QUOTE DEFINE]>>
|
||
|
||
<SETG SEPS <STRING <ASCII 3> " " "
|
||
" "î" ",' ">>
|
||
|
||
<SETG BREAKS <STRING "<>()[]!\\\"%;#{}" ,SEPS>>
|
||
|
||
<SETG BREAKS+ <STRING ".<>()[]!%;#{}" ,SEPS>>
|
||
|
||
<SETG STRUCZIP %<RSUBR-ENTRY '[SKIP STRUCZIP #DECL ("VALUE" CHARACTER CHANNEL
|
||
CHARACTER)] 956>>
|
||
|
||
<SETG SPECIALS <STRING "\"!\\" <ASCII 3>>>
|
||
|
||
<SETG VEC2 [!"< <STRING "<>" ,SPECIALS> !"( <STRING "()" ,SPECIALS> !"[ <STRING
|
||
"[]" ,SPECIALS> !"{ <STRING "{}" ,SPECIALS>]>
|
||
|
||
<SETG STRUCFLY %<RSUBR-ENTRY '[SKIP STRUCFLY #DECL ("VALUE" CHARACTER CHANNEL
|
||
CHARACTER "OPTIONAL" CHARACTER STRING)] 990>>
|
||
|
||
<SETG WALLS <STRING "<>()[]" ,SPECIALS "{}">>
|
||
|
||
<SETG STRUCRUN %<RSUBR-ENTRY '[SKIP STRUCRUN #DECL ("VALUE" CHARACTER CHANNEL
|
||
CHARACTER "OPTIONAL" CHARACTER)] 1100>>
|
||
|
||
<SETG STRUCRUNTO %<RSUBR-ENTRY '[SKIP STRUCRUNTO #DECL ("VALUE" CHARACTER
|
||
CHANNEL CHARACTER)] 1256>>
|
||
|
||
<SETG SPECIAL? %<RSUBR-ENTRY '[SKIP SPECIAL? #DECL ("VALUE" ANY CHANNEL
|
||
CHARACTER CHARACTER)] 1301>>
|
||
|
||
<SETG OBJWALKTO %<RSUBR-ENTRY '[SKIP OBJWALKTO #DECL ("VALUE" CHARACTER CHANNEL
|
||
"OPTIONAL" STRING)] 1425>>
|
||
|
||
<SETG OBJWALK %<RSUBR-ENTRY '[SKIP OBJWALK #DECL ("VALUE" ANY CHANNEL CHARACTER)
|
||
] 1532>>
|
||
|
||
<SETG OBJCRAWL %<RSUBR-ENTRY '[SKIP OBJCRAWL #DECL ("VALUE" ANY CHANNEL
|
||
CHARACTER)] 1603>>
|
||
|
||
<SETG SKIPTO %<RSUBR-ENTRY '[SKIP SKIPTO #DECL ("VALUE" ANY CHANNEL "OPTIONAL" <
|
||
OR '!"Z '!"F '!"R '!"W '!"C>)] 1771>>
|
||
|
||
<SETG SKIPOUT %<RSUBR-ENTRY '[SKIP SKIPOUT #DECL ("VALUE" ANY CHANNEL "OPTIONAL"
|
||
<OR '!"Z '!"F '!"R> FIX STRING)] 1824>>
|
||
|
||
<COND (<ASSIGNED? KEEP-FIXUPS>) (<SET KEEP-FIXUPS #FALSE ()>)>
|
||
|
||
<SETG NULOB (DEFAULT)>
|
||
|
||
<SETG QLOAD %<RSUBR-ENTRY '[SKIP QLOAD #DECL ("VALUE" ANY
|
||
<OR ATOM STRING> <OR ATOM <LIST ATOM [REST ATOM]> <
|
||
FALSE ATOM [REST ATOM]>> "OPTIONAL" <LIST [REST <OR OBLIST 'DEFAULT>]> ANY)]
|
||
2173>>
|
||
|
||
<ENDPACKAGE>
|
||
|