(*
**	Cyclone Modula-2 Interface module:
**	$VER: commodities_protos.h 38.4 (27.2.92)
**	Includes Release 40.15
**
**	C prototypes. For use with 32 bit integers only.
**
**	(C) Copyright 1990-1993 Commodore-Amiga, Inc.
**	    All Rights Reserved
**
**      Interface module by Marcel Timmermans
**      (C) Copyright 1995-1996 Marcel Timmermans
**      All Rights Reserved
*)

DEFINITION MODULE CommoditiesL {"commodities.library",36};

(*$ Implementation- *)


FROM SYSTEM IMPORT ADDRESS;
IMPORT ed:ExecD,Reg,cd:CommoditiesD,ie:InputEvent,KeyMapD;


VAR
 CxBase : ed.LibraryPtr;


CONST

 commoditiesMinVersion=36;
 commoditiesName="commodities.library";


PROCEDURE CreateCxObj(type{Reg.D0}:LONGCARD;arg1{Reg.A0},arg2{Reg.A1}:ADDRESS):cd.CxObjPtr; CODE -30;

PROCEDURE CxBroker(VAR nb{Reg.A0}:cd.NewBroker;VAR error{Reg.D0}:LONGCARD):cd.CxObjPtr; CODE -36;

PROCEDURE ActivateCxObj(co{Reg.A0}:cd.CxObjPtr;true{Reg.D0}:LONGINT):LONGINT; CODE -42;

PROCEDURE DeleteCxObj(co{Reg.A0}:ADDRESS):LONGINT; CODE -48;

PROCEDURE DeleteCxObjAll(co{Reg.A0}:cd.CxObjPtr); CODE -54;

PROCEDURE CxObjType(co{Reg.A0}:cd.CxObjPtr):LONGCARD; CODE -60;

PROCEDURE CxObjError(co{Reg.A0}:cd.CxObjPtr):LONGINT; CODE -66;

PROCEDURE ClearCxObjError(co{Reg.A0}:cd.CxObjPtr); CODE -72;

PROCEDURE SetCxObjPri(co{Reg.A0}:cd.CxObjPtr;pri{Reg.D0}:LONGINT); CODE -78;

PROCEDURE AttachCxObj(headObj{Reg.A0},co{Reg.A1}:cd.CxObjPtr); CODE -84;

PROCEDURE EnqueueCxObj(headObj{Reg.A0},co{Reg.A1}:cd.CxObjPtr); CODE -90;

PROCEDURE InsertCxObj(headObj{Reg.A0},co{Reg.A1},pred{Reg.A2}:cd.CxObjPtr); CODE -96;

PROCEDURE RemoveCxObj(co{Reg.A0}:cd.CxObjPtr); CODE -102;

PROCEDURE SetTranslate(translator{Reg.A0}:cd.CxObjPtr;events{Reg.A1}:ie.InputEventPtr); CODE -114;

PROCEDURE SetFilter(filter{Reg.A0}:cd.CxObjPtr;text{Reg.A1}:ADDRESS); CODE -120;

PROCEDURE SetFilterIX(filter{Reg.A0}:cd.CxObjPtr;ix{Reg.A1}:cd.IXPtr); CODE -126;

PROCEDURE ParseIX(description{Reg.A0}:ADDRESS;VAR ix{Reg.A1}:cd.IX):LONGINT; CODE -132;

PROCEDURE CxMsgType(cxm{Reg.A0}:cd.CxMsgPtr):LONGCARD; CODE -138;

PROCEDURE CxMsgData(cxm{Reg.A0}:cd.CxMsgPtr):ADDRESS; CODE -144;

PROCEDURE CxMsgID(cxm{Reg.A0}:cd.CxMsgPtr):LONGINT; CODE -150;

PROCEDURE DivertCxMsg(cxm{Reg.A0}:cd.CxMsgPtr;headObj{Reg.A1},returnObj{Reg.A2}:cd.CxObjPtr); CODE -156;

PROCEDURE RouteCxMsg(cxm{Reg.A0}:cd.CxMsgPtr;co{Reg.A1}:cd.CxObjPtr); CODE -162;

PROCEDURE DisposeCxMsg(cxm{Reg.A0}:cd.CxMsgPtr); CODE -168;

PROCEDURE InvertKeyMap(ansiCode{Reg.D0}:LONGCARD;VAR event{Reg.A0}:ie.InputEvent;
                       km{Reg.A1}:KeyMapD.KeyMapPtr):LONGINT; CODE -174;

PROCEDURE AddIEvents(events{Reg.A0}:ie.InputEventPtr); CODE -180;

PROCEDURE MatchIX(event{Reg.A0}:ie.InputEventPtr;ix{Reg.A1}:cd.IXPtr):LONGINT; CODE -204;


END CommoditiesL.
