home *** CD-ROM | disk | FTP | other *** search
/ The Fred Fish Collection 1.5 / ffcollection-1-5-1992-11.iso / ff_progs / libs / reqtools.lha / modula2 / ReqToolsSupport.def < prev    next >
Encoding:
Modula Definition  |  1992-03-21  |  2.1 KB  |  49 lines
  1. (*---------------------------------------------------------------------------
  2.   :Program.    ReqToolsSupport.def
  3.   :Contents.   Umgehung von A4-Problem bei ReqTools-Funktionen
  4.   :Author.     Frank Lömker
  5.   :Copyright.  Public Domain
  6.   :Language.   Modula-2
  7.   :Translator. M2Amiga V4.0d
  8.   :Imports.    ReqTools [kai]
  9.   :History.    V1.0, [Frank Lömker] 24-Feb-92
  10.   :Bugs.       keine bekannt
  11. ---------------------------------------------------------------------------*)
  12.  
  13. DEFINITION MODULE ReqToolsSupport;
  14.  
  15. FROM UtilityD IMPORT TagItemPtr;
  16. FROM ReqTools IMPORT ReqInfoPtr;
  17. FROM SYSTEM IMPORT ASSEMBLE,ADDRESS;
  18.  
  19. (* Diese Prozeduren sind identisch zu denen aus ReqTools.def, benutzen aber
  20.    nicht das Register A4, so das der Aufruf von Modula aus möglich ist. *)
  21.  
  22. PROCEDURE EZRequestA (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  23.                       reqInfo{11}: ReqInfoPtr;
  24.                       argarray{2}: ADDRESS;
  25.                       tagList{8}: TagItemPtr): LONGINT;
  26. PROCEDURE EZRequestTags (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  27.                          reqInfo{11}: ReqInfoPtr;
  28.                          argarray{2}: ADDRESS;
  29.                          tag1{8}: TagItemPtr):LONGINT;
  30. PROCEDURE EZRequest (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  31.                      reqInfo{11}: ReqInfoPtr;
  32.                      tagList{8}: TagItemPtr;
  33.                      argarray{2}: ADDRESS (*LONGINT*)): LONGINT;
  34. (* Without result.... *)
  35. PROCEDURE vEZRequestA (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  36.                        reqInfo{11}: ReqInfoPtr;
  37.                        argarray{2}: ADDRESS;
  38.                        tagList{8}: TagItemPtr);
  39. PROCEDURE vEZRequestTags (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  40.                           reqInfo{11}: ReqInfoPtr;
  41.                           argarray{2}: ADDRESS;
  42.                           tag1{8}: TagItemPtr);
  43. PROCEDURE vEZRequest (bodyfmt{9}, gadfmt{10}: ADDRESS (*ARRAY OF CHAR*);
  44.                       reqInfo{11}: ReqInfoPtr;
  45.                       tagList{8}: TagItemPtr;
  46.                       argarray{2}: ADDRESS (*LONGINT*));
  47.  
  48. END ReqToolsSupport.
  49.