home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / xc212os2.zip / SAMPLES / CSET / M2TEST.MOD < prev   
Text File  |  1996-03-05  |  429b  |  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.