1: nokill_bogus_lines ;
2
3: ENDDD
4	skip_past_newline
5	;
6
7: TABLE
8	skip_past_newline
9	"@table @code\n" catstr
10	;
11
12: ENDTABLE
13	skip_past_newline
14	"@end table\n"
15	catstr
16	;
17
18: QUICKREF
19	skip_past_newline
20	get_stuff_in_command
21	"&&~&&~&&\cr\tablerule\n"
22	quickref
23	;
24
25
26: ITEM
27	"@item " catstr ;
28
29: EXAMPLE
30	skip_past_newline
31
32	get_stuff_in_command nokill_bogus_lines translatecomments
33	courierize catstr
34
35	;
36
37: INODE
38	"@node " catstr skip_past_newline copy_past_newline catstr
39	;
40
41: CODE_FRAGMENT
42	EXAMPLE
43	;
44
45: SYNOPSIS
46	skip_past_newline
47	"@strong{Synopsis}\n" catstr
48	"@example\n" catstr
49	get_stuff_in_command
50	do_fancy_stuff
51	nokill_bogus_lines
52	indent
53	catstr
54	"@end example\n" catstr
55
56	;
57
58
59: ANSI_SYNOPSIS
60	skip_past_newline
61	"@strong{Synopsis}\n" catstr
62	"@example\n" catstr
63	get_stuff_in_command
64	do_fancy_stuff
65	nokill_bogus_lines
66	indent
67	catstr
68	"@end example\n" catstr
69
70	;
71
72: OLDTRAD_SYNOPSIS
73	skip_past_newline
74	"@strong{Traditional Synopsis}\n" catstr
75	"@example\n" catstr
76	get_stuff_in_command
77	do_fancy_stuff
78	nokill_bogus_lines
79	indent
80	catstr
81	"@end example\n" catstr
82
83	;
84
85: TRAD_SYNOPSIS
86	skip_past_newline
87
88	;
89
90: INDEX
91	"@findex " skip_past_newline copy_past_newline catstr catstr
92	;
93
94: FUNCTION
95	"@node "	- a
96	skip_past_newline
97	copy_past_newline
98	dup		- a x x
99	get_stuff_in_angle -a x y
100	swap
101	do_fancy_stuff
102	"@section " - a x x b
103	swap
104	remchar
105	"\n" - a x b x c
106	catstr  catstr 	catstr 	catstr 	catstr
107	;
108
109: bodytext
110	get_stuff_in_command
111	bulletize
112	courierize
113	do_fancy_stuff
114	catstr
115	"@*\n" catstr
116	;
117
118: asection
119	skip_past_newline
120	catstr
121	copy_past_newline
122	do_fancy_stuff catstr
123	bodytext
124	;
125
126: SECTION
127	"@section " asection  ;
128
129: SUBSECTION
130	"@section " asection  ;
131
132: SUBSUBSECTION
133	"@subsection " asection  ;
134
135: subhead
136	skip_past_newline
137	bodytext
138	;
139
140
141
142: DESCRIPTION
143	"@strong{Description}@*\n" catstr subhead ;
144
145: RETURNS
146	"@strong{Returns}@*\n" catstr subhead ;
147
148: ERRORS
149	"@strong{Errors}@*\n" catstr subhead ;
150
151
152: PORTABILITY
153	"@strong{Portability}@*\n" catstr subhead ;
154
155
156: WARNINGS
157	"@strong{Warnings}@*\n" catstr subhead ;
158
159
160
161: INTERNAL_FUNCTION
162	func ;
163
164
165: INTERNAL_DEFINITION
166	func ;
167
168
169: INTERNAL
170	func ;
171
172: TYPEDEF
173	FUNCTION ;
174
175
176
177: NEWPAGE
178	"@page\n" catstr subhead ;
179