DEFINITION StringsDyn;
TYPE
DynString = POINTER TO RECORD
(ds: DynString) AddChar (ch: CHAR), NEW;
(ds: DynString) AddString (str: ARRAY OF CHAR), NEW;
(ds: DynString) Char (idx: INTEGER): CHAR, NEW;
(ds: DynString) Clear, NEW;
(ds: DynString) Length (): INTEGER, NEW;
(ds: DynString) PartAsString (from, to: INTEGER): String, NEW;
(ds: DynString) SetLength (len: INTEGER), NEW;
(ds: DynString) String (): String, NEW
END;
String = POINTER TO ARRAY OF CHAR;
PROCEDURE Create (str: ARRAY OF CHAR): DynString;
END StringsDyn.
License: BSD 2-clause