home *** CD-ROM | disk | FTP | other *** search
/ CD Actual 11 / CDACTUAL11.iso / cdactual / demobin / share / os2 / XCO212P / SAMPLES / CSET / M2TEST.MOD < prev   
Encoding:
Modula Implementation  |  1996-03-05  |  429 b   |  18 lines
  1. IMPLEMENTATION MODULE m2test;
  2.  
  3. IMPORT STextIO, SWholeIO, c_test;
  4.  
  5. PROCEDURE ["C"] m2func(a,b: INTEGER): INTEGER;
  6. BEGIN
  7.   STextIO.WriteString("m2func(");
  8.   SWholeIO.WriteInt(a,0); STextIO.WriteChar(',');
  9.   SWholeIO.WriteInt(b,0); STextIO.WriteChar(')');
  10.   STextIO.WriteLn;
  11.   STextIO.WriteString("And now calling 'c_func' from Modula-2");
  12.   STextIO.WriteLn;
  13.   RETURN c.test.c_func (a, b)
  14. END m2func;
  15.  
  16. END m2test.
  17.  
  18.