home *** CD-ROM | disk | FTP | other *** search
/ Amiga Plus Special 10 / Sonderheft_12.iso / best-of-tools / packer / xpk3.11 / xpk_source / modula2 / interfaces / xpksubl.def < prev   
Text File  |  1996-11-26  |  1KB  |  35 lines
  1. (*************************************************************************
  2.  
  3. :Program.    XpkSubL.def
  4. :Contents.   Lib-Call-Interface-Module for XpkSub-libraries
  5. :Author.     Oliver Knorr
  6. :Remark.     Derived from Hartmut Goebel's Oberon Interface
  7. :Remark.     This is yet untested!
  8. :Copyright.  Copyright © 1992 by Oliver Knorr
  9. :Copyright.  May be freely distributed with the Xpk-Package
  10. :Copyright.  permission is given to be included with M2Amiga
  11. :Language.   Modula-2
  12. :Translator. M2Amiga V4.0
  13. :History.    V1.0, 29 Jul 1992 Oliver Knorr
  14. :Date.       29 Jul 1992 01:28:40
  15.  
  16. *************************************************************************)
  17.  
  18. DEFINITION MODULE XpkSubL;
  19.  
  20. IMPORT d:XpkSubD, R, ExecD;
  21.  
  22. VAR
  23.   xpkSubVersion : INTEGER;
  24.   subBase : ExecD.LibraryPtr;
  25.  
  26. PROCEDURE XpksPackerInfo  (): d.XpkInfoPtr; CODE -30;
  27. PROCEDURE XpksPackChunk   (params{R.A0}: d.XpkSubParamsPtr): LONGINT; CODE -36;
  28. PROCEDURE XpksPackFree    (params{R.A0}: d.XpkSubParamsPtr); CODE -42;
  29. PROCEDURE XpksPackReset   (params{R.A0}: d.XpkSubParamsPtr): LONGINT; CODE -48;
  30. PROCEDURE XpksUnpackChunk (params{R.A0}: d.XpkSubParamsPtr): LONGINT; CODE -54;
  31. PROCEDURE XpksUnpackFree  (params{R.A0}: d.XpkSubParamsPtr); CODE -60;
  32.  
  33. END XpkSubL.
  34.  
  35.