mirror of
https://gitlab.com/freepascal.org/fpc/source.git
synced 2025-04-12 17:09:35 +02:00
morpho
git-svn-id: trunk@28676 -
This commit is contained in:
Károly Balogh
parent
4f0d42131d
commit
8ccc6afb16
@ -2262,7 +2262,7 @@ SysCall GfxBase 156;
|
||||
procedure Animate(anKey : ppAnimOb location 'a0'; rp : pRastPort location 'a1');
|
||||
SysCall GfxBase 162;
|
||||
|
||||
function GetGBuffers(anOb : pAnimOb location 'a0'; rp : pRastPort location 'a1'; flag : LongInt location 'd0') : BOOLEAN;
|
||||
function GetGBuffers(anOb : pAnimOb location 'a0'; rp : pRastPort location 'a1'; flag : LongInt location 'd0') : LongBool;
|
||||
SysCall GfxBase 168;
|
||||
|
||||
procedure InitGMasks(anOb : pAnimOb location 'a0');
|
||||
@ -2343,7 +2343,7 @@ SysCall GfxBase 318;
|
||||
function WritePixel(rp : pRastPort location 'a1'; x : LongInt location 'd0'; y : LongInt location 'd1') : LongInt;
|
||||
SysCall GfxBase 324;
|
||||
|
||||
function Flood(rp : pRastPort location 'a1'; mode : CARDINAL location 'd2'; x : LongInt location 'd0'; y : LongInt location 'd1') : BOOLEAN;
|
||||
function Flood(rp : pRastPort location 'a1'; mode : CARDINAL location 'd2'; x : LongInt location 'd0'; y : LongInt location 'd1') : LongBool;
|
||||
SysCall GfxBase 330;
|
||||
|
||||
procedure PolyDraw(rp : pRastPort location 'a1'; count : LongInt location 'd0'; VAR polyTable : INTEGER location 'a0');
|
||||
@ -2433,13 +2433,13 @@ SysCall GfxBase 498;
|
||||
procedure AndRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1');
|
||||
SysCall GfxBase 504;
|
||||
|
||||
function OrRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : BOOLEAN;
|
||||
function OrRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : LongBool;
|
||||
SysCall GfxBase 510;
|
||||
|
||||
function NewRegion : pRegion;
|
||||
SysCall GfxBase 516;
|
||||
|
||||
function ClearRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : BOOLEAN;
|
||||
function ClearRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : LongBool;
|
||||
SysCall GfxBase 522;
|
||||
|
||||
procedure ClearRegion(region : pRegion location 'a0');
|
||||
@ -2457,7 +2457,7 @@ SysCall GfxBase 546;
|
||||
procedure ClipBlit(srcRP : pRastPort location 'a0'; xSrc : LongInt location 'd0'; ySrc : LongInt location 'd1'; destRP : pRastPort location 'a1'; xDest : LongInt location 'd2'; yDest : LongInt location 'd3'; xSize : LongInt location 'd4'; ySize : LongInt location 'd5'; minterm : CARDINAL location 'd6');
|
||||
SysCall GfxBase 552;
|
||||
|
||||
function XorRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : BOOLEAN;
|
||||
function XorRectRegion(region : pRegion location 'a0'; rectangle : pRectangle location 'a1') : LongBool;
|
||||
SysCall GfxBase 558;
|
||||
|
||||
procedure FreeCprList(cprList : pcprlist location 'a0');
|
||||
@ -2484,13 +2484,13 @@ SysCall GfxBase 600;
|
||||
procedure BltBitMapRastPort(srcBitMap : pBitMap location 'a0'; xSrc : LongInt location 'd0'; ySrc : LongInt location 'd1'; destRP : pRastPort location 'a1'; xDest : LongInt location 'd2'; yDest : LongInt location 'd3'; xSize : LongInt location 'd4'; ySize : LongInt location 'd5'; minterm : CARDINAL location 'd6');
|
||||
SysCall GfxBase 606;
|
||||
|
||||
function OrRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : BOOLEAN;
|
||||
function OrRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : LongBool;
|
||||
SysCall GfxBase 612;
|
||||
|
||||
function XorRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : BOOLEAN;
|
||||
function XorRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : LongBool;
|
||||
SysCall GfxBase 618;
|
||||
|
||||
function AndRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : BOOLEAN;
|
||||
function AndRegionRegion(srcRegion : pRegion location 'a0'; destRegion : pRegion location 'a1') : LongBool;
|
||||
SysCall GfxBase 624;
|
||||
|
||||
procedure SetRGB4CM(colorMap : pColorMap location 'a0'; index : LongInt location 'd0'; red : CARDINAL location 'd1'; green : CARDINAL location 'd2'; blue : CARDINAL location 'd3');
|
||||
@ -2499,7 +2499,7 @@ SysCall GfxBase 630;
|
||||
procedure BltMaskBitMapRastPort(srcBitMap : pBitMap location 'a0'; xSrc : LongInt location 'd0'; ySrc : LongInt location 'd1'; destRP : pRastPort location 'a1'; xDest : LongInt location 'd2'; yDest : LongInt location 'd3'; xSize : LongInt location 'd4'; ySize : LongInt location 'd5'; minterm : CARDINAL location 'd6'; bltMask : pCHAR location 'a2');
|
||||
SysCall GfxBase 636;
|
||||
|
||||
function AttemptLockLayerRom(layer : pLayer location 'a5') : BOOLEAN;
|
||||
function AttemptLockLayerRom(layer : pLayer location 'a5') : LongBool;
|
||||
SysCall GfxBase 654;
|
||||
|
||||
function GfxNew(gfxNodeType : CARDINAL location 'd0') : POINTER;
|
||||
@ -2526,13 +2526,13 @@ SysCall GfxBase 696;
|
||||
function GfxLookUp(associateNode : POINTER location 'a0') : POINTER;
|
||||
SysCall GfxBase 702;
|
||||
|
||||
function VideoControl(colorMap : pColorMap location 'a0'; tagarray : pTagItem location 'a1') : BOOLEAN;
|
||||
function VideoControl(colorMap : pColorMap location 'a0'; tagarray : pTagItem location 'a1') : LongBool;
|
||||
SysCall GfxBase 708;
|
||||
|
||||
function OpenMonitor(monitorName : pSHORTINT location 'a1'; displayID : CARDINAL location 'd0') : pMonitorSpec;
|
||||
SysCall GfxBase 714;
|
||||
|
||||
function CloseMonitor(monitorSpec : pMonitorSpec location 'a0') : BOOLEAN;
|
||||
function CloseMonitor(monitorSpec : pMonitorSpec location 'a0') : LongBool;
|
||||
SysCall GfxBase 720;
|
||||
|
||||
function FindDisplayInfo(displayID : CARDINAL location 'd0') : POINTER;
|
||||
|
||||
@ -511,7 +511,7 @@ SysCall AHIBase 096;
|
||||
function AHI_NextAudioID(Last_ID : Cardinal location 'd0') : Cardinal;
|
||||
SysCall AHIBase 102;
|
||||
|
||||
function AHI_GetAudioAttrsA(ID : Cardinal location 'd0'; Audioctrl : pAHIAudioCtrl location 'a2'; tagList : pTagItem location 'a1') : BOOLEAN;
|
||||
function AHI_GetAudioAttrsA(ID : Cardinal location 'd0'; Audioctrl : pAHIAudioCtrl location 'a2'; tagList : pTagItem location 'a1') : LongBool;
|
||||
SysCall AHIBase 108;
|
||||
|
||||
function AHI_BestAudioIDA(tagList : pTagItem location 'a1') : Cardinal;
|
||||
@ -520,7 +520,7 @@ SysCall AHIBase 114;
|
||||
function AHI_AllocAudioRequestA(tagList : pTagItem location 'a0') : pAHIAudioModeRequester;
|
||||
SysCall AHIBase 120;
|
||||
|
||||
function AHI_AudioRequestA(Requester : pAHIAudioModeRequester location 'a0'; tagList : pTagItem location 'a1') : BOOLEAN;
|
||||
function AHI_AudioRequestA(Requester : pAHIAudioModeRequester location 'a0'; tagList : pTagItem location 'a1') : LongBool;
|
||||
SysCall AHIBase 126;
|
||||
|
||||
procedure AHI_FreeAudioRequest(Requester : pAHIAudioModeRequester location 'a0');
|
||||
|
||||
@ -16,6 +16,7 @@
|
||||
|
||||
**********************************************************************}
|
||||
{$INLINE ON}
|
||||
{$PACKRECORDS 2}
|
||||
|
||||
unit AmigaDOS;
|
||||
|
||||
@ -1395,7 +1396,7 @@ function Open(fname : PChar location 'd1';
|
||||
accessMode: LongInt location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 30;
|
||||
|
||||
function dosClose(fileh: LongInt location 'd1'): Boolean;
|
||||
function dosClose(fileh: LongInt location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 36;
|
||||
|
||||
function dosRead(fileh : LongInt location 'd1';
|
||||
@ -1419,7 +1420,7 @@ function dosSeek(fileh : LongInt location 'd1';
|
||||
posmode : LongInt location 'd3'): LongInt;
|
||||
SysCall MOS_DOSBase 66;
|
||||
|
||||
function dosDeleteFile(fname: PChar location 'd1'): Boolean;
|
||||
function dosDeleteFile(fname: PChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 72;
|
||||
|
||||
function dosRename(oldName: PChar location 'd1';
|
||||
@ -1476,7 +1477,7 @@ function DeviceProc(name: PChar location 'd1'): PMsgPort;
|
||||
SysCall MOS_DOSBase 174;
|
||||
|
||||
function SetComment(name : PChar location 'd1';
|
||||
comment: PChar location 'd2'): Boolean;
|
||||
comment: PChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 180;
|
||||
|
||||
function SetProtection(name: PChar location 'd1';
|
||||
@ -1490,18 +1491,18 @@ procedure DOSDelay(timeout: LongInt location 'd1');
|
||||
SysCall MOS_DOSBase 198;
|
||||
|
||||
function WaitForChar(file1 : LongInt location 'd1';
|
||||
timeout: LongInt location 'd2'): Boolean;
|
||||
timeout: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 204;
|
||||
|
||||
function ParentDir(lock: LongInt location 'd1'): LongInt;
|
||||
SysCall MOS_DOSBase 210;
|
||||
|
||||
function IsInteractive(file1: LongInt location 'd1'): Boolean;
|
||||
function IsInteractive(file1: LongInt location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 216;
|
||||
|
||||
function Execute(string1: PChar location 'd1';
|
||||
file1 : LongInt location 'd2';
|
||||
file2 : LongInt location 'd3'): Boolean;
|
||||
file2 : LongInt location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 222;
|
||||
|
||||
function AllocDosObject(type1: Cardinal location 'd1';
|
||||
@ -1576,19 +1577,19 @@ function LockRecord(fh : LongInt location 'd1';
|
||||
offset : Cardinal location 'd2';
|
||||
length : Cardinal location 'd3';
|
||||
mode : Cardinal location 'd4';
|
||||
timeout: Cardinal location 'd5'): Boolean;
|
||||
timeout: Cardinal location 'd5'): LongBool;
|
||||
SysCall MOS_DOSBase 270;
|
||||
|
||||
function LockRecords(recArray: PRecordLock location 'd1';
|
||||
timeout : Cardinal location 'd2'): Boolean;
|
||||
timeout : Cardinal location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 276;
|
||||
|
||||
function UnLockRecord(fh : LongInt location 'd1';
|
||||
offset: Cardinal location 'd2';
|
||||
length: Cardinal location 'd3'): Boolean;
|
||||
length: Cardinal location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 282;
|
||||
|
||||
function UnLockRecords(recArray: PRecordLock location 'd1'): Boolean;
|
||||
function UnLockRecords(recArray: PRecordLock location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 288;
|
||||
|
||||
function SelectInput(fh: LongInt location 'd1'): LongInt;
|
||||
@ -1658,21 +1659,21 @@ function ParentOfFH(fh: LongInt location 'd1'): LongInt;
|
||||
SysCall MOS_DOSBase 384;
|
||||
|
||||
function ExamineFH(fh : LongInt location 'd1';
|
||||
fib: PFileInfoBlock location 'd2'): Boolean;
|
||||
fib: PFileInfoBlock location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 390;
|
||||
|
||||
function SetFileDate(name: PChar location 'd1';
|
||||
date: PDateStamp location 'd2'): Boolean;
|
||||
date: PDateStamp location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 396;
|
||||
|
||||
function NameFromLock(lock : LongInt location 'd1';
|
||||
buffer: PChar location 'd2';
|
||||
len : LongInt location 'd3'): Boolean;
|
||||
len : LongInt location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 402;
|
||||
|
||||
function NameFromFH(fh : LongInt location 'd1';
|
||||
buffer: PChar location 'd2';
|
||||
len : LongInt location 'd3'): Boolean;
|
||||
len : LongInt location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 408;
|
||||
|
||||
function SplitName(name : PChar location 'd1';
|
||||
@ -1694,24 +1695,24 @@ function ExAll(lock : LongInt location 'd1';
|
||||
buffer : PExAllData location 'd2';
|
||||
size : LongInt location 'd3';
|
||||
data : LongInt location 'd4';
|
||||
control: PExAllControl location 'd5'): Boolean;
|
||||
control: PExAllControl location 'd5'): LongBool;
|
||||
SysCall MOS_DOSBase 432;
|
||||
|
||||
function ReadLink(port : PMsgPort location 'd1';
|
||||
lock : LongInt location 'd2';
|
||||
path : PChar location 'd3';
|
||||
buffer: PChar location 'd4';
|
||||
size : Cardinal location 'd5'): Boolean;
|
||||
size : Cardinal location 'd5'): LongBool;
|
||||
SysCall MOS_DOSBase 438;
|
||||
|
||||
function MakeLink(name: PChar location 'd1';
|
||||
dest: LongInt location 'd2';
|
||||
soft: LongInt location 'd3'): Boolean;
|
||||
soft: LongInt location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 444;
|
||||
|
||||
function ChangeMode(type1 : LongInt location 'd1';
|
||||
fh : LongInt location 'd2';
|
||||
newmode: LongInt location 'd3'): Boolean;
|
||||
newmode: LongInt location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 450;
|
||||
|
||||
function SetFileSize(fh : LongInt location 'd1';
|
||||
@ -1725,17 +1726,17 @@ SysCall MOS_DOSBase 462;
|
||||
function Fault(code : LongInt location 'd1';
|
||||
header: PChar location 'd2';
|
||||
buffer: PChar location 'd3';
|
||||
len : LongInt location 'd4'): Boolean;
|
||||
len : LongInt location 'd4'): LongBool;
|
||||
SysCall MOS_DOSBase 468;
|
||||
|
||||
function PrintFault(code : LongInt location 'd1';
|
||||
header: PChar location 'd2'): Boolean;
|
||||
header: PChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 474;
|
||||
|
||||
function ErrorReport(code : LongInt location 'd1';
|
||||
type1 : LongInt location 'd2';
|
||||
arg1 : Cardinal location 'd3';
|
||||
device: PMsgPort location 'd4'): Boolean;
|
||||
device: PMsgPort location 'd4'): LongBool;
|
||||
SysCall MOS_DOSBase 480;
|
||||
|
||||
function Cli: PCommandLineInterface;
|
||||
@ -1768,7 +1769,7 @@ SysCall MOS_DOSBase 528;
|
||||
function GetArgStr: PChar;
|
||||
SysCall MOS_DOSBase 534;
|
||||
|
||||
function SetArgStr(str: PChar location 'd1'): Boolean;
|
||||
function SetArgStr(str: PChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 540;
|
||||
|
||||
function FindCliProc(num: Cardinal location 'd1'): PProcess;
|
||||
@ -1777,25 +1778,25 @@ SysCall MOS_DOSBase 546;
|
||||
function MaxCli: Cardinal;
|
||||
SysCall MOS_DOSBase 552;
|
||||
|
||||
function SetCurrentDirName(name: PChar location 'd1'): Boolean;
|
||||
function SetCurrentDirName(name: PChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 558;
|
||||
|
||||
function GetCurrentDirName(buf: PChar location 'd1';
|
||||
len: LongInt location 'd2'): Boolean;
|
||||
len: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 564;
|
||||
|
||||
function SetProgramName(name: PChar location 'd1'): Boolean;
|
||||
function SetProgramName(name: PChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 570;
|
||||
|
||||
function GetProgramName(buf: PChar location 'd1';
|
||||
len: LongInt location 'd2'): Boolean;
|
||||
len: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 576;
|
||||
|
||||
function SetPrompt(name: PChar location 'd1'): Boolean;
|
||||
function SetPrompt(name: PChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 582;
|
||||
|
||||
function GetPrompt(buf: PChar location 'd1';
|
||||
len: LongInt location 'd2'): Boolean;
|
||||
len: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 588;
|
||||
|
||||
function SetProgramDir(lock: LongInt location 'd1'): LongInt;
|
||||
@ -1813,23 +1814,23 @@ function dosSystem(command: PChar location 'd1';
|
||||
SysCall MOS_DOSBase 606;
|
||||
|
||||
function AssignLock(name: PChar location 'd1';
|
||||
lock: LongInt location 'd2'): Boolean;
|
||||
lock: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 612;
|
||||
|
||||
function AssignLate(name: PChar location 'd1';
|
||||
path: PChar location 'd2'): Boolean;
|
||||
path: PChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 618;
|
||||
|
||||
function AssignPath(name: PChar location 'd1';
|
||||
path: PChar location 'd2'): Boolean;
|
||||
path: PChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 624;
|
||||
|
||||
function AssignAdd(name: PChar location 'd1';
|
||||
lock: LongInt location 'd2'): Boolean;
|
||||
lock: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 630;
|
||||
|
||||
function RemAssignList(name: PChar location 'd1';
|
||||
lock: LongInt location 'd2'): Boolean;
|
||||
lock: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 636;
|
||||
|
||||
function GetDeviceProc(name: PChar location 'd1';
|
||||
@ -1848,7 +1849,7 @@ SysCall MOS_DOSBase 660;
|
||||
function AttemptLockDosList(flags: Cardinal location 'd1'): PDosList;
|
||||
SysCall MOS_DOSBase 666;
|
||||
|
||||
function RemDosEntry(dlist: PDosList location 'd1'): Boolean;
|
||||
function RemDosEntry(dlist: PDosList location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 672;
|
||||
|
||||
function AddDosEntry(dlist: PDosList location 'd1'): LongInt;
|
||||
@ -1870,34 +1871,34 @@ SysCall MOS_DOSBase 696;
|
||||
procedure FreeDosEntry(dlist: PDosList location 'd1');
|
||||
SysCall MOS_DOSBase 702;
|
||||
|
||||
function IsFileSystem(name: PChar location 'd1'): Boolean;
|
||||
function IsFileSystem(name: PChar location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 708;
|
||||
|
||||
function Format(filesystem: PChar location 'd1';
|
||||
volumename: PChar location 'd2';
|
||||
dostype : Cardinal location 'd3'): Boolean;
|
||||
dostype : Cardinal location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 714;
|
||||
|
||||
function Relabel(drive : PChar location 'd1';
|
||||
newname: PChar location 'd2'): Boolean;
|
||||
newname: PChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 720;
|
||||
|
||||
function Inhibit(name : PChar location 'd1';
|
||||
onoff: LongInt location 'd2'): Boolean;
|
||||
onoff: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 726;
|
||||
|
||||
function AddBuffers(name : PChar location 'd1';
|
||||
number: LongInt location 'd2'): Boolean;
|
||||
number: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 732;
|
||||
|
||||
function CompareDates(date1: PDateStamp location 'd1';
|
||||
date2: PDateStamp location 'd2'): LongInt;
|
||||
SysCall MOS_DOSBase 738;
|
||||
|
||||
function DateToStr(datetime: _PDateTime location 'd1'): Boolean;
|
||||
function DateToStr(datetime: _PDateTime location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 744;
|
||||
|
||||
function StrToDate(datetime: _PDateTime location 'd1'): Boolean;
|
||||
function StrToDate(datetime: _PDateTime location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 750;
|
||||
|
||||
function InternalLoadSeg(fh : LongInt location 'd0';
|
||||
@ -1916,7 +1917,7 @@ SysCall MOS_DOSBase 768;
|
||||
|
||||
function AddSegment(name : PChar location 'd1';
|
||||
seg : LongInt location 'd2';
|
||||
system: LongInt location 'd3'): Boolean;
|
||||
system: LongInt location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 774;
|
||||
|
||||
function FindSegment(name : PChar location 'd1';
|
||||
@ -1924,7 +1925,7 @@ function FindSegment(name : PChar location 'd1';
|
||||
system: LongInt location 'd3'): PSegment;
|
||||
SysCall MOS_DOSBase 780;
|
||||
|
||||
function RemSegment(seg: PSegment location 'd1'): Boolean;
|
||||
function RemSegment(seg: PSegment location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 786;
|
||||
|
||||
function CheckSignal(mask: LongInt location 'd1'): LongInt;
|
||||
@ -1964,7 +1965,7 @@ function ParsePattern(pat : PChar location 'd1';
|
||||
SysCall MOS_DOSBase 840;
|
||||
|
||||
function MatchPattern(pat: PChar location 'd1';
|
||||
str: PChar location 'd2'): Boolean;
|
||||
str: PChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 846;
|
||||
|
||||
procedure FreeArgs(args: pRDArgs location 'd1');
|
||||
@ -1978,10 +1979,10 @@ SysCall MOS_DOSBase 876;
|
||||
|
||||
function AddPart(dirname: PChar location 'd1';
|
||||
filename: PChar location 'd2';
|
||||
size : Cardinal location 'd3'): Boolean;
|
||||
size : Cardinal location 'd3'): LongBool;
|
||||
SysCall MOS_DOSBase 882;
|
||||
|
||||
function StartNotify(notify: PNotifyRequest location 'd1'): Boolean;
|
||||
function StartNotify(notify: PNotifyRequest location 'd1'): LongBool;
|
||||
SysCall MOS_DOSBase 888;
|
||||
|
||||
procedure EndNotify(notify: PNotifyRequest location 'd1');
|
||||
@ -1990,7 +1991,7 @@ SysCall MOS_DOSBase 894;
|
||||
function SetVar(name : PChar location 'd1';
|
||||
buffer: PChar location 'd2';
|
||||
size : LongInt location 'd3';
|
||||
flags : LongInt location 'd4'): Boolean;
|
||||
flags : LongInt location 'd4'): LongBool;
|
||||
SysCall MOS_DOSBase 900;
|
||||
|
||||
function GetVar(name : PChar location 'd1';
|
||||
@ -2000,7 +2001,7 @@ function GetVar(name : PChar location 'd1';
|
||||
SysCall MOS_DOSBase 906;
|
||||
|
||||
function DeleteVar(name : PChar location 'd1';
|
||||
flags: Cardinal location 'd2'): Boolean;
|
||||
flags: Cardinal location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 912;
|
||||
|
||||
function FindVar(name : PChar location 'd1';
|
||||
@ -2030,11 +2031,11 @@ function ParsePatternNoCase(pat : PChar location 'd1';
|
||||
SysCall MOS_DOSBase 966;
|
||||
|
||||
function MatchPatternNoCase(pat: PChar location 'd1';
|
||||
str: PChar location 'd2'): Boolean;
|
||||
str: PChar location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 972;
|
||||
|
||||
function SameDevice(lock1: LongInt location 'd1';
|
||||
lock2: LongInt location 'd2'): Boolean;
|
||||
lock2: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 984;
|
||||
|
||||
procedure ExAllEnd(lock : LongInt location 'd1';
|
||||
@ -2045,7 +2046,7 @@ procedure ExAllEnd(lock : LongInt location 'd1';
|
||||
SysCall MOS_DOSBase 990;
|
||||
|
||||
function SetOwner(name : PChar location 'd1';
|
||||
owner_info: LongInt location 'd2'): Boolean;
|
||||
owner_info: LongInt location 'd2'): LongBool;
|
||||
SysCall MOS_DOSBase 996;
|
||||
|
||||
function AddSegmentTagList(tags: PTagItem location 'a0'): LongInt;
|
||||
|
||||
@ -530,7 +530,7 @@ SysCall AslBase 030;
|
||||
procedure FreeFileRequest(fileReq : pFileRequester location 'a0');
|
||||
SysCall AslBase 036;
|
||||
|
||||
function RequestFile(fileReq : pFileRequester location 'a0'): Boolean;
|
||||
function RequestFile(fileReq : pFileRequester location 'a0'): LongBool;
|
||||
SysCall AslBase 042;
|
||||
|
||||
function AllocAslRequest(reqType: Cardinal location 'd0';
|
||||
@ -541,7 +541,7 @@ procedure FreeAslRequest(requester: Pointer location 'a0');
|
||||
SysCall AslBase 054;
|
||||
|
||||
function AslRequest(requester: Pointer location 'a0';
|
||||
tagList : pTagItem location 'a1'): Boolean;
|
||||
tagList : pTagItem location 'a1'): LongBool;
|
||||
SysCall AslBase 060;
|
||||
|
||||
procedure AbortAslRequest(requester: Pointer location 'a0');
|
||||
@ -553,7 +553,7 @@ SysCall AslBase 084;
|
||||
function AllocAslRequestTags(reqType: Cardinal;
|
||||
tagList: array of DWord): Pointer; Inline;
|
||||
function AslRequestTags(requester: Pointer;
|
||||
tagList : array of DWord): Boolean; Inline;
|
||||
tagList : array of DWord): LongBool; Inline;
|
||||
|
||||
function InitAslLibrary : boolean;
|
||||
|
||||
|
||||
@ -4052,7 +4052,7 @@ SysCall IntuitionBase 036;
|
||||
function AddGadget(window : pWindow location 'a0'; gadget : pGadget location 'a1'; position : CARDINAL location 'd0') : Word;
|
||||
SysCall IntuitionBase 042;
|
||||
|
||||
function ClearDMRequest(window : pWindow location 'a0') : BOOLEAN;
|
||||
function ClearDMRequest(window : pWindow location 'a0') : LongBool;
|
||||
SysCall IntuitionBase 048;
|
||||
|
||||
procedure ClearMenuStrip(window : pWindow location 'a0');
|
||||
@ -4061,7 +4061,7 @@ SysCall IntuitionBase 054;
|
||||
procedure ClearPointer(window : pWindow location 'a0');
|
||||
SysCall IntuitionBase 060;
|
||||
|
||||
function CloseScreen(screen : pScreen location 'a0') : BOOLEAN;
|
||||
function CloseScreen(screen : pScreen location 'a0') : LongBool;
|
||||
SysCall IntuitionBase 066;
|
||||
|
||||
procedure CloseWindow(window : pWindow location 'a0');
|
||||
@ -4073,13 +4073,13 @@ SysCall IntuitionBase 078;
|
||||
procedure CurrentTime(VAR seconds : CARDINAL location 'a0'; VAR micros : CARDINAL location 'a1');
|
||||
SysCall IntuitionBase 084;
|
||||
|
||||
function DisplayAlert(alertNumber : CARDINAL location 'd0'; string1 : PChar location 'a0'; height : CARDINAL location 'd1') : BOOLEAN;
|
||||
function DisplayAlert(alertNumber : CARDINAL location 'd0'; string1 : PChar location 'a0'; height : CARDINAL location 'd1') : LongBool;
|
||||
SysCall IntuitionBase 090;
|
||||
|
||||
procedure DisplayBeep(screen : pScreen location 'a0');
|
||||
SysCall IntuitionBase 096;
|
||||
|
||||
function DoubleClick(sSeconds : CARDINAL location 'd0'; sMicros : CARDINAL location 'd1'; cSeconds : CARDINAL location 'd2'; cMicros : CARDINAL location 'd3') : BOOLEAN;
|
||||
function DoubleClick(sSeconds : CARDINAL location 'd0'; sMicros : CARDINAL location 'd1'; cSeconds : CARDINAL location 'd2'; cMicros : CARDINAL location 'd3') : LongBool;
|
||||
SysCall IntuitionBase 102;
|
||||
|
||||
procedure DrawBorder(rp : pRastPort location 'a0'; border : pBorder location 'a1'; leftOffset : LongInt location 'd0'; topOffset : LongInt location 'd1');
|
||||
@ -4103,7 +4103,7 @@ SysCall IntuitionBase 138;
|
||||
function ItemAddress(menuStrip : pMenu location 'a0'; menuNumber : CARDINAL location 'd0') : pMenuItem;
|
||||
SysCall IntuitionBase 144;
|
||||
|
||||
function ModifyIDCMP(window : pWindow location 'a0'; flags : CARDINAL location 'd0') : BOOLEAN;
|
||||
function ModifyIDCMP(window : pWindow location 'a0'; flags : CARDINAL location 'd0') : LongBool;
|
||||
SysCall IntuitionBase 150;
|
||||
|
||||
procedure ModifyProp(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; flags : CARDINAL location 'd0'; horizPot : CARDINAL location 'd1'; vertPot : CARDINAL location 'd2'; horizBody : CARDINAL location 'd3'; vertBody : CARDINAL location 'd4');
|
||||
@ -4148,7 +4148,7 @@ SysCall IntuitionBase 228;
|
||||
procedure ReportMouse(flag : LongInt location 'd0'; window : pWindow location 'a0');
|
||||
SysCall IntuitionBase 234;
|
||||
|
||||
function Request(requester : pRequester location 'a0'; window : pWindow location 'a1') : BOOLEAN;
|
||||
function Request(requester : pRequester location 'a0'; window : pWindow location 'a1') : LongBool;
|
||||
SysCall IntuitionBase 240;
|
||||
|
||||
procedure ScreenToBack(screen : pScreen location 'a0');
|
||||
@ -4157,10 +4157,10 @@ SysCall IntuitionBase 246;
|
||||
procedure ScreenToFront(screen : pScreen location 'a0');
|
||||
SysCall IntuitionBase 252;
|
||||
|
||||
function SetDMRequest(window : pWindow location 'a0'; requester : pRequester location 'a1') : BOOLEAN;
|
||||
function SetDMRequest(window : pWindow location 'a0'; requester : pRequester location 'a1') : LongBool;
|
||||
SysCall IntuitionBase 258;
|
||||
|
||||
function SetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : BOOLEAN;
|
||||
function SetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : LongBool;
|
||||
SysCall IntuitionBase 264;
|
||||
|
||||
procedure SetPointer(window : pWindow location 'a0'; VAR pointer : Word location 'a1'; height : LongInt location 'd0'; width : LongInt location 'd1'; xOffset : LongInt location 'd2'; yOffset : LongInt location 'd3');
|
||||
@ -4187,7 +4187,7 @@ SysCall IntuitionBase 306;
|
||||
procedure WindowToFront(window : pWindow location 'a0');
|
||||
SysCall IntuitionBase 312;
|
||||
|
||||
function WindowLimits(window : pWindow location 'a0'; widthMin : LongInt location 'd0'; heightMin : LongInt location 'd1'; widthMax : CARDINAL location 'd2'; heightMax : CARDINAL location 'd3') : BOOLEAN;
|
||||
function WindowLimits(window : pWindow location 'a0'; widthMin : LongInt location 'd0'; heightMin : LongInt location 'd1'; widthMax : CARDINAL location 'd2'; heightMax : CARDINAL location 'd3') : LongBool;
|
||||
SysCall IntuitionBase 318;
|
||||
|
||||
function SetPrefs(preferences : pPreferences location 'a0'; size : LongInt location 'd0'; inform : LongInt location 'd1') : pPreferences;
|
||||
@ -4196,13 +4196,13 @@ SysCall IntuitionBase 324;
|
||||
function IntuiTextLength(iText : pIntuiText location 'a0') : LongInt;
|
||||
SysCall IntuitionBase 330;
|
||||
|
||||
function WBenchToBack : BOOLEAN;
|
||||
function WBenchToBack : LongBool;
|
||||
SysCall IntuitionBase 336;
|
||||
|
||||
function WBenchToFront : BOOLEAN;
|
||||
function WBenchToFront : LongBool;
|
||||
SysCall IntuitionBase 342;
|
||||
|
||||
function AutoRequest(window : pWindow location 'a0'; body : pIntuiText location 'a1'; posText : pIntuiText location 'a2'; negText : pIntuiText location 'a3'; pFlag : CARDINAL location 'd0'; nFlag : CARDINAL location 'd1'; width : CARDINAL location 'd2'; height : CARDINAL location 'd3') : BOOLEAN;
|
||||
function AutoRequest(window : pWindow location 'a0'; body : pIntuiText location 'a1'; posText : pIntuiText location 'a2'; negText : pIntuiText location 'a3'; pFlag : CARDINAL location 'd0'; nFlag : CARDINAL location 'd1'; width : CARDINAL location 'd2'; height : CARDINAL location 'd3') : LongBool;
|
||||
SysCall IntuitionBase 348;
|
||||
|
||||
procedure BeginRefresh(window : pWindow location 'a0');
|
||||
@ -4256,7 +4256,7 @@ SysCall IntuitionBase 450;
|
||||
procedure RefreshWindowFrame(window : pWindow location 'a0');
|
||||
SysCall IntuitionBase 456;
|
||||
|
||||
function ActivateGadget(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2') : BOOLEAN;
|
||||
function ActivateGadget(gadgets : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2') : LongBool;
|
||||
SysCall IntuitionBase 462;
|
||||
|
||||
procedure NewModifyProp(gadget : pGadget location 'a0'; window : pWindow location 'a1'; requester : pRequester location 'a2'; flags : CARDINAL location 'd0'; horizPot : CARDINAL location 'd1'; vertPot : CARDINAL location 'd2'; horizBody : CARDINAL location 'd3'; vertBody : CARDINAL location 'd4'; numGad : LongInt location 'd5');
|
||||
@ -4338,7 +4338,7 @@ function OpenScreenTags(newScreen : pNewScreen; tagList : array of DWord) : pScr
|
||||
procedure DrawImageState(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LongInt location 'd0'; topOffset : LongInt location 'd1'; state : CARDINAL location 'd2'; drawInfo : pDrawInfo location 'a2');
|
||||
SysCall IntuitionBase 618;
|
||||
|
||||
function PointInImage(point : CARDINAL location 'd0'; image : pImage location 'a0') : BOOLEAN;
|
||||
function PointInImage(point : CARDINAL location 'd0'; image : pImage location 'a0') : LongBool;
|
||||
SysCall IntuitionBase 624;
|
||||
|
||||
procedure EraseImage(rp : pRastPort location 'a0'; image : pImage location 'a1'; leftOffset : LongInt location 'd0'; topOffset : LongInt location 'd1');
|
||||
@ -4376,13 +4376,13 @@ SysCall IntuitionBase 690;
|
||||
procedure FreeScreenDrawInfo(screen : pScreen location 'a0'; drawInfo : pDrawInfo location 'a1');
|
||||
SysCall IntuitionBase 696;
|
||||
|
||||
function ResetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : BOOLEAN;
|
||||
function ResetMenuStrip(window : pWindow location 'a0'; menu : pMenu location 'a1') : LongBool;
|
||||
SysCall IntuitionBase 702;
|
||||
|
||||
procedure RemoveClass(classPtr : pIClass location 'a0');
|
||||
SysCall IntuitionBase 708;
|
||||
|
||||
function FreeClass(classPtr : pIClass location 'a0') : BOOLEAN;
|
||||
function FreeClass(classPtr : pIClass location 'a0') : LongBool;
|
||||
SysCall IntuitionBase 714;
|
||||
|
||||
function AllocScreenBuffer(sc : pScreen location 'a0'; bm : pBitMap location 'a1'; flags : CARDINAL location 'd0') : pScreenBuffer;
|
||||
@ -4412,7 +4412,7 @@ SysCall IntuitionBase 810;
|
||||
procedure SetWindowPointerA(win : pWindow location 'a0'; taglist : pTagItem location 'a1');
|
||||
SysCall IntuitionBase 816;
|
||||
|
||||
function TimedDisplayAlert(alertNumber : CARDINAL location 'd0'; string1 : PChar location 'a0'; height : CARDINAL location 'd1'; time : CARDINAL location 'a1') : BOOLEAN;
|
||||
function TimedDisplayAlert(alertNumber : CARDINAL location 'd0'; string1 : PChar location 'a0'; height : CARDINAL location 'd1'; time : CARDINAL location 'a1') : LongBool;
|
||||
SysCall IntuitionBase 822;
|
||||
|
||||
procedure HelpControl(win : pWindow location 'a0'; flags : CARDINAL location 'd0');
|
||||
@ -4433,7 +4433,7 @@ SysCall IntuitionBase 936;
|
||||
procedure WindowAction(window : pWindow location 'a0'; action : CARDINAL location 'd0'; tags : pTagItem location 'a1');
|
||||
SysCall IntuitionBase 942;
|
||||
|
||||
function TransparencyControl(window : pWindow location 'a0'; method : CARDINAL location 'd0'; tags : pTagItem location 'a1') : BOOLEAN;
|
||||
function TransparencyControl(window : pWindow location 'a0'; method : CARDINAL location 'd0'; tags : pTagItem location 'a1') : LongBool;
|
||||
SysCall IntuitionBase 948;
|
||||
|
||||
procedure ScrollWindowRasterNoFill(win : pWindow location 'a1'; dx : LongInt location 'd0'; dy : LongInt location 'd1'; xMin : LongInt location 'd2'; yMin : LongInt location 'd3'; xMax : LongInt location 'd4'; yMax : LongInt location 'd5');
|
||||
|
||||
@ -235,7 +235,7 @@ procedure RefreshTagItemClones(clone : PTagItem location 'a0';
|
||||
SysCall MOS_UtilityBase 084;
|
||||
|
||||
function TagInArray(tagValue : Cardinal location 'd0';
|
||||
var tagArray: Cardinal location 'a0'): Boolean;
|
||||
var tagArray: Cardinal location 'a0'): LongBool;
|
||||
SysCall MOS_UtilityBase 090;
|
||||
|
||||
function FilterTagItems(tagList : PTagItem location 'a0';
|
||||
@ -312,7 +312,7 @@ function UnpackStructureTags(pack : Pointer location 'a0';
|
||||
SysCall MOS_UtilityBase 216;
|
||||
|
||||
function AddNamedObject(nameSpace: PNamedObject location 'a0';
|
||||
nobject : PNamedObject location 'a1'): Boolean;
|
||||
nobject : PNamedObject location 'a1'): LongBool;
|
||||
SysCall MOS_UtilityBase 222;
|
||||
|
||||
function AllocNamedObjectA(name : PChar location 'a0';
|
||||
|
||||
Loading…
Reference in New Issue
Block a user