Client-side conversion of string to bool

2 files changed, 4 insertions, 0 deletions

diff --git a/lib/js/urweb.js b/lib/js/urweb.js
index 342dc943..df9097b1 100644
--- a/lib/js/urweb.js
+++ b/lib/js/urweb.js
@@ -1261,6 +1261,8 @@ function eh(x) {
 
 function ts(x) { return x.toString() }
 function bs(b) { return (b ? "True" : "False") }
+function s2b(s) { return s == "True" ? true : s == "False" ? false : null; }
+function s2be(s) { return s == "True" ? true : s == "False" ? false : er("Illegal Boolean " ^ s); }
 
 function id(x) { return x; }
 function sub(s, i) { return s.charAt(i); }
diff --git a/src/settings.sml b/src/settings.sml
index fafb38c5..343ea358 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -297,6 +297,8 @@ val jsFuncsBase = basisM [("alert", "alert"),
                           ("mouseEvent", "uw_mouseEvent"),
                           ("keyEvent", "uw_keyEvent"),
                           ("minTime", "0"),
+                          ("stringToBool_error", "s2be"),
+                          ("stringToBool", "s2b"),
 
                           ("islower", "isLower"),
                           ("isupper", "isUpper"),