mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-04 05:59:37 +01:00
90 lines
2.7 KiB
PHP
90 lines
2.7 KiB
PHP
{
|
|
$Id$
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 1998 by the Free Pascal development team
|
|
|
|
File utility calls
|
|
|
|
See the file COPYING.FPC, included in this distribution,
|
|
for details about the copyright.
|
|
|
|
This program is distributed in the hope that it will be useful,
|
|
but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.
|
|
|
|
**********************************************************************}
|
|
|
|
Type
|
|
THandle = Longint;
|
|
|
|
Type
|
|
TSearchRec = Record
|
|
Time,Size, Attr : Longint;
|
|
Name : TFileName;
|
|
ExcludeAttr : Longint;
|
|
FindHandle : THandle;
|
|
{$ifdef Win32}
|
|
FindData : TWin32FindData;
|
|
{$endif}
|
|
end;
|
|
|
|
Const
|
|
{ File attributes }
|
|
faReadOnly = $00000001;
|
|
faHidden = $00000002;
|
|
faSysFile = $00000004;
|
|
faVolumeId = $00000008;
|
|
faDirectory = $00000010;
|
|
faArchive = $00000020;
|
|
faAnyFile = $0000003f;
|
|
|
|
{ File open modes }
|
|
fmOpenRead = $0000;
|
|
fmOpenWrite = $0001;
|
|
fmOpenReadWrite = $0002;
|
|
|
|
{ File seek origins }
|
|
fsFromBeginning = 0;
|
|
fsFromCurrent = 1;
|
|
fsFromEnd = 2;
|
|
|
|
Function FileOpen (Const FileName : string; Mode : Integer) : Longint;
|
|
Function FileCreate (Const FileName : String) : Longint;
|
|
Function FileRead (Handle : Longint; Var Buffer; Count : longint) : Longint;
|
|
Function FileWrite (Handle : Longint; Var Buffer; Count : Longint) : Longint;
|
|
Function FileSeek (Handle,Offset,Origin : Longint) : Longint;
|
|
Procedure FileClose (Handle : Longint);
|
|
Function FileTruncate (Handle,Size: Longint) : boolean;
|
|
Function FileAge (Const FileName : String): Longint;
|
|
Function FileExists (Const FileName : String) : Boolean;
|
|
Function FindFirst (Const Path : String; Attr : Longint; Var Rslt : TSearchRec) : Longint;
|
|
Function FindNext (Var Rslt : TSearchRec) : Longint;
|
|
Procedure FindClose (Var F : TSearchrec);
|
|
Function FileGetDate (Handle : Longint) : Longint;
|
|
Function FileSetDate (Handle,Age : Longint) : Longint;
|
|
Function FileGetAttr (Const FileName : String) : Longint;
|
|
Function FileSetAttr (Const Filename : String; Attr: longint) : Longint;
|
|
Function DeleteFile (Const FileName : String) : Boolean;
|
|
Function RenameFile (Const OldName, NewName : String) : Boolean;
|
|
Function FileSearch (Const Name, DirList : String) : String;
|
|
|
|
|
|
{
|
|
$Log$
|
|
Revision 1.5 1999-05-15 07:25:22 michael
|
|
+ Defined seek constants
|
|
|
|
Revision 1.4 1999/02/09 12:38:43 michael
|
|
* Fixed INt() proble. Defined THandle, included Filemode constants
|
|
|
|
Revision 1.3 1999/02/02 21:21:37 michael
|
|
+ Added filetruncate
|
|
|
|
Revision 1.2 1998/10/11 13:47:45 michael
|
|
+ Added disk functions
|
|
|
|
Revision 1.1 1998/10/11 12:21:01 michael
|
|
Added file calls. Implemented for linux only
|
|
|
|
}
|