-- file DummyString.mesa
-- last edited by Satterthwaite, December 17, 1982 10:42 am

DIRECTORY
  LongString: TYPE USING [
    SubString, SubStringDescriptor,
    AppendChar, AppendString, AppendSubString, EqualSubStrings, EquivalentSubStrings];

String: DEFINITIONS IMPORTS LongString = {
  
  SubStringDescriptor: TYPE = LongString.SubStringDescriptor;
  SubString: TYPE = LongString.SubString;
  
  AppendChar: PROC [s: LONG STRING, c: CHAR] = INLINE {
    LongString.AppendChar[s, c]};
  AppendString: PROC [to, from: LONG STRING] = INLINE {
    LongString.AppendString[to, from]};
  AppendSubString: PROC [to: LONG STRING, from: SubString] = INLINE {
    LongString.AppendSubString[to, from]};

  EqualSubStrings,
  EqualSubString: PROC [s1, s2: SubString] RETURNS [BOOL] = INLINE {
    RETURN [LongString.EqualSubStrings[s1, s2]]};
  EquivalentSubStrings,
  EquivalentSubString: PROC [s1, s2: SubString] RETURNS [BOOL] = INLINE {
    RETURN [LongString.EquivalentSubStrings[s1, s2]]};

  }.