DIRECTORY Parquet USING [Context, Module], BoolOps USING [TruthTable], Rope USING [ROPE]; MakePLA: CEDAR DEFINITIONS = BEGIN Error: ERROR[ec: ErrorCode, msg: Rope.ROPE]; ErrorCode: TYPE = {Null, -- never raised NoDescription, -- you must have one NoTruthTable, -- you must have one MissingTile, -- a required tile was missing from the tile set ParameterErrors, -- errors found in table passed to ReadParameters TileSet, -- something was wrong with the tile set NoDump -- could not dump truth table to file }; Create: PROC [context: Parquet.Context] RETURNS [Parquet.Module]; FetchTT: PROC [context: Parquet.Context] RETURNS [inputNames, outputNames: LIST OF Rope.ROPE, truthTable: BoolOps.TruthTable]; END. ^File: MakePLA.mesa Copyright c 1984 by Xerox Corporation. All rights reserved. Created by: Mayo, July 16, 1984 3:34:59 pm PDT Last Edited by: Mayo, August 31, 1984 0:18:42 am PDT -- Make a PLA module. -- create a PLA from a description -- get the truth table from a description -- always provides the right number of input and output names Ê9˜šœ™Jšœ Ïmœ1™