From adefca12f83d73986b0f860621232b17c130c742 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adamc@hcoop.net>
Date: Sat, 30 May 2009 13:29:00 -0400
Subject: Substring functions; fix a nasty MonoReduce pattern match
 substitution bug

---
 lib/js/urweb.js | 17 +++++++++++++++++
 1 file changed, 17 insertions(+)

(limited to 'lib/js/urweb.js')

diff --git a/lib/js/urweb.js b/lib/js/urweb.js
index db3c934c..be3d652a 100644
--- a/lib/js/urweb.js
+++ b/lib/js/urweb.js
@@ -353,6 +353,23 @@ function bs(b) { return (b ? "True" : "False") }
 function sub(s, i) { return s[i]; }
 function suf(s, i) { return s.substring(i); }
 function slen(s) { return s.length; }
+function sidx(s, ch) {
+  var r = s.indexOf(ch);
+  if (r == -1)
+    return null;
+  else
+    return r;
+}
+function schr(s, ch) {
+  var r = s.indexOf(ch);
+  if (r == -1)
+    return null;
+  else
+    return s.substring(r);
+}
+function ssub(s, start, len) {
+  return s.substring(start, start+len);
+}
 
 function pi(s) {
   var r = parseInt(s);
-- 
cgit v1.2.3