![[BACK]](/cvsweb/icons/back.gif){kind=icon}
Return to refs.m CVS log ![[TXT]](/cvsweb/icons/text.gif){kind=icon}
![[DIR]](/cvsweb/icons/dir.gif){kind=icon}
Up to [Research Unix] / researchv8dc / cmd / monk / db|
Return to refs.m CVS log | Up to [Research Unix] / researchv8dc / cmd / monk / db |
1.1 root 1: |environment(reference_placement;
2: verbatim on,
3: ref_ieee_begin,
4: ref_ieee_end,
5: ref_ieee_init,
6:
7: ref_ieee_other,
8: ref_ieee_journal,
9: ref_ieee_book,
10: ref_ieee_article,
11: ref_ieee_report,
12: ref_ieee_tm,
13:
14: reference placement;)
15: |comment<summary: reference_placement (produce references here)>
16:
17: |environment(ref_ieee_begin;
18: divert.input on reference_begin_definition,
19: blank.lines, incr reference_counter,
20: indent 0.3i, indent.line -0.3i,
21: text "[", string reference_mark, text "]",
22: horizontal.motion "|0.3i", concatenate,
23: if else macro_argument_eq(1, 0),
24: macro reference_other_definition,
25: if else,
26: if else macro_argument_eq(1, 1),
27: macro reference_journal_definition,
28: if else,
29: if else macro_argument_eq(1, 2),
30: macro reference_book_definition,
31: if else,
32: if else macro_argument_eq(1, 3),
33: macro reference_article_definition,
34: if else,
35: if else macro_argument_eq(1, 4),
36: macro reference_report_definition,
37: if else,
38: if else macro_argument_eq(1, 5),
39: macro reference_tm_definition,
40: if else,
41: error "Bad argument passed to reference_begin_definition",
42: new.line;)
43:
44: |environment(ref_ieee_end;
45: divert.input on reference_end_definition,
46: clear string reference_author reference_book reference_location
47: reference_date reference_editor reference_government
48: reference_institution reference_journal reference_keyword reference_tm
49: reference_number reference_other reference_page reference_report
50: reference_title reference_volume,
51: clear reference_authors reference_others reference_pages reference_titles;)
52:
53: |environment(ref_ieee_init;
54: new.page, blank.lines 4, center on, font.size +1, font bold,
55: text "REFERENCES", blank.lines 4,
56: macro reference_end_definition,
57: blank.lines;)
58:
59: |environment(ref_ieee_other;
60: divert.input on reference_other_definition,
61: if begin not_null_string(reference_author),
62: string reference_author, text ",",
63: if end,
64: set punctation_string ".",
65: if not_null_string(reference_other),
66: set string punctation_string ",",
67: if begin not_null_string(reference_title),
68: text "\& ", temporary.font italics, string reference_title,
69: temporary.font, string punctation_string,
70: if end,
71: if begin not_null_string(reference_other),
72: text "\& ", string reference_other,
73: if end,
74: if begin not_null_string(reference_date),
75: text "\& (", string reference_date, text ").",
76: if end,
77: new.line;)
78:
79: |environment(ref_ieee_journal;
80: divert.input on reference_journal_definition,
81: string reference_author, text ",",
82: if begin not_null_string(reference_title),
83: string open_double_quote, string reference_title, text ",",
84: string close_double_quote,
85: if end,
86: clear string punctation_string,
87: if null_string(reference_volume),
88: set string punctation_string ",",
89: text "\& ", temporary.font italics, string reference_journal,
90: temporary.font, string punctation_string,
91: if begin not_null_string(reference_volume),
92: temporary.font bold, string reference_volume,
93: temporary.font,
94: if end,
95: if begin not_null_string(reference_number),
96: string punctation_string,
97: text "(", string reference_number, text ")",
98: if end,
99: if begin not_null_string(reference_page),
100: if else begin gt(reference_pages, 0),
101: text "\& pp. ",
102: if end,
103: if else begin,
104: text "\& p. ",
105: if end,
106: string reference_page,
107: if end,
108: if not_null_string(reference_institution),
109: if begin null_string(reference_report),
110: text "\& ", string reference_institution, text ",",
111: if end,
112: text "\& (", string reference_date, text ").",
113: if not_null_string(reference_other),
114: string reference_other,
115: new.line;)
116:
117: |environment(ref_ieee_book;
118: divert.input on reference_book_definition,
119: string reference_author, text ", ",
120: temporary.font italics, string reference_title, temporary.font, text ",",
121: if begin not_null_string(reference_volume),
122: string reference_volume, text ",",
123: if end,
124: clear string punctation_string,
125: if not_null_string(reference_location),
126: set string punctation_string ",",
127: text "\& ", string reference_institution, string punctation_string,
128: if begin not_null_string(reference_location),
129: string reference_location,
130: if end,
131: text "\& (", string reference_date, text ").",
132: if begin not_null_string(reference_government),
133: text "\& Gov't. ordering no. ", string reference_government,
134: if end,
135: if not_null_string(reference_other),
136: string reference_other,
137: new.line;)
138:
139: |environment(ref_ieee_article;
140: divert.input on reference_article_definition,
141: string reference_author, text ", ",
142: string open_double_quote, string reference_title, text ",",
143: string close_double_quote,
144: if begin not_null_string(reference_page),
145: if else begin gt(reference_pages, 0),
146: text "\& pp. ",
147: if end,
148: if else begin,
149: text "\& p. ",
150: if end,
151: string reference_page,
152: if end,
153: text "\& in ", temporary.font italics, string reference_book,
154: temporary.font, text ",",
155: if begin not_null_string(reference_editor),
156: text "\& ed. ", string reference_editor, text ",",
157: if end,
158: clear string punctation_string,
159: if not_null_string(reference_location),
160: set string punctation_string ",",
161: if begin not_null_string(reference_institution),
162: text "\& ", string reference_institution, string punctation_string,
163: if end,
164: if begin not_null_string(reference_location),
165: text "\& ", string reference_location,
166: if end,
167: text "\& (", string reference_date, text ").",
168: if not_null_string(reference_other),
169: string reference_other,
170: new.line;)
171:
172: |environment(ref_ieee_report;
173: divert.input on reference_report_definition,
174: string reference_author, text ", ",
175: string open_double_quote, string reference_title, text ",",
176: string close_double_quote,
177: clear string punctation_string,
178: if not_null_string(reference_institution),
179: set string punctation_string ",",
180: if not_null_string(reference_location),
181: set string punctation_string ",",
182: string reference_report, string reference_government,
183: string punctation_string,
184: if begin not_null_string(reference_institution),
185: clear string punctation_string,
186: if not_null_string(reference_location),
187: set string punctation_string ",",
188: string reference_institution, string punctation_string,
189: if end,
190: if begin not_null_string(reference_location),
191: string reference_location,
192: if end,
193: text "\& (", string reference_date, text ").",
194: if not_null_string(reference_other),
195: string reference_other,
196: new.line;)
197:
198: |environment(ref_ieee_tm;
199: divert.input on reference_tm_definition,
200: string reference_author, text ", ",
201: temporary.font italics, string reference_title,
202: temporary.font, text ", ",
203: string reference_tm, text ".",
204: new.line;)
This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.