mirror of
https://github.com/PDP-10/its.git
synced 2026-03-01 09:40:56 +00:00
67 lines
3.4 KiB
Plaintext
67 lines
3.4 KiB
Plaintext
'<PCODE "1CALTOP">
|
|
<PACKAGE "CALTOP">
|
|
|
|
<ENTRY TOPCOMTABLE>
|
|
|
|
<USE "CALDES" "CALSYM" "LEX" "CALUTL" "CALCOM" "COMMAND" "MUDCAL" "CALRDR"
|
|
"JOBS" "TAILOR">
|
|
|
|
<SETG COMBINE-SYMTABS %<RSUBR!- '[ %<PCODE!- "1CALTOP" 0> COMBINE-SYMTABS #DECL
|
|
("VALUE" ANY) MAKEMST COMBSYMS "Combined commands and symbol-tables" %<RGLOC
|
|
COMTITLES T> %<RGLOC COMTABLE T> %<RGLOC COMBSYMS T>]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,COMBINE-SYMTABS PGLUE ![805044224!]>>
|
|
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,COMBINE-SYMTABS GLUE ![17231769648 46186559 2!
|
|
]>>
|
|
|
|
<SET TOPCOMTABLE <MAKELST "Top level commands" '["activate.subsystem" <
|
|
ACT-SUBSYSTEM> "commands" <CALICO-COMMAND <FUNCTION (A) <COND (<TYPE? .A
|
|
SYMTABLE> <TABLEPRINT .A>) (ELSE <TERPRI> <PRINC "No such command table.">)>> [,
|
|
COMTITLES "from" '[
|
|
"Type the name of the current command table
|
|
whose contents you wish to examine. Type ^F
|
|
to see the titles of all current tables." ""] ["SYM"]] [,COMTITLES]> "describe"
|
|
<CALICO-COMMAND ,CALDESC '[<COMBINE-SYMTABS> "command" [
|
|
"Type the name of the command or
|
|
symbol-table you would like described." ""] ["MULT" "SYM"]] '[] "SEGMENT-EACH">
|
|
"who" <LISTF "TTY:"> "listf" <CALICO-COMMAND ,LISTF '[[] "Device" [
|
|
"Type the name of the device
|
|
whose directory you wish to list." ""] ["FILE"]] '["DSK:"]> "print.file" <
|
|
CALICO-COMMAND ,FILEPRINT '[[] "" [
|
|
"Type the name of the file you wish to print." ""] ["FILE"]] '[""]> "copy.file"
|
|
<CALICO-COMMAND ,COPY-FILE '[[] "from" [
|
|
"Type the name of the file to be copied from." ""] ["FILE"] [] "to" [
|
|
"Type the name of the new file to get the
|
|
copy of the original file." ""] ["FILE"]]> "copy.to.printer" <CALICO-COMMAND ,
|
|
FILETPL '[[] "from" [
|
|
"Type the name of the file to be copied to
|
|
the line-printer." ""] ["FILE"]]> "delete.file" <CALICO-COMMAND ,RENAME '[[]
|
|
"named" ["Type the name of the file you wish to be
|
|
deleted." ""] ["FILE"]] '[] "PRINT-RESULT"> "rename.file" <CALICO-COMMAND <
|
|
FUNCTION (A B) <RENAME .A TO .B>> '[[] "from" [
|
|
"Type the current name of the file to be
|
|
renamed." ""] ["FILE"] [] "to" ["Type the new name to be given to the file." ""]
|
|
["FILE"]] '[] "PRINT-RESULT"> "execute.file" <CALICO-COMMAND ,XFILE '[[] "from"
|
|
["Type the name of the file whose contents is to
|
|
be used as console input." ""] ["FILE"]] '["MUDCAL (INIT)"]> "script" <
|
|
CALICO-COMMAND ,TTY-SCRIPT '[[] "to" [
|
|
"Type the name of the file into which the
|
|
tty script should be placed." ""] ["FILE"]]> "end.script" <END-TTY-SCRIPT>
|
|
"end.all.scripts" <END-ALL-TTY-SCRIPT> "turn.tty.off" <TTY-SILENCE>
|
|
"turn.tty.on" <TTY-UNSILENCE> "kill" <CALICO-COMMAND ,KILL-TABLE [,COMTITLES
|
|
"table title" '[
|
|
"Type the title of the table to be removed
|
|
from the current command set." ""] '["SYM"]] [<1 <2 ,COMTABLE>>]> "quit" <
|
|
CALICO-QUIT> "recurse.to.muddle" <RECURSEFCN> "fload" <CALICO-COMMAND ,FLOAD '[[
|
|
] "" ["Type the name of the file you want to load." ""] ["FILE"]] '[""]>
|
|
"continue" <ERRET T> "erret" <CALICO-COMMAND ,ERRET '[[] "value" [
|
|
"Type the value that you want to ERRET." ""] ["OBJECTS"]] '[] "SEGMENT-EACH">
|
|
"top.level" <TOP-LEVEL-FCN> "evaluate" <CALICO-COMMAND ,PRINT '[[] "" [
|
|
"Type the MUDDLE object you want to evaluate." ""] ["FORM"]] '[()]> "frames" <
|
|
FRAMES> "tailor" <TAILOR> "run" <CALICO-COMMAND ,RUN '[[] "job" [
|
|
"type the name of the job to be run as an inferior" "ARC:CALSUB;RUN HELPM"] [
|
|
"LINE"] [] "JCL" ["type a command stream to be given to the job."
|
|
"ARC:CALSUB;RUN HELPM"] ["LINE"]] ["TIME"] "SEGMENT-EACH">] 2>>
|
|
|
|
<ENDPACKAGE>
|