home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / sommisc.mod < prev    next >
Text File  |  1995-03-23  |  1KB  |  63 lines
  1. IMPLEMENTATION MODULE SOMMISC;
  2.  
  3. (***************************************************************************
  4.   OS/2 2.x/3.0 Miscellaneous development support for SOM.
  5.  
  6.   Copyright (c) 1994,1995 by Juergen Neuhoff
  7. ****************************************************************************)
  8.  
  9. (*$XL+       Modula-2 language extensions: '_' allowed for symbol names *)
  10. (*$CDECL+    C-style procedures                                         *)
  11. (*$A         default alignment for record fields                        *)
  12.  
  13. IMPORT SOM;
  14. IMPORT SYSTEM;
  15.  
  16.  
  17. PROCEDURE WriteString( str : ARRAY OF CHAR );
  18. VAR
  19.   i : LONGINT;
  20.   j : SOM.INT;
  21. BEGIN
  22.   i := 0;
  23.   WHILE (str[i] <> 0C) DO
  24.     j := SOM.SOMOutCharRoutine( str[i] );
  25.     INC(i);
  26.   END;
  27. END WriteString;
  28.  
  29.  
  30. PROCEDURE WriteLn;
  31. VAR
  32.   j : SOM.INT;
  33. BEGIN
  34.   j := SOM.SOMOutCharRoutine( CHR( 13 ) );
  35.   j := SOM.SOMOutCharRoutine( CHR( 10 ) );
  36. END WriteLn;
  37.  
  38.  
  39. PROCEDURE Debug( szClass, szMethod, szFile, szLine : ARRAY OF CHAR );
  40. BEGIN
  41.   somWriteString( szClass );
  42.   somWriteString( "." );
  43.   somWriteString( szMethod );
  44.   somWriteString( " " );
  45.   somWriteString( szFile );
  46.   somWriteString( " " );
  47.   somWriteString( szLine );
  48.   somWriteLn();
  49. END Debug;
  50.  
  51.  
  52. PROCEDURE somString( s : ARRAY OF CHAR ) : SOM.ADDRESS;
  53. BEGIN
  54.   RETURN SYSTEM.ADR( s );
  55. END somString;
  56.  
  57.  
  58. BEGIN
  59.   somDebug := Debug;
  60.   somWriteString := WriteString;
  61.   somWriteLn := WriteLn;
  62. END SOMMISC.
  63.