Return to cspress CVS log

Up to [Research Unix] / researchv10no / cmd / monk / o.db

researchv10 Norman

|associate(author;
incr A, clear T,
clear string T1 T2 T3
T4 T5 T6;

store string A\nA T1,
store string I\nA T2,
store string L\nA T3,
store string D\nA T4,
store string E\nA T5,
store string R\nA T6;

[name $;
incr T, set string T1 $;]
[initials $;
incr T, set string T2 $;]
[location $;
incr T, set string T3 $;]
[department $;
incr T, set string T4 $;]
[extension $;
incr T, set string T5 $;]
[room $;
incr T, set string T6 $;]
[$;
incr T,
set string T\nT $;])
|comment<summary: author (name, initials, location, department, extension, room for title box and coversheet)>

|associate(document;
incr D, clear T,
clear string T1 T2 T3;

store string S\nD T1,
store string F\nD T2,
store string W\nD T3;

[number $;
incr T, set string T1 $;]
[file_case $;
incr T, set string T2 $;]
[work_program $;
incr T, set string T3 $;]
[$;
incr T,
set string T\nT $;])
|comment<summary: document (number, file_case, work_program for title box and coversheet)>

|environment(title;
divert.input on TI;)
|comment<summary: title (title of document for title box and coversheet)>

|environment(date;
divert.string DT;)
|comment<summary: date (date of tm for title box and coversheet)>

|environment(abstract;
divert.input on AS;

sawabstract on)
|comment<summary: abstract (abstract for coversheet)>

|environment(keywords;
divert.input on KW;

sawkeywords on)
|comment<summary: keywords (keywords for cover sheet)>

|environment(titlebox;
;

new.page, indent.line +4.375i, string LO,
blank.lines 2, size -2, remember P0,
page.offset -.5i, text "subject:", new.line,
return P0, indent +4.875i, text "date:", blank.lines,
text "from:", indent -4.875i, new.line, page.offset +.5i, size +2,
line.length -3i, font bold, return P0, fill off,
macro TI, fill on, line.length +3i, new.line,
size -1,
|for i in 1 2 3 4 5 6 7 8 9 [
if begin "\nD>=$i",
new.line, text "Work Program ", string W$i,
text " File Case ", string F$i,
if end,
]
size +1,
return P0, indent +4.75i, line.length +3i,
string DT,
|for i in 1 2 3 4 5 6 7 8 9 [
if begin "\nA>=$i",
blank.lines,
string A$i, new.line,
string L$i, text " ",
string D$i, new.line,
string R$i, text " ",
string E$i,
if end,
]
line.length -3i, spacing on, blank.lines, fill off,
string S1, fill on, indent -4.75i, blank.lines 3,
center on, font roman, text italics "TECHNICAL MEMORANDUM",
center off, minimum.lines 2)
|comment<summary: titlebox (produce title box here)>


|environment(titlebox;
minimum.lines 2.75i;)
|comment<summary: titlebox (produce title box here)>

|environment(:document;
clear A D,
line.length 5.25i,
page.length 10.625i,
inline off, size 12, inline on, space 14, reference.option rp;

clear string Ts)

|comment<the above `clear string Ts' and the ` global.h'
are a kludge to fix a problem troff has with files that don't end in \n>

|environment(:document_save;
;)

|environment(:document_restore;
;)

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.