Browse Source

* 1.9.x updates

marco 21 years ago
parent
commit
72fa25740f
5 changed files with 9 additions and 9 deletions
  1. 1 1
      docs/linuxex/ex1.pp
  2. 5 5
      docs/linuxex/ex2.pp
  3. 1 1
      docs/linuxex/ex3.pp
  4. 1 1
      docs/linuxex/ex4.pp
  5. 1 1
      docs/linuxex/ex5.pp

+ 1 - 1
docs/linuxex/ex1.pp

@@ -2,7 +2,7 @@ Program Example1;
 
 { Program to demonstrate the GetEpochTime function. }
 
-Uses linux;
+Uses Unix;
 
 begin
   Write ('Secs past the start of the Epoch (00:00 1/1/1980) : ');

+ 5 - 5
docs/linuxex/ex2.pp

@@ -2,16 +2,16 @@ Program Example2;
 
 { Program to demonstrate the GetTimeOfDay function. }
 
-Uses linux;
+Uses BaseUnix,Unix;
 
 Var TV : TimeVal;
     TZ : TimeZone;
 
 begin
-  GetTimeOfDay (TV);
-  Writeln ('Seconds              : ',tv.sec);
-  Writeln ('Milliseconds         : ',tv.usec);
+  fpGetTimeOfDay (@TV,@tz);
+  Writeln ('Seconds              : ',tv.tv_sec);
+  Writeln ('Milliseconds         : ',tv.tv_usec);
   Writeln ('Minutes west of GMT  : ',tz.minuteswest);
   Writeln ('Daylight Saving Time : ',tz.dsttime);
-  Writeln ('Seconds in 1 call    : ',GetTimeOfDay);
+  Writeln ('Seconds in 1 call    : ',fpGetTimeOfDay(nil,nil));
 end.

+ 1 - 1
docs/linuxex/ex3.pp

@@ -2,7 +2,7 @@ Program Example3;
 
 { Program to demonstrate the EpochToLocal function. }
 
-Uses linux;
+Uses Unix,UnixUtil;
 
 Var Year,month,day,hour,minute,seconds : Word;
 

+ 1 - 1
docs/linuxex/ex4.pp

@@ -2,7 +2,7 @@ Program Example4;
 
 { Program to demonstrate the LocalToEpoch function. }
 
-Uses linux;
+Uses UnixUtil;
 
 Var year,month,day,hour,minute,second : Word;
 

+ 1 - 1
docs/linuxex/ex5.pp

@@ -2,7 +2,7 @@ Program Example5;
 
 { Program to demonstrate the GetTime function. }
 
-Uses linux;
+Uses Unix;
 
 Var Hour, Minute, Second : Word;