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