PDP-10.its/bin/librm1/calrdr.fbin

'<PCODE "2CALRDR">

<PACKAGE "CALRDR"> 

<ENTRY IMLAC? COMMAPRINT BLTREST LKPR READER-NULL-LINE READER-ABORT OTTY 
MULTLIST READER READARGS RTOBRK LAST-READER-BREAK CALRDRINIT BFR LEN CSACT 
RDRHAND RDRHEAD CONFIRMS COMPLETES TERMINS NSTERMS POSCHAR HELPCHAR ABORTCHAR 
MULTCHAR RUBCHAR LINEKILL WORDKILL BUFFERKILL CRETYPE DRETYPE MASTER 
MULT-CR-MASTER MASTER-STRING QUOTCHAR INTTYCHAR EXACT-MATCH-CHAR 
PARTIAL-MATCH-CHAR NO-MATCH-CHAR CALICO-FILE-ATOMS SPCCHAR-TEMPLATE SPCCHARS 
XSPCCHARS> 

<USE "CALSYM" "CALUTL" "STR" "TTY" "BLT" "TIMFCN"> 

<SETG READER-NULL-LINE #FALSE ("Null line")> 

<SETG READER-ABORT #FALSE (#FALSE ())> 

<SET LKPR [0 0 "" 0]> 

<SET FN-ATOMS '[CALICO-DEV CALICO-SNM CALICO-NM1 CALICO-NM2]> 

<SET FN-SEPS <COND (,TENEX '(":<" !\> !\. !\ )) (ELSE ":;  ")>> 

<SET TORDR <IVECTOR 4>> 

<SETG SPCCHAR-TEMPLATE [POSCHAR '<DO-POSSYM> ALLCHAR '<WINNER-TAKE-ALL> HELPCHAR
'<HELP-MESSAGE> ABORTCHAR '<RETURN ,READER-ABORT .LEAVE-READER> MULTCHAR '<
CHECK-FOR-MULT> INTTYCHAR '<INPUT-FROM-TTY> RUBCHAR '<RUBOUT-ONE> WORDKILL '<
BACKUPRUB " 	
"> LINEKILL '<BACKUPRUB "
"> BUFFERKILL '<KILLBUFFER> CRETYPE '<
RETYPE-BUFFER <>> DRETYPE '<RETYPE-BUFFER T> QUOTCHAR '<QUOTE-NEXT-CHAR>]> 

<SETG RTOBRK  %<RSUBR!- '[ %<PCODE!- "2CALRDR" 0> RTOBRK #DECL ("VALUE" <OR 
FALSE CHARACTER> ATOM ATOM ATOM STRING FIX STRING "OPTIONAL" STRING STRING 
STRING STRING STRING) BLT XFPUSH FSP-PARSE DATE-PARSE BLTREST TTY-SET FSP-FIXUP 
RTOBRK CAREFUL-TTY-OFF TTY-GET CALRDRINIT PDATE DATE EXTRACT XFPOP IMLAC? TENEX 
READER-SILENCE OUTCHAN CSACT #FALSE () BREAK T " (" ")" "|" ":  " "(" 
" is allowed.)" "MULT" "multiple " " (s) are allowed.)" " are allowed.)" %<RGLOC
FULLSYN T> "Object of type " "" "Unknown type" ", " MODE "Current default is " 
TABLE FN-ATOMS FN-SEPS "." (<OR SYMTABLE VECTOR>) P1 (STRING) P2 (<OR TUPLE 
VECTOR STRING>) SYN (<VECTOR [REST STRING]>) SYNSW (<OR FALSE ATOM>) MULTSW BFR 
LEN FOO BITP (WORD) LENS (FIX) (<OR FALSE CHARACTER>) XTRCHR OTTY (<OR UVECTOR 
WORD>) INSTRING INCHARACTER HELPSW (<OR FALSE ATOM CHANNEL>) XFPOPSW CAL-PARSE 
"SYM" "TEXT" "LINE" "FILE" "FORM" "VECTOR" "LIST" "OBJECT" "OBJECTS" "DATE" %<
RGLOC CONFIRMS T> %<RGLOC COMPLETES T> %<RGLOC NSTERMS T> %<RGLOC MASTER-STRING 
T> %<RGLOC MULT-CR-MASTER T> %<RGLOC TERMINS T> CURXCHAN (ACTIVATION) 
LEAVE-READER %<RGLOC SPCCHARS T> "\"" LAST-READER-BREAK %<RGLOC XSPCCHARS T> VAL
 MULTERM MULTLIST () (LIST) %<RGLOC READER-ABORT T> TORDR FLUSHED "and " #FALSE 
