Return to rp.m CVS log

Up to [Research Unix] / researchv8dc / cmd / monk / db

Annotation of researchv8dc/cmd/monk/db/rp.m, revision 1.1

1.1     ! root        1: |include(envir.h)
        !             2: |include(preproc.h)
        !             3: |include(monk.h)
        !             4: |include(macro.h)
        !             5: 
        !             6: |include(titlebox.h)
        !             7: |include(titlebox.m)
        !             8: 
        !             9: |define_counter(i_plus_one, i)
        !            10: 
        !            11: |environment(titlebox;
        !            12:        ;
        !            13: 
        !            14:        new.page, fill off, size +2, font bold, center on,
        !            15:        macro title_string, font roman, size -2, fill on,
        !            16: |for i in 1 2 3 4 5 6 7 8 9 [
        !            17:        if begin ge(author_counter, $i),
        !            18:                new.line, size +1, temporary.font italics,
        !            19:                string author_array($i), temporary.font, size -1,
        !            20:                if begin unequal_string_registers(location_array($i), location_array($i+1)),
        !            21:                        if begin equal_string(location_array($i), CM),
        !            22:                                text "Carnegie-Mellon University", new.line,
        !            23:                                text "Electrical and Computer Engineering Department", new.line,
        !            24:                                text "Pittsburgh, PA 15213", new.line,
        !            25:                        if end,
        !            26:                        if begin equal_string(location_array($i), HL),
        !            27:                                text "AT&T Bell Laboratories", new.line,
        !            28:                                text "Short Hills, New Jersey 07078", new.line,
        !            29:                        if end,
        !            30:                        if begin equal_string(location_array($i), HO),
        !            31:                                text "AT&T Bell Laboratories", new.line,
        !            32:                                text "Holmdel, New Jersey 07733", new.line,
        !            33:                        if end,
        !            34:                        if begin equal_string(location_array($i), MH),
        !            35:                                text "AT&T Bell Laboratories", new.line,
        !            36:                                text "Murray Hill, New Jersey 07974", new.line,
        !            37:                        if end,
        !            38:                        if begin equal_string(location_array($i), PY),
        !            39:                                text "AT&T Bell Laboratories", new.line,
        !            40:                                text "Piscataway, New Jersey 08854", new.line,
        !            41:                        if end,
        !            42:                        if begin equal_string(location_array($i), WH),
        !            43:                                text "AT&T Bell Laboratories", new.line,
        !            44:                                text "Whippany, New Jersey 07981", new.line,
        !            45:                        if end,
        !            46:                if end,
        !            47:        if end,
        !            48: ]
        !            49: 
        !            50:        blank.lines, size +1, temporary.font italics "ABSTRACT",
        !            51:        size -1, center off, blank.lines, macro abstract_string, blank.lines,
        !            52: )
        !            53:        |comment<summary: titlebox (produce title box here)>
        !            54: 
        !            55: |environment(document_begin_and_end_of_text;
        !            56:        clear author_counter document_counter;)

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