TestCoreIO.cm
Copyright © 1986 by Xerox Corporation. All rights reserved.
Barth, December 5, 1986 11:34:05 am PST
Bertrand Serlet August 17, 1986 10:25:55 pm PDT
Install Core
Run -a TestCoreIO
← &ct ← TestCoreIO.NAnd[3]
← CoreIO.ReportSaveCellType[&ct]
← &nct ← CoreIO.RestoreCellType["NAnd"]
← CoreOps.Print[&nct]
← CoreOps.Print[CoreOps.Recast[&nct]]
← &nct ← CoreIO.RestoreCellType["NAnd"]
← CoreIO.ReportSaveCellType[&nct, "NNAnd.core"]
← &nnct ← CoreIO.RestoreCellType["NNAnd"]
← CoreOps.Print[&nnct]
← CoreOps.Print[CoreOps.Recast[CoreOps.Recast[&nnct]]]
← &uct ← CoreClasses.CreateUnspecified[CoreCreate.Wires["a", "b", "c"], "Unspecified", CoreProperties.Props[[$Real, NEW [REAL ← 1.2]], [$Atom, $foo], [$Rope, "roooope"]]]
← CoreOps.Print[&uct]
← CoreIO.ReportSaveCellType[&uct]
← &nuct ← CoreIO.RestoreCellType["Unspecified"]
← CoreOps.Print[&nuct]
← CoreOps.Print[CoreOps.Recast[&nuct]]