Mercurial > hg > sv-dependency-builds

comparison src/fftw-3.3.3/doc/FAQ/m-html.pl @ 10:37bf6b4a2645

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Add FFTW3
author Chris Cannam
date Wed, 20 Mar 2013 15:35:50 +0000
parents
children
comparison
equal deleted inserted replaced
9:c0fb53affa76 10:37bf6b4a2645
1 ## HTML output
2 # Copyright (C) 1993-1995 Ian Jackson.
3
4 # This file is free software; you can redistribute it and/or modify
5 # it under the terms of the GNU General Public License as published by
6 # the Free Software Foundation; either version 2, or (at your option)
7 # any later version.
8
9 # It is distributed in the hope that it will be useful,
10 # but WITHOUT ANY WARRANTY; without even the implied warranty of
11 # MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
12 # GNU General Public License for more details.
13
14 # You should have received a copy of the GNU General Public License
15 # along with GNU Emacs; see the file COPYING. If not, write to
16 # the Free Software Foundation, Inc., 59 Temple Place - Suite 330,
17 # Boston, MA 02111-1307, USA.
18
19 # (Note: I do not consider works produced using these BFNN processing
20 # tools to be derivative works of the tools, so they are NOT covered
21 # by the GPL. However, I would appreciate it if you credited me if
22 # appropriate in any documents you format using BFNN.)
23
24 %saniarray= ('<','lt', '>','gt', '&','amp', '"','quot');
25
26 sub html_init {
27 $html_prefix = './'.$prefix;
28 $html_prefix =~ s:^\.//:/:;
29 system('rm','-r',"$html_prefix.html");
30 system('mkdir',"$html_prefix.html");
31 open(HTML,">$html_prefix.html/index.html");
32 print HTML "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2//EN\">\n";
33 print HTML "<html>\n";
34 $html_needpara= -1;
35 $html_end='';
36 chop($html_date=`date '+%d %B %Y'`);
37 chop($html_year=`date '+%Y'`);
38 }
39
40 sub html_startup {
41 print HTML <<END;
42 <head><title>
43 $user_title
44 </title>
45 <link rev="made" href="mailto:$user_authormail">
46 <link rel="Contents" href="index.html">
47 <link rel="Start" href="index.html">
48 <META name="description"
49 content="Frequently asked questions and answers (FAQ) for FFTW.">
50 <link rel="Bookmark" title="FFTW FAQ" href="index.html">
51 <LINK rel="Bookmark" title="FFTW Home Page"
52 href="http://www.fftw.org">
53 <LINK rel="Bookmark" title="FFTW Manual"
54 href="http://www.fftw.org/doc/">
55 </head><body text="#000000" bgcolor="#FFFFFF"><h1>
56 $user_title
57 </h1>
58 END
59 &html_readrefs($_[0]);
60 if (length($user_copyrightref)) {
61 local ($refn) = $qrefn{$user_copyrightref};
62 if (!length($refn)) {
63 warn "unknown question (copyright) `$user_copyrightref'";
64 }
65 $refn =~ m/(\d+)\.(\d+)/;
66 local ($s,$n) = ($1,$2);
67 $html_copyrighthref= ($s == $html_sectionn)?'':"section$s.html";
68 $html_copyrighthref.= "#$qn2ref{$s,$n}";
69 }
70 }
71
72 sub html_close {
73 print HTML $html_end,"<address>\n$user_author\n";
74 print HTML "- $html_date\n</address><br>\n";
75 print HTML "Extracted from $user_title,\n";
76 print HTML "<A href=\"$html_copyrighthref\">" if length($html_copyrighthref);
77 print HTML "Copyright &copy; $html_year $user_copyholder.";
78 print HTML "</A>" if length($html_copyrighthref);
79 print HTML "\n</body></html>\n";
80 close(HTML);
81 }
82
83 sub html_startmajorheading {
84 local ($ref, $this,$next,$back) = @_;
85 local ($nextt,$backt);
86 $this =~ s/^Section /section/; $html_sectionn= $ref;
87 $next =~ s/^Section /section/ && ($nextt= $sn2title{$'});
88 $back =~ s/^Section /section/ ? ($backt= $sn2title{$'}) : ($back='');
89 if ($html_sectionn) {
90 &html_close;
91 open(HTML,">$html_prefix.html/$this.html");
92 print HTML "<!DOCTYPE HTML PUBLIC \"-//W3C//DTD HTML 3.2//EN\">\n";
93 print HTML "<html>\n";
94 $html_end= "<hr>\n";
95 $html_end.= "Next: <a href=\"$next.html\" rel=precedes>$nextt</a>.<br>\n"
96 if $next;
97 $html_end.= "Back: <a href=\"$back.html\" rev=precedes>$backt</a>.<br>\n"
98 if $back;
99 $html_end.= "<a href=\"index.html\" rev=subdocument>";
100 $html_end.= "Return to contents</a>.<p>\n";
101 print HTML <<END;
102 <head><title>
103 $user_brieftitle - Section $html_sectionn
104 </title>
105 <link rev="made" href="mailto:$user_authormail">
106 <link rel="Contents" href="index.html">
107 <link rel="Start" href="index.html">
108 END
109 print HTML "<link rel=\"Next\" href=\"$next.html\">" if $next;
110 print HTML "<link rel=\"Previous\" href=\"$back.html\">" if $back;
111 print HTML <<END;
112 <link rel="Bookmark" title="FFTW FAQ" href="index.html">
113 </head><body text="#000000" bgcolor="#FFFFFF"><h1>
114 $user_brieftitle - Section $html_sectionn <br>
115 END
116 $html_needpara= -1;
117 }
118 else {
119 print HTML "\n<h1>\n";
120 $html_needpara=-1;
121 }
122 }
123
124 sub html_endmajorheading {
125 print HTML "\n</h1>\n\n";
126 $html_needpara=-1;
127 }
128
129 sub html_startminorheading {
130 local ($ref, $this) = @_;
131 $html_needpara=0;
132 $this =~ m/^Question (\d+)\.(\d+)/;
133 local ($s,$n) = ($1,$2);
134 print HTML "\n<h2><A name=\"$qn2ref{$s,$n}\">\n";
135 }
136
137 sub html_endminorheading {
138 print HTML "\n</A></h2>\n\n";
139 $html_needpara=-1;
140 }
141
142 sub html_newsgroup { &arg('newsgroup'); }
143 sub html_endnewsgroup { &endarg('newsgroup'); }
144 sub html_do_newsgroup {
145 print HTML "<A href=\"news:$_[0]\"><code>$_[0]</code></A>";
146 }
147
148 sub html_email { &arg('email'); }
149 sub html_endemail { &endarg('email'); }
150 sub html_do_email {
151 print HTML "<A href=\"mailto:$_[0]\"><code>$_[0]</code></A>";
152 }
153
154 sub html_courier { print HTML "<code>" ; }
155 sub html_endcourier { print HTML "</code>"; }
156 sub html_italic { print HTML "<i>" ; }
157 sub html_enditalic { print HTML "</i>" ; }
158
159 sub html_docref { &arg('docref'); }
160 sub html_enddocref { &endarg('docref'); }
161 sub html_do_docref {
162 if (!defined($html_refval{$_[0]})) {
163 warn "undefined HTML reference $_[0]";
164 $html_refval{$n}='UNDEFINED';
165 }
166 print HTML "<A href=\"$html_refval{$_[0]}\">";
167 &recurse($_[0]);
168 print HTML "</A>";
169 }
170
171 sub html_readrefs {
172 local ($p);
173 open(HTMLREFS,"<$_[0]") || (warn("failed to open HTML refs $_[0]: $!"),return);
174 while(<HTMLREFS>) {
175 next if m/^\\\s/;
176 s/\s*\n$//;
177 if (s/^\\prefix\s*//) {
178 $p= $'; next;
179 } elsif (s/^\s*(\S.*\S)\s*\\\s*//) {
180 $_=$1; $v=$';
181 s/\\\\/\\/g;
182 $html_refval{$_}= $p.$v;
183 } else {
184 warn("ununderstood line in HTML refs >$_<");
185 }
186 }
187 close(HTMLREFS);
188 }
189
190 sub html_ftpsilent { &arg('ftpsilent'); }
191 sub html_endftpsilent { &endarg('ftpsilent'); }
192 sub html_do_ftpsilent {
193 if ($_[0] =~ m/:/) {
194 $html_ftpsite= $`;
195 $html_ftpdir= $'.'/';
196 } else {
197 $html_ftpsite= $_[0];
198 $html_ftpdir= '';
199 }
200 }
201
202 sub html_ftpon { &arg('ftpon'); }
203 sub html_endftpon { &endarg('ftpon'); }
204 sub html_do_ftpon {
205 #print STDERR "ftpon($_[0])\n";
206 $html_ftpsite= $_[0]; $html_ftpdir= '';
207 print HTML "<code>";
208 &recurse($_[0]);
209 print HTML "</code>";
210 }
211
212 sub html_ftpin { &arg('ftpin'); }
213 sub html_endftpin { &endarg('ftpin'); }
214 sub html_do_ftpin {
215 #print STDERR "ftpin($_[0])\n";
216 print HTML "<A href=\"ftp://$html_ftpsite$html_ftpdir$_[0]\"><code>";
217 &recurse($_[0]);
218 print HTML "</code></A>";
219 }
220
221 sub html_text {
222 print HTML "\n<p>\n" if $html_needpara > 0;
223 $html_needpara=0;
224 $html_stuff= &html_sanitise($_[0]);
225 while ($html_stuff =~ s/^(.{40,70}) //) {
226 print HTML "$1\n";
227 }
228 print HTML $html_stuff;
229 }
230
231 sub html_tab {
232 $htmltabignore++ || warn "html tab ignored";
233 }
234
235 sub html_newline { print HTML "<br>\n" ; }
236 sub html_startverbatim { print HTML "<pre>\n" ; }
237 sub html_verbatim { print HTML &html_sanitise($_[0]),"\n"; }
238 sub html_endverbatim { print HTML "</pre>\n" ; $html_needpara= -1; }
239
240 sub html_endpara {
241 $html_needpara || $html_needpara++;
242 }
243
244 sub html_finish {
245 &html_close;
246 }
247
248 sub html_startindex {
249 print HTML "<ul>\n";
250 }
251
252 sub html_endindex {
253 print HTML "</ul><hr>\n";
254 }
255
256 sub html_startindexitem {
257 local ($ref,$qval) = @_;
258 $qval =~ m/Q(\d+)\.(\d+)/;
259 local ($s,$n) = ($1,$2);
260 print HTML "<li><a href=\"";
261 print HTML ($s == $html_sectionn)?'':"section$s.html";
262 print HTML "#$qn2ref{$s,$n}\" rel=subdocument>Q$s.$n. ";
263 $html_indexunhead='';
264 }
265
266 sub html_startindexmainitem {
267 local ($ref,$s) = @_;
268 $s =~ m/\d+/; $s= $&;
269 print HTML "<br><br>" if ($s > 1);
270 print HTML "<li><b><font size=\"+2\"><a href=\"section$s.html\" rel=subdocument>Section $s. ";
271 $html_indexunhead='</font></b>';
272 }
273
274 sub html_endindexitem {
275 print HTML "</a>$html_indexunhead\n";
276 }
277
278 sub html_startlist {
279 print HTML "\n";
280 $html_itemend="<ul>";
281 }
282
283 sub html_endlist {
284 print HTML "$html_itemend\n</ul>\n";
285 $html_needpara=-1
286 }
287
288 sub html_item {
289 print HTML "$html_itemend\n<li>";
290 $html_itemend="";
291 $html_needpara=-1;
292 }
293
294 sub html_startpackedlist {
295 print HTML "\n";
296 $html_itemend="<dir>";
297 }
298
299 sub html_endpackedlist {
300 print HTML "$html_itemend\n</dir>\n";
301 $html_needpara=-1;
302 }
303
304 sub html_packeditem {
305 print HTML "$html_itemend\n<li>";
306 $html_itemend="";
307 $html_needpara=-1;
308 }
309
310 sub html_startindent { print HTML "<blockquote>\n"; }
311 sub html_endindent { print HTML "</blockquote>\n"; }
312
313 sub html_pageref {
314 local ($ref,$sq) = @_;
315 $sq =~ m/(\d+)\.(\d+)/;
316 local ($s,$n) = ($1,$2);
317 print HTML "<A href=\"";
318 print HTML ($s == $html_sectionn)?'':"section$s.html";
319 print HTML "#$qn2ref{$s,$n}\">Q$sq \`";
320 }
321
322 sub html_endpageref {
323 print HTML "'</A>";
324 }
325
326 sub html_sanitise {
327 local ($in) = @_;
328 local ($out);
329 while ($in =~ m/[<>&"]/) {
330 $out.= $`. '&'. $saniarray{$&}. ';';
331 $in=$';
332 }
333 $out.= $in;
334 $out;
335 }
336
337 1;