strings.mod

来自「一个Modula-2语言分析器」· MOD 代码 · 共 51 行

(*$V-*)

IMPLEMENTATION MODULE Strings;
(* Semi-standard Strings module as found on many MS-DOS implementations *)
(* JPI TopSpeed Modula-2 implementation *)

IMPORT Str;

PROCEDURE Length (s: ARRAY OF CHAR): CARDINAL;
  BEGIN
    RETURN Str.Length(s)
  END Length;

PROCEDURE Assign (source: ARRAY OF CHAR; VAR dest: ARRAY OF CHAR);
  BEGIN
    Str.Copy(dest, source)
  END Assign;

PROCEDURE Insert (substr: ARRAY OF CHAR; VAR s: ARRAY OF CHAR; pos: CARDINAL);
  BEGIN
    Str.Insert(s, substr, pos)
  END Insert;

PROCEDURE Delete (VAR s: ARRAY OF CHAR; pos, len: CARDINAL);
  BEGIN
    Str.Delete(s, pos, len)
  END Delete;

PROCEDURE Pos (substr: ARRAY OF CHAR; VAR s: ARRAY OF CHAR ): CARDINAL;
  BEGIN
    RETURN Str.Pos(s, substr)
  END Pos;

PROCEDURE Copy (s: ARRAY OF CHAR; pos: CARDINAL; len: CARDINAL;
                VAR result: ARRAY OF CHAR);
  BEGIN
    Str.Slice(result, s, pos,len)
  END Copy;

PROCEDURE Concat (s1, s2: ARRAY OF CHAR; VAR result: ARRAY OF CHAR);
  BEGIN
    Str.Concat(result, s1, s2);
  END Concat;

PROCEDURE CompareStr (s1, s2: ARRAY OF CHAR) : INTEGER;
  BEGIN
    RETURN Str.Compare(s1, s2)
  END CompareStr;

END Strings.