mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-14 04:19:28 +02:00
* Some work on sysutils.pp about file I/O
git-svn-id: trunk@17813 -
This commit is contained in:
Legolas
parent
a0f7356edc
commit
d530b4fce7
@ -2,7 +2,7 @@
|
||||
This file is part of the Free Component Library (FCL)
|
||||
Copyright (c) 1999-2002 by the Free Pascal development team
|
||||
|
||||
BIOS functions unit for Nintendo DS
|
||||
libc unit for Nintendo DS
|
||||
Copyright (c) 2006 by Francesco Lombardi
|
||||
|
||||
See the file COPYING.FPC, included in this distribution,
|
||||
@ -84,6 +84,17 @@ const
|
||||
SEEK_SET = 0;
|
||||
SEEK_CUR = 1;
|
||||
SEEK_END = 2;
|
||||
R_OK = 1;
|
||||
W_OK = 2;
|
||||
X_OK = 4;
|
||||
F_OK = 8;
|
||||
L_SET = SEEK_SET;
|
||||
L_INCR = SEEK_CUR;
|
||||
L_XTND = SEEK_END;
|
||||
EFF_ONLY_OK = 8;
|
||||
STDIN_FILENO = 0;
|
||||
STDOUT_FILENO = 1;
|
||||
STDERR_FILENO = 2;
|
||||
|
||||
(*
|
||||
------------------------------------------------------------------------------
|
||||
@ -170,7 +181,6 @@ procedure rewinddir(dirp: PDIR); cdecl; external;
|
||||
procedure seekdir(dirp: PDIR; loc: longint); cdecl; external;
|
||||
function telldir(dirp: PDIR): longint; cdecl; external;
|
||||
|
||||
|
||||
function diropen(const path: pchar): PDIR_ITER; cdecl; external;
|
||||
function dirreset(dirState: PDIR_ITER): longint; cdecl; external;
|
||||
function dirnext(dirState: PDIR_ITER; filename: pchar; filestat: Pstat): longint; cdecl; external;
|
||||
@ -197,3 +207,73 @@ function _stat(__file:Pchar; var __buf:Tstat):longint; cdecl; external name 'sta
|
||||
function ftruncate(fildes: longint; len: longint): longint; cdecl; external;
|
||||
function unlink(path: Pchar): longint; cdecl; external;
|
||||
function rename(para1: Pchar; para2: Pchar): longint; cdecl; external;
|
||||
|
||||
function FpOpen(path: Pchar; oflag: longint): longint; cdecl; external name 'open';
|
||||
function FpOpen(path: Pchar; oflag, mode: longint): longint; cdecl; external name 'open';
|
||||
function FpRead(fildes:longint; buf:pointer; nbytes:dword):longint;cdecl;external name 'read';
|
||||
function FpRead(fildes:longint; var buf; nbytes:dword):longint;cdecl;external name 'read';
|
||||
function FpWrite(fildes:longint; buf:pointer; nbytes:dword):longint;cdecl;external name 'write';
|
||||
function FpWrite(fildes:longint; var buf; nbytes:dword):longint;cdecl;external name 'write';
|
||||
function fplseek(fildes:longint; offset:longint; whence:longint):longint;cdecl;external name 'lseek';
|
||||
function FpClose(fildes:longint):longint;cdecl;external name 'close';
|
||||
function FpChsize(fildes:longint; size:dword):longint;cdecl;external name 'chsize';
|
||||
function FpUnlink(path:Pchar):longint;cdecl;external name 'unlink';
|
||||
function FpRename(para1: Pchar; para2: Pchar): longint; cdecl; external name 'rename';
|
||||
function Fpstat(path:Pchar; buf:Pstat):longint;cdecl;external name 'stat';
|
||||
function Fpstat(path:Pchar; var buf:Tstat):longint;cdecl;external name 'stat';
|
||||
function FpAccess(path:Pchar; mode:longint):longint;cdecl;external name 'access';
|
||||
|
||||
|
||||
|
||||
const
|
||||
F_GETFL = 1; // get file status flags
|
||||
F_SETFL = 2; // set file status flags
|
||||
F_DUPFD = 3; // duplicate file descriptor
|
||||
F_GETFD = 4; // get file descriptor flags
|
||||
F_SETFD = 5; // set file descriptor flags
|
||||
F_SETLK = 6; // set record locking info
|
||||
F_SETLK64 = 16; // set record locking info (64-bit)
|
||||
F_GETLK = 7; // get record locking info
|
||||
F_GETLK64 = 17; // get record locking info (64-bit)
|
||||
F_SETLKW = 8; // get record locking info; wait if blocked
|
||||
F_SETLKW64 = 18; // get record locking info (64-bit)
|
||||
F_CLOEXEC = 9; // close on execute
|
||||
|
||||
// values for 'l_type' field of 'struct flock'...
|
||||
F_RDLCK = 1; // shared or read lock
|
||||
F_WRLCK = 2; // exclusive or write lock
|
||||
F_UNLCK = 3; // unlock
|
||||
|
||||
// values for 'oflag' in open()...
|
||||
O_RDONLY =$00000000; // open for read only
|
||||
O_WRONLY =$00000001; // open for write only
|
||||
O_RDWR =$00000002; // open for read and write
|
||||
O_ACCMODE =$00000003; // access flags mask
|
||||
O_reserved1 =$00000004; // reserved
|
||||
O_reserved2 =$00000008; // reserved
|
||||
O_APPEND =$00000010; // writes done at end of file
|
||||
O_CREAT =$00000020; // create new file
|
||||
O_TRUNC =$00000040; // truncate existing file
|
||||
O_EXCL =$00000080; // exclusive open
|
||||
O_NOCTTY =$00000100; // no controlling terminal--unsupported
|
||||
O_BINARY =$00000200; // binary file--all files
|
||||
O_NDELAY =$00000400; // nonblocking flag
|
||||
O_reserved3 =$00000800; // reserved
|
||||
O_SYNC =$00001000; // synchronized I/O file integrity
|
||||
O_DSYNC =$00002000; // synchronized I/O data integrity
|
||||
O_RSYNC =$00004000; // synchronized read I/O
|
||||
O_NONBLOCK = O_NDELAY; // alias
|
||||
FD_CLOEXEC =$00008000; // parent closes after call to process()
|
||||
O_UPDATE =$00010000; // keep legacy files updated
|
||||
O_FIFO =$00100000; // opening one end of a FIFO [non-standard]
|
||||
|
||||
// value for third argument when 'cmd' is F_SETFL in fcntl()...
|
||||
FNDELAY = O_NDELAY; // fcntl() non-blocking I/O
|
||||
|
||||
// 'shflag' values for sopen()...
|
||||
SH_DENYRW = $00000010; // deny read/write mode
|
||||
SH_DENYWR = $00000020; // deny write mode
|
||||
SH_DENYRD = $00000030; // deny read mode
|
||||
SH_DENYNO = $00000040; // deny none mode
|
||||
|
||||
|
||||
@ -32,12 +32,11 @@ interface
|
||||
{ Include platform independent interface part }
|
||||
{$i sysutilh.inc}
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
uses
|
||||
dos, sysconst;
|
||||
|
||||
uses
|
||||
sysconst;
|
||||
|
||||
{ Include platform independent implementation part }
|
||||
{$i sysutils.inc}
|
||||
|
||||
@ -46,8 +45,17 @@ uses
|
||||
File Functions
|
||||
****************************************************************************}
|
||||
function FileOpen(const FileName: string; Mode: Integer): LongInt;
|
||||
var
|
||||
NDSFlags: longint;
|
||||
begin
|
||||
result := -1;
|
||||
NDSFlags := 0;
|
||||
|
||||
case (Mode and (fmOpenRead or fmOpenWrite or fmOpenReadWrite)) of
|
||||
fmOpenRead : NDSFlags := NDSFlags or O_RdOnly;
|
||||
fmOpenWrite : NDSFlags := NDSFlags or O_WrOnly;
|
||||
fmOpenReadWrite : NDSFlags := NDSFlags or O_RdWr;
|
||||
end;
|
||||
FileOpen := fpopen(pchar(FileName), NDSFlags);
|
||||
end;
|
||||
|
||||
|
||||
@ -65,65 +73,69 @@ end;
|
||||
|
||||
function FileCreate(const FileName: string) : LongInt;
|
||||
begin
|
||||
result := -1;
|
||||
FileCreate:=fpopen(pointer(FileName), O_RdWr or O_Creat or O_Trunc);
|
||||
end;
|
||||
|
||||
|
||||
function FileCreate(const FileName: string; Rights: integer): LongInt;
|
||||
begin
|
||||
result := -1;
|
||||
FileCreate:=fpOpen(pointer(FileName),O_RdWr or O_Creat or O_Trunc,Rights);
|
||||
end;
|
||||
|
||||
|
||||
function FileCreate(const FileName: string; ShareMode : Integer; Rights: integer): LongInt;
|
||||
begin
|
||||
result := -1;
|
||||
result := FileCreate(FileName, Rights);
|
||||
end;
|
||||
|
||||
|
||||
function FileRead(Handle: LongInt; Out Buffer; Count: LongInt): LongInt;
|
||||
begin
|
||||
result := -1;
|
||||
FileRead := fpRead(Handle, Buffer, Count);
|
||||
end;
|
||||
|
||||
|
||||
function FileWrite(Handle: LongInt; const Buffer; Count: LongInt): LongInt;
|
||||
begin
|
||||
result := -1;
|
||||
FileWrite := fpWrite(Handle, @Buffer, Count);
|
||||
end;
|
||||
|
||||
|
||||
function FileSeek(Handle, FOffset, Origin: LongInt) : LongInt;
|
||||
begin
|
||||
result := -1;
|
||||
result := longint(FileSeek(Handle, int64(FOffset), Origin));
|
||||
end;
|
||||
|
||||
function FileSeek(Handle: LongInt; FOffset: Int64; Origin: Longint): Int64;
|
||||
begin
|
||||
result := -1;
|
||||
FileSeek := fplSeek(Handle, FOffset, Origin);
|
||||
end;
|
||||
|
||||
|
||||
procedure FileClose(Handle: LongInt);
|
||||
begin
|
||||
fpclose(Handle);
|
||||
end;
|
||||
|
||||
|
||||
function FileTruncate(Handle: THandle; Size: Int64): Boolean;
|
||||
begin
|
||||
result := false;
|
||||
if Size > high (longint) then
|
||||
FileTruncate := false
|
||||
else
|
||||
FileTruncate:=(fpchsize(Handle,Size) = 0);
|
||||
end;
|
||||
|
||||
|
||||
function DeleteFile(const FileName: string) : Boolean;
|
||||
begin
|
||||
result := false;
|
||||
Result := fpUnLink(pointer(FileName))>= 0;
|
||||
end;
|
||||
|
||||
|
||||
function RenameFile(const OldName, NewName: string): Boolean;
|
||||
begin
|
||||
result := false;
|
||||
RenameFile := FpRename(pointer(OldNAme), pointer(NewName)) >= 0;
|
||||
end;
|
||||
|
||||
|
||||
@ -131,14 +143,19 @@ end;
|
||||
|
||||
|
||||
Function FileAge (Const FileName : String): Longint;
|
||||
var
|
||||
info: Stat;
|
||||
begin
|
||||
result := -1;
|
||||
if (fpstat(pointer(FileName), Info) < 0) or S_ISDIR(info.st_mode) then
|
||||
exit(-1)
|
||||
else
|
||||
Result := (info.st_mtime);
|
||||
end;
|
||||
|
||||
|
||||
Function FileExists (Const FileName : String) : Boolean;
|
||||
Begin
|
||||
result := false;
|
||||
begin
|
||||
FileExists := fpAccess(pointer(filename), F_OK) = 0;
|
||||
end;
|
||||
|
||||
|
||||
@ -156,11 +173,16 @@ end;
|
||||
|
||||
Procedure FindClose (Var F : TSearchrec);
|
||||
begin
|
||||
|
||||
end;
|
||||
|
||||
Function FileGetAttr (Const FileName : String) : Longint;
|
||||
Var Info : TStat;
|
||||
begin
|
||||
result := -1;
|
||||
If Fpstat(pchar(FileName), Info) <> 0 then
|
||||
Result := -1
|
||||
Else
|
||||
Result := (Info.st_mode shr 16) and $ffff;
|
||||
end;
|
||||
|
||||
|
||||
|
||||
Loading…
Reference in New Issue
Block a user