1: DOCDD
2	skip_past_newline
3	get_stuff_in_command kill_bogus_lines catstr
4	;
5
6: ENDDD
7	skip_past_newline
8	;
9
10: EXAMPLE
11	skip_past_newline	
12	get_stuff_in_command kill_bogus_lines do_fancy_stuff translatecomments 
13	courierize catstr
14
15	;
16
17: INODE 
18	"@node " catstr skip_past_newline copy_past_newline catstr 
19	;
20
21: CODE_FRAGMENT
22	EXAMPLE 
23	;
24
25: COMMENT
26	skip_past_newline
27	get_stuff_in_command
28	drop
29	;
30
31: SYNOPSIS
32	skip_past_newline
33	"@strong{Synopsis}\n" catstr
34	"@example\n" catstr
35	get_stuff_in_command  
36	kill_bogus_lines
37	indent
38	catstr
39	"@end example\n" catstr
40
41	;
42
43: func
44	"@findex "	- a
45	skip_past_newline
46	copy_past_newline
47	dup		- a x x 
48	"@subsubsection @code{" - a x x b 
49	swap
50	remchar
51	"}\n" - a x b x c
52	catstr 	catstr 	catstr 	catstr 	catstr 
53	;
54
55: FUNCTION
56	"@findex "	- a
57	skip_past_newline
58	copy_past_newline
59	dup		- a x x 
60	"@subsubsection @code{" - a x x b 
61	swap
62	remchar
63	"}\n" - a x b x c
64	catstr 	catstr 	catstr 	catstr 	catstr 
65	;
66
67: bodytext
68	get_stuff_in_command 
69	bulletize
70	kill_bogus_lines
71	do_fancy_stuff
72	courierize
73	catstr
74	"\n" catstr
75	;
76
77: asection
78	skip_past_newline
79	catstr
80	copy_past_newline 	
81	do_fancy_stuff catstr 	
82	bodytext	
83	;
84
85: SECTION 
86	"@section " asection  ;
87
88: SUBSECTION
89	"@subsection " asection  ;
90
91: SUBSUBSECTION
92	"@subsubsection " asection  ;
93
94: subhead
95	skip_past_newline
96	bodytext
97	;
98
99
100
101	
102: DESCRIPTION 
103	"@strong{Description}@*\n" catstr subhead ;
104
105: RETURNS
106	"@strong{Returns}@*\n" catstr subhead ;
107
108: INTERNAL_FUNCTION
109	func ;
110
111
112: INTERNAL_DEFINITION 
113	func ;
114
115
116: INTERNAL
117	func ;
118
119: TYPEDEF
120	FUNCTION ;
121
122: SENUM
123	skip_past_newline
124	"Here are the possible values for @code{enum "
125	copy_past_newline remchar catstr
126	"}:\n\n" catstr catstr
127	;
128: ENUM
129	skip_past_newline
130	"@deffn {} "
131	copy_past_newline catstr catstr
132	;
133: ENUMX
134	skip_past_newline
135	"@deffnx {} "
136	copy_past_newline catstr
137	catstr
138	;
139: ENUMEQ
140	skip_past_newline
141	"@deffn {} "
142	copy_past_newline catstr catstr
143	skip_past_newline
144	;
145: ENUMEQX
146	skip_past_newline
147	"@deffnx {} "
148	copy_past_newline catstr
149	catstr
150	skip_past_newline
151	;
152: ENUMDOC
153	skip_past_newline
154	get_stuff_in_command
155	strip_trailing_newlines
156	catstr
157	"\n@end deffn\n" catstr
158	;
159