PDP-10.its/bin/librm4/skip.fbin

'<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]>>
 
" "î" ",' ">> NG <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>