Mercurial > urweb

comparison src/settings.sml @ 831:5e1a4b12c83a

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
strcspn and friends
author Adam Chlipala <adamc@hcoop.net>
date Sun, 31 May 2009 12:41:34 -0400
parents 20fe00fd81da
children 5154a047c6bc
comparison
equal deleted inserted replaced
830:d07980bf1444 831:5e1a4b12c83a
154 ("strsub", "sub"), 154 ("strsub", "sub"),
155 ("strsuffix", "suf"), 155 ("strsuffix", "suf"),
156 ("strlen", "slen"), 156 ("strlen", "slen"),
157 ("strindex", "sidx"), 157 ("strindex", "sidx"),
158 ("strchr", "schr"), 158 ("strchr", "schr"),
159 ("substring", "ssub")] 159 ("substring", "ssub"),
160 ("strcspn", "sspn")]
160 val jsFuncs = ref jsFuncsBase 161 val jsFuncs = ref jsFuncsBase
161 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls 162 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls
162 fun jsFunc x = M.find (!jsFuncs, x) 163 fun jsFunc x = M.find (!jsFuncs, x)
163 164
164 datatype pattern_kind = Exact | Prefix 165 datatype pattern_kind = Exact | Prefix