Basis.toMilliseconds and diffInMilliseconds, based on a patch from Gergely Buday

2 files changed, 10 insertions, 0 deletions

diff --git a/lib/js/urweb.js b/lib/js/urweb.js
index b557147b..a5ab90c5 100644
--- a/lib/js/urweb.js
+++ b/lib/js/urweb.js
@@ -132,10 +132,18 @@ function diffInSeconds(tm1, tm2) {
     return Math.round((tm2 - tm1) / 1000000);
 }
 
+function diffInMilliseconds(tm1, tm2) {
+    return Math.round((tm2 - tm1) / 1000);
+}
+
 function toSeconds(tm) {
     return Math.round(tm / 1000000);
 }
 
+function toMilliseconds(tm) {
+    return Math.round(tm / 1000);
+}
+
 function addSeconds(tm, n) {
     return tm + n * 1000000;
 }
diff --git a/lib/ur/basis.urs b/lib/ur/basis.urs
index 3afb4985..67e6abc6 100644
--- a/lib/ur/basis.urs
+++ b/lib/ur/basis.urs
@@ -161,6 +161,8 @@ val addSeconds : time -> int -> time
 val toSeconds : time -> int
 val diffInSeconds : time -> time -> int
 (* Earlier time first *)
+val toMilliseconds : time -> int
+val diffInMilliseconds : time -> time -> int
 val timef : string -> time -> string (* Uses strftime() format string *)
 val readUtc : string -> option time