(*===============================================================================*)
          DEFINITION MODULE PascalStrings;                   (* A.W.  20-NOV-84*)
                                              (* last modification 19.01.85 fxk *)
          (*--------------------------------
          This module converts arrays of characters into strings, as expected by
          the Lisa's or MacIntoshOS, and vice versa.
          **********************************************************************)
           FROM QuickDraw IMPORT Str255;
           EXPORT QUALIFIED PascalString, MakePascalString, MakeModulaString,
                            emptyPascalString;

           TYPE PascalString = Str255;

           PROCEDURE MakePascalString(VAR in: ARRAY OF CHAR; VAR out: ARRAY OF CHAR);
             (* converts a modula string into a pascal string. NOTE: If "out" is not *)
             (* long enough to hold the converted string, the latter is truncated!   *)

           PROCEDURE MakeModulaString(VAR in: ARRAY OF CHAR; VAR out: ARRAY OF CHAR);
             (* converts a pascal string into a modula string. NOTE: If "out" is not *)
             (* long enough to hold the converted string, the latter is truncated!   *)

           PROCEDURE emptyPascalString(VAR string:PascalString);
             (*  makes an empty PascalString by setting length byte to zero *)
          END PascalStrings.
(*===============================================================================*)

