From db82b7e30a1b58b56fdb4bfc6089b47200ca1da1 Mon Sep 17 00:00:00 2001
From: jaybinks <jaybinks@b956fd51-792f-4845-bead-9b4dfca2ff2c>
Date: Thu, 20 Sep 2007 06:36:58 +0000
Subject: Ultrastar-DX now compiles in linux (using lazarus)

Bass etc is commented out..
but it compiles, and im working through the runtime errors.

git-svn-id: svn://svn.code.sf.net/p/ultrastardx/svn/trunk@408 b956fd51-792f-4845-bead-9b4dfca2ff2c
---
 Game/Code/Classes/UTime.pas | 212 +++++++++++++++++++++++++++-----------------
 1 file changed, 131 insertions(+), 81 deletions(-)

(limited to 'Game/Code/Classes/UTime.pas')

diff --git a/Game/Code/Classes/UTime.pas b/Game/Code/Classes/UTime.pas
index 29e972ae..87d4f922 100644
--- a/Game/Code/Classes/UTime.pas
+++ b/Game/Code/Classes/UTime.pas
@@ -1,81 +1,131 @@
-unit UTime;
-
-interface
-
-type
-  TTime = class
-    constructor Create;
-    function GetTime: real;
-  end;
-
-procedure CountSkipTimeSet;
-procedure CountSkipTime;
-procedure CountMidTime;
-procedure TimeSleep(ms: real);
-
-var
-  USTime:   TTime;
-  
-  TimeFreq: int64;
-  TimeNew:  int64;
-  TimeOld:  int64;
-  TimeSkip: real;
-  TimeMid:  real;
-  TimeMidTemp:  int64;
-
-implementation
-
-uses Windows;
-
-constructor TTime.Create;
-begin
-  CountSkipTimeSet;
-end;
-
-procedure CountSkipTimeSet;
-begin
-  QueryPerformanceFrequency(TimeFreq);
-  QueryPerformanceCounter(TimeNew);
-end;
-
-procedure CountSkipTime;
-begin
-  TimeOld := TimeNew;
-  QueryPerformanceCounter(TimeNew);
-  TimeSkip := (TimeNew-TimeOld)/TimeFreq;
-end;
-
-procedure CountMidTime;
-begin
-  QueryPerformanceCounter(TimeMidTemp);
-  TimeMid := (TimeMidTemp-TimeNew)/TimeFreq;
-end;
-
-procedure TimeSleep(ms: real);
-var
-  TimeStart:  int64;
-  TimeHalf:   int64;
-  Time:       real;
-  Stop:       boolean;
-begin
-  QueryPerformanceCounter(TimeStart);
-
-  Stop := false;
-  while (not Stop) do begin
-    QueryPerformanceCounter(TimeHalf);
-    Time := 1000 * (TimeHalf-TimeStart)/TimeFreq;
-    if Time > ms then Stop := true;
-  end;
-
-end;
-
-function TTime.GetTime: real;
-var
-  TimeTemp:   int64;
-begin
-  QueryPerformanceCounter(TimeTemp);
-  Result := TimeTemp/TimeFreq;
-end;
-
-
-end.
+unit UTime;
+
+interface
+
+{$IFDEF FPC}
+  {$MODE Delphi}
+{$ENDIF}
+
+type
+  TTime = class
+    constructor Create;
+    function GetTime: real;
+  end;
+
+procedure CountSkipTimeSet;
+procedure CountSkipTime;
+procedure CountMidTime;
+procedure TimeSleep(ms: real);
+
+var
+  USTime:   TTime;
+  
+  TimeFreq: int64;
+  TimeNew:  int64;
+  TimeOld:  int64;
+  TimeSkip: real;
+  TimeMid:  real;
+  TimeMidTemp:  int64;
+
+implementation
+
+uses
+  {$IFDEF win32}
+    windows,
+  {$ELSE}
+  libc,
+  time,
+  {$ENDIF}
+  ucommon;
+
+
+// -- ON Linux it MAY Be better to use ...   clock_gettime() instead of  CurrentSec100OfDay
+// who knows how fast or slow that function is !
+// but this gets a compile for now .. :)
+
+constructor TTime.Create;
+begin
+  CountSkipTimeSet;
+end;
+
+procedure CountSkipTimeSet;
+begin
+  {$IFDEF win32}
+  QueryPerformanceFrequency(TimeFreq);
+  QueryPerformanceCounter(TimeNew);
+  {$ELSE}
+  TimeNew  := CurrentSec100OfDay();     // TODO - JB_Linux will prob need looking at
+  TimeFreq := 0;
+  {$ENDIF}
+end;
+
+procedure CountSkipTime;
+begin
+  TimeOld := TimeNew;
+  
+  {$IFDEF win32}
+  QueryPerformanceCounter(TimeNew);
+  {$ELSE}
+  TimeNew := CurrentSec100OfDay();    // TODO - JB_Linux will prob need looking at
+  {$ENDIF}
+  
+  TimeSkip := (TimeNew-TimeOld)/TimeFreq;
+end;
+
+procedure CountMidTime;
+begin
+  {$IFDEF win32}
+  QueryPerformanceCounter(TimeMidTemp);
+  TimeMid := (TimeMidTemp-TimeNew)/TimeFreq;
+  {$ELSE}
+  TimeMidTemp := CurrentSec100OfDay();
+  TimeMid     := (TimeMidTemp-TimeNew);      // TODO - JB_Linux will prob need looking at
+  {$ENDIF}
+end;
+
+procedure TimeSleep(ms: real);
+var
+  TimeStart:  int64;
+  TimeHalf:   int64;
+  Time:       real;
+  Stop:       boolean;
+begin
+  {$IFDEF win32}
+  QueryPerformanceCounter(TimeStart);
+  {$ELSE}
+  TimeStart := CurrentSec100OfDay();   // TODO - JB_Linux will prob need looking at
+  {$ENDIF}
+
+
+  Stop := false;
+  while (not Stop) do
+  begin
+    {$IFDEF win32}
+    QueryPerformanceCounter(TimeHalf);
+    Time := 1000 * (TimeHalf-TimeStart)/TimeFreq;
+    {$ELSE}
+    TimeHalf := CurrentSec100OfDay();
+    Time := 1000 * (TimeHalf-TimeStart); // TODO - JB_Linux will prob need looking at
+    {$ENDIF}
+
+    if Time > ms then
+      Stop := true;
+  end;
+
+end;
+
+function TTime.GetTime: real;
+var
+  TimeTemp:   int64;
+begin
+  {$IFDEF win32}
+    QueryPerformanceCounter(TimeTemp);
+    Result := TimeTemp / TimeFreq;
+  {$ELSE}
+    TimeTemp := CurrentSec100OfDay();
+    Result   := TimeTemp;  // TODO - JB_Linux will prob need looking at
+  {$ENDIF}
+end;
+
+
+end.
-- 
cgit v1.2.3