Client-side 'addSeconds'

2 files changed, 5 insertions, 0 deletions

diff --git a/lib/js/urweb.js b/lib/js/urweb.js
index 9834fde6..6343543e 100644
--- a/lib/js/urweb.js
+++ b/lib/js/urweb.js
@@ -113,6 +113,10 @@ function toSeconds(tm) {
     return Math.round(tm / 1000000);
 }
 
+function addSeconds(tm, n) {
+    return tm + n * 1000000;
+}
+
 
 // Error handling
 
diff --git a/src/settings.sml b/src/settings.sml
index c9030eac..7b19b1b1 100644
--- a/src/settings.sml
+++ b/src/settings.sml
@@ -254,6 +254,7 @@ val jsFuncsBase = basisM [("alert", "alert"),
                           ("timeToString", "showTime"),
                           ("htmlifyTime", "showTime"),
                           ("toSeconds", "toSeconds"),
+                          ("addSeconds", "addSeconds"),
                           ("diffInSeconds", "diffInSeconds")]
 val jsFuncs = ref jsFuncsBase
 fun setJsFuncs ls = jsFuncs := foldl (fn ((k, v), m) => M.insert (m, k, v)) jsFuncsBase ls