mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-11-03 23:54:33 +01:00
71 lines
3.4 KiB
PHP
71 lines
3.4 KiB
PHP
{
|
|
This file is part of the Free Pascal run time library.
|
|
Copyright (c) 2006 by Karoly Balogh
|
|
|
|
dos.library functions for AmigaOS 4.x/PowerPC
|
|
|
|
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.
|
|
|
|
**********************************************************************}
|
|
|
|
function Open(name: PChar; accessMode: longint): longint; syscall IDOS 76;
|
|
function dosClose(_file: longint): LongBool; syscall IDOS 80;
|
|
function dosRead(_file: longint; buffer: Pointer; length: longint): longint; syscall IDOS 84;
|
|
function dosWrite(_file: longint; buffer: Pointer; length: longint): longint; syscall IDOS 88;
|
|
function dosInput: longint; syscall IDOS 92;
|
|
function dosOutput: longint; syscall IDOS 96;
|
|
function dosSeek(_file: longint;position: longint;offset: longint): longint; syscall IDOS 100;
|
|
function dosDeleteFile(name: PChar): LongBool; syscall IDOS 104;
|
|
function dosRename(oldName: PChar;newName: PChar): longint; syscall IDOS 108;
|
|
function Lock(name: PChar;_type: longint): longint; syscall IDOS 112;
|
|
procedure UnLock(lock: longint); syscall IDOS 116;
|
|
|
|
function Examine(lock: longint; fileInfoBlock: PFileInfoBlock): LongInt; syscall IDOS 124;
|
|
|
|
function Info(lock: longint; parameterBlock: PInfoData): LongInt; syscall IDOS 132;
|
|
function dosCreateDir(name: PChar): longint; syscall IDOS 136;
|
|
function CurrentDir(lock: longint): longint; syscall IDOS 140;
|
|
function IoErr: longint; syscall IDOS 144;
|
|
|
|
function SetProtection(name: PChar; protect: longword): LongInt; syscall IDOS 180;
|
|
function DateStamp(date: PDateStamp): PDateStamp; syscall IDOS 184;
|
|
procedure DOSDelay(timeout: LongInt); syscall IDOS 188;
|
|
|
|
function AllocDosObject(type1: Cardinal; tags : PTagItem): Pointer; syscall IDOS 208;
|
|
procedure FreeDosObject(type1: Cardinal; ptr : Pointer); syscall IDOS 220;
|
|
|
|
function ExamineFH(fh : BPTR; fib: PFileInfoBlock): LongBool; syscall IDOS 352;
|
|
function SetFileDate(name: PChar; date: PDateStamp): LongBool; syscall IDOS 356; { Seems this got renamed to SetDate() in OS4? }
|
|
function NameFromLock(lock: longint; buffer: PChar; len: longint): LongBool; syscall IDOS 360;
|
|
function NameFromFH(fh: longint; buffer: PChar; len: longint): LongBool; syscall IDOS 364;
|
|
|
|
function SetFileSize(fh: longint; pos: longint; mode: longint): longint; syscall IDOS 396;
|
|
|
|
function CreateNewProc(tags: PTagItem): PProcess; syscall IDOS 424;
|
|
|
|
function GetArgStr: PChar; syscall IDOS 456;
|
|
function SetArgStr(_string: PChar): PChar; syscall IDOS 460;
|
|
|
|
function GetCurrentDirName(buf: PChar; len: longint): LongBool; syscall IDOS 476;
|
|
|
|
function GetProgramName(buf: PChar; len: longint): LongBool; syscall IDOS 484;
|
|
|
|
function GetProgramDir: longint; syscall IDOS 500;
|
|
function SystemTagList(command: PChar; tags: PTagItem): longint; syscall IDOS 504;
|
|
|
|
function LockDosList(flags: longword): PDosList; syscall IDOS 544;
|
|
procedure UnLockDosList(flags: longword); syscall IDOS 548;
|
|
|
|
function NextDosEntry(dlist: PDosList; flags: longword): PDosList; syscall IDOS 568;
|
|
|
|
function MatchFirst(pat: PChar; anchor: PAnchorPath): longint; syscall IDOS 664;
|
|
function MatchNext(anchor: PAnchorPath): longint; syscall IDOS 668;
|
|
procedure MatchEnd(anchor: PAnchorPath); syscall IDOS 672;
|
|
|
|
function GetVar(name: PChar; buffer: PChar; size: longint; flags: longword): longint; syscall IDOS 720;
|