Mercurial > hg > sv-dependency-builds
comparison src/fftw-3.3.5/doc/FAQ/m-html.pl @ 42:2cd0e3b3e1fd
Current fftw source
| author | Chris Cannam |
|---|---|
| date | Tue, 18 Oct 2016 13:40:26 +0100 |
| parents | |
| children |
comparison
equal
deleted
inserted
replaced
| 41:481f5f8c5634 | 42:2cd0e3b3e1fd |
|---|---|
| 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 © $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; |