From 09c2534e57944a9b5d6cc8971d0733d25749ade5 Mon Sep 17 00:00:00 2001
From: Adam Chlipala <adam@chlipala.net>
Date: Sat, 4 Feb 2012 11:01:06 -0500
Subject: Basis.toMilliseconds and diffInMilliseconds, based on a patch from
 Gergely Buday

---
 src/c/urweb.c | 8 ++++++++
 1 file changed, 8 insertions(+)

(limited to 'src/c')

diff --git a/src/c/urweb.c b/src/c/urweb.c
index 738c765c..0b04f665 100644
--- a/src/c/urweb.c
+++ b/src/c/urweb.c
@@ -3681,6 +3681,14 @@ uw_Basis_int uw_Basis_diffInSeconds(uw_context ctx, uw_Basis_time tm1, uw_Basis_
   return difftime(tm2.seconds, tm1.seconds);
 }
 
+uw_Basis_int uw_Basis_toMilliseconds(uw_context ctx, uw_Basis_time tm) {
+  return tm.seconds * 1000 + tm.microseconds / 1000;
+}
+
+uw_Basis_int uw_Basis_diffInMilliseconds(uw_context ctx, uw_Basis_time tm1, uw_Basis_time tm2) {
+  return uw_Basis_toMilliseconds(ctx, tm2) - uw_Basis_toMilliseconds(ctx, tm1);
+}
+
 uw_Basis_int uw_Basis_toSeconds(uw_context ctx, uw_Basis_time tm) {
   return tm.seconds;
 }
-- 
cgit v1.2.3