From d2856c340fd101a418e5d388836a91d4ad40e9bc Mon Sep 17 00:00:00 2001
From: Mindaugas Kavaliauskas <dbtopas@dbtopas.lt>
Date: Thu, 25 Dec 2008 09:12:32 +0000
Subject: [PATCH] 2008-12-25 11:14 UTC+0200 Mindaugas Kavaliauskas
 (dbtopas/at/dbtopas.lt)   * include/hbextern.ch   * source/rtl/seconds.c    
 + implemented hb_milliseconds(). This function returns time value       from
 some moment in the past (not midnigth!). It does not start       to cound
 from zero in midnight, thus, can be safetly used to       measure time
 intervals.   + tests/ticktime.c     + Added nice test for hb_milliseconds(). 
      Results on WinXP:         Ticks per second: 63.595         Min/avg/max
 interval (ms): 15.000 / 15.724 / 47.000         Loops per tick:      13035.09
       Results on openSUSE on VirtualBox on WinXP:         Ticks per second:
 384306.138         Min/avg/max interval (ms): 0.001 / 0.003 / 11.112        
 Loops per tick:      1.04

---
 harbour/ChangeLog            | 18 ++++++++++++++++++
 harbour/include/hbextern.ch  |  1 +
 harbour/source/rtl/seconds.c |  8 ++++++++
 harbour/tests/ticktime.prg   | 25 +++++++++++++++++++++++++
 4 files changed, 52 insertions(+)
 create mode 100644 harbour/tests/ticktime.prg

diff --git a/harbour/ChangeLog b/harbour/ChangeLog
index 3e5dd4c93f..df2b6bf59e 100644
--- a/harbour/ChangeLog
+++ b/harbour/ChangeLog
@@ -8,6 +8,24 @@
    2008-12-31 13:59 UTC+0100 Foo Bar (foo.bar foobar.org)
 */
 
+2008-12-25 11:14 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
+  * include/hbextern.ch
+  * source/rtl/seconds.c
+    + implemented hb_milliseconds(). This function returns time value 
+      from some moment in the past (not midnigth!). It does not start 
+      to cound from zero in midnight, thus, can be safetly used to 
+      measure time intervals.
+  + tests/ticktime.c
+    + Added nice test for hb_milliseconds().
+      Results on WinXP:
+        Ticks per second: 63.595
+        Min/avg/max interval (ms): 15.000 / 15.724 / 47.000
+        Loops per tick:      13035.09
+      Results on openSUSE on VirtualBox on WinXP:
+        Ticks per second: 384306.138
+        Min/avg/max interval (ms): 0.001 / 0.003 / 11.112
+        Loops per tick:      1.04
+
 2008-12-25 08:20 UTC+0200 Mindaugas Kavaliauskas (dbtopas/at/dbtopas.lt)
   * contrib/rddsql/sqlpg/make_b32.bat
   * contrib/rddsql/sqlpg/make_vc.bat
diff --git a/harbour/include/hbextern.ch b/harbour/include/hbextern.ch
index ef7350b8b8..5c9f285b7f 100644
--- a/harbour/include/hbextern.ch
+++ b/harbour/include/hbextern.ch
@@ -1176,6 +1176,7 @@ EXTERNAL HB_STRSHRINK
 EXTERNAL HB_MEMOREAD
 EXTERNAL HB_MEMOWRIT
 EXTERNAL HB_NTOS
+EXTERNAL HB_MILLISECONDS
 
 EXTERNAL HB_HASH
 EXTERNAL HB_HHASKEY
diff --git a/harbour/source/rtl/seconds.c b/harbour/source/rtl/seconds.c
index e82a63c700..310ff73618 100644
--- a/harbour/source/rtl/seconds.c
+++ b/harbour/source/rtl/seconds.c
@@ -228,11 +228,19 @@ double hb_dateSeconds( void )
 #endif
 }
 
+
 HB_FUNC( SECONDS )
 {
    hb_retnd( hb_dateSeconds() );
 }
 
+
+HB_FUNC( HB_MILLISECONDS )
+{
+   hb_retnint( ( HB_LONG ) hb_dateMilliSeconds() );
+}
+
+
 HB_FUNC( HB_CLOCKS2SECS )
 {
 #ifdef CLOCKS_PER_SEC
diff --git a/harbour/tests/ticktime.prg b/harbour/tests/ticktime.prg
new file mode 100644
index 0000000000..86179a4ac5
--- /dev/null
+++ b/harbour/tests/ticktime.prg
@@ -0,0 +1,25 @@
+/*
+* $Id$
+*/
+
+PROC main()
+LOCAL nTime0, nTime, nTimeLast, nMin := 9999, nMax := -9999, nTick := 0, nLoop := 0
+
+  ? "Wait for 10 seconds..."
+  nTimeLast := nTime0 := HB_MILLISECONDS()
+  DO WHILE ( nTime := HB_MILLISECONDS() ) - nTime0 < 10000
+    IF nTimeLast != nTime
+       nTick++
+       nMin := MIN(nMin, nTime - nTimeLast)
+       nMax := MAX(nMax, nTime - nTimeLast)
+       nTimeLast := nTime
+    ENDIF
+    nLoop++
+  ENDDO
+  nTime := nTimeLast - nTime0
+  ? "Ticks per second:", LTRIM(STR(nTick * 1000/ nTime, 12, 3))
+  ? "Min/avg/max interval (ms):", LTRIM(STR(nMin, 9, 3)), "/", ;
+                                  LTRIM(STR(nTime / nTick, 9, 3)), "/", ;
+                                  LTRIM(STR(nMax, 9, 3))
+  ? "Loops per tick:", nLoop / nTick
+RETURN