TIPLinking.mesa
Copyright Ó 1992 by Xerox Corporation. All rights reserved.
Last tweaked by Mike Spreitzer March 20, 1992 1:02 pm PST
Provides the operation of linking TIP tables together.
Each TIP table is actually the head of a list of tables. Matching proceeds from the head to the tail, until a match is found.
DIRECTORY
TIPUser USING [TIPTable];
TIPLinking:
CEDAR
DEFINITIONS ~
BEGIN
Append:
PROC [early, late: TIPUser.TIPTable]
RETURNS [err: TIPUser.TIPTable];
First checks whether the list of tables headed by early and the list headed by late have tables in common. If so, one of the common tables is returned in err. Otherwise, the list headed by early is side effected to continue with the list headed by late, and NIL is returned as err.
END.