A Text16Short.T
is a text containing at most MaxLength
16-bit or WIDECHAR
characters.
INTERFACEText16Short ; CONST MaxLength = 15; TYPE T <: Public; Public = TEXT OBJECT len : CARDINAL; contents: ARRAY [0..MaxLength] OF WIDECHAR; END; (* The array contains the characters of the text followed by a '\000'. *) PROCEDURE New (READONLY a: ARRAY OF WIDECHAR): T;
Return a new text containing the characters ofa
. It is a checked runtime error ifNUMBER (a) > MaxLength
.
END Text16Short.