("Aborted") %<RGLOC INCHAN T> SYNOB [("FIX" ["integer" FIX]) ("FLOAT" [
"floating point number" FLOAT]) ("ATOM" ["MUDDLE atom name" ATOM]) ("CHARACTER" 
["character preceded by !\"" CHARACTER]) ("LIST" ["list of objects" LIST]) (
"VECTOR" ["vector of objects" VECTOR]) ("FORM" ["MUDDLE form" FORM]) ("OBJECT" [
"any EVALable object" ANY]) ("OBJECTS" ["any number of EVALable objects" LIST]) 
("ANY" ["any EVALable object" ANY]) ("STRING" ["string of characters" STRING]) (
"FILE" ["file specification" STRING]) ("DATE" ["date specification" STRING]) (
"LINE" ["line of text" STRING]) ("TEXT" ["text terminated by master break" 
STRING]) ("SYM" ["symbol" SYMBOL])] %<RGLOC EXACT-MATCH-CHAR T> %<RGLOC TENEX T>
 %<RGLOC PARTIAL-MATCH-CHAR T> %<RGLOC NO-MATCH-CHAR T> %<RGLOC POSCHAR T> %<
RGLOC HELPCHAR T> %<RGLOC ABORTCHAR T> %<RGLOC MULTCHAR T> %<RGLOC RUBCHAR T> %<
RGLOC LINEKILL T> %<RGLOC WORDKILL T> %<RGLOC BUFFERKILL T> %<RGLOC CRETYPE T> 
%<RGLOC DRETYPE T> %<RGLOC MASTER T> %<RGLOC ALLCHAR T> %<RGLOC QUOTCHAR T> %<
RGLOC INTTYCHAR T> " " "" "î	," %<RGLOC SPCCHAR-TEMPLATE T> "Date unrecognizable. Please retype." 
CALICO-DEV CALICO-SNM CALICO-NM1 CALICO-NM2 "DSK" ":<" "	
î" "X" LKPR %<RGLOC READER-NULL-LINE T> 
"Type of input unacceptable.  Please retype." ANY FLOAT "READ" 
"End of help message." WINLIST "
The following are possible:
" "No symbol begins like that." "Symbol input not currently available." "C" I 
J %<TYPE-C SYMBOL VECTOR> %<TYPE-W SYMBOL VECTOR>]>> 
<AND <ASSIGNED? GLUE> .GLUE <PUT ,RTOBRK PGLUE ![715827882 -1 -1 -1 -1 -1 -1 -1 
-1024 0!]>> 


<SETG PBREAK %<RSUBR-ENTRY '[RTOBRK PBREAK #DECL ("VALUE" <OR CHARACTER FALSE>)]
182>> 

<SETG COMPLETE %<RSUBR-ENTRY '[RTOBRK COMPLETE #DECL ("VALUE" FIX STRING FIX 
STRING FIX)] 219>> 

<SETG TPROMPT %<RSUBR-ENTRY '[RTOBRK TPROMPT #DECL ("VALUE" ATOM STRING VECTOR 
"OPTIONAL" <OR FALSE ATOM> <OR FALSE ATOM> <OR LIST FALSE>)] 274>> 

<SETG READER %<RSUBR-ENTRY '[RTOBRK READER #DECL ("VALUE" ANY <OR SYMTABLE 
VECTOR> STRING <OR TUPLE VECTOR STRING> <VECTOR [REST STRING]> "OPTIONAL" <OR 
FALSE ATOM> <OR FALSE ATOM> STRING)] 836>> 

