home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 10 / Sonderheft_12.iso / best-of-tools / packer / xpk3.11 / xpk_source / modula2 / interfaces / xpkmasterl.def < prev    next >
Text File  |  1996-11-26  |  2KB  |  56 lines
  1. (*************************************************************************
  2.  
  3. :Program.    XpkMasterL.def
  4. :Contents.   Interface-Module for xpkmaster.library
  5. :Author.     Oliver Knorr
  6. :Remark      Derived from Hartmut Goebel's Oberon Interface
  7. :Copyright.  Copyright © 1992 by Oliver Knorr
  8. :Copyright.  May be freely distributed with the Xpk-Package
  9. :Copyright.  permission is given to be included with M2Amiga
  10. :Language.   Modula-2
  11. :Translator. M2Amiga V4.0
  12. :History.    V1.0, 20 Jul 1992 Oliver Knorr
  13. :Date.       20 Jul 1992 19:13:14
  14.  
  15. *************************************************************************)
  16.  
  17. DEFINITION MODULE XpkMasterL {"xpkmaster.library",1};
  18.  
  19.  
  20. FROM SYSTEM   IMPORT ADDRESS;
  21. FROM UtilityD IMPORT TagItemPtr;
  22.  
  23. IMPORT d:XpkMasterD, R, ExecD;
  24.  
  25.  
  26. VAR
  27.   xpkVersion:INTEGER;
  28.   xpkBase:ExecD.LibraryPtr;
  29.  
  30.  
  31. CONST
  32.   xpkMinVersion=1;
  33.   xpkName = "xpkmaster.library";
  34.  
  35.  
  36. PROCEDURE XpkExamine (VAR fib{R.A0}: d.XpkFib;
  37.                         tagList{R.A1}: TagItemPtr): LONGINT; CODE -36;
  38. PROCEDURE XpkPack    (tagList{R.A0}: TagItemPtr): LONGINT; CODE -42;
  39. PROCEDURE XpkUnpack  (tagList{R.A0}: TagItemPtr): LONGINT; CODE -48;
  40. PROCEDURE XpkOpen    (VAR xbuf{R.A0}: d.XpkFH;
  41.                         tagList{R.A1}: TagItemPtr): LONGINT; CODE -54;
  42. PROCEDURE XpkRead    (buf{R.A0}: d.XpkFH;
  43.                         buf{R.A1}: ADDRESS;
  44.                         len{R.D0}: LONGINT): LONGINT; CODE -60;
  45. PROCEDURE XpkWrite   (xbuf{R.A0}: d.XpkFH;
  46.                         buf{R.A1}: ADDRESS;
  47.                         ulen{R.D0}:LONGINT): LONGINT; CODE -66;
  48. PROCEDURE XpkSeek    (xbuf{R.A0}: d.XpkFH;
  49.                         dist{R.D0}: LONGINT;
  50.                         mode{R.D1}: LONGINT): LONGINT; CODE -72;
  51. PROCEDURE XpkClose   (xbuf{R.A0}: d.XpkFH): LONGINT; CODE -78;
  52. PROCEDURE XpkQuery   (tagList{R.A0}: TagItemPtr): LONGINT; CODE -84;
  53.  
  54.  
  55. END XpkMasterL.
  56.