Return to research CVS log

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

Annotation of researchv10no/cmd/monk/o.db/research, revision 1.1.1.1

1.1       root        1: 
                      2: 
                      3: 
                      4: 
                      5: 
                      6: 
                      7: 
                      8: 
                      9: 
                     10: 
                     11: 
                     12: 
                     13: 
                     14: 
                     15: 
                     16: 
                     17: 
                     18: 
                     19: 
                     20: 
                     21: 
                     22: 
                     23: 
                     24: 
                     25: 
                     26: 
                     27: 
                     28: |associate(department;;;
                     29: 
                     30: [name $;
                     31: set string N0 $;]
                     32: [number $;
                     33: set string N1 $;])
                     34: |comment<summary: department (name, number for title box)>
                     35: 
                     36: |associate(date;;;
                     37: 
                     38: [report $;
                     39: set string DT $;]
                     40: [range $;
                     41: set string N2 $;])
                     42: |comment<summary: date (report, range for title box)>
                     43: 
                     44: |associate(author;;;
                     45: 
                     46: [name $;
                     47: set string N3 $;]
                     48: [number $;
                     49: set string N4 $;])
                     50: |comment<summary: author (name, number for footer and title box)>
                     51: 
                     52: |environment(titlebox;
                     53: 
                     54: font bold, line.length +.5i, page.offset -.25i,
                     55: spacing on, goto .5i, blank.lines -1,
                     56: set string Ts "`Research Report`Department ",
                     57: add string.from.string Ts N1,
                     58: add string Ts "`",
                     59: add string.from.string Ts DT,
                     60: add string Ts "`",
                     61: title Ts,
                     62: 
                     63: blank.lines .5,
                     64: set string Ts "`",
                     65: add string.from.string Ts N2,
                     66: add string Ts "`",
                     67: add string.from.string Ts N0,
                     68: add string Ts "`\s-1WPN\s+1 ",
                     69: add string.from.string Ts N4,
                     70: add string Ts "`",
                     71: title Ts,
                     72: 
                     73: page.offset +.25i, line.length -.5i, minimum.lines 1;)
                     74: |comment<summary: titlebox (title box)>
                     75: 
                     76: |associate(paragraph;
                     77: minimum.lines .5, clear string Ts;;
                     78: 
                     79: [indented;
                     80: indent.line 3;]
                     81: [i;
                     82: indent.line 3;])
                     83: |comment<summary: paragraph (i, indented)>
                     84: 
                     85: |associate(p;
                     86: minimum.lines .5, clear string Ts;;
                     87: 
                     88: [indented;
                     89: indent.line 3;]
                     90: [i;
                     91: indent.line 3;])
                     92: |comment<summary: p (alias for paragraph)>
                     93: 
                     94: |environment(section;
                     95: minimum.lines .5, protect, font bold;
                     96: 
                     97: paragraph)
                     98: |comment<summary: section (section)>
                     99: 
                    100: |environment(signature;
                    101: minimum.lines 3,
                    102: remember P0,
                    103: indent.line .3125i,
                    104: text "AT&T \(em PROPRIETARY", new.line,
                    105: text "Use pursuant to Company Instructions", new.line,
                    106: return P0,
                    107: indent 3i, blank.lines 1,
                    108: tab.stops 1.5iC, fill off, tab, string N3, tab;)
                    109: |comment<summary: signature (signature)>
                    110: 
                    111: |environment(:document;
                    112: page.offset +.25i;)
                    113: 
                    114: |environment(:document_save;
                    115: ;)
                    116: 
                    117: |environment(:document_restore;
                    118: ;)

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