CheckNode.mesa
Copyright © 1985 by Xerox Corporation. All rights reserved.
written by Bill Paxton, April 1981
last edit by Bill Paxton, December 22, 1981 1:58 pm
Doug Wyatt, March 2, 1985 4:10:36 pm PST
DIRECTORY
Rope USING [ROPE],
TextLooks USING [Runs],
TextNode USING [Ref, RefTextNode];
CheckNode: CEDAR DEFINITIONS
= BEGIN
Failed: ERROR;
Check: PROC [node: TextNode.Ref];
CheckTextNode:
PROC [text: TextNode.RefTextNode];
does CheckRope & CheckRuns
CheckRope: PROC [rope: Rope.ROPE];
CheckRuns: PROC [runs: TextLooks.Runs];
END.