paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-11-23 05:51:38 +01:00
Code Issues Packages Projects Releases Wiki Activity

* Renamefest

Browse Source
This commit is contained in:
marco 2002-06-04 11:12:41 +00:00
parent 215ed72a2d
commit 3736333c9a
18 changed files with 82 additions and 76 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

2
fv/colortxt.pas
View File

@ -18,7 +18,7 @@ unit ColorTxt;
{$F+,O+,E+,N+} {$F+,O+,E+,N+}
{$endif} {$endif}
{$X+,R-,I-,Q-,V-} {$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX} {$ifndef OS_UNIX}
{$S-} {$S-}
{$endif} {$endif}

15
fv/drivers.pas
View File

@ -46,7 +46,7 @@ UNIT Drivers;
{$X+} { Extended syntax is ok } {$X+} { Extended syntax is ok }
{$R-} { Disable range checking } {$R-} { Disable range checking }
{$IFNDEF OS_LINUX} {$IFNDEF OS_UNIX}
{$S-} { Disable Stack Checking } {$S-} { Disable Stack Checking }
{$ENDIF} {$ENDIF}
{$I-} { Disable IO Checking } {$I-} { Disable IO Checking }
@ -68,7 +68,7 @@ USES
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
{$ifdef VER1_0} {$ifdef VER1_0}
linux, linux,
{$else} {$else}
@ -704,7 +704,7 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
GetDosTicks := L div 55; GetDosTicks := L div 55;
end; end;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
var var
tv : TimeVal; tv : TimeVal;
{ tz : TimeZone;} { tz : TimeZone;}
@ -712,7 +712,7 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
GetTimeOfDay(tv{,tz}); GetTimeOfDay(tv{,tz});
GetDosTicks:=((tv.Sec mod 86400) div 60)*1092+((tv.Sec mod 60)*1000000+tv.USec) div 54945; GetDosTicks:=((tv.Sec mod 86400) div 60)*1092+((tv.Sec mod 60)*1000000+tv.USec) div 54945;
end; end;
{$ENDIF OS_LINUX} {$ENDIF OS_UNIX}
{$IFDEF OS_WINDOWS} {$IFDEF OS_WINDOWS}
begin begin
GetDosTicks:=GetTickCount div 55; GetDosTicks:=GetTickCount div 55;
@ -752,7 +752,7 @@ END;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
{ ExitDrivers -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 08Jun98 LdB } { ExitDrivers -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 08Jun98 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE ExitDrivers; {$IFNDEF OS_LINUX} FAR; {$ENDIF} PROCEDURE ExitDrivers; {$IFNDEF OS_UNIX} FAR; {$ENDIF}
BEGIN BEGIN
DoneSysError; { Relase error trap } DoneSysError; { Relase error trap }
DoneEvents; { Close event driver } DoneEvents; { Close event driver }
@ -1629,7 +1629,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.23 2002-05-31 12:38:37 pierre Revision 1.24 2002-06-04 11:12:41 marco
* Renamefest
Revision 1.23 2002/05/31 12:38:37 pierre
* try to enhance graph mode * try to enhance graph mode
Revision 1.22 2002/05/29 21:21:54 pierre Revision 1.22 2002/05/29 21:21:54 pierre

2
fv/editors.pas
View File

@ -8,7 +8,7 @@ unit Editors;
{$F+,O+,E+,N+} {$F+,O+,E+,N+}
{$endif} {$endif}
{$X+,R-,I-,Q-,V-} {$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX} {$ifndef OS_UNIX}
{$S-} {$S-}
{$endif} {$endif}

30
fv/fileio.pas
View File

@ -75,7 +75,7 @@ UNIT FileIO;
{$X+} { Extended syntax is ok } {$X+} { Extended syntax is ok }
{$R-} { Disable range checking } {$R-} { Disable range checking }
{$IFNDEF OS_LINUX} {$IFNDEF OS_UNIX}
{$S-} { Disable Stack Checking } {$S-} { Disable Stack Checking }
{$ENDIF} {$ENDIF}
{$I-} { Disable IO Checking } {$I-} { Disable IO Checking }
@ -227,16 +227,7 @@ FUNCTION FileWrite (Handle: THandle; Var Buf; Count: Sw_Word; Var Actual: Sw_Wor
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} { LINUX COMPILER } {$IFDEF OS_UNIX} { LINUX COMPILER }
USES
{$ifdef VER1_0}
linux;
{$else}
unix;
{$endif}
{$ENDIF}
{$IFDEF OS_FREEBSD} { FREEBSD COMPILER }
USES USES
{$ifdef VER1_0} {$ifdef VER1_0}
linux; linux;
@ -296,7 +287,7 @@ BEGIN
Else FileClose := False; { Closure failed } Else FileClose := False; { Closure failed }
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} { LINUX CODE } {$IFDEF OS_UNIX} { LINUX CODE }
BEGIN BEGIN
fdClose(Handle); { Close the file } fdClose(Handle); { Close the file }
FileClose := LinuxError <= 0 FileClose := LinuxError <= 0
@ -394,7 +385,7 @@ BEGIN
{$ENDIF} {$ENDIF}
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
BEGIN BEGIN
if mode = fa_Create then mode := Open_Creat or Open_RdWr else if mode = fa_Create then mode := Open_Creat or Open_RdWr else
if mode = fa_OpenRead then mode := Open_RdOnly else if mode = fa_OpenRead then mode := Open_RdOnly else
@ -474,7 +465,7 @@ BEGIN
{$ENDIF} {$ENDIF}
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
VAR VAR
Actual : LongInt; Actual : LongInt;
BEGIN BEGIN
@ -554,7 +545,7 @@ BEGIN
{$ENDIF} {$ENDIF}
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
BEGIN BEGIN
Actual := fdSeek(Handle, Pos, MoveType); Actual := fdSeek(Handle, Pos, MoveType);
If (Actual <> -1) Then SetFilePos := 0 Else { No position error } If (Actual <> -1) Then SetFilePos := 0 Else { No position error }
@ -618,7 +609,7 @@ BEGIN
FileRead := 104; { File read error } FileRead := 104; { File read error }
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
BEGIN BEGIN
Actual := fdRead(Handle, Buf, Count); Actual := fdRead(Handle, Buf, Count);
if (Actual = Count) Then FileRead := 0 { No read error } if (Actual = Count) Then FileRead := 0 { No read error }
@ -682,7 +673,7 @@ BEGIN
FileWrite := 105; { File write error } FileWrite := 105; { File write error }
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
BEGIN BEGIN
Actual := fdWrite(Handle, Buf, Count); Actual := fdWrite(Handle, Buf, Count);
If (Actual = Count) Then FileWrite := 0 Else { No write error } If (Actual = Count) Then FileWrite := 0 Else { No write error }
@ -693,7 +684,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.5 2001-08-04 19:14:33 peter Revision 1.6 2002-06-04 11:12:41 marco
* Renamefest
Revision 1.5 2001/08/04 19:14:33 peter
* Added Makefiles * Added Makefiles
* added FV specific units and objects from old FV * added FV specific units and objects from old FV

