(*************************************************************************

:Program.    OptXpkMasterL.def
:Contents.   Interface-Module for xpkmaster.library
:Author.     Oliver Knorr
:Remark      Derived from Hartmut Goebel's Oberon Interface
:Copyright.  Copyright © 1992 by Oliver Knorr
:Copyright.  May be freely distributed with the Xpk-Package
:Copyright.  permission is given to be included with M2Amiga
:Language.   Modula-2
:Translator. M2Amiga V4.0
:History.    V1.0, 29 Jul 1992 Oliver Knorr
:Date.       29 Jul 1992 01:45:08

*************************************************************************)

DEFINITION MODULE OptXpkMasterL {"xpkmaster.library",-1};


FROM SYSTEM   IMPORT ADDRESS;
FROM UtilityD IMPORT TagItemPtr;

IMPORT d:XpkMasterD, R, ExecD;


VAR
  xpkVersion:INTEGER;
  xpkBase:ExecD.LibraryPtr;


CONST
  xpkMinVersion=1;
  xpkName = "xpkmaster.library";


PROCEDURE XpkExamine (VAR fib{R.A0}: d.XpkFib;
                        tagList{R.A1}: TagItemPtr): LONGINT; CODE -36;
PROCEDURE XpkPack    (tagList{R.A0}: TagItemPtr): LONGINT; CODE -42;
PROCEDURE XpkUnpack  (tagList{R.A0}: TagItemPtr): LONGINT; CODE -48;
PROCEDURE XpkOpen    (VAR xbuf{R.A0}: d.XpkFH;
                        tagList{R.A1}: TagItemPtr): LONGINT; CODE -54;
PROCEDURE XpkRead    (buf{R.A0}: d.XpkFH;
                        buf{R.A1}: ADDRESS;
                        len{R.D0}: LONGINT): LONGINT; CODE -60;
PROCEDURE XpkWrite   (xbuf{R.A0}: d.XpkFH;
                        buf{R.A1}: ADDRESS;
                        ulen{R.D0}:LONGINT): LONGINT; CODE -66;
PROCEDURE XpkSeek    (xbuf{R.A0}: d.XpkFH;
                        dist{R.D0}: LONGINT;
                        mode{R.D1}: LONGINT): LONGINT; CODE -72;
PROCEDURE XpkClose   (xbuf{R.A0}: d.XpkFH): LONGINT; CODE -78;
PROCEDURE XpkQuery   (tagList{R.A0}: TagItemPtr): LONGINT; CODE -84;


END OptXpkMasterL.