Mercurial > urweb

comparison src/elisp/urweb-defs.el @ 1073:b2311dfb3158

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Initializers and setval
author Adam Chlipala <adamc@hcoop.net>
date Sun, 13 Dec 2009 14:20:41 -0500
parents 8998114760c1
children 0657e5adc938
comparison
equal deleted inserted replaced
1072:9001966ae1c8 1073:b2311dfb3158
106 (urweb-syms-re "let" "struct" "sig" "in" "with" 106 (urweb-syms-re "let" "struct" "sig" "in" "with"
107 "if" "then" "else" "case" "of" "fn" "fun" "val" "and" 107 "if" "then" "else" "case" "of" "fn" "fun" "val" "and"
108 "datatype" "type" "open" "include" 108 "datatype" "type" "open" "include"
109 urweb-module-head-syms 109 urweb-module-head-syms
110 "con" "map" "where" "extern" "constraint" "constraints" 110 "con" "map" "where" "extern" "constraint" "constraints"
111 "table" "sequence" "class" "cookie") 111 "table" "sequence" "class" "cookie" "initializer")
112 "Symbols starting an sexp.") 112 "Symbols starting an sexp.")
113 113
114 ;; (defconst urweb-not-arg-start-re 114 ;; (defconst urweb-not-arg-start-re
115 ;; (urweb-syms-re "in" "of" "end" "andalso") 115 ;; (urweb-syms-re "in" "of" "end" "andalso")
116 ;; "Symbols that can't be found at the head of an arg.") 116 ;; "Symbols that can't be found at the head of an arg.")
132 `((,urweb-module-head-syms "d=" 0) 132 `((,urweb-module-head-syms "d=" 0)
133 ("if" "else" 0) 133 ("if" "else" 0)
134 (,urweb-=-starter-syms nil) 134 (,urweb-=-starter-syms nil)
135 (("case" "datatype" "if" "then" "else" 135 (("case" "datatype" "if" "then" "else"
136 "let" "open" "sig" "struct" "type" "val" 136 "let" "open" "sig" "struct" "type" "val"
137 "con" "constraint" "table" "sequence" "class" "cookie"))))) 137 "con" "constraint" "table" "sequence" "class" "cookie"
138 "initializer")))))
138 139
139 (defconst urweb-starters-indent-after 140 (defconst urweb-starters-indent-after
140 (urweb-syms-re "let" "in" "struct" "sig") 141 (urweb-syms-re "let" "in" "struct" "sig")
141 "Indent after these.") 142 "Indent after these.")
142 143
186 187
187 (defconst urweb-starters-syms 188 (defconst urweb-starters-syms
188 (append urweb-module-head-syms 189 (append urweb-module-head-syms
189 '("datatype" "fun" 190 '("datatype" "fun"
190 "open" "type" "val" "and" 191 "open" "type" "val" "and"
191 "con" "constraint" "table" "sequence" "class" "cookie")) 192 "con" "constraint" "table" "sequence" "class" "cookie"
193 "initializer"))
192 "The starters of new expressions.") 194 "The starters of new expressions.")
193 195
194 (defconst urweb-exptrail-syms 196 (defconst urweb-exptrail-syms
195 '("if" "then" "else" "case" "of" "fn" "with" "map")) 197 '("if" "then" "else" "case" "of" "fn" "with" "map"))
196 198