paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-07 18:47:52 +02: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+}
{$endif}
{$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX}
{$ifndef OS_UNIX}
{$S-}
{$endif}

15
fv/drivers.pas
View File

@ -46,7 +46,7 @@ UNIT Drivers;
{$X+} { Extended syntax is ok }
{$R-} { Disable range checking }
{$IFNDEF OS_LINUX}
{$IFNDEF OS_UNIX}
{$S-} { Disable Stack Checking }
{$ENDIF}
{$I-} { Disable IO Checking }
@ -68,7 +68,7 @@ USES
{$ENDIF}
{$ENDIF}
{$IFDEF OS_LINUX}
{$IFDEF OS_UNIX}
{$ifdef VER1_0}
linux,
{$else}
@ -704,7 +704,7 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
GetDosTicks := L div 55;
end;
{$ENDIF}
{$IFDEF OS_LINUX}
{$IFDEF OS_UNIX}
var
tv : TimeVal;
{ tz : TimeZone;}
@ -712,7 +712,7 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
GetTimeOfDay(tv{,tz});
GetDosTicks:=((tv.Sec mod 86400) div 60)*1092+((tv.Sec mod 60)*1000000+tv.USec) div 54945;
end;
{$ENDIF OS_LINUX}
{$ENDIF OS_UNIX}
{$IFDEF OS_WINDOWS}
begin
GetDosTicks:=GetTickCount div 55;
@ -752,7 +752,7 @@ END;
{---------------------------------------------------------------------------}
{ 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
DoneSysError; { Relase error trap }
DoneEvents; { Close event driver }
@ -1629,7 +1629,10 @@ BEGIN
END.
{
$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
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+}
{$endif}
{$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX}
{$ifndef OS_UNIX}
{$S-}
{$endif}

30
fv/fileio.pas
View File

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

7
fv/fvcommon.pas
View File

@ -144,7 +144,7 @@ TYPE
{$IFDEF OS_ATARI} { ATARI DEFINITION }
THandle = Integer; { Handles are 16 bits }
{$ENDIF}
{$IFDEF OS_LINUX} { LINUX DEFINITIONS }
{$IFDEF OS_UNIX} { LINUX DEFINITIONS }
{ values are words, though the OS calls return 32-bit values }
{ to check (CEC) }
THandle = LongInt; { Simulated 32 bits }
@ -416,7 +416,10 @@ END;
END.
{
$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
* merged some more FV extensions

2
fv/inplong.pas
View File

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

2
fv/resource.pas
View File

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

2
fv/statuses.pas
View File

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

17
fv/time.pas
View File

@ -171,9 +171,9 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
{$ENDIF}
{$ifdef OS_LINUX}
{$ifdef OS_UNIX}
USES Dos;
{$endif OS_LINUX}
{$endif OS_UNIX}
{***************************************************************************}
{ INTERFACE ROUTINES }
@ -302,11 +302,11 @@ BEGIN
DosSetDateTime(DT); { Set the time }
END;
{$ENDIF}
{$ifdef OS_LINUX}
{$ifdef OS_UNIX}
BEGIN
{settime is dummy in Linux}
END;
{$endif OS_LINUX}
{$endif OS_UNIX}
{---------------------------------------------------------------------------}
{ GetTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Nov97 LdB }
@ -409,11 +409,11 @@ BEGIN
Sec100 := DT.Hundredths; { Transfer hundredths }
END;
{$ENDIF}
{$ifdef OS_LINUX}
{$ifdef OS_UNIX}
BEGIN
Dos.GetTime(Hour,Minute,Second,Sec100);
END;
{$endif OS_LINUX}
{$endif OS_UNIX}
{---------------------------------------------------------------------------}
{ MinutesToTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 19Jun97 LdB }
@ -438,7 +438,10 @@ END.
{
$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
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+}
{$endif}
{$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX}
{$ifndef OS_UNIX}
{$S-}
{$endif}

15
fvision/drivers.pas
View File

@ -46,7 +46,7 @@ UNIT Drivers;
{$X+} { Extended syntax is ok }
{$R-} { Disable range checking }
{$IFNDEF OS_LINUX}
{$IFNDEF OS_UNIX}
{$S-} { Disable Stack Checking }
{$ENDIF}
{$I-} { Disable IO Checking }
@ -68,7 +68,7 @@ USES
{$ENDIF}
{$ENDIF}
{$IFDEF OS_LINUX}
{$IFDEF OS_UNIX}
{$ifdef VER1_0}
linux,
{$else}
@ -704,7 +704,7 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
GetDosTicks := L div 55;
end;
{$ENDIF}
{$IFDEF OS_LINUX}
{$IFDEF OS_UNIX}
var
tv : TimeVal;
{ tz : TimeZone;}
@ -712,7 +712,7 @@ Function GetDosTicks:longint; { returns ticks at 18.2 Hz, just like DOS }
GetTimeOfDay(tv{,tz});
GetDosTicks:=((tv.Sec mod 86400) div 60)*1092+((tv.Sec mod 60)*1000000+tv.USec) div 54945;
end;
{$ENDIF OS_LINUX}
{$ENDIF OS_UNIX}
{$IFDEF OS_WINDOWS}
begin
GetDosTicks:=GetTickCount div 55;
@ -752,7 +752,7 @@ END;
{---------------------------------------------------------------------------}
{ 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
DoneSysError; { Relase error trap }
DoneEvents; { Close event driver }
@ -1629,7 +1629,10 @@ BEGIN
END.
{
$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
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+}
{$endif}
{$X+,R-,I-,Q-,V-}
{$ifndef OS_LINUX}
{$ifndef OS_UNIX}
{$S-}
{$endif}

30
fvision/fileio.pas
View File

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

7
fvision/fvcommon.pas
View File

@ -144,7 +144,7 @@ TYPE
{$IFDEF OS_ATARI} { ATARI DEFINITION }
THandle = Integer; { Handles are 16 bits }
{$ENDIF}
{$IFDEF OS_LINUX} { LINUX DEFINITIONS }
{$IFDEF OS_UNIX} { LINUX DEFINITIONS }
{ values are words, though the OS calls return 32-bit values }
{ to check (CEC) }
THandle = LongInt; { Simulated 32 bits }
@ -416,7 +416,10 @@ END;
END.
{
$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
* merged some more FV extensions

2
fvision/inplong.pas
View File

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

2
fvision/resource.pas
View File

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

2
fvision/statuses.pas
View File

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

17
fvision/time.pas
View File

@ -171,9 +171,9 @@ PROCEDURE SecondsToTime (Sd: LongInt; Var Hour24, Minute, Second: Word);
{$ENDIF}
{$ifdef OS_LINUX}
{$ifdef OS_UNIX}
USES Dos;
{$endif OS_LINUX}
{$endif OS_UNIX}
{***************************************************************************}
{ INTERFACE ROUTINES }
@ -302,11 +302,11 @@ BEGIN
DosSetDateTime(DT); { Set the time }
END;
{$ENDIF}
{$ifdef OS_LINUX}
{$ifdef OS_UNIX}
BEGIN
{settime is dummy in Linux}
END;
{$endif OS_LINUX}
{$endif OS_UNIX}
{---------------------------------------------------------------------------}
{ GetTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 06Nov97 LdB }
@ -409,11 +409,11 @@ BEGIN
Sec100 := DT.Hundredths; { Transfer hundredths }
END;
{$ENDIF}
{$ifdef OS_LINUX}
{$ifdef OS_UNIX}
BEGIN
Dos.GetTime(Hour,Minute,Second,Sec100);
END;
{$endif OS_LINUX}
{$endif OS_UNIX}
{---------------------------------------------------------------------------}
{ MinutesToTime -> Platforms DOS/DPMI/WIN/NT/OS2 - Updated 19Jun97 LdB }
@ -438,7 +438,10 @@ END.
{
$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
Revision 1.4 2001/05/04 09:04:08 pierre