paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-13 11:19:58 +02:00
Code Issues Packages Projects Releases Wiki Activity

* compatibility updates and corrections

Browse Source
This commit is contained in:
Tomas Hajny 2002-10-12 19:36:08 +00:00
parent b845456453
commit d9d4fe8484
1 changed files with 87 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

89
rtl/os2/doscalls.pas
View File

@ -711,11 +711,17 @@ type TgEA=record
{*******************End of extented attribute datastructures.***************} {*******************End of extented attribute datastructures.***************}
{Usefull constanst for Action parameter.} {Usefull constanst for Action parameter.}
{ DosOpen() actions }
const doOpened = 1; const doOpened = 1;
doCreated = 2; doCreated = 2;
doOverwritten = 3; doOverwritten = 3;
FILE_EXISTED = doOpened;
FILE_CREATED = doCreated;
FILE_TRUNCATED = doOverwritten;
{Usefull constants for OpenFlags parameter.} {Usefull constants for OpenFlags parameter.}
{ DosOpen() open flags }
const doFail = 0; const doFail = 0;
doOpen = 1; doOpen = 1;
doOverwrite = 2; doOverwrite = 2;
@ -724,6 +730,19 @@ const doFail = 0;
contents : Creation flags is 10 hex not 10 dec. contents : Creation flags is 10 hex not 10 dec.
*) *)
doCreate = 16; doCreate = 16;
FILE_OPEN = doOpen;
FILE_TRUNCATE = doOverwrite;
FILE_CREATE = doCreate;
{ this nibble applies if file already exists xxxx }
OPEN_ACTION_FAIL_IF_EXISTS =doFail; { ---- ---- ---- 0000 }
OPEN_ACTION_OPEN_IF_EXISTS =doOpen; { ---- ---- ---- 0001 }
OPEN_ACTION_REPLACE_IF_EXISTS =doOverwrite; { ---- ---- ---- 0010 }
{ this nibble applies if file does not exist xxxx }
OPEN_ACTION_FAIL_IF_NEW =doFail; { ---- ---- 0000 ---- }
OPEN_ACTION_CREATE_IF_NEW =DoCreate; { ---- ---- 0001 ---- }
{Usefull constants for openmode parameter.} {Usefull constants for openmode parameter.}
@ -742,6 +761,30 @@ const doRead = 0;
doWriteThru = 16384; doWriteThru = 16384;
doDASD = 32768; doDASD = 32768;
{ DosOpen/DosSetFHandState flags }
OPEN_ACCESS_READONLY =doRead; { ---- ---- ---- -000 }
OPEN_ACCESS_WRITEONLY =doWrite; { ---- ---- ---- -001 }
OPEN_ACCESS_READWRITE =doReadWrite; { ---- ---- ---- -010 }
OPEN_SHARE_DENYREADWRITE =doDenyRW; { ---- ---- -001 ---- }
OPEN_SHARE_DENYWRITE =doDenyWrite; { ---- ---- -010 ---- }
OPEN_SHARE_DENYREAD =doDenyRead; { ---- ---- -011 ---- }
OPEN_SHARE_DENYNONE =doDenyNone; { ---- ---- -100 ---- }
OPEN_FLAGS_NOINHERIT =doNoInherit; { ---- ---- 1--- ---- }
OPEN_FLAGS_NO_LOCALITY =$0000; { ---- -000 ---- ---- }
OPEN_FLAGS_SEQUENTIAL =doSequential; { ---- -001 ---- ---- }
OPEN_FLAGS_RANDOM =doRandom; { ---- -010 ---- ---- }
OPEN_FLAGS_RANDOMSEQUENTIAL =doSequential
or doRandom; { ---- -011 ---- ---- }
OPEN_FLAGS_NO_CACHE =doNoCache; { ---1 ---- ---- ---- }
OPEN_FLAGS_FAIL_ON_ERROR =doFailOnErr; { --1- ---- ---- ---- }
OPEN_FLAGS_WRITE_THROUGH =doWriteThru; { -1-- ---- ---- ---- }
OPEN_FLAGS_DASD =doDASD; { 1--- ---- ---- ---- }
OPEN_FLAGS_NONSPOOLED =$00040000;
OPEN_FLAGS_PROTECTED_HANDLE =$40000000;
{ Open a file. { Open a file.
FileName = Name of file. FileName = Name of file.
@ -799,6 +842,9 @@ The filename must consist of the driveletter followed by a semicolon.}
function DosOpen(FileName:PChar;var Handle,Action:longint; function DosOpen(FileName:PChar;var Handle,Action:longint;
InitSize:longint;Attrib,OpenFlags,FileMode:longint; InitSize:longint;Attrib,OpenFlags,FileMode:longint;
EA:PEAOp2):longint; cdecl; EA:PEAOp2):longint; cdecl;
function DosOpen(FileName:PChar;var Handle:longint;var Action:cardinal;
InitSize,Attrib,OpenFlags,FileMode:cardinal;
EA:PEAOp2):longint; cdecl;
{This variant of DosOpen always creates or overwrites a file.} {This variant of DosOpen always creates or overwrites a file.}
function DosCreate(FileName:PChar;var Handle:longint; function DosCreate(FileName:PChar;var Handle:longint;
Attrib,OpenMode:longint):longint; Attrib,OpenMode:longint):longint;
@ -809,6 +855,9 @@ function DosOpen(FileName:PChar;var Handle:longint;
function DosOpen(const FileName:string;var Handle,Action:longint; function DosOpen(const FileName:string;var Handle,Action:longint;
InitSize,Attrib,OpenFlags,OpenMode:longint; InitSize,Attrib,OpenFlags,OpenMode:longint;
ea:PEAOp2):longint; ea:PEAOp2):longint;
function DosOpen(const FileName:string;var Handle:longint;var Action:cardinal;
InitSize,Attrib,OpenFlags,OpenMode:cardinal;
ea:PEAOp2):longint;
function DosCreate(const FileName:string;var Handle:longint; function DosCreate(const FileName:string;var Handle:longint;
Attrib,OpenMode:longint):longint; Attrib,OpenMode:longint):longint;
function DosOpen(const FileName:string;var Handle:longint; function DosOpen(const FileName:string;var Handle:longint;
@ -828,6 +877,9 @@ function DosClose(Handle:longint):longint; cdecl;
function DosRead(Handle:longint;var Buffer;Count:longint; function DosRead(Handle:longint;var Buffer;Count:longint;
var ActCount:longint):longint; cdecl; var ActCount:longint):longint; cdecl;
function DosRead(Handle:longint;var Buffer;Count:cardinal;
var ActCount:cardinal):longint; cdecl;
{Write to a file or other type of handle. {Write to a file or other type of handle.
Handle = File handle. Handle = File handle.
@ -837,6 +889,9 @@ function DosRead(Handle:longint;var Buffer;Count:longint;
function DosWrite(Handle:longint;var Buffer;Count:longint; function DosWrite(Handle:longint;var Buffer;Count:longint;
var ActCount:longint):longint; cdecl; var ActCount:longint):longint; cdecl;
function DosWrite(Handle:longint;var Buffer;Count:cardinal;
var ActCount:cardinal):longint; cdecl;
const dsZeroBased=0; {Set filepointer from begin of file.} const dsZeroBased=0; {Set filepointer from begin of file.}
dsRelative=1; {Set filepointer relative to the current one.} dsRelative=1; {Set filepointer relative to the current one.}
dsEndBased=2; {Set filepointer from end of file.} dsEndBased=2; {Set filepointer from end of file.}
@ -2858,10 +2913,16 @@ function DosOpen(FileName:PChar;var Handle,Action:longint;
external 'DOSCALLS' index 273; external 'DOSCALLS' index 273;
function DosOpen(FileName:PChar;var Handle:longint;var Action:cardinal;
InitSize,Attrib,OpenFlags,FileMode:cardinal;
EA:PEAOp2):longint; cdecl;
external 'DOSCALLS' index 273;
function DosCreate(FileName:PChar;var Handle:longint; function DosCreate(FileName:PChar;var Handle:longint;
Attrib,OpenMode:longint):longint; Attrib,OpenMode:longint):longint;
var Action:longint; var Action:cardinal;
begin begin
DosCreate:=DosOpen(FileName,Handle,Action,0,Attrib,18,OpenMode,nil); DosCreate:=DosOpen(FileName,Handle,Action,0,Attrib,18,OpenMode,nil);
@ -2887,6 +2948,17 @@ begin
DosOpen:=DosOpen(@T,Handle,Action,InitSize,Attrib,OpenFlags,OpenMode,EA); DosOpen:=DosOpen(@T,Handle,Action,InitSize,Attrib,OpenFlags,OpenMode,EA);
end; end;
function DosOpen(const FileName:string;var Handle:longint;var Action:cardinal;
InitSize,Attrib,OpenFlags,OpenMode:cardinal;
EA:PEAOp2):longint;
var T:array[0..255] of char;
begin
StrPCopy(@T,FileName);
DosOpen:=DosOpen(@T,Handle,Action,InitSize,Attrib,OpenFlags,OpenMode,EA);
end;
function DosCreate(const FileName:string;var Handle:longint; function DosCreate(const FileName:string;var Handle:longint;
Attrib,OpenMode:longint):longint; Attrib,OpenMode:longint):longint;
@ -2918,11 +2990,21 @@ function DosRead(Handle:longint;var Buffer;Count:longint;
external 'DOSCALLS' index 281; external 'DOSCALLS' index 281;
function DosRead(Handle:longint;var Buffer;Count:cardinal;
var ActCount:cardinal):longint; cdecl;
external 'DOSCALLS' index 281;
function DosWrite(Handle:longint;var Buffer;Count:longint; function DosWrite(Handle:longint;var Buffer;Count:longint;
var ActCount:longint):longint; cdecl; var ActCount:longint):longint; cdecl;
external 'DOSCALLS' index 282; external 'DOSCALLS' index 282;
function DosWrite(Handle:longint;var Buffer;Count:cardinal;
var ActCount:cardinal):longint; cdecl;
external 'DOSCALLS' index 282;
function DosSetFilePtr(Handle:longint;Pos,Method:longint; function DosSetFilePtr(Handle:longint;Pos,Method:longint;
var PosActual:longint):longint; cdecl; var PosActual:longint):longint; cdecl;
@ -4236,7 +4318,10 @@ external 'DOSCALLS' index 582;
end. end.
{ {
$Log$ $Log$
Revision 1.14 2002-10-05 19:09:57 hajny Revision 1.15 2002-10-12 19:36:08 hajny
* compatibility updates and corrections
Revision 1.14 2002/10/05 19:09:57 hajny
* code2.as + code3.as not needed any more * code2.as + code3.as not needed any more
Revision 1.13 2002/09/22 18:44:13 hajny Revision 1.13 2002/09/22 18:44:13 hajny