DEFINITION MODULE StringMan; (* Library module for manipulating strings. Author : John Forester Last Edit : 26 Oct 1987 *) EXPORT QUALIFIED NulString, Trim, LTrim, BTrim, Upper; PROCEDURE NulString(VAR str : ARRAY OF CHAR); (* Changes all cells of string str to nulls, 0C. *) PROCEDURE Trim(VAR str : ARRAY OF CHAR); (* Trims trailing blanks from right hand end. *) PROCEDURE LTrim(VAR str : ARRAY OF CHAR); (* Trims leading blanks from left-hand end. *) PROCEDURE BTrim(VAR str : ARRAY OF CHAR); (* Trims leading and trailing blanks. *) PROCEDURE Upper(VAR str : ARRAY OF CHAR); (* Changes all letters to upper case. *) END StringMan.