7
fv/fvcommon.pas
View File

@ -144,7 +144,7 @@ TYPE
{$IFDEF OS_ATARI} { ATARI DEFINITION } {$IFDEF OS_ATARI} { ATARI DEFINITION }
THandle = Integer; { Handles are 16 bits } THandle = Integer; { Handles are 16 bits }
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} { LINUX DEFINITIONS } {$IFDEF OS_UNIX} { LINUX DEFINITIONS }
{ values are words, though the OS calls return 32-bit values } { values are words, though the OS calls return 32-bit values }
{ to check (CEC) } { to check (CEC) }
THandle = LongInt; { Simulated 32 bits } THandle = LongInt; { Simulated 32 bits }
@ -416,7 +416,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.2 2001-08-05 02:03:13 peter Revision 1.3 2002-06-04 11:12:41 marco
* Renamefest
Revision 1.2 2001/08/05 02:03:13 peter
* view redrawing and small cursor updates * view redrawing and small cursor updates
* merged some more FV extensions * merged some more FV extensions

2
fv/inplong.pas
View File

@ -71,7 +71,7 @@ Valid returns False.
{$F+,O+,E+,N+} {$F+,O+,E+,N+}
{$endif} {$endif}
{$X+,R-,I-,Q-,V-} {$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX} {$ifndef OS_UNIX}
{$S-} {$S-}
{$endif} {$endif}

2
fv/resource.pas
View File

@ -33,7 +33,7 @@ interface
{$F+,O+,E+,N+} {$F+,O+,E+,N+}
{$endif} {$endif}
{$X+,R-,I-,Q-,V-} {$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX} {$ifndef OS_UNIX}
{$S-} {$S-}
{$endif} {$endif}

2
fv/statuses.pas
View File

