(*---------------------------------------------------------------------------
  :Program.    ReqToolsSupport.def
  :Contents.   Umgehung von A4-Problem bei ReqTools-Funktionen
  :Author.     Frank Lömker
  :Copyright.  Public Domain
  :Language.   Modula-2
  :Translator. M2Amiga V4.0d
  :Imports.    ReqTools [kai]
  :History.    V1.0, [Frank Lömker] 24-Feb-92
  :Bugs.       keine bekannt
---------------------------------------------------------------------------*)

DEFINITION MODULE ReqToolsSupport;

FROM UtilityD IMPORT TagItemPtr;
FROM ReqTools IMPORT ReqInfoPtr;
FROM SYSTEM IMPORT ASSEMBLE,ADDRESS;

(* Diese Prozeduren sind identisch zu denen aus ReqTools.def, benutzen aber
   nicht das Register A4, so das der Aufruf von Modula aus möglich ist.

   This procedures are identical to these from ReqTools.def, but they do not
   use register A4, so they can be used from Modula. *)

PROCEDURE EZRequestA (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
                      reqInfo{11}: ReqInfoPtr;
                      argarray{2}: ADDRESS;
                      tagList{8}: TagItemPtr): LONGINT;
PROCEDURE EZRequestTags (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
                         reqInfo{11}: ReqInfoPtr;
                         argarray{2}: ADDRESS;
                         tag1{8}: TagItemPtr):LONGINT;
PROCEDURE EZRequest (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
                     reqInfo{11}: ReqInfoPtr;
                     tagList{8}: TagItemPtr;
                     argarray{2}: ADDRESS (*LONGINT*)): LONGINT;
(* Without result.... *)
PROCEDURE vEZRequestA (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
                       reqInfo{11}: ReqInfoPtr;
                       argarray{2}: ADDRESS;
                       tagList{8}: TagItemPtr);
PROCEDURE vEZRequestTags (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
                          reqInfo{11}: ReqInfoPtr;
                          argarray{2}: ADDRESS;
                          tag1{8}: TagItemPtr);
PROCEDURE vEZRequest (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
                      reqInfo{11}: ReqInfoPtr;
                      tagList{8}: TagItemPtr;
                      argarray{2}: ADDRESS (*LONGINT*));

END ReqToolsSupport.
