strings.def

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

DEFINITION MODULE Strings;
(* Semi-standard Strings module as found on many MS-DOS implementations *)

PROCEDURE Length (s: ARRAY OF CHAR): CARDINAL;

PROCEDURE Assign (source: ARRAY OF CHAR; VAR dest: ARRAY OF CHAR);

PROCEDURE Insert (substr: ARRAY OF CHAR; VAR s: ARRAY OF CHAR; pos: CARDINAL);

PROCEDURE Delete (VAR s: ARRAY OF CHAR; pos, len: CARDINAL);

PROCEDURE Pos (substr: ARRAY OF CHAR; VAR s: ARRAY OF CHAR): CARDINAL;

PROCEDURE Copy (s: ARRAY OF CHAR; pos: CARDINAL; len: CARDINAL;
                VAR result: ARRAY OF CHAR);

PROCEDURE Concat (s1, s2: ARRAY OF CHAR; VAR result: ARRAY OF CHAR);

PROCEDURE CompareStr (s1, s2: ARRAY OF CHAR) : INTEGER;

END Strings.