ExpertKeepRead.mesa
Copyright Ó 1988 by Xerox Corporation. All rights reserved.
Christophe Cuenod, February 1, 1988 4:23:12 pm PST
This interface gives a primitive to read a tioga file that contents all the reference designators to keep in the net list. For instance it enables remove the part of a net going to a soldered connector.
The syntax of this file is one rope per reference designators.
Example R1 Keep R1 in the list
 U Keep all the reference designators starting with U
DIRECTORY
Rope USING [ROPE],
SymTab USING [Ref];
ExpertKeepRead: CEDAR DEFINITIONS
~ BEGIN
RefDesTable: TYPE = SymTab.Ref;
Reading the .keep file
ReadKeepFile: PROC [file: Rope.ROPE] RETURNS [refDesTable: RefDesTable];
Creates refDesTable from the input file
Retrieving a Ref Des
KeepRefDes: PROC [refDesTable: RefDesTable, refDes: Rope.ROPE] RETURNS [found: BOOLEAN];
TRUE if this reference designator has to taken into account
END.