home *** CD-ROM | disk | FTP | other *** search
/ OS/2 Shareware BBS: 10 Tools / 10-Tools.zip / mod201j.zip / modula2.exe / os2api / sommisc.def < prev    next >
Text File  |  1995-02-18  |  967b  |  42 lines
  1. DEFINITION 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. (*$CDECL+    C-style procedures                                         *)
  10.  
  11. IMPORT SOM;
  12.  
  13. VAR
  14.   somWriteString : PROCEDURE( ARRAY OF CHAR );
  15.   somWriteLn     : PROCEDURE( );
  16.   somDebug       : PROCEDURE
  17.   (
  18.     ARRAY OF CHAR,  (* szClass *)
  19.     ARRAY OF CHAR,  (* szMethod *)
  20.     ARRAY OF CHAR,  (* szFile *)
  21.     ARRAY OF CHAR   (* szLine *)
  22.   );
  23.  
  24. (*
  25.  *  Get the address of a static string constant.
  26.  *  
  27.  *  Example:
  28.  *
  29.  *  VAR 
  30.  *    psz : POINTER TO ARRAY [0..10] OF CHAR;
  31.  *     :
  32.  *  BEGIN
  33.  *     :
  34.  *    psz := somString( "myString" );
  35.  *     :
  36.  *  END ..
  37.  *
  38.  *)
  39. PROCEDURE somString( s : ARRAY OF CHAR ) : SOM.ADDRESS;
  40.  
  41. END SOMMISC.
  42.