1 files changed, 123 insertions, 0 deletions
diff --git a/macro2html.py b/macro2html.py
new file mode 100755
index 0000000..3652670
--- /dev/null
+++ b/macro2html.py
@@ -0,0 +1,123 @@
+#! /usr/bin/env python
+
+assert __name__ == "__main__"
+
+import os.path as path
+from macro import Macro, writeFile
+from optparse import OptionParser
+
+opts = OptionParser()
+opts.add_option('-v', "--verbose", dest = "verbose", default = False, action = "store_true")
+opts.add_option('', "--input-encoding", dest = "inEncode", default = "latin-1")
+opts.add_option('', "--output-encoding", dest = "outEncode", default = "latin1")
+opts.add_option('', "--output-dir", dest = "outDir", default = "stage")
+opts.add_option('', "--output-suffix", dest = "suffix", default = ".html")
+(options, args) = opts.parse_args()
+# www.nongnu.org/autoconf-archive/
+tmpl = """\
+<!DOCTYPE html PUBLIC "-//W3C//DTD HTML 4.01//EN"
+"http://www.w3.org/TR/html4/strict.dtd">
+<html lang="en">
+ <head>
+  <title>
+   Autoconf Macro: %(name)s
+  </title>
+  <link rel="stylesheet" type="text/css" href="autoconf-archive.css">
+  <meta http-equiv="Content-Type" content="text/html; charset=us-ascii">
+ </head>
+ <body>
+  <table summary="web navigation" style="width:100%%;">
+   <tbody>
+    <tr>
+     <td style="width:33%%;" align="center" valign="top">
+      <a href="index.html">Autoconf Archive</a>
+     </td>
+     <td style="width:33%%;" align="center" valign="top">
+      <a href="macros-by-category.html">Macros by Category</a>
+     </td>
+     <td style="width:33%%;" align="center" valign="top">
+      <form method="get" action="http://www.google.com/search">
+       <div>
+        <input name="sitesearch" value="autoconf-archive.cryp.to" type=
+        "hidden">Search: <input name="q" maxlength="255" type="text">
+       </div>
+      </form>
+     </td>
+    </tr>
+   </tbody>
+  </table>
+  <hr>
+  <h1>
+   %(name)s
+  </h1>
+  <h2>
+   SYNOPSIS
+  </h2>
+   <p class="indent" style="white-space:nowrap;">
+%(synopsis)s
+  </p>
+  <h2>
+   DESCRIPTION
+  </h2>
+  <div class="indent">
+%(description)s
+  </div>
+  <h2>
+   SOURCE CODE
+  </h2>
+  <p class="indent">
+   Download <a href=
+   "http://git.savannah.gnu.org/gitweb/?p=autoconf-archive.git;a=blob_plain;f=%(name)s.m4">
+   %(name)s.m4</a> or browse the <a href=
+   "http://git.savannah.gnu.org/gitweb/?p=autoconf-archive.git;a=history;f=%(name)s.m4">
+   revision history</a>.
+  </p>
+  <h2>
+   LICENSE
+  </h2>
+  <div class="indent">
+   <p style="white-space:nowrap;">
+%(authors)s
+   </p>
+%(license)s
+  </div>
+ </body>
+</html>
+"""
+
+def quoteHtml(buf):
+  return buf.replace('&', "&amp;").replace('<', "&lt;").replace('>', "&gt;")
+
+def formatParagraph(para):
+  assert para
+  assert para[0]
+  assert para[0][0]
+  if para[0][0].isspace():
+    return "<pre>%s</pre>" % quoteHtml('\n'.join(para))
+  else:
+    return "<p>%s</p>" % quoteHtml('\n'.join(para))
+
+def formatAuthor(a):
+  assert a
+  a["year"] = quoteHtml(a["year"])
+  a["name"] = quoteHtml(a["name"])
+  if "email" in a:
+    a["email"] = quoteHtml(a["email"])
+    return "Copyright &copy; %(year)s %(name)s &lt;%(email)s&gt;" % a
+  else:
+    return "Copyright &copy; %(year)s %(name)s" % a
+
+for m4File in args:
+  (stem,suff) = path.splitext(path.basename(m4File))
+  assert suff == ".m4"
+  outFile = path.join(options.outDir, stem + options.suffix)
+  assert outFile != m4File
+  if options.verbose:
+    print m4File, "->", outFile
+  m = Macro(m4File, options.inEncode)
+  m.synopsis = "<br>\n".join([ "<code>%s</code>" % quoteHtml(l) for l in m.synopsis ])
+  m.description = '\n\n'.join(map(formatParagraph, m.description))
+  m.description = m.description.replace("</pre>\n\n<pre>", "\n\n")
+  m.authors = "<br>\n".join(map(formatAuthor, m.authors))
+  m.license = '\n'.join(map(formatParagraph, m.license))
+  writeFile(outFile, options.outEncode, tmpl % m.__dict__)