Category : Miscellaneous Language Source Code
Archive   : ADAMENU2.ZIP
Filename : STRINGS.SPC

-- .asis
package Strings is

DEFAULT_LSTRING_LEN : constant INTEGER := 128;

type Lstring (Length : INTEGER := DEFAULT_LSTRING_LEN) is
record
Data : STRING (1..Length);
Len : INTEGER := 0;
end record;

function Length (S : in Lstring) return INTEGER;
-- Return the current length of S

procedure ReadString (Lstr : out Lstring);

procedure WriteString (Lstr : in Lstring);

procedure Delete (St : in out Lstring;
Pos, Cnt : in INTEGER);
-- Delete Cnt characters from St starting at Pos

function Concat (Str : in Lstring;
Ch : in CHARACTER) return Lstring;
-- Concatenate Ch to the end of Str

function Concat (Str1, Str2 : in Lstring ) return Lstring;
-- Concatenate Str2 to the end of Str1

function Str (Num : in INTEGER;
Len : in INTEGER := 32) return Lstring;
-- Convert Num to an Lstring.

function Lstr (Str : in STRING;
Length : in INTEGER) return LSTRING;

function "+" (Lstr : in Lstring;
Str : in STRING) return Lstring;
-- append Str to the end of Lstr

function "+" (Str : in STRING;
Lstr : in Lstring) return Lstring;
-- append Lstr to the end of Str

function "+" (Lstr1, Lstr2 : in Lstring) return Lstring;
-- append Lstr2 to the end of Lstr1

end strings;