DEFINITION MODULE AmigaGuideL {"amigaguide.library",34};
(* 02-May-1994/bp *)

(*
 * Komplett neu erstellt aus V40
 * Die mit (*34*) gezeichneten Prozeduren sind dokumentiert.
 * Das .fd-File kennzeichnet aber ALLE Prozeduren als V40!
 * Die min. Libversion wurde nun auf 34 gesetzt!
 *)

FROM SYSTEM IMPORT ADDRESS,BPTR;
FROM UtilityD IMPORT HookPtr,Tag;
IMPORT R, d:AmigaGuideD;

CONST
  amigaguideName="amigaguide.library";

VAR
  amigaguideVersion:INTEGER;
  amigaguideBase:d.AmigaGuideBasePtr;

PROCEDURE(*34*) AddAmigaGuideHostA(
                 h{R.A0}:HookPtr;
                 name{R.D0}:d.StrPtr;
                 attrs{R.A1}:ADDRESS
                 ):d.AmigaGuideHostPtr; CODE -138;

PROCEDURE(*34*) AmigaGuideSignal(
                 cl{R.A0}:d.AmigaGuideContext
                 ):LONGCARD; CODE -72;

PROCEDURE(*34*) CloseAmigaGuide(
                 cl{R.A0}:d.AmigaGuideContext
                 ); CODE -66;

PROCEDURE(*39*) ExpungeXRef(
                 ); CODE -132;

PROCEDURE(*34*) GetAmigaGuideAttr(
                 tag{R.D0}:Tag;
                 cl{R.A0}:d.AmigaGuideContext;
                 storage{R.A1}:ADDRESS
                 ); CODE -114;

PROCEDURE(*34*) GetAmigaGuideMsg(
                 cl{R.A0}:d.AmigaGuideContext
                 ):d.AmigaGuideMsgPtr; CODE -78;

PROCEDURE(*34*) GetAmigaGuideString(
                 id{R.D0}:LONGCARD
                 ):d.StrPtr; CODE -210;

PROCEDURE(*39*) LoadXRef(
                 lock{R.A0}:BPTR;
                 name{R.A1}:d.StrPtr
                 ):LONGINT; CODE -126;

PROCEDURE(*34*) LockAmigaGuideBase(
                 handle{R.A0}:d.AmigaGuideContext
                 ):LONGINT; CODE -36;

PROCEDURE(*??*) OpenAmigaGuideA(
                 nag{R.A0}:d.NewAmigaGuidePtr;
                 attrs{R.A1}:ADDRESS
                 ):d.AmigaGuideContext; CODE -54;

PROCEDURE(*34*) OpenAmigaGuideAsyncA(
                 nag{R.A0}:d.NewAmigaGuidePtr;
                 attrs{R.D0}:ADDRESS
                 ):d.AmigaGuideContext; CODE -60;

PROCEDURE(*34*) RemoveAmigaGuideHostA(
                 hh{R.A0}:d.AmigaGuideHostPtr;
                 attrs{R.A1}:ADDRESS
                 ):LONGINT; CODE -144;

PROCEDURE(*34*) ReplyAmigaGuideMsg(
                 amsg{R.A0}:d.AmigaGuideMsgPtr
                 ); CODE -84;

PROCEDURE(*34*) SendAmigaGuideCmdA(
                 cl{R.A0}:d.AmigaGuideContext;
                 cmd{R.D0}:d.StrPtr;
                 attrs{R.D1}:ADDRESS
                 ):BOOLEAN; CODE -102;

PROCEDURE(*34*) SendAmigaGuideContextA(
                 cl{R.A0}:d.AmigaGuideContext;
                 attrs{R.D0}:ADDRESS
                 ):BOOLEAN; CODE -96;

PROCEDURE(*34*) SetAmigaGuideAttrsA(
                 cl{R.A0}:d.AmigaGuideContext;
                 attrs{R.A1}:ADDRESS
                 ):LONGINT; CODE -108;

PROCEDURE(*34*) SetAmigaGuideContextA(
                 cl{R.A0}:d.AmigaGuideContext;
                 id{R.D0}:LONGCARD;
                 attrs{R.D1}:ADDRESS
                 ):BOOLEAN; CODE -90;

PROCEDURE(*34*) UnlockAmigaGuideBase(
                 key{R.D0}:LONGINT
                 ); CODE -42;

END AmigaGuideL.lib34
