mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-06 17:08:01 +02:00
* initial revision
This commit is contained in:
Károly Balogh
parent
c435d32c97
commit
c8bbf8516a
75
rtl/morphos/doslib.pp
Normal file
75
rtl/morphos/doslib.pp
Normal file
@ -0,0 +1,75 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
|
||||
|
||||
dos.library interface unit for MorphOS/PowerPC
|
||||
|
||||
MorphOS port was done on a free Pegasos II/G4 machine
|
||||
provided by Genesi S.a.r.l. <www.genesi.lu>
|
||||
|
||||
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.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
unit doslib;
|
||||
|
||||
interface
|
||||
|
||||
uses Exec, Timer;
|
||||
|
||||
var
|
||||
DosBase: Pointer;
|
||||
|
||||
{$include doslibd.inc}
|
||||
{$include doslibf.inc}
|
||||
|
||||
|
||||
{ * Define real functions * }
|
||||
|
||||
function Close(fileh: LongInt location 'd1'): Boolean;
|
||||
SysCall MOS_DOSBase 36;
|
||||
|
||||
function Read(fileh : LongInt location 'd1';
|
||||
buffer: Pointer location 'd2';
|
||||
length: LongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 42;
|
||||
|
||||
function Write(fileh : LongInt location 'd1';
|
||||
buffer: Pointer location 'd2';
|
||||
length: LongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 48;
|
||||
|
||||
function Input: LongInt;
|
||||
SysCall MOS_DOSBase 54;
|
||||
|
||||
function Output: LongInt;
|
||||
SysCall MOS_DOSBase 60;
|
||||
|
||||
function Seek(fileh : LongInt location 'd1';
|
||||
position: LongInt location 'd2';
|
||||
posmode : LongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 66;
|
||||
|
||||
function Rename(oldName: PChar location 'd1';
|
||||
newName: PChar location 'd2'): Boolean;
|
||||
SysCall MOS_DOSBase 78;
|
||||
|
||||
|
||||
implementation
|
||||
|
||||
begin
|
||||
DosBase:=MOS_DOSBase;
|
||||
end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2004-06-26 20:46:17 karoly
|
||||
* initial revision
|
||||
|
||||
}
|
||||
964
rtl/morphos/doslibd.inc
Normal file
964
rtl/morphos/doslibd.inc
Normal file
@ -0,0 +1,964 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
|
||||
dos definitions (V50) for MorphOS/PowerPC
|
||||
Copyright (c) 2002 The MorphOS Development Team, All Rights Reserved.
|
||||
|
||||
Free Pascal conversion
|
||||
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
|
||||
|
||||
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.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
|
||||
|
||||
{ * dos global definitions (V50)
|
||||
*********************************************************************
|
||||
* }
|
||||
|
||||
|
||||
const
|
||||
DOSNAME = 'dos.library';
|
||||
|
||||
const
|
||||
DOSTRUE = -1;
|
||||
DOSFALSE = 0;
|
||||
|
||||
const
|
||||
MODE_OLDFILE = 1005;
|
||||
MODE_NEWFILE = 1006;
|
||||
MODE_READWRITE = 1004;
|
||||
|
||||
const
|
||||
OFFSET_BEGINNING = -1;
|
||||
OFFSET_CURRENT = 0;
|
||||
OFFSET_END = 1;
|
||||
OFFSET_BEGINING = OFFSET_BEGINNING; { * Typo fix * }
|
||||
|
||||
const
|
||||
BITSPERBYTE = 8;
|
||||
BYTESPERLONG = 4;
|
||||
BITSPERLONG = 32;
|
||||
_MAXINT = $7FFFFFFF;
|
||||
_MININT = $80000000;
|
||||
|
||||
const
|
||||
SHARED_LOCK = -2;
|
||||
ACCESS_READ = -2;
|
||||
EXCLUSIVE_LOCK = -1;
|
||||
ACCESS_WRITE = -1;
|
||||
|
||||
|
||||
type
|
||||
PDateStamp = ^TDateStamp;
|
||||
TDateStamp = packed record
|
||||
ds_Days : LongInt;
|
||||
ds_Minute: LongInt;
|
||||
ds_Tick : LongInt;
|
||||
end;
|
||||
|
||||
const
|
||||
TICKS_PER_SECOND = 50;
|
||||
|
||||
|
||||
type
|
||||
PFileInfoBlock = ^TFileInfoBlock;
|
||||
TFileInfoBlock = packed record
|
||||
fib_DiskKey : LongInt;
|
||||
fib_DirEntryType: LongInt;
|
||||
fib_FileName : Array[0..107] Of Char;
|
||||
fib_Protection : LongInt;
|
||||
fib_EntryType : LongInt;
|
||||
fib_Size : LongInt;
|
||||
fib_NumBlocks : LongInt;
|
||||
fib_Date : TDateStamp;
|
||||
fib_Comment : Array[0..79] Of Char;
|
||||
|
||||
fib_OwnerUID : Word;
|
||||
fib_OwnerGID : Word;
|
||||
|
||||
fib_Reserved : Array[0..31] Of Char;
|
||||
end;
|
||||
|
||||
const
|
||||
FIBB_OTR_READ = 15;
|
||||
FIBB_OTR_WRITE = 14;
|
||||
FIBB_OTR_EXECUTE = 13;
|
||||
FIBB_OTR_DELETE = 12;
|
||||
FIBB_GRP_READ = 11;
|
||||
FIBB_GRP_WRITE = 10;
|
||||
FIBB_GRP_EXECUTE = 9;
|
||||
FIBB_GRP_DELETE = 8;
|
||||
|
||||
FIBB_SCRIPT = 6;
|
||||
FIBB_PURE = 5;
|
||||
FIBB_ARCHIVE = 4;
|
||||
FIBB_READ = 3;
|
||||
FIBB_WRITE = 2;
|
||||
FIBB_EXECUTE = 1;
|
||||
FIBB_DELETE = 0;
|
||||
|
||||
const
|
||||
FIBF_OTR_READ = (1 Shl FIBB_OTR_READ);
|
||||
FIBF_OTR_WRITE = (1 Shl FIBB_OTR_WRITE);
|
||||
FIBF_OTR_EXECUTE = (1 Shl FIBB_OTR_EXECUTE);
|
||||
FIBF_OTR_DELETE = (1 Shl FIBB_OTR_DELETE);
|
||||
FIBF_GRP_READ = (1 Shl FIBB_GRP_READ);
|
||||
FIBF_GRP_WRITE = (1 Shl FIBB_GRP_WRITE);
|
||||
FIBF_GRP_EXECUTE = (1 Shl FIBB_GRP_EXECUTE);
|
||||
FIBF_GRP_DELETE = (1 Shl FIBB_GRP_DELETE);
|
||||
|
||||
FIBF_SCRIPT = (1 Shl FIBB_SCRIPT);
|
||||
FIBF_PURE = (1 Shl FIBB_PURE);
|
||||
FIBF_ARCHIVE = (1 Shl FIBB_ARCHIVE);
|
||||
FIBF_READ = (1 Shl FIBB_READ);
|
||||
FIBF_WRITE = (1 Shl FIBB_WRITE);
|
||||
FIBF_EXECUTE = (1 Shl FIBB_EXECUTE);
|
||||
FIBF_DELETE = (1 Shl FIBB_DELETE);
|
||||
|
||||
const
|
||||
FAULT_MAX = 82;
|
||||
|
||||
{$WARNING FIX ME!!!}
|
||||
{
|
||||
typedef long BPTR;
|
||||
typedef long BSTR;
|
||||
|
||||
|
||||
#ifdef OBSOLETE_LIBRARIES_DOS_H
|
||||
# define BADDR(bptr) (((ULONG)bptr) << 2)
|
||||
#else
|
||||
# define BADDR(x) ((APTR)((ULONG)(x) << 2))
|
||||
#endif
|
||||
|
||||
MKBADDR(x) (((LONG)(x)) >> 2)
|
||||
}
|
||||
|
||||
type
|
||||
PInfoData = ^TInfoData;
|
||||
TInfoData = packed record
|
||||
id_NumSoftErrors: LongInt;
|
||||
id_UnitNumber : LongInt;
|
||||
id_DiskState : LongInt;
|
||||
id_NumBlocks : LongInt;
|
||||
id_NumBlocksUsed: LongInt;
|
||||
id_BytesPerBlock: LongInt;
|
||||
id_DiskType : LongInt;
|
||||
id_VolumeNode : LongInt; {BPTR}
|
||||
id_InUse : LongInt;
|
||||
end;
|
||||
|
||||
const
|
||||
ID_WRITE_PROTECTED = 80;
|
||||
ID_VALIDATING = 81;
|
||||
ID_VALIDATED = 82;
|
||||
|
||||
ID_NO_DISK_PRESENT = -1;
|
||||
ID_UNREADABLE_DISK = $42414400;
|
||||
ID_DOS_DISK = $444F5300;
|
||||
ID_FFS_DISK = $444F5301;
|
||||
ID_INTER_DOS_DISK = $444F5302;
|
||||
ID_INTER_FFS_DISK = $444F5303;
|
||||
ID_FASTDIR_DOS_DISK = $444F5304;
|
||||
ID_FASTDIR_FFS_DISK = $444F5305;
|
||||
ID_LNFS_DOS_DISK = $444F5306;
|
||||
ID_LNFS_FFS_DISK = $444F5307;
|
||||
ID_NOT_REALLY_DOS = $4E444F53;
|
||||
ID_KICKSTART_DISK = $4B49434B;
|
||||
ID_MSDOS_DISK = $4d534400;
|
||||
|
||||
const
|
||||
ERROR_NO_FREE_STORE = 103;
|
||||
ERROR_TASK_TABLE_FULL = 105;
|
||||
ERROR_BAD_TEMPLATE = 114;
|
||||
ERROR_BAD_NUMBER = 115;
|
||||
ERROR_REQUIRED_ARG_MISSING = 116;
|
||||
ERROR_KEY_NEEDS_ARG = 117;
|
||||
ERROR_TOO_MANY_ARGS = 118;
|
||||
ERROR_UNMATCHED_QUOTES = 119;
|
||||
ERROR_LINE_TOO_LONG = 120;
|
||||
ERROR_FILE_NOT_OBJECT = 121;
|
||||
ERROR_INVALID_RESIDENT_LIBRARY = 122;
|
||||
ERROR_NO_DEFAULT_DIR = 201;
|
||||
ERROR_OBJECT_IN_USE = 202;
|
||||
ERROR_OBJECT_EXISTS = 203;
|
||||
ERROR_DIR_NOT_FOUND = 204;
|
||||
ERROR_OBJECT_NOT_FOUND = 205;
|
||||
ERROR_BAD_STREAM_NAME = 206;
|
||||
ERROR_OBJECT_TOO_LARGE = 207;
|
||||
ERROR_ACTION_NOT_KNOWN = 209;
|
||||
ERROR_INVALID_COMPONENT_NAME = 210;
|
||||
ERROR_INVALID_LOCK = 211;
|
||||
ERROR_OBJECT_WRONG_TYPE = 212;
|
||||
ERROR_DISK_NOT_VALIDATED = 213;
|
||||
ERROR_DISK_WRITE_PROTECTED = 214;
|
||||
ERROR_RENAME_ACROSS_DEVICES = 215;
|
||||
ERROR_DIRECTORY_NOT_EMPTY = 216;
|
||||
ERROR_TOO_MANY_LEVELS = 217;
|
||||
ERROR_DEVICE_NOT_MOUNTED = 218;
|
||||
ERROR_SEEK_ERROR = 219;
|
||||
ERROR_COMMENT_TOO_BIG = 220;
|
||||
ERROR_DISK_FULL = 221;
|
||||
ERROR_DELETE_PROTECTED = 222;
|
||||
ERROR_WRITE_PROTECTED = 223;
|
||||
ERROR_READ_PROTECTED = 224;
|
||||
ERROR_NOT_A_DOS_DISK = 225;
|
||||
ERROR_NO_DISK = 226;
|
||||
ERROR_NO_MORE_ENTRIES = 232;
|
||||
|
||||
ERROR_IS_SOFT_LINK = 233;
|
||||
ERROR_OBJECT_LINKED = 234;
|
||||
ERROR_BAD_HUNK = 235;
|
||||
ERROR_NOT_IMPLEMENTED = 236;
|
||||
ERROR_RECORD_NOT_LOCKED = 240;
|
||||
ERROR_LOCK_COLLISION = 241;
|
||||
ERROR_LOCK_TIMEOUT = 242;
|
||||
ERROR_UNLOCK_ERROR = 243;
|
||||
|
||||
const
|
||||
RETURN_OK = 0;
|
||||
RETURN_WARN = 5;
|
||||
RETURN_ERROR = 10;
|
||||
RETURN_FAIL = 20;
|
||||
|
||||
const
|
||||
SIGBREAKB_CTRL_C = 12;
|
||||
SIGBREAKB_CTRL_D = 13;
|
||||
SIGBREAKB_CTRL_E = 14;
|
||||
SIGBREAKB_CTRL_F = 15;
|
||||
|
||||
SIGBREAKF_CTRL_C = (1 Shl SIGBREAKB_CTRL_C);
|
||||
SIGBREAKF_CTRL_D = (1 Shl SIGBREAKB_CTRL_D);
|
||||
SIGBREAKF_CTRL_E = (1 Shl SIGBREAKB_CTRL_E);
|
||||
SIGBREAKF_CTRL_F = (1 Shl SIGBREAKB_CTRL_F);
|
||||
|
||||
const
|
||||
LOCK_DIFFERENT = -1;
|
||||
LOCK_SAME = 0;
|
||||
LOCK_SAME_VOLUME = 1;
|
||||
LOCK_SAME_HANDLER = LOCK_SAME_VOLUME;
|
||||
|
||||
const
|
||||
CHANGE_LOCK = 0;
|
||||
CHANGE_FH = 1;
|
||||
|
||||
const
|
||||
LINK_HARD = 0;
|
||||
LINK_SOFT = 1;
|
||||
|
||||
const
|
||||
ITEM_EQUAL = -2;
|
||||
ITEM_ERROR = -1;
|
||||
ITEM_NOTHING = 0;
|
||||
ITEM_UNQUOTED = 1;
|
||||
ITEM_QUOTED = 2;
|
||||
|
||||
const
|
||||
DOS_FILEHANDLE = 0;
|
||||
DOS_EXALLCONTROL = 1;
|
||||
DOS_FIB = 2;
|
||||
DOS_STDPKT = 3;
|
||||
DOS_CLI = 4;
|
||||
DOS_RDARGS = 5;
|
||||
|
||||
|
||||
|
||||
{ * dos date/time definitions
|
||||
*********************************************************************
|
||||
* }
|
||||
|
||||
|
||||
type
|
||||
{ * Required to avoid conflict with default types * }
|
||||
_PDateTime = ^_TDateTime;
|
||||
_TDateTime = packed record
|
||||
dat_Stamp : TDateStamp;
|
||||
dat_Format : Byte;
|
||||
dat_Flags : Byte;
|
||||
dat_StrDay : Pointer;
|
||||
dat_StrDate: Pointer;
|
||||
dat_StrTime: Pointer;
|
||||
end;
|
||||
|
||||
const
|
||||
LEN_DATSTRING = 16;
|
||||
|
||||
const
|
||||
DTB_SUBST = 0;
|
||||
DTF_SUBST = (1 Shl DTB_SUBST);
|
||||
DTB_FUTURE = 1;
|
||||
DTF_FUTURE = (1 Shl DTB_FUTURE);
|
||||
|
||||
const
|
||||
FORMAT_DOS = 0;
|
||||
FORMAT_INT = 1;
|
||||
FORMAT_USA = 2;
|
||||
FORMAT_CDN = 3;
|
||||
FORMAT_MAX = FORMAT_CDN;
|
||||
FORMAT_DEF = 4;
|
||||
|
||||
|
||||
|
||||
{ * dos extended structures definitions
|
||||
*********************************************************************
|
||||
* }
|
||||
|
||||
|
||||
type
|
||||
PProcess = ^TProcess;
|
||||
TProcess = packed record
|
||||
pr_Task : TTask;
|
||||
pr_MsgPort : TMsgPort;
|
||||
pr_Pad : Word;
|
||||
pr_SegList : DWord; { BPTR }
|
||||
pr_StackSize : LongInt; { 68k stacksize! }
|
||||
pr_GlobVec : Pointer;
|
||||
pr_TaskNum : LongInt;
|
||||
pr_StackBase : DWord; { BPTR }
|
||||
pr_Result2 : LongInt;
|
||||
pr_CurrentDir : DWord; { BPTR }
|
||||
pr_CIS : DWord; { BPTR }
|
||||
pr_COS : DWord; { BPTR }
|
||||
pr_ConsoleTask : Pointer;
|
||||
pr_FileSystemTask: Pointer;
|
||||
pr_CLI : DWord; { BPTR }
|
||||
pr_ReturnAddr : Pointer;
|
||||
pr_PktWait : Pointer;
|
||||
pr_WindowPtr : Pointer;
|
||||
pr_HomeDir : DWord; { BPTR }
|
||||
pr_Flags : LongInt;
|
||||
pr_ExitCode : Pointer; { Procedure }
|
||||
pr_ExitData : LongInt;
|
||||
pr_Arguments : PChar;
|
||||
pr_LocalVars : TMinList;
|
||||
pr_ShellPrivate : DWord;
|
||||
pr_CES : DWord; { BPTR }
|
||||
end;
|
||||
|
||||
const
|
||||
PRB_FREESEGLIST = 0;
|
||||
PRF_FREESEGLIST = (1 Shl PRB_FREESEGLIST);
|
||||
|
||||
PRB_FREECURRDIR = 1;
|
||||
PRF_FREECURRDIR = (1 Shl PRB_FREECURRDIR);
|
||||
|
||||
PRB_FREECLI = 2;
|
||||
PRF_FREECLI = (1 Shl PRB_FREECLI);
|
||||
|
||||
PRB_CLOSEINPUT = 3;
|
||||
PRF_CLOSEINPUT = (1 Shl PRB_CLOSEINPUT);
|
||||
|
||||
PRB_CLOSEOUTPUT = 4;
|
||||
PRF_CLOSEOUTPUT = (1 Shl PRB_CLOSEOUTPUT);
|
||||
|
||||
PRB_FREEARGS = 5;
|
||||
PRF_FREEARGS = (1 Shl PRB_FREEARGS);
|
||||
|
||||
|
||||
type
|
||||
{$WARNING FIX ME!!!}
|
||||
PFileHandle = ^TFileHandle;
|
||||
TFileHandle = packed record
|
||||
fh_Flags : DWord;
|
||||
fh_Interactive: LongInt;
|
||||
fh_Type : PMsgPort;
|
||||
fh_Buf : LongInt;
|
||||
fh_Pos : LongInt;
|
||||
fh_End : LongInt;
|
||||
fh_Func1 : LongInt;
|
||||
fh_Func2 : LongInt;
|
||||
fh_Func3 : LongInt;
|
||||
fh_Arg1 : LongInt;
|
||||
fh_Arg2 : LongInt;
|
||||
{ *** V50 MorphOS *** }
|
||||
fh_BufSize : LongInt;
|
||||
fh_OrigBuf : LongInt;
|
||||
end;
|
||||
|
||||
type
|
||||
PDOSPacket = ^TDOSPacket;
|
||||
TDOSPacket = packed record
|
||||
dp_Link: PMessage;
|
||||
dp_Port: PMsgPort;
|
||||
case Byte of
|
||||
0 : ( dp_Action : Longint;
|
||||
dp_Status : Longint;
|
||||
dp_Status2: Longint;
|
||||
dp_BufAddr: Longint;
|
||||
);
|
||||
1 : ( dp_Type: Longint;
|
||||
dp_Res1: Longint;
|
||||
dp_Res2: Longint;
|
||||
dp_Arg1: Longint;
|
||||
dp_Arg2: Longint;
|
||||
dp_Arg3: Longint;
|
||||
dp_Arg4: Longint;
|
||||
dp_Arg5: Longint;
|
||||
dp_Arg6: Longint;
|
||||
dp_Arg7: Longint;
|
||||
);
|
||||
end;
|
||||
|
||||
type
|
||||
PStandardPacket = ^TStandardPacket;
|
||||
TStandardPacket = packed record
|
||||
sp_Msg: TMessage;
|
||||
sp_Pkt: TDOSPacket;
|
||||
end;
|
||||
|
||||
|
||||
const
|
||||
ACTION_NIL = 0;
|
||||
ACTION_STARTUP = 0;
|
||||
ACTION_GET_BLOCK = 2; { *** OBSOLETE *** }
|
||||
ACTION_SET_MAP = 4;
|
||||
ACTION_DIE = 5;
|
||||
ACTION_EVENT = 6;
|
||||
ACTION_CURRENT_VOLUME = 7;
|
||||
ACTION_LOCATE_OBJECT = 8;
|
||||
ACTION_RENAME_DISK = 9;
|
||||
ACTION_WRITE = 'W';
|
||||
ACTION_READ = 'R';
|
||||
ACTION_FREE_LOCK = 15;
|
||||
ACTION_DELETE_OBJECT = 16;
|
||||
ACTION_RENAME_OBJECT = 17;
|
||||
ACTION_MORE_CACHE = 18;
|
||||
ACTION_COPY_DIR = 19;
|
||||
ACTION_WAIT_CHAR = 20;
|
||||
ACTION_SET_PROTECT = 21;
|
||||
ACTION_CREATE_DIR = 22;
|
||||
ACTION_EXAMINE_OBJECT = 23;
|
||||
ACTION_EXAMINE_NEXT = 24;
|
||||
ACTION_DISK_INFO = 25;
|
||||
ACTION_INFO = 26;
|
||||
ACTION_FLUSH = 27;
|
||||
ACTION_SET_COMMENT = 28;
|
||||
ACTION_PARENT = 29;
|
||||
ACTION_TIMER = 30;
|
||||
ACTION_INHIBIT = 31;
|
||||
ACTION_DISK_TYPE = 32;
|
||||
ACTION_DISK_CHANGE = 33;
|
||||
ACTION_SET_DATE = 34;
|
||||
|
||||
ACTION_SAME_LOCK = 40;
|
||||
|
||||
ACTION_SCREEN_MODE = 994;
|
||||
|
||||
ACTION_CHANGE_SIGNAL = 995;
|
||||
|
||||
ACTION_READ_RETURN = 1001;
|
||||
ACTION_WRITE_RETURN = 1002;
|
||||
ACTION_SEEK = 1008;
|
||||
ACTION_FINDUPDATE = 1004;
|
||||
ACTION_FINDINPUT = 1005;
|
||||
ACTION_FINDOUTPUT = 1006;
|
||||
ACTION_END = 1007;
|
||||
|
||||
ACTION_FORMAT = 1020;
|
||||
ACTION_MAKE_LINK = 1021;
|
||||
|
||||
ACTION_SET_FILE_SIZE = 1022;
|
||||
ACTION_WRITE_PROTECT = 1023;
|
||||
|
||||
ACTION_READ_LINK = 1024;
|
||||
ACTION_FH_FROM_LOCK = 1026;
|
||||
ACTION_IS_FILESYSTEM = 1027;
|
||||
ACTION_CHANGE_MODE = 1028;
|
||||
|
||||
ACTION_COPY_DIR_FH = 1030;
|
||||
ACTION_PARENT_FH = 1031;
|
||||
ACTION_EXAMINE_ALL = 1033;
|
||||
ACTION_EXAMINE_FH = 1034;
|
||||
|
||||
ACTION_EXAMINE_ALL_END = 1035;
|
||||
ACTION_SET_OWNER = 1036;
|
||||
|
||||
ACTION_LOCK_RECORD = 2008;
|
||||
ACTION_FREE_RECORD = 2009;
|
||||
|
||||
ACTION_ADD_NOTIFY = 4097;
|
||||
ACTION_REMOVE_NOTIFY = 4098;
|
||||
|
||||
ACTION_SERIALIZE_DISK = 4200;
|
||||
|
||||
ACTION_GET_DISK_FSSM = 4201;
|
||||
ACTION_FREE_DISK_FSSM = 4202;
|
||||
|
||||
|
||||
type
|
||||
PErrorString = ^TErrorString;
|
||||
TErrorString = packed record
|
||||
estr_Nums: Pointer; { ^LongInt }
|
||||
estr_Byte: Pointer; { ^Byte }
|
||||
end;
|
||||
|
||||
type
|
||||
PRootNode = ^TRootNode;
|
||||
TRootNode = packed record
|
||||
rn_TaskArray : DWord; { BPTR }
|
||||
rn_ConsoleSegment : DWord; { BPTR }
|
||||
rn_Time : TDateStamp;
|
||||
rn_RestartSeg : LongInt;
|
||||
rn_Info : DWord; { BPTR }
|
||||
rn_FileHandlerSegment: DWord; { BPTR }
|
||||
rn_CliList : TMinList;
|
||||
rn_BootProc : PMsgPort;
|
||||
rn_ShellSegment : DWord; { BPTR }
|
||||
rn_Flags : LongInt;
|
||||
end;
|
||||
|
||||
type
|
||||
PDOSLibrary = ^TDOSLibrary;
|
||||
TDOSLibrary = packed record
|
||||
dl_Lib : TLibrary;
|
||||
dl_Root : PRootNode;
|
||||
dl_GU : Pointer;
|
||||
dl_A2 : LongInt;
|
||||
dl_A5 : LongInt;
|
||||
dl_A6 : LongInt;
|
||||
dl_Errors : PErrorString;
|
||||
dl_TimeReq : PTimeRequest;
|
||||
dl_UtilityBase : PLibrary;
|
||||
dl_IntuitionBase: PLibrary;
|
||||
end;
|
||||
|
||||
|
||||
const
|
||||
RNB_WILDSTAR = 24;
|
||||
RNF_WILDSTAR = (1 Shl RNB_WILDSTAR);
|
||||
|
||||
RNB_PRIVATE1 = 1;
|
||||
RNF_PRIVATE1 = (1 Shl RNB_PRIVATE1);
|
||||
|
||||
|
||||
type
|
||||
PCliProcList = ^TCliProcList;
|
||||
TCliProcList = packed record
|
||||
cpl_Node : TMinNode;
|
||||
cpl_First: LongInt;
|
||||
cpl_Array: Array[0..0] Of PMsgPort;
|
||||
end;
|
||||
|
||||
type
|
||||
PDOSInfo = ^TDOSInfo;
|
||||
TDOSInfo = packed record
|
||||
case smallint of
|
||||
0 : ( di_ResList: DWord; { BPTR }
|
||||
);
|
||||
1 : ( di_McName : DWord; { BPTR }
|
||||
di_DevInfo : DWord; { BPTR }
|
||||
di_Devices : DWord; { BPTR }
|
||||
di_Handlers : DWord; { BPTR }
|
||||
di_NetHand : Pointer;
|
||||
di_DevLock : TSignalSemaphore;
|
||||
di_EntryLock : TSignalSemaphore;
|
||||
di_DeleteLock: TSignalSemaphore;
|
||||
);
|
||||
end;
|
||||
|
||||
type
|
||||
PSegment = ^TSegment;
|
||||
TSegment = packed record
|
||||
seg_Next : DWord; { BPTR }
|
||||
seg_UC : LongInt;
|
||||
seg_Seg : DWord; { BPTR }
|
||||
seg_Name : Array[0..3] Of Byte;
|
||||
{ * seg_Name continues * }
|
||||
end;
|
||||
|
||||
|
||||
const
|
||||
CMD_SYSTEM = -1;
|
||||
CMD_INTERNAL = -2;
|
||||
CMD_NOTLOADED = -998;
|
||||
CMD_DISABLED = -999;
|
||||
|
||||
|
||||
type
|
||||
PCommandLineInterface = ^TCommandLineInterface;
|
||||
TCommandLineInterface = packed record
|
||||
cli_Result2 : LongInt;
|
||||
cli_SetName : DWord; { BSTR }
|
||||
cli_CommandDir : DWord; { BPTR }
|
||||
cli_ReturnCode : LongInt;
|
||||
cli_CommandName : DWord; { BSTR }
|
||||
cli_FailLevel : LongInt;
|
||||
cli_Prompt : DWord; { BSTR }
|
||||
cli_StandardInput : DWord; { BPTR }
|
||||
cli_CurrentInput : DWord; { BPTR }
|
||||
cli_CommandFile : DWord; { BSTR }
|
||||
cli_Interactive : LongInt;
|
||||
cli_Background : LongInt;
|
||||
cli_CurrentOutput : DWord; { BPTR }
|
||||
cli_DefaultStack : LongInt;
|
||||
cli_StandardOutput: DWord; { BPTR }
|
||||
cli_Module : DWord; { BPTR }
|
||||
end;
|
||||
|
||||
type
|
||||
PDeviceList = ^TDeviceList;
|
||||
TDeviceList = packed record
|
||||
dl_Next : DWord; { BPTR }
|
||||
dl_Type : LongInt;
|
||||
dl_Task : PMsgPort;
|
||||
dl_Lock : DWord; { BPTR }
|
||||
dl_VolumeDate: TDateStamp;
|
||||
dl_LockList : DWord; { BPTR }
|
||||
dl_DiskType : LongInt;
|
||||
dl_unused : LongInt;
|
||||
dl_Name : DWord; { BSTR }
|
||||
end;
|
||||
|
||||
type
|
||||
PDevInfo = ^TDevInfo;
|
||||
TDevInfo = packed record
|
||||
dvi_Next : DWord; { BPTR }
|
||||
dvi_Type : LongInt;
|
||||
dvi_Task : Pointer;
|
||||
dvi_Lock : DWord; { BPTR }
|
||||
dvi_Handler : DWord; { BSTR }
|
||||
dvi_StackSize: LongInt;
|
||||
dvi_Priority : LongInt;
|
||||
dvi_Startup : LongInt;
|
||||
dvi_SegList : DWord; { BPTR }
|
||||
dvi_GlobVec : DWord; { BPTR }
|
||||
dvi_Name : DWord; { BSTR }
|
||||
end;
|
||||
|
||||
type
|
||||
PAssignList = ^TAssignList;
|
||||
TAssignList = packed record
|
||||
al_Next: PAssignList;
|
||||
al_Lock: DWord; { BPTR }
|
||||
end;
|
||||
|
||||
type
|
||||
PDOSList = ^TDOSList;
|
||||
TDOSList = packed record
|
||||
dol_Next: DWord; { BPTR }
|
||||
dol_Type: LongInt;
|
||||
dol_Task: PMsgPort;
|
||||
dol_Lock: DWord; { BPTR }
|
||||
case Byte of
|
||||
0: ( dol_handler : record
|
||||
dol_Handler : DWord; { BSTR }
|
||||
dol_StackSize: LongInt;
|
||||
dol_Priority : LongInt;
|
||||
dol_Startup : DWord;
|
||||
dol_SegList : DWord; { BPTR }
|
||||
dol_GlobVec : DWord; { BPTR }
|
||||
end;
|
||||
);
|
||||
1: ( dol_volume : record
|
||||
dol_VolumeDate: TDateStamp;
|
||||
dol_LockList : DWord; { BPTR }
|
||||
dol_DiskType : LongInt;
|
||||
end;
|
||||
);
|
||||
2: ( dol_assign : record
|
||||
dol_AssignName: PChar;
|
||||
dol_List : PAssignList;
|
||||
end;
|
||||
dol_Name: DWord; { BPTR }
|
||||
);
|
||||
end;
|
||||
|
||||
|
||||
const
|
||||
DLT_DEVICE = 0;
|
||||
DLT_DIRECTORY = 1;
|
||||
DLT_VOLUME = 2;
|
||||
DLT_LATE = 3;
|
||||
DLT_NONBINDING = 4;
|
||||
DLT_PRIVATE = -1;
|
||||
|
||||
|
||||
type
|
||||
PDevProc = ^TDevProc;
|
||||
TDevProc = packed record
|
||||
dvp_Port : PMsgPort;
|
||||
dvp_Lock : DWord; { BPTR }
|
||||
dvp_Flags : DWord;
|
||||
dvp_DevNode: PDOSList;
|
||||
end;
|
||||
|
||||
|
||||
const
|
||||
DVPB_UNLOCK = 0;
|
||||
DVPF_UNLOCK = (1 Shl DVPB_UNLOCK);
|
||||
|
||||
DVPB_ASSIGN = 1;
|
||||
DVPF_ASSIGN = (1 Shl DVPB_ASSIGN);
|
||||
|
||||
const
|
||||
LDB_READ = 0;
|
||||
LDF_READ = (1 Shl LDB_READ);
|
||||
|
||||
LDB_WRITE = 1;
|
||||
LDF_WRITE = (1 Shl LDB_WRITE);
|
||||
|
||||
LDB_DEVICES = 2;
|
||||
LDF_DEVICES = (1 Shl LDB_DEVICES);
|
||||
|
||||
LDB_VOLUMES = 3;
|
||||
LDF_VOLUMES = (1 Shl LDB_VOLUMES);
|
||||
|
||||
LDB_ASSIGNS = 4;
|
||||
LDF_ASSIGNS = (1 Shl LDB_ASSIGNS);
|
||||
|
||||
LDB_ENTRY = 5;
|
||||
LDF_ENTRY = (1 Shl LDB_ENTRY);
|
||||
|
||||
LDB_DELETE = 6;
|
||||
LDF_DELETE = (1 Shl LDB_DELETE);
|
||||
|
||||
LDF_ALL = (LDF_DEVICES Or LDF_VOLUMES Or LDF_ASSIGNS);
|
||||
|
||||
|
||||
type
|
||||
PFileLock = ^TFileLock;
|
||||
TFileLock = packed record
|
||||
fl_Link : DWord; { BPTR }
|
||||
fl_Key : LongInt;
|
||||
fl_Access: LongInt;
|
||||
fl_Task : PMsgPort;
|
||||
fl_Volume: DWord; { BPTR }
|
||||
end;
|
||||
|
||||
|
||||
const
|
||||
REPORT_STREAM = 0;
|
||||
REPORT_TASK = 1;
|
||||
REPORT_LOCK = 2;
|
||||
REPORT_VOLUME = 3;
|
||||
REPORT_INSERT = 4;
|
||||
|
||||
const
|
||||
ABORT_DISK_ERROR = 296;
|
||||
ABORT_BUSY = 288;
|
||||
|
||||
const
|
||||
RUN_EXECUTE = -1;
|
||||
RUN_SYSTEM = -2;
|
||||
RUN_SYSTEM_ASYNCH = -3;
|
||||
|
||||
const
|
||||
ST_ROOT = 1;
|
||||
ST_USERDIR = 2;
|
||||
ST_SOFTLINK = 3;
|
||||
ST_LINKDIR = 4;
|
||||
ST_FILE = -3;
|
||||
ST_LINKFILE = -4;
|
||||
ST_PIPEFILE = -5;
|
||||
|
||||
|
||||
|
||||
{ * dos asl definitions
|
||||
*********************************************************************
|
||||
* }
|
||||
|
||||
|
||||
type
|
||||
PAChain = ^TAChain;
|
||||
TAChain = packed record
|
||||
an_Child : PAChain;
|
||||
an_Parent: PAChain;
|
||||
an_Lock : DWord; { BPTR }
|
||||
an_Info : TFileInfoBlock;
|
||||
an_Flags : ShortInt;
|
||||
an_String: Array[0..0] Of Char;
|
||||
{ * an_String continues * }
|
||||
end;
|
||||
|
||||
type
|
||||
PAnchorPath = ^TAnchorPath;
|
||||
TAnchorPath = packed record
|
||||
case Byte of
|
||||
0 : ( ap_First: PAChain;
|
||||
ap_Last : PAChain;
|
||||
);
|
||||
1 : ( ap_Base : PAChain;
|
||||
ap_Current : PAChain;
|
||||
ap_BreakBits : LongInt;
|
||||
ap_FoundBreak: LongInt;
|
||||
ap_Flags : ShortInt;
|
||||
ap_Reserved : ShortInt;
|
||||
ap_Strlen : Integer;
|
||||
ap_Info : TFileInfoBlock;
|
||||
ap_Buf : Array[0..0] of Char;
|
||||
{ * an_Buf continues * }
|
||||
);
|
||||
end;
|
||||
|
||||
|
||||
const
|
||||
APB_DOWILD = 0;
|
||||
APF_DOWILD = (1 Shl APB_DOWILD);
|
||||
|
||||
APB_ITSWILD = 1;
|
||||
APF_ITSWILD = (1 Shl APB_ITSWILD);
|
||||
|
||||
APB_DODIR = 2;
|
||||
APF_DODIR = (1 Shl APB_DODIR);
|
||||
|
||||
APB_DIDDIR = 3;
|
||||
APF_DIDDIR = (1 Shl APB_DIDDIR);
|
||||
|
||||
APB_NOMEMERR = 4;
|
||||
APF_NOMEMERR = (1 Shl APB_NOMEMERR);
|
||||
|
||||
APB_DODOT = 5;
|
||||
APF_DODOT = (1 Shl APB_DODOT);
|
||||
|
||||
APB_DirChanged = 6;
|
||||
APF_DirChanged = (1 Shl APB_DirChanged);
|
||||
|
||||
APB_FollowHLinks = 7;
|
||||
APF_FollowHLinks = (1 Shl APB_FollowHLinks);
|
||||
|
||||
const
|
||||
APSB_EXTENDED = 15;
|
||||
APSF_EXTENDED = (1 Shl APSB_EXTENDED);
|
||||
|
||||
APEB_DoMultiAssigns = 0;
|
||||
APEF_DoMultiAssigns = (1 Shl APEB_DoMultiAssigns);
|
||||
|
||||
APEB_FutureExtension = 7;
|
||||
APEF_FutureExtension = (1 Shl APEB_FutureExtension);
|
||||
|
||||
const
|
||||
DDB_PatternBit = 0;
|
||||
DDF_PatternBit = (1 Shl DDB_PatternBit);
|
||||
|
||||
DDB_ExaminedBit = 1;
|
||||
DDF_ExaminedBit = (1 Shl DDB_ExaminedBit);
|
||||
|
||||
DDB_Completed = 2;
|
||||
DDF_Completed = (1 Shl DDB_Completed);
|
||||
|
||||
DDB_AllBit = 3;
|
||||
DDF_AllBit = (1 Shl DDB_AllBit);
|
||||
|
||||
DDB_Single = 4;
|
||||
DDF_Single = (1 Shl DDB_Single);
|
||||
|
||||
const
|
||||
P_ANY = $80;
|
||||
P_SINGLE = $81;
|
||||
P_ORSTART = $82;
|
||||
P_ORNEXT = $83;
|
||||
P_OREND = $84;
|
||||
P_NOT = $85;
|
||||
P_NOTEND = $86;
|
||||
P_NOTCLASS = $87;
|
||||
P_CLASS = $88;
|
||||
P_REPBEG = $89;
|
||||
P_REPEND = $8A;
|
||||
P_STOP = $8B;
|
||||
|
||||
const
|
||||
COMPLEX_BIT = 1;
|
||||
EXAMINE_BIT = 2;
|
||||
|
||||
const
|
||||
ERROR_BUFFER_OVERFLOW = 303;
|
||||
ERROR_BREAK = 304;
|
||||
ERROR_NOT_EXECUTABLE = 305;
|
||||
|
||||
|
||||
|
||||
{ * dos hunk definitions
|
||||
*********************************************************************
|
||||
* }
|
||||
|
||||
|
||||
const
|
||||
HUNK_UNIT = 999;
|
||||
HUNK_NAME = 1000;
|
||||
HUNK_CODE = 1001;
|
||||
HUNK_DATA = 1002;
|
||||
HUNK_BSS = 1003;
|
||||
|
||||
HUNK_RELOC32 = 1004;
|
||||
HUNK_ABSRELOC32 = HUNK_RELOC32;
|
||||
|
||||
HUNK_RELOC16 = 1005;
|
||||
HUNK_RELRELOC16 = HUNK_RELOC16;
|
||||
|
||||
HUNK_RELOC8 = 1006;
|
||||
HUNK_RELRELOC8 = HUNK_RELOC8;
|
||||
|
||||
HUNK_EXT = 1007;
|
||||
HUNK_SYMBOL = 1008;
|
||||
HUNK_DEBUG = 1009;
|
||||
HUNK_END = 1010;
|
||||
HUNK_HEADER = 1011;
|
||||
|
||||
HUNK_OVERLAY = 1013;
|
||||
HUNK_BREAK = 1014;
|
||||
|
||||
HUNK_DREL32 = 1015;
|
||||
HUNK_DREL16 = 1016;
|
||||
HUNK_DREL8 = 1017;
|
||||
|
||||
HUNK_LIB = 1018;
|
||||
HUNK_INDEX = 1019;
|
||||
|
||||
HUNK_RELOC32SHORT = 1020;
|
||||
|
||||
HUNK_RELRELOC32 = 1021;
|
||||
HUNK_ABSRELOC16 = 1022;
|
||||
|
||||
const
|
||||
HUNKB_ADVISORY = 29;
|
||||
HUNKB_CHIP = 30;
|
||||
HUNKB_FAST = 31;
|
||||
|
||||
HUNKF_ADVISORY = (1 Shl HUNKB_ADVISORY);
|
||||
HUNKF_CHIP = (1 Shl HUNKB_CHIP);
|
||||
HUNKF_FAST = (1 Shl HUNKB_FAST);
|
||||
|
||||
const
|
||||
EXT_SYMB = 0;
|
||||
EXT_DEF = 1;
|
||||
EXT_ABS = 2;
|
||||
EXT_RES = 3;
|
||||
|
||||
EXT_REF32 = 129;
|
||||
EXT_ABSREF32 = EXT_REF32;
|
||||
|
||||
EXT_COMMON = 130;
|
||||
EXT_ABSCOMMON = EXT_COMMON;
|
||||
|
||||
EXT_REF16 = 131;
|
||||
EXT_RELREF16 = EXT_REF16;
|
||||
|
||||
EXT_REF8 = 132;
|
||||
EXT_RELREF8 = EXT_REF8;
|
||||
|
||||
EXT_DEXT32 = 133;
|
||||
EXT_DEXT16 = 134;
|
||||
EXT_DEXT8 = 135;
|
||||
|
||||
EXT_RELREF32 = 136;
|
||||
EXT_RELCOMMON = 137;
|
||||
|
||||
EXT_ABSREF16 = 138;
|
||||
|
||||
EXT_ABSREF8 = 139;
|
||||
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2004-06-26 20:46:17 karoly
|
||||
* initial revision
|
||||
|
||||
}
|
||||
157
rtl/morphos/doslibf.inc
Normal file
157
rtl/morphos/doslibf.inc
Normal file
@ -0,0 +1,157 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
|
||||
dos functions (V50) for MorphOS/PowerPC
|
||||
Copyright (c) 2002 The MorphOS Development Team, All Rights Reserved.
|
||||
|
||||
Free Pascal conversion
|
||||
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
|
||||
|
||||
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.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
|
||||
{ dos.library functions }
|
||||
|
||||
function Open(fname : PChar location 'd1';
|
||||
accessMode: LongInt location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 30;
|
||||
|
||||
function Close2(fileh: LongInt location 'd1'): Boolean;
|
||||
SysCall MOS_DOSBase 36;
|
||||
|
||||
function Read2(fileh : LongInt location 'd1';
|
||||
buffer: Pointer location 'd2';
|
||||
length: LongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 42;
|
||||
|
||||
function Write2(fileh : LongInt location 'd1';
|
||||
buffer: Pointer location 'd2';
|
||||
length: LongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 48;
|
||||
|
||||
function Input2: LongInt;
|
||||
SysCall MOS_DOSBase 54;
|
||||
|
||||
function Output2: LongInt;
|
||||
SysCall MOS_DOSBase 60;
|
||||
|
||||
function Seek2(fileh : LongInt location 'd1';
|
||||
position: LongInt location 'd2';
|
||||
posmode : LongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 66;
|
||||
|
||||
function DeleteFile(fname: PChar location 'd1'): Boolean;
|
||||
SysCall MOS_DOSBase 72;
|
||||
|
||||
function Rename2(oldName: PChar location 'd1';
|
||||
newName: PChar location 'd2'): Boolean;
|
||||
SysCall MOS_DOSBase 78;
|
||||
|
||||
function Lock(lname : PChar location 'd1';
|
||||
accessMode: LongInt location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 84;
|
||||
|
||||
procedure Unlock(lock: LongInt location 'd1');
|
||||
SysCall MOS_DOSBase 90;
|
||||
|
||||
function Examine(lock : LongInt location 'd1';
|
||||
FileInfoBlock: Pointer location 'd2'): Boolean;
|
||||
SysCall MOS_DOSBase 102;
|
||||
|
||||
function Info(lock : LongInt location 'd1';
|
||||
parameterBlock: PInfoData location 'd2'): Boolean;
|
||||
SysCall MOS_DOSBase 114;
|
||||
|
||||
function CreateDir(dname: PChar location 'd1'): LongInt;
|
||||
SysCall MOS_DOSBase 120;
|
||||
|
||||
function CurrentDir(lock: LongInt location 'd1'): LongInt;
|
||||
SysCall MOS_DOSBase 126;
|
||||
|
||||
function IoErr: LongInt;
|
||||
SysCall MOS_DOSBase 132;
|
||||
|
||||
function SetProtection(name: PChar location 'd1';
|
||||
mask: LongInt location 'd2'): Boolean;
|
||||
SysCall MOS_DOSBase 186;
|
||||
|
||||
function DateStamp(var ds: TDateStamp location 'd1'): LongInt;
|
||||
SysCall MOS_DOSBase 192;
|
||||
|
||||
function SetFileDate(name: PChar location 'd1';
|
||||
date: PDateStamp location 'd2'): Boolean;
|
||||
SysCall MOS_DOSBase 396;
|
||||
|
||||
function NameFromLock(lock : LongInt location 'd1';
|
||||
buffer: PChar location 'd2';
|
||||
len : LongInt location 'd3'): Boolean;
|
||||
SysCall MOS_DOSBase 402;
|
||||
|
||||
function SetFileSize(fileh : LongInt location 'd1';
|
||||
position: LongInt location 'd2';
|
||||
posmode : LongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 456;
|
||||
|
||||
function GetArgStr: PChar;
|
||||
SysCall MOS_DOSBase 534;
|
||||
|
||||
function GetCurrentDirName(buf: PChar location 'd1';
|
||||
len: LongInt location 'd2'): Boolean;
|
||||
SysCall MOS_DOSBase 564;
|
||||
|
||||
function GetProgramName(buf: PChar location 'd1';
|
||||
len: LongInt location 'd2'): Boolean;
|
||||
SysCall MOS_DOSBase 576;
|
||||
|
||||
function GetProgramDir: LongInt;
|
||||
SysCall MOS_DOSBase 600;
|
||||
|
||||
function SystemTagList(command: PChar location 'd1';
|
||||
tags : Pointer location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 606;
|
||||
|
||||
function LockDosList(flags: LongInt location 'd1'): PDOSList;
|
||||
SysCall MOS_DOSBase 654;
|
||||
|
||||
procedure UnLockDosList(flags: LongInt location 'd1');
|
||||
SysCall MOS_DOSBase 660;
|
||||
|
||||
function NextDosEntry(dlist: PDOSList location 'd1';
|
||||
flags: LongInt location 'd2'): PDOSList;
|
||||
SysCall MOS_DOSBase 690;
|
||||
|
||||
function MatchFirst(pat : PChar location 'd1';
|
||||
anchor: PAnchorPath location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 822;
|
||||
|
||||
function MatchNext(anchor: PAnchorPath location 'd1'): LongInt;
|
||||
SysCall MOS_DOSBase 828;
|
||||
|
||||
procedure MatchEnd(anchor: PAnchorPath location 'd1');
|
||||
SysCall MOS_DOSBase 834;
|
||||
|
||||
function GetVar(vname : PChar location 'd1';
|
||||
buffer: PChar location 'd2';
|
||||
size : LongInt location 'd3';
|
||||
flags : LongInt location 'd4'): LongInt;
|
||||
SysCall MOS_DOSBase 906;
|
||||
|
||||
function WriteChars(buf : PChar location 'd1';
|
||||
buflen: LongInt location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 942;
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2004-06-26 20:46:17 karoly
|
||||
* initial revision
|
||||
|
||||
}
|
||||
40
rtl/morphos/timer.pp
Normal file
40
rtl/morphos/timer.pp
Normal file
@ -0,0 +1,40 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
|
||||
|
||||
timer.device interface unit for MorphOS/PowerPC
|
||||
|
||||
MorphOS port was done on a free Pegasos II/G4 machine
|
||||
provided by Genesi S.a.r.l. <www.genesi.lu>
|
||||
|
||||
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.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
unit timer;
|
||||
|
||||
interface
|
||||
|
||||
var
|
||||
TimerBase : Pointer;
|
||||
|
||||
{$include timerd.inc}
|
||||
{$include timerf.inc}
|
||||
|
||||
implementation
|
||||
|
||||
begin
|
||||
end.
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2004-06-26 20:46:17 karoly
|
||||
* initial revision
|
||||
|
||||
}
|
||||
74
rtl/morphos/timerd.inc
Normal file
74
rtl/morphos/timerd.inc
Normal file
@ -0,0 +1,74 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
|
||||
timer.device definitions (V50) for MorphOS/PowerPC
|
||||
Copyright (c) 2002-3 The MorphOS Development Team, All Rights Reserved.
|
||||
|
||||
Free Pascal conversion
|
||||
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
|
||||
|
||||
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.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
|
||||
{ * timer.device definitions (V50)
|
||||
*********************************************************************
|
||||
* }
|
||||
|
||||
|
||||
const
|
||||
UNIT_MICROHZ = 0;
|
||||
UNIT_VBLANK = 1;
|
||||
UNIT_ECLOCK = 2;
|
||||
UNIT_WAITUNTIL = 3;
|
||||
UNIT_WAITECLOCK = 4;
|
||||
{ *** V50 *** }
|
||||
UNIT_CPUCLOCK = 5;
|
||||
UNIT_WAITCPUCLOCK = 6;
|
||||
|
||||
const
|
||||
TIMERNAME = 'timer.device';
|
||||
|
||||
|
||||
type
|
||||
PTimeVal = ^TTimeVal;
|
||||
TTimeVal = packed record
|
||||
tv_secs : DWord;
|
||||
tv_micro: DWord;
|
||||
end;
|
||||
|
||||
type
|
||||
PEClockVal = ^TEClockVal;
|
||||
TEClockVal = packed record
|
||||
ev_hi: DWord;
|
||||
ev_lo: DWord;
|
||||
end;
|
||||
|
||||
type
|
||||
PTimeRequest = ^TTimeRequest;
|
||||
TTimeRequest = packed record
|
||||
tr_node: TIORequest;
|
||||
tr_time: TTimeVal;
|
||||
end;
|
||||
|
||||
|
||||
const
|
||||
TR_ADDREQUEST = (CMD_NONSTD);
|
||||
TR_GETSYSTIME = (CMD_NONSTD + 1);
|
||||
TR_SETSYSTIME = (CMD_NONSTD + 2);
|
||||
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2004-06-26 20:46:17 karoly
|
||||
* initial revision
|
||||
|
||||
}
|
||||
45
rtl/morphos/timerf.inc
Normal file
45
rtl/morphos/timerf.inc
Normal file
@ -0,0 +1,45 @@
|
||||
{
|
||||
$Id$
|
||||
This file is part of the Free Pascal run time library.
|
||||
|
||||
timer.device functions (V50) for MorphOS/PowerPC
|
||||
Copyright (c) 2002-3 The MorphOS Development Team, All Rights Reserved.
|
||||
|
||||
Free Pascal conversion
|
||||
Copyright (c) 2004 Karoly Balogh for Genesi S.a.r.l. <www.genesi.lu>
|
||||
|
||||
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.
|
||||
|
||||
**********************************************************************}
|
||||
|
||||
|
||||
procedure AddTime(Dest : PTimeVal location 'a0';
|
||||
Source: PTimeVal location 'a1');
|
||||
SysCall TimerBase 42;
|
||||
|
||||
procedure SubTime(Dest : PTimeVal location 'a0';
|
||||
Source: PTimeVal location 'a1');
|
||||
SysCall TimerBase 48;
|
||||
|
||||
function CmpTime(Dest : PTimeVal location 'a0';
|
||||
Source: PTimeVal location 'a1'): LongInt;
|
||||
SysCall TimerBase 54;
|
||||
|
||||
function ReadEClock(Dest: PTimeVal location 'a0'): DWord;
|
||||
SysCall TimerBase 60;
|
||||
|
||||
procedure GetSysTime(Dest: PTimeVal location 'a0');
|
||||
SysCall TimerBase 66;
|
||||
|
||||
|
||||
{
|
||||
$Log$
|
||||
Revision 1.1 2004-06-26 20:46:17 karoly
|
||||
* initial revision
|
||||
|
||||
}
|
||||
Loading…
Reference in New Issue
Block a user