<SETG SUBSTRUC* %<RSUBR-ENTRY '[RTOBRK SUBSTRUC* #DECL ("VALUE" <OR FALSE <
VECTOR ANY>> TUPLE FIX <VECTOR [4 ANY]>)] 1837>> 

<SETG READARGS %<RSUBR-ENTRY '[RTOBRK READARGS #DECL ("VALUE" ANY "TUPLE" TUPLE)
] 1920>> 

<SETG CALRDRINIT %<RSUBR-ENTRY '[RTOBRK CALRDRINIT #DECL ("VALUE" ATOM)] 2477>> 

<SETG KILLBUFFER %<RSUBR-ENTRY '[RTOBRK KILLBUFFER #DECL ("VALUE" ATOM)] 2842>> 

<SETG DATE-FIXUP %<RSUBR-ENTRY '[RTOBRK DATE-FIXUP #DECL ("VALUE" ANY STRING)] 
2875>> 

<SETG FSP-FIXUP %<RSUBR-ENTRY '[RTOBRK FSP-FIXUP #DECL ("VALUE" STRING STRING)] 
2945>> 

<SETG RUBOUTCHR %<RSUBR-ENTRY '[RTOBRK RUBOUTCHR #DECL ("VALUE" ATOM "OPTIONAL" 
<OR CHARACTER FIX>)] 3241>> 

<SETG BACKUPRUB %<RSUBR-ENTRY '[RTOBRK BACKUPRUB #DECL ("VALUE" ATOM "OPTIONAL" 
STRING)] 3415>> 

<SETG SYMBOL-ANALYZE %<RSUBR-ENTRY '[RTOBRK SYMBOL-ANALYZE #DECL ("VALUE" ATOM)]
3535>> 

<SETG READER-PARSE %<RSUBR-ENTRY '[RTOBRK READER-PARSE #DECL ("VALUE" ANY STRING
FIX)] 3854>> 

<SETG HELP-MESSAGE %<RSUBR-ENTRY '[RTOBRK HELP-MESSAGE #DECL ("VALUE" <OR ATOM 
FALSE>)] 4067>> 

<SETG WINNER-TAKE-ALL %<RSUBR-ENTRY '[RTOBRK WINNER-TAKE-ALL #DECL ("VALUE" ANY)
] 4234>> 

<SETG DO-POSSYM %<RSUBR-ENTRY '[RTOBRK DO-POSSYM #DECL ("VALUE" ATOM)] 4315>> 

<SETG CHECK-FOR-MULT %<RSUBR-ENTRY '[RTOBRK CHECK-FOR-MULT #DECL ("VALUE" FALSE)
] 4414>> 

<SETG RUBOUT-ONE %<RSUBR-ENTRY '[RTOBRK RUBOUT-ONE #DECL ("VALUE" ATOM)] 4446>> 

<SETG RETYPE-BUFFER %<RSUBR-ENTRY '[RTOBRK RETYPE-BUFFER #DECL ("VALUE" ATOM <OR
ATOM FALSE>)] 4509>> 

<SETG QUOTE-NEXT-CHAR %<RSUBR-ENTRY '[RTOBRK QUOTE-NEXT-CHAR #DECL ("VALUE" ATOM
)] 4593>> 

<SETG INPUT-FROM-TTY %<RSUBR-ENTRY '[RTOBRK INPUT-FROM-TTY #DECL ("VALUE" ATOM)]
4669>> 

<SET BREAKS '"	
î! "> 

<SETG COMMAPRINT %<RSUBR-ENTRY '[RTOBRK COMMAPRINT #DECL ("VALUE" <OR FALSE 
STRING> STRUCTURED "OPTIONAL" ANY)] 4710>> 

<SETG BLTREST %<RSUBR-ENTRY '[RTOBRK BLTREST #DECL ("VALUE" <OR TUPLE <PRIMTYPE 
VECTOR>> <OR TUPLE <PRIMTYPE VECTOR>> "TUPLE" TUPLE)] 4809>> 

<ENDPACKAGE>