mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
29 lines
1.1 KiB
Plaintext
29 lines
1.1 KiB
Plaintext
'<PCODE "TRANSL">
|
|
|
|
<PACKAGE "TRANSL">
|
|
|
|
<ENTRY TRANSLATE TRANSLATE-DELETE TRANSLATE-CLEAR TRANSLATE-STY>
|
|
|
|
<USE "ITS" "STR">
|
|
|
|
<SETG TRANSLATE %<RSUBR!- '[ %<PCODE!- "TRANSL" 0> TRANSLATE #DECL ("VALUE" <OR
|
|
ATOM FALSE> <OR CHANNEL FALSE <PRIMTYPE WORD>> <VECTOR [REST <OR STRING FALSE>]>
|
|
<VECTOR [REST <OR STRING FALSE>]> "OPTIONAL" ANY ANY ANY ANY) SIXTOS USET
|
|
ITS-CALL STRTOX T "TRANAD" #FALSE ("NO ROOM IN SYSTEM FOR NEW TRANSLATION ENTRY"
|
|
) "TRANDL" #FALSE ("NO SUCH TRANSLATION ENTRY TO DELETE") "TRANCL" "TTY" "INPUT"
|
|
"OUTPUT" "INFERIORS"]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,TRANSLATE PGLUE ![717225980 0!]>>
|
|
|
|
|
|
<SETG TRANSLATE-DELETE %<RSUBR-ENTRY '[TRANSLATE TRANSLATE-DELETE #DECL ("VALUE"
|
|
<OR ATOM FALSE> <OR CHANNEL FALSE <PRIMTYPE WORD>> <VECTOR <OR STRING FALSE> [
|
|
REST <OR STRING FALSE>]> "OPTIONAL" ANY ANY ANY)] 169>>
|
|
|
|
<SETG TRANSLATE-CLEAR %<RSUBR-ENTRY '[TRANSLATE TRANSLATE-CLEAR #DECL ("VALUE" <
|
|
OR ATOM FALSE> <OR CHANNEL FALSE <PRIMTYPE WORD>> "OPTIONAL" ANY ANY)] 300>>
|
|
|
|
<SETG TRANSLATE-STY %<RSUBR-ENTRY '[TRANSLATE TRANSLATE-STY #DECL ("VALUE" <OR
|
|
ATOM FALSE> CHANNEL <OR CHANNEL <PRIMTYPE WORD>>)] 379>>
|
|
|
|
<ENDPACKAGE>
|