TextEditExtras.mesa
Copyright
Ó 1992 by Xerox Corporation. All rights reserved.
Doug Wyatt, May 13, 1992 5:12 pm PDT
DIRECTORY
Rope
USING [
ROPE],
Tioga
USING [Node];
TextEditExtras:
CEDAR
DEFINITIONS ~
BEGIN
Node:
TYPE ~ Tioga.Node;
HasCharSets:
PROC [node: Node, start:
INT ¬ 0, len:
INT ¬
INT.
LAST]
RETURNS [
BOOL];
Is Char.Set[FetchChar[node, i]]#0 for any i in the specified range?
GetString:
PROC [node: Node, start:
INT ¬ 0, len:
INT ¬
INT.
LAST]
RETURNS [Rope.
ROPE];
Uses the Xerox String Encoding for any wide characters.
END.