TestCoreIO.cm
Copyright Ó 1986, 1987 by Xerox Corporation. All rights reserved.
Barth, December 5, 1986 11:34:05 am PST
Bertrand Serlet June 4, 1987 1:03:27 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], [$Bool, NEW [BOOL ← TRUE]], [$Rope, "roooope"]]]
← CoreOps.Print[&uct]
← CoreIO.ReportSaveCellType[&uct]
← &nuct ← CoreIO.RestoreCellType["Unspecified"]
← CoreOps.Print[&nuct]
← CoreOps.Print[CoreOps.Recast[&nuct]]
← &lib ← SymTab.Create[]
← SymTab.Store[&lib, "foo", TestCoreIO.NAnd[3]]
← SymTab.Store[&lib, "bar", TestCoreIO.NAnd[2]]
← CoreIO.SaveLibrary[&lib, "TestCoreIO"]
← &lib ← CoreIO.RestoreLibrary["TestCoreIO"]
← &foo ← SymTab.Fetch[&lib, "foo"].val
← &bar ← SymTab.Fetch[&lib, "bar"].val
← IF &foo=NIL OR &bar=NIL THEN ERROR ELSE NIL