137 lines
3.0 KiB
Plaintext
137 lines
3.0 KiB
Plaintext
(* Version 1.10, Nov 1984 *)
|
||
DEFINITION MODULE Strings;
|
||
(*
|
||
Variable-length character strings handler.
|
||
|
||
|
||
NOTE: For most of these string handling procedures,there
|
||
is the possibility of the user not providing a variable
|
||
large enough to contain the result of a string operation.
|
||
Should this possibility arise, truncation may result, as
|
||
there will be no other error notification. The
|
||
implementation of this module does not cause a range
|
||
error, instead, it truncates silently.
|
||
|
||
String variables have the following characteristics:
|
||
- They are of type ARRAY OF CHAR.
|
||
- The array lower bound must be zero.
|
||
- The length of the string is the size of the string
|
||
variable, unless a null character (0C) occurs in
|
||
the string to indicate end of string.
|
||
*)
|
||
|
||
|
||
EXPORT QUALIFIED
|
||
Assign, Insert, Delete,
|
||
Pos, Copy, Concat, Length, CompareStr;
|
||
|
||
|
||
PROCEDURE Assign (VAR source, dest: ARRAY OF CHAR);
|
||
(*
|
||
- Assign the contents of string variable source into string variable dest
|
||
|
||
in: source
|
||
|
||
out: dest
|
||
*)
|
||
|
||
|
||
PROCEDURE Insert (substr: ARRAY OF CHAR;
|
||
VAR str: ARRAY OF CHAR;
|
||
inx: CARDINAL);
|
||
(*
|
||
- Insert the string substr into str,starting at str[inx].
|
||
|
||
in: substr
|
||
str
|
||
inx
|
||
|
||
out: str
|
||
|
||
If inx is equal or greater than Length(str) then substr
|
||
is appended to end of dest.
|
||
*)
|
||
|
||
|
||
PROCEDURE Delete (VAR str: ARRAY OF CHAR;
|
||
inx: CARDINAL;
|
||
len: CARDINAL);
|
||
(*
|
||
- Delete len characters from str, starting at str[inx].
|
||
|
||
in: str
|
||
inx
|
||
len
|
||
|
||
out: str
|
||
|
||
If inx >= Length(str) then nothing happens. If there are
|
||
not len characters to delete, characters to the end of
|
||
string are deleted.
|
||
*)
|
||
|
||
|
||
PROCEDURE Pos (substr, str: ARRAY OF CHAR): CARDINAL;
|
||
(*
|
||
- Return the index into str of the first occurrence of the substr.
|
||
|
||
in: substr
|
||
str
|
||
|
||
Pos returns a value greater then HIGH(str) if no
|
||
occurrence of the substring is found
|
||
*)
|
||
|
||
|
||
PROCEDURE Copy (str: ARRAY OF CHAR;
|
||
inx: CARDINAL;
|
||
len: CARDINAL;
|
||
VAR result: ARRAY OF CHAR);
|
||
(*
|
||
- Copy at most len characters from str into result.
|
||
|
||
in: str source string,
|
||
inx starting position in 'str',
|
||
len maximum number of characters to copy,
|
||
|
||
out: result copied string
|
||
*)
|
||
|
||
|
||
PROCEDURE Concat (s1, s2: ARRAY OF CHAR;
|
||
VAR result: ARRAY OF CHAR);
|
||
(*
|
||
- Concatenate two strings.
|
||
|
||
in: s1 left string,
|
||
s2 right string,
|
||
|
||
out: result receives left string followed by right
|
||
string.
|
||
*)
|
||
|
||
|
||
PROCEDURE Length (VAR str: ARRAY OF CHAR): CARDINAL;
|
||
(*
|
||
- Return the number of characters in a string.
|
||
|
||
in: str
|
||
*)
|
||
|
||
|
||
PROCEDURE CompareStr (s1, s2: ARRAY OF CHAR): INTEGER;
|
||
(*
|
||
- Compare two strings.
|
||
|
||
in: s1
|
||
s2
|
||
|
||
Returns an integer value indicating the comparison result:
|
||
-1 if s1 is less than s2;
|
||
0 if s1 equals s2;
|
||
1 if s1 is greater than s2
|
||
*)
|
||
|
||
|
||
END Strings.
|
||
|