checkpoint
[sbp.git] / src / edu / berkeley / sbp / tib / TibDoc.java
index 504e3a4..1057673 100644 (file)
 // You may not use this file except in compliance with the License.
 
 package edu.berkeley.sbp.tib;
-//import org.ibex.util.*;
-//import org.ibex.io.*;
+import edu.berkeley.sbp.*;
+import edu.berkeley.sbp.misc.*;
+import edu.berkeley.sbp.meta.*;
+import edu.berkeley.sbp.util.*;
+import edu.berkeley.sbp.chr.*;
+import edu.berkeley.sbp.bind.*;
 import java.util.*;
 import java.io.*;
+import static edu.berkeley.sbp.meta.MetaGrammar.*;
 
 public class TibDoc {
     /*
-    public static enum Style { H, UL, TT, SO, IT, Q, B, PRE, LIST, EMDASH; }
-
-    public static AST h(AST a)      { return new Gather(a, Style.H); }
-    public static AST ul(AST a)     { return new Gather(a, Style.UL); }
-    public static AST tt(AST a)     { return new Gather(a, Style.TT); }
-    public static AST so(AST a)     { return new Gather(a, Style.SO); }
-    public static AST it(AST a)     { return new Gather(a, Style.IT); }
-    public static AST q(AST a)      { return new Gather(a, Style.Q); }
-    public static AST b(AST a)      { return new Gather(a, Style.B); }
-    public static AST pre(AST a)    { return new Gather(a, Style.PRE); }
-    public static AST list(AST a)   { return new Gather(a, Style.LIST); }
-    public static AST emdash()      { return new Gather(Style.EMDASH); }
-
-    public static AST seq(AST a) { return new Gather(a); }
-
-    public static class Latex {
-        public static void emit(PrintWriter p, AST a) {
-            prefix(p);
-            emit(p, a, "");
-            suffix(p);
-        }
-        public static void emit2(PrintWriter p, AST ast, String head) {
-            for(AST a = ast.getFirstChild(); a != null; a = a.getNextSibling()) emit(p, a, head);
-        }
-        public static void emit(PrintWriter p, AST ast, String head) {
-            if (!(ast instanceof Gather)) {
-                if (ast.getNumberOfChildren()==0) {
-                    p.print(ast.getText());
-                } else {
-                    emit2(p, ast, head);
+    public static Text lf()     { Chars ret = new Chars(); ret.text = "\n"; return ret; }
+    public static Text cr()     { Chars ret = new Chars(); ret.text = "\r"; return ret; }
+    public static Text emdash() { return new Entity("mdash"); }
+    public static char urlescape(int a, int b) { return (char)(10*a+b); }
+
+
+    // Template Classes //////////////////////////////////////////////////////////////////////////////
+
+    public static abstract class Text implements ToHTML {
+        public static final Class[] subclasses = new Class[] { Chars.class, URL.class, Email.class };
+        public void toHTML(ToHTML.HTML sb) { }
+        public static class TextString extends Text {
+            public String text;
+            public String tag() { return null; }
+            public void toHTML(ToHTML.HTML sb) { sb.tag(tag(), text); }
+        }
+        public static class TextArray extends Text {
+            public Text[] t;
+            public String tag() { return null; }
+            public void toHTML(ToHTML.HTML sb) { sb.tag(tag(), t); }
+        }
+    }
+
+
+    // Structural //////////////////////////////////////////////////////////////////////////////
+
+    public static class Doc implements ToHTML {
+        public Header head;
+        public Body   body;
+        public void toHTML(ToHTML.HTML sb) { sb.tag("html", body); }
+        public static class Header extends HashMap<String, Text[]> {
+            public static class KeyVal { public String key; public Text[] val; }
+            public void attrs(KeyVal[] KeyVals) { for(int i=0; i<KeyVals.length; i++) this.put(KeyVals[i].key, KeyVals[i].val); }
+        }
+        public static class Body implements ToHTML {
+            public Section[] sections;
+            public void toHTML(ToHTML.HTML sb) { sb.append(sections); }
+            public static class Section implements ToHTML {
+                public Text header;
+                public Paragraph[] paragraphs;
+                public void toHTML(ToHTML.HTML sb) {
+                    sb.tag("h3", header);
+                    sb.append(paragraphs);
                 }
-                return;
-            }
-            Gather a = (Gather)ast;
-            if (a.style==null) {
-                emit2(p, a, head);
-                return;
             }
-            switch(a.style) {
-                case H:    p.println(); p.println(); p.print("\\"+head+"section{"); emit2(p, a, "sub"+head); p.println("}"); break;
-                case B:    p.print("{\\bf{");                          emit2(p, a, head); p.print("}}"); break;
-                case UL:   p.print("{\\ul{");                          emit2(p, a, head); p.print("}}"); break;
-                case IT:   p.print("{\\it{");                          emit2(p, a, head); p.print("}}"); break;
-                case TT:   p.print("{\\tt{");                          emit2(p, a, head); p.print("}}"); break;
-                case SO:   p.print("{\\overstrike{");                  emit2(p, a, head); p.print("}}"); break;
-                case Q:    p.print("``");                              emit2(p, a, head); p.print("''"); break;
-                case EMDASH: p.print(" \\emdash "); break;
-                case LIST: p.println(); p.println("\\startitemize[symbol]"); emit2(p, a, head); p.println("\\stopitemize"); break;
-                case PRE:
-                    if (a.getFirstChild() != null) {
-                        p.println();
-                        p.println("\\begin{verbatim}");
-                        p.println(a.getFirstChild().getText());
-                        p.println("\\end{verbatim}");
-                    }
+        }
+    }
+
+
+    // Paragraph //////////////////////////////////////////////////////////////////////////////
+
+    public static interface Paragraph extends ToHTML {
+        public static final Class[] subclasses = new Class[] { Blockquote.class, P.class, HR.class };
+        public static class HR                                implements Paragraph { public void toHTML(ToHTML.HTML sb) { sb.append("\n<hr>\n"); } }
+        public static class P          extends Text.TextArray implements Paragraph { public String tag() { return "p"; } }
+        public static class Blockquote extends Text.TextArray implements Paragraph { public String tag() { return "blockquote"; } }
+    }
+
+    public static abstract class List extends Text {
+        public Text[][] points;
+        public abstract String tag();
+        public void toHTML(ToHTML.HTML sb) {
+            sb.append("<"+tag()+">\n");
+            for(Text[] t : points) sb.tag("li", t);
+            sb.append("</"+tag()+">\n");
+        }
+    }
+    public static class OL extends List { public String tag() { return "ol"; } }
+    public static class UL extends List { public String tag() { return "ul"; } }
+
+
+
+    // Tags //////////////////////////////////////////////////////////////////////////////
+
+    public static class Chars         extends Text.TextString { }
+    public static class Symbol        extends Text.TextString { }
+    public static class Keyword       extends Text.TextString { public String tag() { return "tt"; } }
+    public static class Subscript     extends Text.TextString { public String tag() { return "sub"; } }
+    public static class Superscript   extends Text.TextString { public String tag() { return "super"; } }
+    public static class Bold          extends Text.TextArray  { public String tag() { return "b"; } }
+    public static class Smallcap      extends Text.TextArray  { public String tag() { return "sc"; } }
+    public static class Strikethrough extends Text.TextArray  { public String tag() { return "strike"; } }
+    public static class TT            extends Text.TextArray  { public String tag() { return "tt"; } }
+    public static class Underline     extends Text.TextArray  { public String tag() { return "u"; } }
+    public static class Italic        extends Text.TextArray  { public String tag() { return "i"; } }
+    public static class Citation      extends Text.TextArray  { } // FIXME
+    public static class Footnote      extends Text.TextArray  { } // FIXME
+    public static class LineBreak     extends Text            { public void toHTML(ToHTML.HTML sb) { sb.tag("br"); } }
+    public static class Today         extends Text            { }
+    public static class Euro          extends Text            { public void toHTML(ToHTML.HTML sb) { sb.entity(8364); } }
+    public static class Link          extends Text {
+        public Text[] text;
+        public URI href;
+        public void toHTML(ToHTML.HTML sb) { sb.tag("a", new Object[] { "href", href }, text); }
+    }
+    public static class Entity        extends Text {
+        public final String entity;
+        public Entity(String entity) { this.entity = entity; }
+        public void toHTML(ToHTML.HTML sb) { sb.entity(entity); }
+    }
+
+
+    // Network //////////////////////////////////////////////////////////////////////////////
+
+    public static interface Host extends ToHTML {
+        public static class DNS implements Host {
+            public String[] part;
+            public void toHTML(ToHTML.HTML sb) {
+                for(int i=0; i<part.length; i++)
+                    sb.append((i==0 ? "" : ".")+part[i]);
             }
         }
+        public static class IP  implements Host {
+            public int a, b, c, d;
+            public void toHTML(ToHTML.HTML sb) { sb.append(a+"."+b+"."+c+"."+d); }
+        }
+    }
+
+    public static interface URI extends ToHTML {
+        public static final Class[] subclasses = new Class[] { URL.class, Email.class };
+    }
+    public static class URL extends Text    implements URI {
+        public String method;
+        public Login login;
+        public Host host;
+        public int port;
+        public String path;
+        public void toHTML(ToHTML.HTML sb) {
+            sb.append(method);
+            sb.append("://");
+            // login.toHTML(sb);   FIXME
+            host.toHTML(sb);
+            // sb.append(":");     FIXME
+            // sb.append(port);
+            sb.append("/");
+            sb.append(path);
+        }
+    }
+    public static class Email extends Text  implements URI {
+        public String user;
+        public Host host;
+        public void toHTML(ToHTML.HTML sb) {
+            sb.append(user);
+            sb.append('@');
+            host.toHTML(sb);
+        }
+    }
+
+    public static class Login {
+        public String username;
+        public String password;
+        public void toHTML(ToHTML.HTML sb) {
+            sb.append(username);
+            sb.append(':');
+            sb.append(password);
+            sb.append('@');
+        }        
+    }
+
+
+
+
+    */
+    /*
         public static void prefix(PrintWriter p) {
             p.println("% generated by TIBDOC");
             for(int i=0; i<packages.length; i++) p.println("\\usemodule["+packages[i]+"]");
@@ -105,6 +217,360 @@ public class TibDoc {
         }
         static String[] packages = new String[] { "supp-fun", "bib", "href" };
     }
+
+    // ConTex
+
+module Contex where
+import Data.Array.IArray
+import Data.Char
+import Util
+import Lexer
+import IR
+import Data.List
+import Beautify
+
+toContex ll = prefix ++ (concatMap tl ll) ++ suffix
+ where
+  packages                         = [ "[supp-fun]",
+                                       "[bib]",
+                                       "[href]" ]
+  prefix                           = (concatMap (\x -> "\\usemodule"++x++"\n") packages) ++
+                                     "\\setuppapersize[letter]\n" ++
+                                     "\\setuppagenumbering[location=]\n" ++
+                                     "\\setupcolors[state=start]\n" ++
+                                     --"\\setupinteraction[title={Title},author={Me},"++
+                                     --"subtitle={Deez Nutz},keywords={blargh},color=blue]\n" ++
+                                     --"\\setuppublications[database={me},numbering=yes,sort=author]\n" ++
+                                     "\\setuphead[section][style={\\ss\\bfa},\n" ++
+                                     "                     number=no,\n" ++
+                                     "                     before=\\blank\\hairline\\nowhitespace,\n" ++
+                                     "                     ]\n" ++
+                                     "\\definelayout[mypage][\n" ++
+                                     " backspace=1.75in, % the space for margin notes\n" ++
+                                     " cutspace=1.75in, % the space for right margin notes\n" ++
+                                     " width=5in" ++
+                                     "]\n" ++
+                                     "\\setuplayout[mypage]\n" ++
+                                     "\\definetypeface[myface][rm][Xserif][Warnock Pro]\n" ++
+                                     "\\definetypeface[myface][tt][Xmono][CMU Typewriter Text Regular][default]\n" ++
+                                     "\\definetypeface[myface][ss][Xsans][Myriad Pro][default]\n" ++
+                                     "\\usesymbols[uni]\n" ++
+                                     "\\definesymbol[1][{\\USymbCharZapf{39}{164}}]\n" ++
+                                     "\\setupbodyfont[myface, 11pt]\n" ++
+                                     "\\setupwhitespace[7pt]\n" ++
+                                     "\\def\\MyDroppedCaps%\n" ++
+                                     "    {\\DroppedCaps\n" ++
+                                     "        {} {Serif} {2\\baselineskip} {2pt} {1\\baselineskip} {2}}\n" ++
+                                     "\\starttext\n" ++
+                                     "\\switchtobodyfont[16pt]\\midaligned{\\ss\\bfa{Hi5 Replicated Server Infrastructure}}\\switchtobodyfont[10pt]\n"++ 
+                                     "\\midaligned{Adam Megacz}\n\n\\nowhitespace\\midaligned{\\tt{adam@megacz.com}}\n\n"++
+                                     "\\blank[1cm,force]\n" ++
+                                     "\\defineparagraphs[mypar][n=2,before={\\blank},after={\\blank}]\n"++
+                                     "\\setupparagraphs[mypar][1][width=.45\\textwidth]\n"++
+                                     "\\setupparagraphs[mypar][2][width=.55\\textwidth]\n"++
+                                     "\\startmypar"++
+                                     "\\switchtobodyfont[small]\n"
+  suffix                           = "\n\\stoptext\n"
+  addItem i                        = "\\item " ++ (striptrail $ boost 8 $ wrap $ striplead $ tl i)
+  escapify []                      = []
+  escapify ('%':t)                 = '\\':'%':(escapify t)
+  escapify ('$':t)                 = '\\':'$':(escapify t)
+  escapify (h:t)                   = h:(escapify t)
+  escapeMath s                     = s
+  tl (Special _ BulletList l)      = "\\startitemize[symbol]\n" ++ (concatMap addItem l) ++ "\\stopitemize\n"
+  tl (Special _ NumberList l)      = "\\startitemize[symbol]\n" ++ (concatMap addItem l) ++ "\\stopitemize\n"
+  tl (Special _ Section (h:t))     = "\\section{"++(tl h)++"}\n"++(concatMap tl t)
+  tl (Special _ NumberedSection (h:t)) = "\\section{"++(tl h)++"}\n"++(concatMap tl t)
+  tl (Special _ (Glyph EmDash) []) = "{\\emdash}"
+--tl (Special _ Superscript l)     = 
+--tl (Special _ Subscript l)       = 
+--tl (Special _ (Image u) l)       = 
+--tl (Special _ (Cite u) l)        = 
+  tl (Special _ BlockQuote l)      = "\n\n\\startquote\n     "++
+                                     (striptrail $ boost 4 $ wrap $ striplead $ concatMap tl l)++"\n\\stopquote\n\n"
+  tl (Special _ HorizontalRule []) = "\\\\\\rule{4in}{0.5pt}\\\\"
+  tl (Special _ Italic l)          = "{\\it{"++(concatMap tl l)++"}}"
+  tl (Special _ Bold l)            = "{\\bf{"++(concatMap tl l)++"}}"
+  tl (Special _ DropCap (h:t))     = "\\MyDroppedCaps{"++(tl h)++"}{\\sc "++(concatMap tl t)++"}"
+  tl (Special _ Typewriter l)      = "{\\tt{"++(concatMap tl l)++"}}"
+  tl (Special _ StrikeThrough l)   = "" --"\\sout{"++(concatMap tl l)++"}"
+  tl (Special _ Quotes l)          = "``"++(concatMap tl l)++"''"
+  tl (Special _ Underline l)       = "" --"\\uline{"++(concatMap tl l)++"}"
+  tl (Special _ Underline2 l)      = "" --"\\uuline{"++(concatMap tl l)++"}"
+  tl (Special _ (Math s) [])       = "\\placeformula\n$$\n" ++ (escapeMath s) ++ "\n$$\n"
+  tl (Special _ Footnote l)        = "\\footnote{"++(concatMap tl l)++"}"
+  tl (Special _ Float l)           = "" --"\n\n\\begin{wrapfigure}{r}{0.4\\textwidth} \\framebox[0.4\\textwidth]{"++
+                                     --(concatMap tl l)++"} \\label{x}\\end{wrapfigure}\n\n"
+--tl (Special _ Figure l)          = "\\placefigure[][fig:church]{}{"++(concatMap tl l)++"}"
+  tl (Special _ Figure l)          = "\\startnarrower\n"++(concatMap tl l)++"\n\\stopnarrower\n"
+  tl (Special _ (Link u) l)        = "\\href{"++(escapify u)++"}{"++(concatMap tl l)++"}"
+  tl (Special _ (Verbatim s) [])   = "\\starttyping\n"++s++"\n\\stoptyping\n"
+--  tl (Special _ TwoColumn l)       = "\\startcolumns[n=2]\n"++(concatMap tl l)++"\\stopcolumns"
+--  tl (Special _ Title l)           = ""--"\\title{"++(concatMap tl l)++"}\n\\maketitle\n\n\n"
+  tl (Special _ Abstract l) =
+      "\\midaligned{\\ss\\bfa Abstract}\\par\n " ++
+      "\n\n"++(concatMap tl l)++"\\mypar" ++
+      "\\switchtobodyfont[8pt]{\\ss{\\placecontent}}\\switchtobodyfont[normal]\\stopmypar\n\n\\blank[1cm,force]"
+  tl (Special _ (Command c) l)     = "\\"++c++"["++(concatMap tl l)++"]"
+  tl (Special _ t l)               = error $ "formatting code "++(show t)++" not supported on {"++(concatMap show l)++"})"
+  tl (WS _)                        = " "
+  tl (BlankLine _)                 = "\n\n"
+  tl (Block _ l)                   = concatMap tl l
+  tl (Letter _ c)                  = escapify [c]
+  tl z                             = (show z)
+
+
+
+
     */
+
+    // Main //////////////////////////////////////////////////////////////////////////////
+
+    public static class Dump implements Reflection.Show {
+        public String toString() { return Reflection.show((Reflection.Show)this); }
+    }
+
+    public static class TD {
+
+        public @bind static class Doc extends Dump implements ToHTML {
+            public @bind.arg Header head;
+            public @bind.arg Body body;
+            public void toHTML(HTML h) { body.toHTML(h); }
+        }
+
+        public @bind.as("H") static class Header extends Dump {
+            public @bind.arg KeyVal[] attrs;
+            // FIXME: it would be nice to be able to
+            // void KeyVal(String, String) { ... } imperatively
+        }
+        
+        public @bind.as("B") static class Body extends Dump implements ToHTML {
+            public Section[] sections;
+            public void toHTML(HTML h) { for(Section s : sections) s.toHTML(h); }
+        }
+        
+        public @bind.as("Section") static class Section extends Dump implements ToHTML {
+            public String      header;
+            public Paragraph[] paragraphs;
+            public void toHTML(HTML h) {
+                h.tag("h1", header);
+                for(Paragraph p : paragraphs) h.tag("p", p);
+            }
+        }
+        
+        public @bind static class KeyVal extends Dump {
+            public @bind.arg String key;
+            public @bind.arg Object val;
+        }
+
+        public abstract static class Paragraph extends Dump implements ToHTML { }
+
+        public @bind.as("P") static class P extends Paragraph {
+            public Text[] text;
+            public P() { }
+            public P(Text[] text) { this.text = text; }
+            public void toHTML(HTML h) { if (text != null) for (Text t : text) if (t != null) t.toHTML(h); }
+            public String toString() {
+                StringBuffer sb = new StringBuffer();
+                ToHTML.HTML h = new ToHTML.HTML(sb);
+                toHTML(h);
+                return sb.toString();
+            }
+        }
+
+        public @bind.as("email") static Object email(@bind.arg Object a, @bind.arg Object c) { return null; }
+        public static @bind class Login {
+            public @bind.arg String username;
+            public @bind.arg String password;
+        }
+
+        public @bind.as("Euro") Object euro() { return null; }
+        public @bind.as("Citation") Object cite(Object o) { return new Chars("*cite*"); }
+        public @bind.as("Symbol") Object sym(Object o) { return null; }
+
+        public static abstract class List extends Text {
+            public @bind.arg Text[] points;
+            public abstract String tag();
+            public void toHTML(ToHTML.HTML sb) {
+                sb.append("<"+tag()+">\n");
+                for(Text t : points) sb.tag("li", t);
+                sb.append("</"+tag()+">\n");
+            }
+        }
+        public static @bind class OL extends List { public String tag() { return "ol"; } }
+        public static @bind class UL extends List { public String tag() { return "ul"; } }
+
+        public static class HR extends Paragraph {
+            public @bind HR() { }
+            public @bind HR(Object o) { }
+            public void toHTML(HTML h) { h.tag("hr"); }
+        }
+
+       public static class Blockquote extends Paragraph {
+            Text[] text;
+            public @bind Blockquote(Text[] t) { this.text = t; }
+            public void toHTML(HTML h) { h.tag("blockquote", new P(text)); }
+        }
+
+        public abstract static class Text extends Dump implements ToHTML { }
+        public @bind static class Chars extends Text {
+            public String text;
+            public Chars() { }
+            public Chars(String text) { this.text = text; }
+            public void toHTML(HTML h) { h.appendText(" " + text + " "); }
+            public String toString() { return text; }
+        }
+        public @bind static class Block extends Text {
+            public Text[] text;
+            public void toHTML(HTML h) { for(Text t : text) t.toHTML(h); }
+        }
+        public static class TextWrap extends Text {
+            public @bind.arg Text[] text;
+            public void toHTML(HTML h) {
+                if (htmlTag()!=null) {
+                    h.openTag(htmlTag(), htmlTagParams());
+                }
+                for(Text t : text) t.toHTML(h);
+                if (htmlTag()!=null) {
+                    h.closeTag(htmlTag());
+                }
+            }
+            public String   htmlTag() { return null; }
+            public Object[] htmlTagParams() { return null; }
+        }
+        public static @bind class Verbatim   extends Text { public char[] c; public void toHTML(HTML h) { } }
+        //public @bind class Blockquote extends TextWrap { }
+        public static @bind class Underline extends TextWrap { public String htmlTag() { return "u"; } }
+        public static @bind class Footnote extends TextWrap { public String htmlTag() { return "small"; } }
+        public static @bind class TT extends TextWrap { public String htmlTag() { return "tt"; } }
+        //public @bind class Citation extends Text {       "[" word "]" }
+        public static @bind class Strikethrough extends TextWrap { public String htmlTag() { return "strike"; } }
+        public static @bind class Superscript extends TextWrap { public String htmlTag() { return "sup"; } }
+        public static @bind class Subscript extends TextWrap { public String htmlTag() { return "sub"; } }
+        public static @bind class Smallcap extends TextWrap { public String htmlTag() { return "sc"; } }
+        public static @bind class Keyword extends TextWrap { public String htmlTag() { return "sc"; } }
+        public static @bind class Bold extends TextWrap { public String htmlTag() { return "b"; } }
+        public static @bind class Italic extends TextWrap { public String htmlTag() { return "i"; } }
+
+        public abstract static class Command extends Text { }
+        public static @bind class Today extends Command { public void toHTML(HTML h) { } }
+        public static @bind class LineBreak extends Command { public void toHTML(HTML h) { h.tag("br"); } }
+
+        public abstract static class Glyph extends Text { }
+        public static @bind.as("emdash") class Emdash extends Glyph { public void toHTML(HTML h) { h.appendLiterally("&mdash;"); } }
+
+        public static class Link extends Text {
+            public Text[] t;
+            public Url u;
+            public @bind.as("LinkText") Link(Text[] t, Url u)  { this.t = t; this.u = u; }
+            public @bind.as("LinkChars") Link(String s, Url u) { this(new Text[] { new Chars(s) }, u); }
+            public void toHTML(HTML h) {
+                h.tag("a",
+                      new Object[] { "href", u==null ? "" : u.toString() },
+                      new P(t));
+            }
+        }
+
+        public static class Host {
+            public String name;
+            public String toString() { return name; }
+            public @bind.as("DNS") Host(String[][] parts) {
+                name = "";
+                for(String[] s : parts) {
+                    for(String ss : s)
+                        name += ss;
+                    name += ".";
+                }
+            }
+            public @bind.as("IP")  Host(int a, int b, int c, int d) { name = a+"."+b+"."+c+"."+d; }
+        }
+
+        public static class Url extends Text {
+            public String   method;
+            public Host     host;
+            public String   user;
+            public String   pass;
+            public String   port;
+            public String   path;
+            public @bind.as("URL") Url(String method, String[] login, Host host, String port, String path) {
+                this.method = method;
+                this.user = login==null ? null : login.length >= 1 ? login[0] : null;
+                this.pass = login==null ? null : login.length >= 2 ? login[1] : null;
+                this.host = host;
+                this.port = port;
+                this.path = path;
+            }
+            public @bind.as("Mailto") Url(String email) { this("mailto", null, null, "25", email); }
+            public void toHTML(HTML h) { new Link(toString(), this).toHTML(h); }
+            public String toString() {
+                return method + "://" + host + "/" + path;
+            }
+        }
+        public static @bind.as("lf")        String lf() { return "\r"; }
+        public static @bind.as("cr")        String cr() { return "\n"; }
+        public static @bind.as("\"\"")      String empty() { return ""; }
+        public static @bind.as("urlescape") String urlescape(char a, char b) { return ((char)((a-'0') * 16 + (b-'0')))+""; }
+    }
+
+    public static void main(String[] s) throws Exception {
+        try {
+
+            Tree<String> res = new CharParser(MetaGrammar.make()).parse(new FileInputStream(s[0])).expand1();
+            
+            Union tibgram = MetaGrammar.make(res, "s", new AnnotationGrammarBindingResolver(TD.class));
+
+            System.err.println("parsing " + s[1]);
+            Tree t = new CharParser(tibgram).parse(new Tib(new FileInputStream(s[1]))).expand1();
+            System.out.println("tree:\n" + t.toPrettyString());
+            
+            Object result = ((Functor)t.head()).invoke(t);
+            TD.Doc doc = (TD.Doc)result;
+            System.out.println(doc);
+
+            StringBuffer sb = new StringBuffer();
+            ToHTML.HTML html = new ToHTML.HTML(sb);
+            doc.toHTML(html);
+            FileOutputStream fos = new FileOutputStream("out.html");
+            PrintWriter p = new PrintWriter(new OutputStreamWriter(fos));
+            p.println(sb);
+            p.flush();
+            p.close();
+            
+            
+
+            /*
+            System.out.println("parsing " + s[0]);
+            Tree<String> res = new CharParser(MetaGrammar.make()).parse(new FileInputStream(s[0])).expand1();
+            MetaGrammar gram = new Tib.Grammar(TibDoc.class);
+            gram = (MetaGrammar)gram.walk(res);
+            System.out.println("\nparsing " + s[1]);
+            Forest f = new CharParser(gram.done()).parse(new Tib(new FileInputStream(s[1])));
+            System.out.println();
+            System.out.println(f.expand1().toPrettyString());
+            System.out.println();
+
+
+            FileOutputStream fos = new FileOutputStream("out.html");
+            PrintWriter p = new PrintWriter(new OutputStreamWriter(fos));
+            p.println(sb);
+            p.flush();
+            p.close();
+            */
+        } catch (Ambiguous a) {
+            FileOutputStream fos = new FileOutputStream("/Users/megacz/Desktop/out.dot");
+            PrintWriter p = new PrintWriter(new OutputStreamWriter(fos));
+            GraphViz gv = new GraphViz();
+            a.ambiguity.toGraphViz(gv);
+            gv.dump(p);
+            p.flush();
+            p.close();
+            a.printStackTrace();
+            
+        } catch (Exception e) {
+            e.printStackTrace();
+        }
+
+    }
+
 }