mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-08-17 17:49:13 +02:00
* uses DosCalls replaced with direct declarations
This commit is contained in:
Tomas Hajny
parent
708a10065a
commit
b94242ee20
@ -23,7 +23,7 @@ interface
|
|||||||
{$H+}
|
{$H+}
|
||||||
|
|
||||||
uses
|
uses
|
||||||
doscalls,dos;
|
Dos;
|
||||||
|
|
||||||
{ Include platform independent interface part }
|
{ Include platform independent interface part }
|
||||||
{$i sysutilh.inc}
|
{$i sysutilh.inc}
|
||||||
@ -36,12 +36,183 @@ implementation
|
|||||||
|
|
||||||
|
|
||||||
{****************************************************************************
|
{****************************************************************************
|
||||||
File Functions
|
System (imported) calls
|
||||||
****************************************************************************}
|
****************************************************************************}
|
||||||
|
|
||||||
|
(* "uses DosCalls" could not be used here due to type *)
|
||||||
|
(* conflicts, so needed parts had to be redefined here). *)
|
||||||
|
|
||||||
|
type
|
||||||
|
TFileStatus = object
|
||||||
|
end;
|
||||||
|
PFileStatus = ^TFileStatus;
|
||||||
|
|
||||||
|
TFileStatus0 = object (TFileStatus)
|
||||||
|
DateCreation, {Date of file creation.}
|
||||||
|
TimeCreation, {Time of file creation.}
|
||||||
|
DateLastAccess, {Date of last access to file.}
|
||||||
|
TimeLastAccess, {Time of last access to file.}
|
||||||
|
DateLastWrite, {Date of last modification of file.}
|
||||||
|
TimeLastWrite: word; {Time of last modification of file.}
|
||||||
|
FileSize, {Size of file.}
|
||||||
|
FileAlloc: longint; {Amount of space the file really
|
||||||
|
occupies on disk.}
|
||||||
|
end;
|
||||||
|
PFileStatus0 = ^TFileStatus0;
|
||||||
|
|
||||||
|
TFileStatus3 = object (TFileStatus)
|
||||||
|
NextEntryOffset: longint; {Offset of next entry}
|
||||||
|
DateCreation, {Date of file creation.}
|
||||||
|
TimeCreation, {Time of file creation.}
|
||||||
|
DateLastAccess, {Date of last access to file.}
|
||||||
|
TimeLastAccess, {Time of last access to file.}
|
||||||
|
DateLastWrite, {Date of last modification of file.}
|
||||||
|
TimeLastWrite: word; {Time of last modification of file.}
|
||||||
|
FileSize, {Size of file.}
|
||||||
|
FileAlloc: longint; {Amount of space the file really
|
||||||
|
occupies on disk.}
|
||||||
|
AttrFile: longint; {Attributes of file.}
|
||||||
|
end;
|
||||||
|
PFileStatus3 = ^TFileStatus3;
|
||||||
|
|
||||||
|
TFileFindBuf3 = object (TFileStatus3)
|
||||||
|
Name: ShortString; {Also possible to use as ASCIIZ.
|
||||||
|
The byte following the last string
|
||||||
|
character is always zero.}
|
||||||
|
end;
|
||||||
|
PFileFindBuf3 = ^TFileFindBuf3;
|
||||||
|
|
||||||
|
TFSInfo = record
|
||||||
|
case word of
|
||||||
|
1:
|
||||||
|
(File_Sys_ID,
|
||||||
|
Sectors_Per_Cluster,
|
||||||
|
Total_Clusters,
|
||||||
|
Free_Clusters: longint;
|
||||||
|
Bytes_Per_Sector: word);
|
||||||
|
2: {For date/time description,
|
||||||
|
see file searching realted
|
||||||
|
routines.}
|
||||||
|
(Label_Date, {Date when volume label was created.}
|
||||||
|
Label_Time: word; {Time when volume label was created.}
|
||||||
|
VolumeLabel: ShortString); {Volume label. Can also be used
|
||||||
|
as ASCIIZ, because the byte
|
||||||
|
following the last character of
|
||||||
|
the string is always zero.}
|
||||||
|
end;
|
||||||
|
PFSInfo = ^TFSInfo;
|
||||||
|
|
||||||
|
TCountryCode=record
|
||||||
|
Country, {Country to query info about (0=current).}
|
||||||
|
CodePage: longint; {Code page to query info about (0=current).}
|
||||||
|
end;
|
||||||
|
PCountryCode=^TCountryCode;
|
||||||
|
|
||||||
|
TTimeFmt = (Clock12, Clock24);
|
||||||
|
|
||||||
|
TCountryInfo=record
|
||||||
|
Country, CodePage: longint; {Country and codepage requested.}
|
||||||
|
case byte of
|
||||||
|
0:
|
||||||
|
(DateFormat: longint; {1=ddmmyy 2=yymmdd 3=mmddyy}
|
||||||
|
CurrencyUnit: array [0..4] of char;
|
||||||
|
ThousandSeparator: char; {Thousands separator.}
|
||||||
|
Zero1: byte; {Always zero.}
|
||||||
|
DecimalSeparator: char; {Decimals separator,}
|
||||||
|
Zero2: byte;
|
||||||
|
DateSeparator: char; {Date separator.}
|
||||||
|
Zero3: byte;
|
||||||
|
TimeSeparator: char; {Time separator.}
|
||||||
|
Zero4: byte;
|
||||||
|
CurrencyFormat, {Bit field:
|
||||||
|
Bit 0: 0=indicator before value
|
||||||
|
1=indicator after value
|
||||||
|
Bit 1: 1=insert space after
|
||||||
|
indicator.
|
||||||
|
Bit 2: 1=Ignore bit 0&1, replace
|
||||||
|
decimal separator with
|
||||||
|
indicator.}
|
||||||
|
DecimalPlace: byte; {Number of decimal places used in
|
||||||
|
currency indication.}
|
||||||
|
TimeFormat: TTimeFmt; {12/24 hour.}
|
||||||
|
Reserve1: array [0..1] of word;
|
||||||
|
DataSeparator: char; {Data list separator}
|
||||||
|
Zero5: byte;
|
||||||
|
Reserve2: array [0..4] of word);
|
||||||
|
1:
|
||||||
|
(fsDateFmt: longint; {1=ddmmyy 2=yymmdd 3=mmddyy}
|
||||||
|
szCurrency: array [0..4] of char;
|
||||||
|
{null terminated currency symbol}
|
||||||
|
szThousandsSeparator: array [0..1] of char;
|
||||||
|
{Thousands separator + #0}
|
||||||
|
szDecimal: array [0..1] of char;
|
||||||
|
{Decimals separator + #0}
|
||||||
|
szDateSeparator: array [0..1] of char;
|
||||||
|
{Date separator + #0}
|
||||||
|
szTimeSeparator: array [0..1] of char;
|
||||||
|
{Time separator + #0}
|
||||||
|
fsCurrencyFmt, {Bit field:
|
||||||
|
Bit 0: 0=indicator before value
|
||||||
|
1=indicator after value
|
||||||
|
Bit 1: 1=insert space after
|
||||||
|
indicator.
|
||||||
|
Bit 2: 1=Ignore bit 0&1, replace
|
||||||
|
decimal separator with
|
||||||
|
indicator}
|
||||||
|
cDecimalPlace: byte; {Number of decimal places used in
|
||||||
|
currency indication}
|
||||||
|
fsTimeFmt: byte; {0=12,1=24 hours}
|
||||||
|
abReserved1: array [0..1] of word;
|
||||||
|
szDataSeparator: array [0..1] of char;
|
||||||
|
{Data list separator + #0}
|
||||||
|
abReserved2: array [0..4] of word);
|
||||||
|
end;
|
||||||
|
PCountryInfo=^TCountryInfo;
|
||||||
|
|
||||||
|
const
|
||||||
|
ilStandard = 1;
|
||||||
|
ilQueryEAsize = 2;
|
||||||
|
ilQueryEAs = 3;
|
||||||
|
ilQueryFullName = 5;
|
||||||
|
|
||||||
{This is the correct way to call external assembler procedures.}
|
{This is the correct way to call external assembler procedures.}
|
||||||
procedure syscall;external name '___SYSCALL';
|
procedure syscall;external name '___SYSCALL';
|
||||||
|
|
||||||
|
function DosSetFileInfo (Handle, InfoLevel: longint; AFileStatus: PFileStatus;
|
||||||
|
FileStatusLen: longint): longint; cdecl; external 'DOSCALLS' index 218;
|
||||||
|
|
||||||
|
function DosQueryFSInfo (DiskNum, InfoLevel: longint; var Buffer: TFSInfo;
|
||||||
|
BufLen: longint): longint; cdecl; external 'DOSCALLS' index 278;
|
||||||
|
|
||||||
|
function DosQueryFileInfo (Handle, InfoLevel: longint;
|
||||||
|
AFileStatus: PFileStatus; FileStatusLen: longint): longint; cdecl;
|
||||||
|
external 'DOSCALLS' index 279;
|
||||||
|
|
||||||
|
function DosScanEnv (Name: PChar; var Value: PChar): longint; cdecl;
|
||||||
|
external 'DOSCALLS' index 227;
|
||||||
|
|
||||||
|
function DosFindFirst (FileMask: PChar; var Handle: longint; Attrib: longint;
|
||||||
|
AFileStatus: PFileStatus; FileStatusLen: longint;
|
||||||
|
var Count: longint; InfoLevel: longint): longint; cdecl;
|
||||||
|
external 'DOSCALLS' index 264;
|
||||||
|
function DosFindNext (Handle: longint; AFileStatus: PFileStatus;
|
||||||
|
FileStatusLen: longint; var Count: longint): longint; cdecl;
|
||||||
|
external 'DOSCALLS' index 265;
|
||||||
|
|
||||||
|
function DosFindClose (Handle: longint): longint; cdecl;
|
||||||
|
external 'DOSCALLS' index 263;
|
||||||
|
|
||||||
|
function DosQueryCtryInfo (Size: longint; var Country: TCountryCode;
|
||||||
|
var Res: TCountryInfo; var ActualSize: longint): longint; cdecl;
|
||||||
|
external 'NLS' index 5;
|
||||||
|
|
||||||
|
function DosMapCase (Size: longint; var Country: TCountryCode;
|
||||||
|
AString: PChar): longint; cdecl; external 'NLS' index 7;
|
||||||
|
|
||||||
|
|
||||||
|
{****************************************************************************
|
||||||
|
File Functions
|
||||||
|
****************************************************************************}
|
||||||
|
|
||||||
const
|
const
|
||||||
ofRead = $0000; {Open for reading}
|
ofRead = $0000; {Open for reading}
|
||||||
@ -245,7 +416,7 @@ begin
|
|||||||
New (FStat);
|
New (FStat);
|
||||||
Rslt.FindHandle := $FFFFFFFF;
|
Rslt.FindHandle := $FFFFFFFF;
|
||||||
Count := 1;
|
Count := 1;
|
||||||
Err := DosFindFirst (Path, Rslt.FindHandle, Attr, FStat,
|
Err := DosFindFirst (PChar (Path), Rslt.FindHandle, Attr, FStat,
|
||||||
SizeOf (FStat^), Count, ilStandard);
|
SizeOf (FStat^), Count, ilStandard);
|
||||||
if (Err = 0) and (Count = 0) then Err := 18;
|
if (Err = 0) and (Count = 0) then Err := 18;
|
||||||
FindFirst := -Err;
|
FindFirst := -Err;
|
||||||
@ -779,7 +950,10 @@ end.
|
|||||||
|
|
||||||
{
|
{
|
||||||
$Log$
|
$Log$
|
||||||
Revision 1.13 2001-10-25 21:23:49 peter
|
Revision 1.14 2001-12-16 19:08:20 hajny
|
||||||
|
* uses DosCalls replaced with direct declarations
|
||||||
|
|
||||||
|
Revision 1.13 2001/10/25 21:23:49 peter
|
||||||
* added 64bit fileseek
|
* added 64bit fileseek
|
||||||
|
|
||||||
Revision 1.12 2001/06/03 15:18:01 peter
|
Revision 1.12 2001/06/03 15:18:01 peter
|
||||||
|
|||||||
Loading…
Reference in New Issue
Block a user