home *** CD-ROM | disk | FTP | other *** search
/ Aminet 18 / aminetcdnumber181997.iso / Aminet / dev / m2 / CycloneModules.lha / modules / txt / commoditiesL.def < prev    next >
Text File  |  1996-09-23  |  3KB  |  90 lines
  1. (*
  2. **    Cyclone Modula-2 Interface module:
  3. **    $VER: commodities_protos.h 38.4 (27.2.92)
  4. **    Includes Release 40.15
  5. **
  6. **    C prototypes. For use with 32 bit integers only.
  7. **
  8. **    (C) Copyright 1990-1993 Commodore-Amiga, Inc.
  9. **        All Rights Reserved
  10. **
  11. **      Interface module by Marcel Timmermans
  12. **      (C) Copyright 1995-1996 Marcel Timmermans
  13. **      All Rights Reserved
  14. *)
  15.  
  16. DEFINITION MODULE CommoditiesL {"commodities.library",36};
  17.  
  18. (*$ Implementation- *)
  19.  
  20.  
  21. FROM SYSTEM IMPORT ADDRESS;
  22. IMPORT ed:ExecD,Reg,cd:CommoditiesD,ie:InputEvent,KeyMapD;
  23.  
  24.  
  25. VAR
  26.  CxBase : ed.LibraryPtr;
  27.  
  28.  
  29. CONST
  30.  
  31.  commoditiesMinVersion=36;
  32.  commoditiesName="commodities.library";
  33.  
  34.  
  35. PROCEDURE CreateCxObj(type{Reg.D0}:LONGCARD;arg1{Reg.A0},arg2{Reg.A1}:ADDRESS):cd.CxObjPtr; CODE -30;
  36.  
  37. PROCEDURE CxBroker(VAR nb{Reg.A0}:cd.NewBroker;VAR error{Reg.D0}:LONGCARD):cd.CxObjPtr; CODE -36;
  38.  
  39. PROCEDURE ActivateCxObj(co{Reg.A0}:cd.CxObjPtr;true{Reg.D0}:LONGINT):LONGINT; CODE -42;
  40.  
  41. PROCEDURE DeleteCxObj(co{Reg.A0}:ADDRESS):LONGINT; CODE -48;
  42.  
  43. PROCEDURE DeleteCxObjAll(co{Reg.A0}:cd.CxObjPtr); CODE -54;
  44.  
  45. PROCEDURE CxObjType(co{Reg.A0}:cd.CxObjPtr):LONGCARD; CODE -60;
  46.  
  47. PROCEDURE CxObjError(co{Reg.A0}:cd.CxObjPtr):LONGINT; CODE -66;
  48.  
  49. PROCEDURE ClearCxObjError(co{Reg.A0}:cd.CxObjPtr); CODE -72;
  50.  
  51. PROCEDURE SetCxObjPri(co{Reg.A0}:cd.CxObjPtr;pri{Reg.D0}:LONGINT); CODE -78;
  52.  
  53. PROCEDURE AttachCxObj(headObj{Reg.A0},co{Reg.A1}:cd.CxObjPtr); CODE -84;
  54.  
  55. PROCEDURE EnqueueCxObj(headObj{Reg.A0},co{Reg.A1}:cd.CxObjPtr); CODE -90;
  56.  
  57. PROCEDURE InsertCxObj(headObj{Reg.A0},co{Reg.A1},pred{Reg.A2}:cd.CxObjPtr); CODE -96;
  58.  
  59. PROCEDURE RemoveCxObj(co{Reg.A0}:cd.CxObjPtr); CODE -102;
  60.  
  61. PROCEDURE SetTranslate(translator{Reg.A0}:cd.CxObjPtr;events{Reg.A1}:ie.InputEventPtr); CODE -114;
  62.  
  63. PROCEDURE SetFilter(filter{Reg.A0}:cd.CxObjPtr;text{Reg.A1}:ADDRESS); CODE -120;
  64.  
  65. PROCEDURE SetFilterIX(filter{Reg.A0}:cd.CxObjPtr;ix{Reg.A1}:cd.IXPtr); CODE -126;
  66.  
  67. PROCEDURE ParseIX(description{Reg.A0}:ADDRESS;VAR ix{Reg.A1}:cd.IX):LONGINT; CODE -132;
  68.  
  69. PROCEDURE CxMsgType(cxm{Reg.A0}:cd.CxMsgPtr):LONGCARD; CODE -138;
  70.  
  71. PROCEDURE CxMsgData(cxm{Reg.A0}:cd.CxMsgPtr):ADDRESS; CODE -144;
  72.  
  73. PROCEDURE CxMsgID(cxm{Reg.A0}:cd.CxMsgPtr):LONGINT; CODE -150;
  74.  
  75. PROCEDURE DivertCxMsg(cxm{Reg.A0}:cd.CxMsgPtr;headObj{Reg.A1},returnObj{Reg.A2}:cd.CxObjPtr); CODE -156;
  76.  
  77. PROCEDURE RouteCxMsg(cxm{Reg.A0}:cd.CxMsgPtr;co{Reg.A1}:cd.CxObjPtr); CODE -162;
  78.  
  79. PROCEDURE DisposeCxMsg(cxm{Reg.A0}:cd.CxMsgPtr); CODE -168;
  80.  
  81. PROCEDURE InvertKeyMap(ansiCode{Reg.D0}:LONGCARD;VAR event{Reg.A0}:ie.InputEvent;
  82.                        km{Reg.A1}:KeyMapD.KeyMapPtr):LONGINT; CODE -174;
  83.  
  84. PROCEDURE AddIEvents(events{Reg.A0}:ie.InputEventPtr); CODE -180;
  85.  
  86. PROCEDURE MatchIX(event{Reg.A0}:ie.InputEventPtr;ix{Reg.A1}:cd.IXPtr):LONGINT; CODE -204;
  87.  
  88.  
  89. END CommoditiesL.
  90.