]>
Commit | Line | Data |
---|---|---|
8a0efa53 CF |
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 ; |