home *** CD-ROM | disk | FTP | other *** search
/ Amiga ISO Collection / AmigaUtilCD2.iso / Programming / Misc / M2V11-1.LHA / modula / amiga / Commodities.mod < prev    next >
Encoding:
Modula Implementation  |  1993-11-22  |  1.2 KB  |  41 lines
  1. (* @B- @P- *)
  2. IMPLEMENTATION MODULE Commodities ;
  3.  
  4. FROM SYSTEM     IMPORT STRING, LONGSET ;
  5. FROM Exec     IMPORT TaskPtr, MsgPortPtr ;
  6. FROM InputEvent     IMPORT InputEventPtr, IECLASS_NULL ;
  7.  
  8. IMPORT M2Lib, Commodities ;
  9.  
  10. PROCEDURE CxCustom( action : PROC ; id : LONGINT ) : CxObjPtr ;
  11. BEGIN RETURN Commodities.CreateCxObj( CX_CUSTOM, action, id ) ;
  12. END CxCustom ;
  13.  
  14. PROCEDURE CxDebug( id : LONGINT ) : CxObjPtr ;
  15. BEGIN RETURN Commodities.CreateCxObj( CX_DEBUG, id, 0 ) ;
  16. END CxDebug ;
  17.  
  18. PROCEDURE CxFilter( d : STRING ) : CxObjPtr ;
  19. BEGIN RETURN Commodities.CreateCxObj( CX_FILTER, d, 0 ) ;
  20. END CxFilter ;
  21.  
  22. PROCEDURE CxSender( port : MsgPortPtr ; id : LONGINT ) : CxObjPtr ;
  23. BEGIN RETURN Commodities.CreateCxObj( CX_SEND, port, id ) ;
  24. END CxSender ;
  25.  
  26. PROCEDURE CxSignal( task : TaskPtr ; sig : LONGSET ) : CxObjPtr ;
  27. BEGIN RETURN Commodities.CreateCxObj( CX_SIGNAL, task , sig ) ;
  28. END CxSignal ;
  29.  
  30. PROCEDURE CxTranslate( ie : InputEventPtr ) : CxObjPtr ;
  31. BEGIN RETURN Commodities.CreateCxObj( CX_TRANSLATE, ie, 0 )
  32. END CxTranslate ;
  33.  
  34. PROCEDURE NULL_IX( ix : InputXpressionPtr ) : BOOLEAN ;
  35. BEGIN RETURN ix^.ix_Class = IECLASS_NULL
  36. END NULL_IX ;
  37.  
  38. BEGIN CxBase := M2Lib.OpenLib( "commodities.library" , VERSION )
  39. END Commodities.
  40.  
  41.