Mercurial > urweb

comparison src/demo.sml @ 866:03e7f111fe99

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Start of multi-DBMS support
author Adam Chlipala <adamc@hcoop.net>
date Sun, 28 Jun 2009 13:49:32 -0400
parents 305bc0a431de
children 8f2159040bbb
comparison
equal deleted inserted replaced
865:ebefb0609ac3 866:03e7f111fe99
104 clientOnly = [], 104 clientOnly = [],
105 serverOnly = [], 105 serverOnly = [],
106 jsFuncs = [], 106 jsFuncs = [],
107 rewrites = #rewrites combined @ #rewrites urp, 107 rewrites = #rewrites combined @ #rewrites urp,
108 filterUrl = #filterUrl combined @ #filterUrl urp, 108 filterUrl = #filterUrl combined @ #filterUrl urp,
109 filterMime = #filterMime combined @ #filterMime urp 109 filterMime = #filterMime combined @ #filterMime urp,
110 protocol = mergeWith #2 (#protocol combined, #protocol urp),
111 dbms = mergeWith #2 (#dbms combined, #dbms urp)
110 } 112 }
111 113
112 val parse = Compiler.run (Compiler.transform Compiler.parseUrp "Demo parseUrp") 114 val parse = Compiler.run (Compiler.transform Compiler.parseUrp "Demo parseUrp")
113 115
114 fun capitalize "" = "" 116 fun capitalize "" = ""