@ -58,7 +58,7 @@ interface
{$F+,O+,E+,N+} {$F+,O+,E+,N+}
{$endif} {$endif}
{$X+,R-,I-,Q-,V-} {$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX} {$ifndef OS_UNIX}
{$S-} {$S-}
{$endif} {$endif}

17
fv/time.pas
View File

@ -171,9 +171,9 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
{$ENDIF} {$ENDIF}
{$ifdef OS_LINUX} {$ifdef OS_UNIX}
USES Dos; USES Dos;
{$endif OS_LINUX} {$endif OS_UNIX}
{***************************************************************************} {***************************************************************************}
{ INTERFACE ROUTINES } { INTERFACE ROUTINES }
@ -302,11 +302,11 @@ BEGIN
DosSetDateTime(DT); { Set the time } DosSetDateTime(DT); { Set the time }
END; END;
{$ENDIF} {$ENDIF}
{$ifdef OS_LINUX} {$ifdef OS_UNIX}
BEGIN BEGIN
{settime is dummy in Linux} {settime is dummy in Linux}
END; END;
{$endif OS_LINUX} {$endif OS_UNIX}
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
{ GetTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Nov97 LdB } { GetTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Nov97 LdB }
@ -409,11 +409,11 @@ BEGIN
Sec100 := DT.Hundredths; { Transfer hundredths } Sec100 := DT.Hundredths; { Transfer hundredths }
END; END;
{$ENDIF} {$ENDIF}
{$ifdef OS_LINUX} {$ifdef OS_UNIX}
BEGIN BEGIN
Dos.GetTime(Hour,Minute,Second,Sec100); Dos.GetTime(Hour,Minute,Second,Sec100);
END; END;
{$endif OS_LINUX} {$endif OS_UNIX}
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
{ MinutesToTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 19Jun97 LdB } { MinutesToTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 19Jun97 LdB }
@ -438,7 +438,10 @@ END.
{ {
$Log$ $Log$
Revision 1.5 2002-06-03 20:26:16 pierre Revision 1.6 2002-06-04 11:12:41 marco
* Renamefest
Revision 1.5 2002/06/03 20:26:16 pierre
* use local time for windows * use local time for windows
Revision 1.4 2001/05/04 09:04:08 pierre Revision 1.4 2001/05/04 09:04:08 pierre

2
fvision/colortxt.pas
View File

@ -18,7 +18,7 @@ unit ColorTxt;
{$F+,O+,E+,N+} {$F+,O+,E+,N+}
{$endif} {$endif}
{$X+,R-,I-,Q-,V-} {$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX} {$ifndef OS_UNIX}
{$S-} {$S-}
{$endif} {$endif}

15
fvision/drivers.pas
View File

@ -46,7 +46,7 @@ UNIT Drivers;
{$X+} { Extended syntax is ok } {$X+} { Extended syntax is ok }
{$R-} { Disable range checking } {$R-} { Disable range checking }
{$IFNDEF OS_LINUX} {$IFNDEF OS_UNIX}
{$S-} { Disable Stack Checking } {$S-} { Disable Stack Checking }
{$ENDIF} {$ENDIF}
{$I-} { Disable IO Checking } {$I-} { Disable IO Checking }
@ -68,7 +68,7 @@ USES
{$ENDIF} {$ENDIF}
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
{$ifdef VER1_0} {$ifdef VER1_0}
linux, linux,
{$else} {$else}
@ -704,7 +704,7 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
GetDosTicks := L div 55; GetDosTicks := L div 55;
end; end;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
var var
tv : TimeVal; tv : TimeVal;
{ tz : TimeZone;} { tz : TimeZone;}
@ -712,7 +712,7 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
GetTimeOfDay(tv{,tz}); GetTimeOfDay(tv{,tz});
GetDosTicks:=((tv.Sec mod 86400) div 60)*1092+((tv.Sec mod 60)*1000000+tv.USec) div 54945; GetDosTicks:=((tv.Sec mod 86400) div 60)*1092+((tv.Sec mod 60)*1000000+tv.USec) div 54945;
end; end;
{$ENDIF OS_LINUX} {$ENDIF OS_UNIX}
{$IFDEF OS_WINDOWS} {$IFDEF OS_WINDOWS}
begin begin
GetDosTicks:=GetTickCount div 55; GetDosTicks:=GetTickCount div 55;
@ -752,7 +752,7 @@ END;
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
{ ExitDrivers -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 08Jun98 LdB } { ExitDrivers -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 08Jun98 LdB }
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
PROCEDURE ExitDrivers; {$IFNDEF OS_LINUX} FAR; {$ENDIF} PROCEDURE ExitDrivers; {$IFNDEF OS_UNIX} FAR; {$ENDIF}
BEGIN BEGIN
DoneSysError; { Relase error trap } DoneSysError; { Relase error trap }
DoneEvents; { Close event driver } DoneEvents; { Close event driver }
@ -1629,7 +1629,10 @@ BEGIN
END. END.
{ {
$Log$ $Log$
Revision 1.23 2002-05-31 12:38:37 pierre Revision 1.24 2002-06-04 11:12:41 marco
* Renamefest
Revision 1.23 2002/05/31 12:38:37 pierre
* try to enhance graph mode * try to enhance graph mode
Revision 1.22 2002/05/29 21:21:54 pierre Revision 1.22 2002/05/29 21:21:54 pierre

2
fvision/editors.pas
View File

@ -8,7 +8,7 @@ unit Editors;
{$F+,O+,E+,N+} {$F+,O+,E+,N+}
{$endif} {$endif}
{$X+,R-,I-,Q-,V-} {$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX} {$ifndef OS_UNIX}
{$S-} {$S-}
{$endif} {$endif}

30
fvision/fileio.pas
View File

@ -75,7 +75,7 @@ UNIT FileIO;
{$X+} { Extended syntax is ok } {$X+} { Extended syntax is ok }
{$R-} { Disable range checking } {$R-} { Disable range checking }
{$IFNDEF OS_LINUX} {$IFNDEF OS_UNIX}
{$S-} { Disable Stack Checking } {$S-} { Disable Stack Checking }
{$ENDIF} {$ENDIF}
{$I-} { Disable IO Checking } {$I-} { Disable IO Checking }
@ -227,16 +227,7 @@ FUNCTION FileWrite (Handle: THandle; Var Buf; Count: Sw_Word; Var Actual: Sw_Wor
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} { LINUX COMPILER } {$IFDEF OS_UNIX} { LINUX COMPILER }
USES
{$ifdef VER1_0}
linux;
{$else}
unix;
{$endif}
{$ENDIF}
{$IFDEF OS_FREEBSD} { FREEBSD COMPILER }
USES USES
{$ifdef VER1_0} {$ifdef VER1_0}
linux; linux;
@ -296,7 +287,7 @@ BEGIN
Else FileClose := False; { Closure failed } Else FileClose := False; { Closure failed }
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} { LINUX CODE } {$IFDEF OS_UNIX} { LINUX CODE }
BEGIN BEGIN
fdClose(Handle); { Close the file } fdClose(Handle); { Close the file }
FileClose := LinuxError <= 0 FileClose := LinuxError <= 0
@ -394,7 +385,7 @@ BEGIN
{$ENDIF} {$ENDIF}
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
BEGIN BEGIN
if mode = fa_Create then mode := Open_Creat or Open_RdWr else if mode = fa_Create then mode := Open_Creat or Open_RdWr else
if mode = fa_OpenRead then mode := Open_RdOnly else if mode = fa_OpenRead then mode := Open_RdOnly else
@ -474,7 +465,7 @@ BEGIN
{$ENDIF} {$ENDIF}
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
VAR VAR
Actual : LongInt; Actual : LongInt;
BEGIN BEGIN
@ -554,7 +545,7 @@ BEGIN
{$ENDIF} {$ENDIF}
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
BEGIN BEGIN
Actual := fdSeek(Handle, Pos, MoveType); Actual := fdSeek(Handle, Pos, MoveType);
If (Actual <> -1) Then SetFilePos := 0 Else { No position error } If (Actual <> -1) Then SetFilePos := 0 Else { No position error }
@ -618,7 +609,7 @@ BEGIN
FileRead := 104; { File read error } FileRead := 104; { File read error }
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
BEGIN BEGIN
Actual := fdRead(Handle, Buf, Count); Actual := fdRead(Handle, Buf, Count);
if (Actual = Count) Then FileRead := 0 { No read error } if (Actual = Count) Then FileRead := 0 { No read error }
@ -682,7 +673,7 @@ BEGIN
FileWrite := 105; { File write error } FileWrite := 105; { File write error }
END; END;
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} {$IFDEF OS_UNIX}
BEGIN BEGIN
Actual := fdWrite(Handle, Buf, Count); Actual := fdWrite(Handle, Buf, Count);
If (Actual = Count) Then FileWrite := 0 Else { No write error } If (Actual = Count) Then FileWrite := 0 Else { No write error }
@ -693,7 +684,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.5 2001-08-04 19:14:33 peter Revision 1.6 2002-06-04 11:12:41 marco
* Renamefest
Revision 1.5 2001/08/04 19:14:33 peter
* Added Makefiles * Added Makefiles
* added FV specific units and objects from old FV * added FV specific units and objects from old FV

7
fvision/fvcommon.pas
View File

@ -144,7 +144,7 @@ TYPE
{$IFDEF OS_ATARI} { ATARI DEFINITION } {$IFDEF OS_ATARI} { ATARI DEFINITION }
THandle = Integer; { Handles are 16 bits } THandle = Integer; { Handles are 16 bits }
{$ENDIF} {$ENDIF}
{$IFDEF OS_LINUX} { LINUX DEFINITIONS } {$IFDEF OS_UNIX} { LINUX DEFINITIONS }
{ values are words, though the OS calls return 32-bit values } { values are words, though the OS calls return 32-bit values }
{ to check (CEC) } { to check (CEC) }
THandle = LongInt; { Simulated 32 bits } THandle = LongInt; { Simulated 32 bits }
@ -416,7 +416,10 @@ END;
END. END.
{ {
$Log$ $Log$
Revision 1.2 2001-08-05 02:03:13 peter Revision 1.3 2002-06-04 11:12:41 marco
* Renamefest
Revision 1.2 2001/08/05 02:03:13 peter
* view redrawing and small cursor updates * view redrawing and small cursor updates
* merged some more FV extensions * merged some more FV extensions

2
fvision/inplong.pas
View File

@ -71,7 +71,7 @@ Valid returns False.
{$F+,O+,E+,N+} {$F+,O+,E+,N+}
{$endif} {$endif}
{$X+,R-,I-,Q-,V-} {$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX} {$ifndef OS_UNIX}
{$S-} {$S-}
{$endif} {$endif}

2
fvision/resource.pas
View File

@ -33,7 +33,7 @@ interface
{$F+,O+,E+,N+} {$F+,O+,E+,N+}
{$endif} {$endif}
{$X+,R-,I-,Q-,V-} {$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX} {$ifndef OS_UNIX}
{$S-} {$S-}
{$endif} {$endif}

2
fvision/statuses.pas
View File

@ -58,7 +58,7 @@ interface
{$F+,O+,E+,N+} {$F+,O+,E+,N+}
{$endif} {$endif}
{$X+,R-,I-,Q-,V-} {$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX} {$ifndef OS_UNIX}
{$S-} {$S-}
{$endif} {$endif}

17
fvision/time.pas
View File

@ -171,9 +171,9 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
{$ENDIF} {$ENDIF}
{$ifdef OS_LINUX} {$ifdef OS_UNIX}
USES Dos; USES Dos;
{$endif OS_LINUX} {$endif OS_UNIX}
{***************************************************************************} {***************************************************************************}
{ INTERFACE ROUTINES } { INTERFACE ROUTINES }
@ -302,11 +302,11 @@ BEGIN
DosSetDateTime(DT); { Set the time } DosSetDateTime(DT); { Set the time }
END; END;
{$ENDIF} {$ENDIF}
{$ifdef OS_LINUX} {$ifdef OS_UNIX}
BEGIN BEGIN
{settime is dummy in Linux} {settime is dummy in Linux}
END; END;
{$endif OS_LINUX} {$endif OS_UNIX}
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
{ GetTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Nov97 LdB } { GetTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Nov97 LdB }
@ -409,11 +409,11 @@ BEGIN
Sec100 := DT.Hundredths; { Transfer hundredths } Sec100 := DT.Hundredths; { Transfer hundredths }
END; END;
{$ENDIF} {$ENDIF}
{$ifdef OS_LINUX} {$ifdef OS_UNIX}
BEGIN BEGIN
Dos.GetTime(Hour,Minute,Second,Sec100); Dos.GetTime(Hour,Minute,Second,Sec100);
END; END;
{$endif OS_LINUX} {$endif OS_UNIX}
{---------------------------------------------------------------------------} {---------------------------------------------------------------------------}
{ MinutesToTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 19Jun97 LdB } { MinutesToTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 19Jun97 LdB }
@ -438,7 +438,10 @@ END.
{ {
$Log$ $Log$
Revision 1.5 2002-06-03 20:26:16 pierre Revision 1.6 2002-06-04 11:12:41 marco
* Renamefest
Revision 1.5 2002/06/03 20:26:16 pierre
* use local time for windows * use local time for windows
Revision 1.4 2001/05/04 09:04:08 pierre Revision 1.4 2001/05/04 09:04:08 pierre