home *** CD-ROM | disk | FTP | other *** search
/ Mac-Source 1994 July / Mac-Source_July_1994.iso / Modula / Source / PASCALSTRINGS.DEF < prev    next >
Text File  |  1985-04-25  |  2KB  |  27 lines
  1. (*===============================================================================*)
  2.           DEFINITION MODULE PascalStrings;                   (* A.W.  20-NOV-84*)
  3.                                               (* last modification 19.01.85 fxk *)
  4.           (*--------------------------------
  5.           This module converts arrays of characters into strings, as expected by
  6.           the Lisa's or MacIntoshOS, and vice versa.
  7.           **********************************************************************)
  8.            FROM QuickDraw IMPORT Str255;
  9.            EXPORT QUALIFIED PascalString, MakePascalString, MakeModulaString,
  10.                             emptyPascalString;
  11.  
  12.            TYPE PascalString = Str255;
  13.  
  14.            PROCEDURE MakePascalString(VAR in: ARRAY OF CHAR; VAR out: ARRAY OF CHAR);
  15.              (* converts a modula string into a pascal string. NOTE: If "out" is not *)
  16.              (* long enough to hold the converted string, the latter is truncated!   *)
  17.  
  18.            PROCEDURE MakeModulaString(VAR in: ARRAY OF CHAR; VAR out: ARRAY OF CHAR);
  19.              (* converts a pascal string into a modula string. NOTE: If "out" is not *)
  20.              (* long enough to hold the converted string, the latter is truncated!   *)
  21.  
  22.            PROCEDURE emptyPascalString(VAR string:PascalString);
  23.              (*  makes an empty PascalString by setting length byte to zero *)
  24.           END PascalStrings.
  25. (*===============================================================================*)
  26.  
  27.