mirror of
https://github.com/PDP-10/its.git
synced 2026-01-11 23:53:12 +00:00
21 lines
753 B
Plaintext
21 lines
753 B
Plaintext
'<PCODE "TEMHAK">
|
|
|
|
<PACKAGE "TEMHAK">
|
|
|
|
<ENTRY TEMPLATE-DUMP FILE-TEMPLATE>
|
|
|
|
<USE "TEMHLP">
|
|
|
|
<SETG TEMPLATE-DUMP %<RSUBR!- '[ %<PCODE!- "TEMHAK" 0> TEMPLATE-DUMP #DECL (
|
|
"VALUE" <OR ATOM <FALSE STRING [REST STRING]>> ATOM) GROUP-DUMP GROUP-LOAD
|
|
TEMPLATE-PUT TEMPLATE-GET TEMPLATE-LENGTH TEMPLATE? T #FALSE ("NOT A GROUP")
|
|
TEMPLATE BUILD-TEMPLATE GETTER-DATA PUTTER-DATA TEMPLATE-DATA QUOTE DECL SETG
|
|
AND <ASSIGNED? GLUE> .GLUE PUT GVAL GLUE USE "TEMPLATE" TFORM "TEMHLP" FILE2 (
|
|
STRING) CHANNEL " NBIN" %<RGLOC PRINT T>]>>
|
|
<AND <ASSIGNED? GLUE> .GLUE <PUT ,TEMPLATE-DUMP PGLUE ![715915263 -16 0!]>>
|
|
|
|
<SETG FILE-TEMPLATE %<RSUBR-ENTRY '[TEMPLATE-DUMP FILE-TEMPLATE #DECL ("VALUE" <
|
|
OR ATOM FALSE> STRING "OPTIONAL" STRING)] 360>>
|
|
|
|
<ENDPACKAGE>
|