paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-08-15 11:29:16 +02:00
Code Issues Packages Projects Releases Wiki Activity

amunits: syscallified reqtools, and zapped dependency on pastoc unit

Browse Source 
git-svn-id: trunk@32693 -
This commit is contained in:
Károly Balogh 2015-12-21 21:56:13 +00:00
parent b48b758a23
commit 61e60bd46f
1 changed files with 73 additions and 379 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

452
packages/amunits/src/otherlibs/reqtools.pas
View File

@ -37,10 +37,7 @@
} }
{$mode objfpc} {$mode objfpc}
{$I useamigasmartlink.inc} {$packrecords 2}
{$ifdef use_amiga_smartlink}
{$smartlink on}
{$endif use_amiga_smartlink}
UNIT REQTOOLS; UNIT REQTOOLS;
@ -600,35 +597,34 @@ RTSC_AutoScroll = $80000056;{ (V38) screenmode requester - set autoscroll }
Following things are obsolete in ReqTools V38. Following things are obsolete in ReqTools V38.
DON'T USE THESE IN NEW CODE! DON'T USE THESE IN NEW CODE!
*} *}
REQHOOK_WILDFILE = 0; REQHOOK_WILDFILE = 0 deprecated;
REQHOOK_WILDFONT = 1; REQHOOK_WILDFONT = 1 deprecated;
FREQB_DOWILDFUNC = 11; FREQB_DOWILDFUNC = 11 deprecated;
FREQF_DOWILDFUNC = 2048; FREQF_DOWILDFUNC = 2048 deprecated;
VAR ReqToolsBase : pLibrary; VAR ReqToolsBase : pLibrary;
FUNCTION rtAllocRequestA(typ : ULONG location 'd0'; taglist : pTagItem location 'a0') : POINTER; syscall ReqToolsBase 030;
FUNCTION rtAllocRequestA(typ : ULONG; taglist : pTagItem) : POINTER; FUNCTION rtChangeReqAttrA(req : POINTER location 'a1'; taglist : pTagItem location 'a0') : LONGINT; syscall ReqToolsBase 048;
FUNCTION rtChangeReqAttrA(req : POINTER; taglist : pTagItem) : LONGINT; PROCEDURE rtCloseWindowSafely(win : pWindow location 'a0'); syscall ReqToolsBase 150;
PROCEDURE rtCloseWindowSafely(win : pWindow); FUNCTION rtEZRequestA(bodyfmt : PChar location 'a1'; gadfmt : PChar location 'a2'; reqinfo : prtReqInfo location 'a3'; argarray: POINTER location 'a4'; taglist : pTagItem location 'a0') : ULONG; syscall ReqToolsBase 066;
FUNCTION rtEZRequestA(bodyfmt : PChar; gadfmt : PChar; reqinfo : prtReqInfo; argarray : POINTER; taglist : pTagItem) : ULONG; FUNCTION rtFileRequestA(filereq : prtFileRequester location 'a1'; filebuf : PChar location 'a2'; title : PChar location 'a3'; taglist : pTagItem location 'a0') : POINTER; syscall ReqToolsBase 054;
FUNCTION rtFileRequestA(filereq : prtFileRequester; filebuf : PChar; title : PChar; taglist : pTagItem) : POINTER; FUNCTION rtFontRequestA(fontreq : prtFontRequester location 'a1'; title : PChar location 'a3'; taglist : pTagItem location 'a0'): ULONG; syscall ReqToolsBase 096;
FUNCTION rtFontRequestA(fontreq : prtFontRequester; title : PChar; taglist : pTagItem) : ULONG; PROCEDURE rtFreeFileList(filelist : prtFileList location 'a0'); syscall ReqToolsBase 060;
PROCEDURE rtFreeFileList(filelist : prtFileList); PROCEDURE rtFreeReqBuffer(req : POINTER location 'a1'); syscall ReqToolsBase 042;
PROCEDURE rtFreeReqBuffer(req : POINTER); PROCEDURE rtFreeRequest(req : POINTER location 'a1'); syscall ReqToolsBase 036;
PROCEDURE rtFreeRequest(req : POINTER); FUNCTION rtGetLongA(VAR longptr : ULONG location 'a1'; title : PChar location 'a2'; reqinfo : prtReqInfo location 'a3'; taglist: pTagItem location 'a0') : ULONG; syscall ReqToolsBase 078;
FUNCTION rtGetLongA(VAR longptr : ULONG; title : PChar; reqinfo : prtReqInfo; taglist : pTagItem) : ULONG; FUNCTION rtGetStringA(buffer : pCHAR location 'a1'; maxchars : ULONG location 'd0'; title : PChar location 'a2'; reqinfo :prtReqInfo location 'a3'; taglist : pTagItem location 'a0') : ULONG; syscall ReqToolsBase 072;
FUNCTION rtGetStringA(buffer : pCHAR; maxchars : ULONG; title : PChar; reqinfo : prtReqInfo; taglist : pTagItem) : ULONG; FUNCTION rtGetVScreenSize(screen : pScreen location 'a0'; VAR widthptr : ULONG location 'a1'; VAR heightptr :ULONG location 'a2') : ULONG; syscall ReqToolsBase 120;
FUNCTION rtGetVScreenSize(screen : pScreen; VAR widthptr : ULONG; VAR heightptr : ULONG) : ULONG; FUNCTION rtLockWindow(win : pWindow location 'a0') : POINTER; syscall ReqToolsBase 156;
FUNCTION rtLockWindow(win : pWindow) : POINTER; FUNCTION rtPaletteRequestA(title : PChar location 'a2'; reqinfo : prtReqInfo location 'a3'; taglist : pTagItem location 'a0') :LONGINT; syscall ReqToolsBase 102;
FUNCTION rtPaletteRequestA(title : PChar; reqinfo : prtReqInfo; taglist : pTagItem) : LONGINT; FUNCTION rtReqHandlerA(handlerinfo : prtHandlerInfo location 'a1'; sigs : ULONG location 'd0'; taglist : pTagItem location 'a0'): ULONG; syscall ReqToolsBase 108;
FUNCTION rtReqHandlerA(handlerinfo : prtHandlerInfo; sigs : ULONG; taglist : pTagItem) : ULONG; FUNCTION rtScreenModeRequestA(screenmodereq : prtScreenModeRequester location 'a1'; title : PChar location 'a3'; taglist : pTagItem location 'a0') : ULONG; syscall ReqToolsBase 144;
FUNCTION rtScreenModeRequestA(screenmodereq : prtScreenModeRequester; title : PChar; taglist : pTagItem) : ULONG; PROCEDURE rtScreenToFrontSafely(screen : pScreen location 'a0'); syscall ReqToolsBase 138;
PROCEDURE rtScreenToFrontSafely(screen : pScreen); PROCEDURE rtSetReqPosition(reqpos : ULONG location 'd0'; newwindow : pNewWindow location 'a0'; screen : pScreen location 'a1'; window : pWindow location 'd2'); syscall ReqToolsBase 126;
PROCEDURE rtSetReqPosition(reqpos : ULONG; newwindow : pNewWindow; screen : pScreen; window : pWindow); PROCEDURE rtSetWaitPointer(window : pWindow location 'a0'); syscall ReqToolsBase 114;
PROCEDURE rtSetWaitPointer(window : pWindow); PROCEDURE rtSpread(VAR posarray : ULONG location 'a0'; VAR sizearray : ULONG location 'a1'; length : ULONG location 'd0'; min :ULONG location 'd1'; max : ULONG location 'd2'; num : ULONG location 'd3'); syscall ReqToolsBase 132;
PROCEDURE rtSpread(VAR posarray : ULONG; VAR sizearray : ULONG; length : ULONG; min : ULONG; max : ULONG; num : ULONG); PROCEDURE rtUnlockWindow(win : pWindow location 'a0'; winlock : POINTER location 'a1'); syscall ReqToolsBase 162;
PROCEDURE rtUnlockWindow(win : pWindow; winlock : POINTER);
{ {
This is functions and procedures with array of const. This is functions and procedures with array of const.
@ -648,30 +644,30 @@ FUNCTION rtScreenModeRequest(screenmodereq : prtScreenModeRequester; title : PCh
{overlay functions} {overlay functions}
FUNCTION rtEZRequestA(bodyfmt : PChar; gadfmt : String; reqinfo : prtReqInfo; argarray : POINTER; taglist : pTagItem) : ULONG; FUNCTION rtEZRequestA(bodyfmt : PChar; const gadfmt : RawByteString; reqinfo : prtReqInfo; argarray : POINTER; taglist : pTagItem) : ULONG;
FUNCTION rtEZRequestA(bodyfmt : String; gadfmt : PChar; reqinfo : prtReqInfo; argarray : POINTER; taglist : pTagItem) : ULONG; FUNCTION rtEZRequestA(const bodyfmt : RawByteString; gadfmt : PChar; reqinfo : prtReqInfo; argarray : POINTER; taglist : pTagItem) : ULONG;
FUNCTION rtEZRequestA(bodyfmt : String; gadfmt : String; reqinfo : prtReqInfo; argarray : POINTER; taglist : pTagItem) : ULONG; FUNCTION rtEZRequestA(const bodyfmt : RawByteString; const gadfmt : RawByteString; reqinfo : prtReqInfo; argarray : POINTER; taglist : pTagItem) : ULONG;
FUNCTION rtFileRequestA(filereq : prtFileRequester; filebuf : PChar; title : String; taglist : pTagItem) : POINTER; FUNCTION rtFileRequestA(filereq : prtFileRequester; filebuf : PChar; const title : RawByteString; taglist : pTagItem) : POINTER;
FUNCTION rtFontRequestA(fontreq : prtFontRequester; title : String; taglist : pTagItem) : ULONG; FUNCTION rtFontRequestA(fontreq : prtFontRequester; const title : RawByteString; taglist : pTagItem) : ULONG;
FUNCTION rtGetLongA(VAR longptr : ULONG; title : String; reqinfo : prtReqInfo; taglist : pTagItem) : ULONG; FUNCTION rtGetLongA(VAR longptr : ULONG; const title : RawByteString; reqinfo : prtReqInfo; taglist : pTagItem) : ULONG;
FUNCTION rtGetStringA(buffer : pCHAR; maxchars : ULONG; title : String; reqinfo : prtReqInfo; taglist : pTagItem) : ULONG; FUNCTION rtGetStringA(buffer : pCHAR; maxchars : ULONG; const title : RawByteString; reqinfo : prtReqInfo; taglist : pTagItem) : ULONG;
FUNCTION rtPaletteRequestA(title : String; reqinfo : prtReqInfo; taglist : pTagItem) : LONGINT; FUNCTION rtPaletteRequestA(const title : RawByteString; reqinfo : prtReqInfo; taglist : pTagItem) : LONGINT;
FUNCTION rtScreenModeRequestA(screenmodereq : prtScreenModeRequester; title : String; taglist : pTagItem) : ULONG; FUNCTION rtScreenModeRequestA(screenmodereq : prtScreenModeRequester; const title : RawByteString; taglist : pTagItem) : ULONG;
{ {
This is functions and procedures with array of const. This is functions and procedures with array of const.
For use with fpc 1.0 and above. + overlay For use with fpc 1.0 and above. + overlay
} }
FUNCTION rtEZRequest(bodyfmt : PChar; gadfmt : String; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG; FUNCTION rtEZRequest(bodyfmt : PChar; const gadfmt : RawByteString; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG;
FUNCTION rtEZRequest(bodyfmt : String; gadfmt : PChar; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG; FUNCTION rtEZRequest(const bodyfmt : RawByteString; gadfmt : PChar; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG;
FUNCTION rtEZRequest(bodyfmt : String; gadfmt : String; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG; FUNCTION rtEZRequest(const bodyfmt : RawByteString; const gadfmt : RawByteString; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG;
FUNCTION rtFileRequest(filereq : prtFileRequester; filebuf : PChar; title : String; const argv : Array Of Const) : POINTER; FUNCTION rtFileRequest(filereq : prtFileRequester; filebuf : PChar; const title : RawByteString; const argv : Array Of Const) : POINTER;
FUNCTION rtFontRequest(fontreq : prtFontRequester; title : String; const argv : Array Of Const) : ULONG; FUNCTION rtFontRequest(fontreq : prtFontRequester; const title : RawByteString; const argv : Array Of Const) : ULONG;
FUNCTION rtGetLong(VAR longptr : ULONG; title : String; reqinfo : prtReqInfo; const argv : Array Of Const) : ULONG; FUNCTION rtGetLong(VAR longptr : ULONG; const title : RawByteString; reqinfo : prtReqInfo; const argv : Array Of Const) : ULONG;
FUNCTION rtGetString(buffer : pCHAR; maxchars : ULONG; title : String; reqinfo : prtReqInfo; const argv : Array Of Const) : ULONG; FUNCTION rtGetString(buffer : pCHAR; maxchars : ULONG; const title : RawByteString; reqinfo : prtReqInfo; const argv : Array Of Const) : ULONG;
FUNCTION rtPaletteRequest(title : String; reqinfo : prtReqInfo; const argv : Array Of Const) : LONGINT; FUNCTION rtPaletteRequest(const title : RawByteString; reqinfo : prtReqInfo; const argv : Array Of Const) : LONGINT;
FUNCTION rtScreenModeRequest(screenmodereq : prtScreenModeRequester; title : String; const argv : Array Of Const) : ULONG; FUNCTION rtScreenModeRequest(screenmodereq : prtScreenModeRequester; const title : RawByteString; const argv : Array Of Const) : ULONG;
{You can remove this include and use a define instead} {You can remove this include and use a define instead}
@ -691,351 +687,52 @@ uses
{$ifndef dont_use_openlib} {$ifndef dont_use_openlib}
amsgbox, amsgbox,
{$endif dont_use_openlib} {$endif dont_use_openlib}
tagsarray,pastoc; tagsarray;
FUNCTION rtAllocRequestA(typ : ULONG; taglist : pTagItem) : POINTER;
FUNCTION rtEZRequestA(bodyfmt : PChar; const gadfmt : RawByteString; reqinfo : prtReqInfo; argarray: POINTER; taglist : pTagItem) : ULONG;
BEGIN BEGIN
ASM rtEZRequestA := rtEZRequestA(bodyfmt,PChar(gadfmt),reqinfo,argarray,taglist);
MOVE.L A6,-(A7)
MOVE.L typ,D0
MOVEA.L taglist,A0
MOVEA.L ReqToolsBase,A6
JSR -030(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END; END;
FUNCTION rtChangeReqAttrA(req : POINTER; taglist : pTagItem) : LONGINT; FUNCTION rtEZRequestA(const bodyfmt : RawByteString; gadfmt : PChar; reqinfo : prtReqInfo; argarray: POINTER; taglist : pTagItem) : ULONG;
BEGIN BEGIN
ASM rtEZRequestA := rtEZRequestA(PChar(bodyfmt),gadfmt,reqinfo,argarray,taglist);
MOVE.L A6,-(A7)
MOVEA.L req,A1
MOVEA.L taglist,A0
MOVEA.L ReqToolsBase,A6
JSR -048(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END; END;
PROCEDURE rtCloseWindowSafely(win : pWindow); FUNCTION rtEZRequestA(const bodyfmt : RawByteString; const gadfmt : RawByteString; reqinfo : prtReqInfo; argarray : POINTER; taglist : pTagItem) : ULONG;
BEGIN BEGIN
ASM rtEZRequestA := rtEZRequestA(PChar(bodyfmt),PChar(gadfmt),reqinfo,argarray,taglist);
MOVE.L A6,-(A7)
MOVEA.L win,A0
MOVEA.L ReqToolsBase,A6
JSR -150(A6)
MOVEA.L (A7)+,A6
END;
END; END;
FUNCTION rtEZRequestA(bodyfmt : PChar; gadfmt : PChar; reqinfo : prtReqInfo; argarray FUNCTION rtFileRequestA(filereq : prtFileRequester; filebuf : PChar; const title : RawByteString; taglist : pTagItem) : POINTER;
: POINTER; taglist : pTagItem) : ULONG;
BEGIN BEGIN
ASM rtFileRequestA := rtFileRequestA(filereq,filebuf,PChar(title),taglist);
MOVE.L A6,-(A7)
MOVEA.L bodyfmt,A1
MOVEA.L gadfmt,A2
MOVEA.L reqinfo,A3
MOVEA.L argarray,A4
MOVEA.L taglist,A0
MOVEA.L ReqToolsBase,A6
JSR -066(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END; END;
FUNCTION rtFileRequestA(filereq : prtFileRequester; filebuf : PChar; title : PChar; FUNCTION rtFontRequestA(fontreq : prtFontRequester; const title : RawByteString; taglist :pTagItem) : ULONG;
taglist : pTagItem) : POINTER;
BEGIN BEGIN
ASM rtFontRequestA := rtFontRequestA(fontreq,PChar(title),taglist);
MOVE.L A6,-(A7)
MOVEA.L filereq,A1
MOVEA.L filebuf,A2
MOVEA.L title,A3
MOVEA.L taglist,A0
MOVEA.L ReqToolsBase,A6
JSR -054(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END; END;
FUNCTION rtFontRequestA(fontreq : prtFontRequester; title : PChar; taglist : pTagItem) FUNCTION rtGetLongA(VAR longptr : ULONG; const title : RawByteString; reqinfo : prtReqInfo; taglist: pTagItem) : ULONG;
: ULONG;
BEGIN BEGIN
ASM rtGetLongA := rtGetLongA(longptr,PChar(title),reqinfo,taglist);
MOVE.L A6,-(A7)
MOVEA.L fontreq,A1
MOVEA.L title,A3
MOVEA.L taglist,A0
MOVEA.L ReqToolsBase,A6
JSR -096(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END; END;
PROCEDURE rtFreeFileList(filelist : prtFileList); FUNCTION rtGetStringA(buffer : pCHAR; maxchars : ULONG; const title : RawByteString; reqinfo :prtReqInfo; taglist : pTagItem) : ULONG;
BEGIN BEGIN
ASM rtGetStringA := rtGetStringA(buffer,maxchars,PChar(title),reqinfo,taglist);
MOVE.L A6,-(A7)
MOVEA.L filelist,A0
MOVEA.L ReqToolsBase,A6
JSR -060(A6)
MOVEA.L (A7)+,A6
END;
END; END;
PROCEDURE rtFreeReqBuffer(req : POINTER); FUNCTION rtPaletteRequestA(const title : RawByteString; reqinfo : prtReqInfo; taglist : pTagItem) :LONGINT;
BEGIN BEGIN
ASM rtPaletteRequestA := rtPaletteRequestA(PChar(title),reqinfo,taglist);
MOVE.L A6,-(A7)
MOVEA.L req,A1
MOVEA.L ReqToolsBase,A6
JSR -042(A6)
MOVEA.L (A7)+,A6
END;
END; END;
PROCEDURE rtFreeRequest(req : POINTER); FUNCTION rtScreenModeRequestA(screenmodereq : prtScreenModeRequester; const title : RawByteString; taglist : pTagItem) : ULONG;
BEGIN BEGIN
ASM rtScreenModeRequestA := rtScreenModeRequestA(screenmodereq,PChar(title),taglist);
MOVE.L A6,-(A7)
MOVEA.L req,A1
MOVEA.L ReqToolsBase,A6
JSR -036(A6)
MOVEA.L (A7)+,A6
END;
END;
FUNCTION rtGetLongA(VAR longptr : ULONG; title : PChar; reqinfo : prtReqInfo; taglist
: pTagItem) : ULONG;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L longptr,A1
MOVEA.L title,A2
MOVEA.L reqinfo,A3
MOVEA.L taglist,A0
MOVEA.L ReqToolsBase,A6
JSR -078(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
FUNCTION rtGetStringA(buffer : pCHAR; maxchars : ULONG; title : PChar; reqinfo :
prtReqInfo; taglist : pTagItem) : ULONG;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L buffer,A1
MOVE.L maxchars,D0
MOVEA.L title,A2
MOVEA.L reqinfo,A3
MOVEA.L taglist,A0
MOVEA.L ReqToolsBase,A6
JSR -072(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
FUNCTION rtGetVScreenSize(screen : pScreen; VAR widthptr : ULONG; VAR heightptr :
ULONG) : ULONG;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L screen,A0
MOVEA.L widthptr,A1
MOVEA.L heightptr,A2
MOVEA.L ReqToolsBase,A6
JSR -120(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
FUNCTION rtLockWindow(win : pWindow) : POINTER;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L win,A0
MOVEA.L ReqToolsBase,A6
JSR -156(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
FUNCTION rtPaletteRequestA(title : PChar; reqinfo : prtReqInfo; taglist : pTagItem) :
LONGINT;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L title,A2
MOVEA.L reqinfo,A3
MOVEA.L taglist,A0
MOVEA.L ReqToolsBase,A6
JSR -102(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
FUNCTION rtReqHandlerA(handlerinfo : prtHandlerInfo; sigs : ULONG; taglist : pTagItem)
: ULONG;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L handlerinfo,A1
MOVE.L sigs,D0
MOVEA.L taglist,A0
MOVEA.L ReqToolsBase,A6
JSR -108(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
FUNCTION rtScreenModeRequestA(screenmodereq : prtScreenModeRequester; title : PChar;
taglist : pTagItem) : ULONG;
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L screenmodereq,A1
MOVEA.L title,A3
MOVEA.L taglist,A0
MOVEA.L ReqToolsBase,A6
JSR -144(A6)
MOVEA.L (A7)+,A6
MOVE.L D0,@RESULT
END;
END;
PROCEDURE rtScreenToFrontSafely(screen : pScreen);
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L screen,A0
MOVEA.L ReqToolsBase,A6
JSR -138(A6)
MOVEA.L (A7)+,A6
END;
END;
PROCEDURE rtSetReqPosition(reqpos : ULONG; newwindow : pNewWindow; screen : pScreen;
window : pWindow);
BEGIN
ASM
MOVE.L A6,-(A7)
MOVE.L reqpos,D0
MOVEA.L newwindow,A0
MOVEA.L screen,A1
MOVEA.L window,A2
MOVEA.L ReqToolsBase,A6
JSR -126(A6)
MOVEA.L (A7)+,A6
END;
END;
PROCEDURE rtSetWaitPointer(window : pWindow);
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L window,A0
MOVEA.L ReqToolsBase,A6
JSR -114(A6)
MOVEA.L (A7)+,A6
END;
END;
PROCEDURE rtSpread(VAR posarray : ULONG; VAR sizearray : ULONG; length : ULONG; min :
ULONG; max : ULONG; num : ULONG);
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L posarray,A0
MOVEA.L sizearray,A1
MOVE.L length,D0
MOVE.L min,D1
MOVE.L max,D2
MOVE.L num,D3
MOVEA.L ReqToolsBase,A6
JSR -132(A6)
MOVEA.L (A7)+,A6
END;
END;
PROCEDURE rtUnlockWindow(win : pWindow; winlock : POINTER);
BEGIN
ASM
MOVE.L A6,-(A7)
MOVEA.L win,A0
MOVEA.L winlock,A1
MOVEA.L ReqToolsBase,A6
JSR -162(A6)
MOVEA.L (A7)+,A6
END;
END;
FUNCTION rtEZRequestA(bodyfmt : PChar; gadfmt : String; reqinfo : prtReqInfo; argarray
: POINTER; taglist : pTagItem) : ULONG;
BEGIN
rtEZRequestA := rtEZRequestA(bodyfmt,pas2c(gadfmt),reqinfo,argarray,taglist);
END;
FUNCTION rtEZRequestA(bodyfmt : String; gadfmt : PChar; reqinfo : prtReqInfo; argarray
: POINTER; taglist : pTagItem) : ULONG;
BEGIN
rtEZRequestA := rtEZRequestA(pas2c(bodyfmt),gadfmt,reqinfo,argarray,taglist);
END;
FUNCTION rtEZRequestA(bodyfmt : String; gadfmt : String; reqinfo : prtReqInfo;
argarray : POINTER; taglist : pTagItem) : ULONG;
BEGIN
rtEZRequestA :=
rtEZRequestA(pas2c(bodyfmt),pas2c(gadfmt),reqinfo,argarray,taglist);
END;
FUNCTION rtFileRequestA(filereq : prtFileRequester; filebuf : PChar; title : String;
taglist : pTagItem) : POINTER;
BEGIN
rtFileRequestA := rtFileRequestA(filereq,filebuf,pas2c(title),taglist);
END;
FUNCTION rtFontRequestA(fontreq : prtFontRequester; title : String; taglist :
pTagItem) : ULONG;
BEGIN
rtFontRequestA := rtFontRequestA(fontreq,pas2c(title),taglist);
END;
FUNCTION rtGetLongA(VAR longptr : ULONG; title : String; reqinfo : prtReqInfo; taglist
: pTagItem) : ULONG;
BEGIN
rtGetLongA := rtGetLongA(longptr,pas2c(title),reqinfo,taglist);
END;
FUNCTION rtGetStringA(buffer : pCHAR; maxchars : ULONG; title : String; reqinfo :
prtReqInfo; taglist : pTagItem) : ULONG;
BEGIN
rtGetStringA := rtGetStringA(buffer,maxchars,pas2c(title),reqinfo,taglist);
END;
FUNCTION rtPaletteRequestA(title : String; reqinfo : prtReqInfo; taglist : pTagItem) :
LONGINT;
BEGIN
rtPaletteRequestA := rtPaletteRequestA(pas2c(title),reqinfo,taglist);
END;
FUNCTION rtScreenModeRequestA(screenmodereq : prtScreenModeRequester; title : String;
taglist : pTagItem) : ULONG;
BEGIN
rtScreenModeRequestA := rtScreenModeRequestA(screenmodereq,pas2c(title),taglist);
END; END;
@ -1089,47 +786,47 @@ begin
rtScreenModeRequest := rtScreenModeRequestA(screenmodereq,title,readintags(argv)); rtScreenModeRequest := rtScreenModeRequestA(screenmodereq,title,readintags(argv));
end; end;
FUNCTION rtEZRequest(bodyfmt : PChar; gadfmt : String; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG; FUNCTION rtEZRequest(bodyfmt : PChar; const gadfmt : RawByteString; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG;
begin begin
rtEZRequest := rtEZRequestA(bodyfmt,gadfmt,reqinfo,argarray,readintags(argv)); rtEZRequest := rtEZRequestA(bodyfmt,gadfmt,reqinfo,argarray,readintags(argv));
end; end;
FUNCTION rtEZRequest(bodyfmt : String; gadfmt : PChar; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG; FUNCTION rtEZRequest(const bodyfmt : RawByteString; gadfmt : PChar; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG;
begin begin
rtEZRequest := rtEZRequestA(bodyfmt,gadfmt,reqinfo,argarray,readintags(argv)); rtEZRequest := rtEZRequestA(bodyfmt,gadfmt,reqinfo,argarray,readintags(argv));
end; end;
FUNCTION rtEZRequest(bodyfmt : String; gadfmt : String; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG; FUNCTION rtEZRequest(const bodyfmt : RawByteString; const gadfmt : RawByteString; reqinfo : prtReqInfo; argarray : POINTER; const argv : Array Of Const) : ULONG;
begin begin
rtEZRequest := rtEZRequestA(bodyfmt,gadfmt,reqinfo,argarray,readintags(argv)); rtEZRequest := rtEZRequestA(bodyfmt,gadfmt,reqinfo,argarray,readintags(argv));
end; end;
FUNCTION rtFileRequest(filereq : prtFileRequester; filebuf : PChar; title : String; const argv : Array Of Const) : POINTER; FUNCTION rtFileRequest(filereq : prtFileRequester; filebuf : PChar; const title : RawByteString; const argv : Array Of Const) : POINTER;
begin begin
rtFileRequest := rtFileRequestA(filereq,filebuf,title,readintags(argv)); rtFileRequest := rtFileRequestA(filereq,filebuf,title,readintags(argv));
end; end;
FUNCTION rtFontRequest(fontreq : prtFontRequester; title : String; const argv : Array Of Const) : ULONG; FUNCTION rtFontRequest(fontreq : prtFontRequester; const title : RawByteString; const argv : Array Of Const) : ULONG;
begin begin
rtFontRequest := rtFontRequestA(fontreq,title,readintags(argv)); rtFontRequest := rtFontRequestA(fontreq,title,readintags(argv));
end; end;
FUNCTION rtGetLong(VAR longptr : ULONG; title : String; reqinfo : prtReqInfo; const argv : Array Of Const) : ULONG; FUNCTION rtGetLong(VAR longptr : ULONG; const title : RawByteString; reqinfo : prtReqInfo; const argv : Array Of Const) : ULONG;
begin begin
rtGetLong := rtGetLongA(longptr,title,reqinfo,readintags(argv)); rtGetLong := rtGetLongA(longptr,title,reqinfo,readintags(argv));
end; end;
FUNCTION rtGetString(buffer : pCHAR; maxchars : ULONG; title : String; reqinfo : prtReqInfo; const argv : Array Of Const) : ULONG; FUNCTION rtGetString(buffer : pCHAR; maxchars : ULONG; const title : RawByteString; reqinfo : prtReqInfo; const argv : Array Of Const) : ULONG;
begin begin
rtGetString := rtGetStringA(buffer,maxchars,title,reqinfo,readintags(argv)); rtGetString := rtGetStringA(buffer,maxchars,title,reqinfo,readintags(argv));
end; end;
FUNCTION rtPaletteRequest(title : String; reqinfo : prtReqInfo; const argv : Array Of Const) : LONGINT; FUNCTION rtPaletteRequest(const title : RawByteString; reqinfo : prtReqInfo; const argv : Array Of Const) : LONGINT;
begin begin
rtPaletteRequest := rtPaletteRequestA(title,reqinfo,readintags(argv)); rtPaletteRequest := rtPaletteRequestA(title,reqinfo,readintags(argv));
end; end;
FUNCTION rtScreenModeRequest(screenmodereq : prtScreenModeRequester; title : String; const argv : Array Of Const) : ULONG; FUNCTION rtScreenModeRequest(screenmodereq : prtScreenModeRequester; const title : RawByteString; const argv : Array Of Const) : ULONG;
begin begin
rtScreenModeRequest := rtScreenModeRequestA(screenmodereq,title,readintags(argv)); rtScreenModeRequest := rtScreenModeRequestA(screenmodereq,title,readintags(argv));
end; end;
@ -1217,6 +914,3 @@ begin
END. (* UNIT REQTOOLS *) END. (* UNIT REQTOOLS *)