classRegistry: HashTable.Table ← HashTable.Create[equal: HashTable.RopeEqual, hash: HashTable.HashRope];
Cell Type IO
UnknownProperty: PUBLIC SIGNAL [propKey: ATOM] = CODE;
UnknownCellClass:
PUBLIC
SIGNAL [class: Core.CellClass] =
CODE;
ReportSaveCellType:
PUBLIC
PROC [cellType: Core.CellType, fileName:
ROPE ←
NIL]
RETURNS [props:
LIST
OF
ATOM ←
NIL, classes:
LIST
OF Core.CellClass ←
NIL] = {
SaveCellType[cellType, fileName !
UnknownProperty => {
FOR pl:
LIST
OF
ATOM ← props, pl.rest
UNTIL pl=
NIL
DO
IF pl.first=propKey THEN EXIT;
REPEAT FINISHED => props ← CONS[propKey, props];
ENDLOOP;
RESUME;
};
UnknownCellClass => {
FOR cl:
LIST
OF Core.CellClass ← classes, cl.rest
UNTIL cl=
NIL
DO
IF cl.first=class THEN EXIT;
REPEAT FINISHED => classes ← CONS[class, classes];
ENDLOOP;
RESUME;
}];
};
SaveCellType:
PUBLIC
PROC [cellType: Core.CellType, fileName:
ROPE ←
NIL] = {
h: Handle ← NEW [HandleRec];
IF fileName=NIL THEN fileName ← Rope.Cat[CoreOps.GetCellTypeName[cellType], ".core"];
h.stream ← FS.StreamOpen[fileName, $create];
h.cellTypeIDTab ← HashTable.Create[];
h.ropeIDTab ← HashTable.Create[equal: HashTable.RopeEqual, hash: HashTable.HashRope];
h.atomIDTab ← HashTable.Create[];
WriteCellType[h, cellType];
IO.Close[h.stream];
};
importCellClass:
PUBLIC Core.CellClass ← CoreOps.SetClassPrintProc[
NEW [Core.CellClassRec ← [name: "Import", recast: RecastImport, layersProps:
TRUE]], PrintImport];
RestoreCellType:
PUBLIC
PROC [cellName:
ROPE ←
NIL, fileName:
ROPE ←
NIL]
RETURNS [cellType: Core.CellType] = {
h: Handle ← NEW[HandleRec];
IF fileName=NIL AND cellName=NIL THEN ERROR;
IF fileName=NIL THEN fileName ← Rope.Cat[cellName, ".core"];
h.fileName ← fileName;
h.stream ← FS.StreamOpen[fileName];
h.cellTypeIDTab ← HashTable.Create[equal: HashTable.RopeEqual, hash: HashTable.HashRope];
h.ropeIDTab ← HashTable.Create[equal: HashTable.RopeEqual, hash: HashTable.HashRope];
h.atomIDTab ← HashTable.Create[equal: HashTable.RopeEqual, hash: HashTable.HashRope];
[cellType, h.wireIDTab] ← ReadCellTypePublic[h];
cellType.class ← importCellClass;
cellType.data ← h;
};
RecastImport: Core.RecastProc = {
h: Handle ← NARROW [me.data];
me.data ← NIL;
ReadCellTypeRest[h, me, h.wireIDTab];
new ← me;
};
PrintImport: CoreOps.PrintClassProc = {
h: Handle ← NARROW [data];
CoreOps.PrintIndent[indent, out];
IO.PutF[out, "Import of : %g", IO.rope[h.fileName]];
};
WriteImport: ClassWriteProc = {
WriteWireIDPair: HashWriteProc = {
id: ROPE ← NARROW[key];
wire: Core.Wire ← NARROW[value];
WriteID[h, id];
WriteWire[h, wireIDTab, wire];
};
child: Handle ← NARROW [cellType.data];
WriteRope[h, child.fileName];
WriteInt[h, IO.GetIndex[child.stream]];
WriteHashTable[h, child.cellTypeIDTab, WriteCellTypeIDPair];
WriteHashTable[h, child.ropeIDTab, WriteRopeIDPair];
WriteHashTable[h, child.atomIDTab, WriteAtomIDPair];
WriteHashTable[h, child.wireIDTab, WriteWireIDPair];
WriteProperties[h, child.properties];
};
ReadImport: ClassReadProc = {
ReadWireIDPair: HashReadProc = {
key ← ReadID[h];
value ← ReadWire[h, wireIDTab];
};
child: Handle ← NEW[HandleRec];
child.cellType ← NIL; -- I'm not sure what's right here
child.wire ← NIL; -- I'm not sure what's right here
child.fileName ← ReadRope[h];
child.stream ← FS.StreamOpen[child.fileName];
IO.SetIndex[child.stream, ReadInt[h]];
child.cellTypeIDTab ← ReadHashTable[h, ReadCellTypeIDPair, HashTable.RopeEqual, HashTable.HashRope];
child.ropeIDTab ← ReadHashTable[h, ReadRopeIDPair, HashTable.RopeEqual, HashTable.HashRope];
child.atomIDTab ← ReadHashTable[h, ReadAtomIDPair, HashTable.RopeEqual, HashTable.HashRope];
child.wireIDTab ← ReadHashTable[h, ReadWireIDPair, HashTable.RopeEqual, HashTable.HashRope];
child.properties ← ReadProperties[h];
cellType.data ← child;
};
IO Registration
RegisterClass:
PUBLIC
PROC [class: Core.CellClass, write: ClassWriteProc, read: ClassReadProc]
RETURNS [sameClass: Core.CellClass] = {
sameClass ← class;
CoreProperties.PutCellClassProp[class, CoreWriteProcProp, NEW[ClassWriteProc ← write]];
CoreProperties.PutCellClassProp[class, CoreReadProcProp, NEW[ClassReadProc ← read]];
[] ← HashTable.Store[classRegistry, class.name, class];
};
RegisterProperty:
PUBLIC
PROC [prop:
ATOM, write: PropWriteProc, read: PropReadProc]
RETURNS [sameProp:
ATOM] = {
props: Core.Properties ← CoreProperties.FetchProperties[prop];
props ← CoreProperties.PutProp[props, CoreWriteProcProp, NEW[PropWriteProc ← write]];
props ← CoreProperties.PutProp[props, CoreReadProcProp, NEW[PropReadProc ← read]];
CoreProperties.StoreProperties[prop, props];
sameProp ← prop;
};
IO Utilities
WriteCellType:
PUBLIC
PROC [h: Handle, cellType: Core.CellType] = {
cellTypeID: ROPE ← NARROW [HashTable.Fetch[h.cellTypeIDTab, cellType].value];
IF cellTypeID=
NIL
THEN {
parentCellType: Core.CellType ← h.cellType;
wireIDTab: HashTable.Table ← HashTable.Create[];
classWrite: REF ClassWriteProc ← NARROW[CoreProperties.GetCellClassProp[from: cellType.class, prop: CoreWriteProcProp]];
IF classWrite=
NIL
THEN {
SIGNAL UnknownCellClass[cellType.class];
cellType ← CoreOps.Recast[cellType];
IF cellType=NIL THEN ERROR;
WriteCellType[h, cellType];
RETURN;
};
cellTypeID ← Rope.Cat["C", Convert.RopeFromInt[from: HashTable.GetSize[h.cellTypeIDTab], base: 16, showRadix: FALSE]];
IF NOT HashTable.Insert[h.cellTypeIDTab, cellType, cellTypeID] THEN ERROR;
h.cellType ← cellType;
WriteID[h, cellTypeID];
WriteWire[h, wireIDTab, cellType.public];
WriteProperties[h, cellType.properties];
WriteRope[h, cellType.class.name];
classWrite^[h, cellType, wireIDTab];
h.cellType ← parentCellType;
}
ELSE WriteID[h, cellTypeID];
};
ReadCellType:
PUBLIC
PROC [h: Handle]
RETURNS [cellType: Core.CellType] = {
wireIDTab: HashTable.Table ← NIL;
parentCellType: Core.CellType ← h.cellType;
[cellType, wireIDTab] ← ReadCellTypePublic[h];
IF wireIDTab#NIL THEN ReadCellTypeRest[h, cellType, wireIDTab];
h.cellType ← parentCellType;
};
ReadCellTypePublic:
PUBLIC
PROC [h: Handle]
RETURNS [cellType: Core.CellType, wireIDTab: HashTable.Table] = {
cellTypeID: ROPE ← ReadID[h];
IF Rope.Fetch[cellTypeID]#'C THEN ERROR;
cellType ← NARROW[HashTable.Fetch[h.cellTypeIDTab, cellTypeID].value];
IF cellType=
NIL
THEN {
cellType ← NEW[Core.CellTypeRec];
IF NOT HashTable.Insert[h.cellTypeIDTab, cellTypeID, cellType] THEN ERROR;
h.cellType ← cellType;
wireIDTab ← HashTable.Create[equal: HashTable.RopeEqual, hash: HashTable.HashRope];
cellType.public ← ReadWire[h, wireIDTab];
cellType.properties ← ReadProperties[h];
};
};
ReadCellTypeRest:
PUBLIC
PROC [h: Handle, cellType: Core.CellType, wireIDTab: HashTable.Table] = {
className: ROPE ← ReadRope[h];
classRead: REF ClassReadProc ← NIL;
cellType.class ← NARROW[HashTable.Fetch[classRegistry, className].value];
classRead ← NARROW[CoreProperties.GetCellClassProp[from: cellType.class, prop: CoreReadProcProp]];
classRead^[h, cellType, wireIDTab];
};
WriteWire:
PUBLIC
PROC [h: Handle, wireIDTab: HashTable.Table, wire: Core.Wire] = {
wireID: ROPE ← NARROW[HashTable.Fetch[wireIDTab, wire].value];
IF wireID=
NIL
THEN {
parentWire: Core.Wire ← h.wire;
wireID ← Rope.Cat["W", Convert.RopeFromInt[from: HashTable.GetSize[wireIDTab], base: 16, showRadix: FALSE]];
IF NOT HashTable.Insert[wireIDTab, wire, wireID] THEN ERROR;
WriteID[h, wireID];
WriteInt[h, wire.size];
h.wire ← wire;
WriteProperties[h, wire.properties];
FOR w:
NAT
IN [0..wire.size)
DO
WriteWire[h, wireIDTab, wire[w]];
ENDLOOP;
h.wire ← parentWire;
}
ELSE WriteID[h, wireID];
};
ReadWire:
PUBLIC
PROC [h: Handle, wireIDTab: HashTable.Table]
RETURNS [wire: Core.Wire] = {
wireID: ROPE ← ReadID[h];
IF Rope.Fetch[wireID]#'W THEN ERROR;
wire ← NARROW[HashTable.Fetch[wireIDTab, wireID].value];
IF wire=
NIL
THEN {
parentWire: Core.Wire ← h.wire;
wireSize: NAT ← ReadInt[h];
wire ← NEW[Core.WireRec[wireSize]];
IF NOT HashTable.Insert[wireIDTab, wireID, wire] THEN ERROR;
h.wire ← wire;
wire.properties ← ReadProperties[h];
FOR w:
NAT
IN [0..wire.size)
DO
wire[w] ← ReadWire[h, wireIDTab];
ENDLOOP;
h.wire ← parentWire;
};
};
WriteProperties:
PUBLIC
PROC [h: Handle, properties: Core.Properties] = {
propCount: INT ← 0;
CedarProcess.CheckAbort[];
FOR props: Core.Properties ← properties, props.rest
UNTIL props=
NIL
DO
propKey: ATOM ← NARROW[props.first.key];
propVal: REF ANY ← props.first.val;
propWrite: REF PropWriteProc ← NARROW[CoreProperties.GetProp[from: CoreProperties.FetchProperties[propKey], prop: CoreWriteProcProp]];
IF propWrite#NIL OR ISTYPE[propVal, ROPE] OR ISTYPE[propVal, LIST OF ROPE] OR ISTYPE[propVal, REF INT] OR ISTYPE[propVal, REF NAT] OR ISTYPE[propVal, ATOM] OR ISTYPE[propVal, REF REAL] THEN propCount ← propCount + 1;
ENDLOOP;
WriteInt[h, propCount];
FOR props: Core.Properties ← properties, props.rest
UNTIL props=
NIL
DO
StartProp:
PROC [type:
ROPE] = {
WriteAtom[h, propKey];
IF type#NIL THEN WriteID[h, type];
};
propKey: ATOM ← NARROW[props.first.key];
propWrite: REF PropWriteProc ← NARROW[CoreProperties.GetProp[from: CoreProperties.FetchProperties[propKey], prop: CoreWriteProcProp]];
IF propWrite=
NIL
THEN
WITH props.first.val
SELECT
FROM
r: ROPE => {StartProp["r"]; WriteRope[h, r]};
lor: LIST OF ROPE => {StartProp["lor"]; WriteListOfRope[h, lor]};
i: REF INT => {StartProp["i"]; IO.PutF[h.stream, "%g ", IO.int[i^]]};
n: REF NAT => {StartProp["n"]; IO.PutF[h.stream, "%g ", IO.int[n^]]};
a: ATOM => {StartProp["a"]; WriteAtom[h, a]};
real: REF REAL => {StartProp["real"]; IO.PutF[h.stream, "%g ", IO.real[real^]]};
ENDCASE => SIGNAL UnknownProperty[propKey]
ELSE {StartProp[NIL]; propWrite^[h, propKey, props.first.val]};
ENDLOOP;
};
ReadProperties:
PUBLIC
PROC [h: Handle]
RETURNS [properties: Core.Properties ←
NIL] = {
propCount: INT ← ReadInt[h];
CedarProcess.CheckAbort[];
FOR c:
INT
IN [0..propCount)
DO
key: ATOM ← ReadAtom[h];
val: REF ANY;
propRead: REF PropReadProc ← NARROW[CoreProperties.GetProp[from: CoreProperties.FetchProperties[key], prop: CoreReadProcProp]];
IF propRead=
NIL
THEN {
type: ROPE ← ReadID[h];
val ←
SELECT
TRUE
FROM
Rope.Equal["r", type] => ReadRope[h],
Rope.Equal["lor", type] => ReadListOfRope[h],
Rope.Equal["i", type] => NEW[INT ← IO.GetInt[h.stream]],
Rope.Equal["n", type] => NEW[NAT ← IO.GetInt[h.stream]],
Rope.Equal["a", type] => ReadAtom[h],
Rope.Equal["real", type] => NEW[REAL ← IO.GetReal[h.stream]],
ENDCASE => ERROR UnknownProperty[Atom.MakeAtom[type]];
}
ELSE val ← propRead^[h, key];
properties ← CONS[[key, val], properties];
ENDLOOP;
};
WriteID:
PUBLIC
PROC [h: Handle, id:
ROPE] = {
IO.PutRope[h.stream, id];
IO.PutRope[h.stream, " "];
};
ReadID:
PUBLIC
PROC [h: Handle]
RETURNS [id:
ROPE] = {
id ← IO.GetID[h.stream];
};
WriteAtom:
PUBLIC
PROC [h: Handle, atom:
ATOM] = {
atomID: ROPE ← NARROW[HashTable.Fetch[h.atomIDTab, atom].value];
IF atomID=
NIL
THEN {
atomID ← Rope.Cat["A", Convert.RopeFromInt[from: HashTable.GetSize[h.atomIDTab], base: 16, showRadix: FALSE]];
IF NOT HashTable.Insert[h.atomIDTab, atom, atomID] THEN ERROR;
WriteID[h, atomID];
IO.PutF[h.stream, "%g ", IO.atom[atom]];
}
ELSE WriteID[h, atomID];
};
ReadAtom:
PUBLIC
PROC [h: Handle]
RETURNS [atom:
ATOM] = {
atomID: ROPE ← ReadID[h];
IF Rope.Fetch[atomID]#'A THEN ERROR;
atom ← NARROW[HashTable.Fetch[h.atomIDTab, atomID].value];
IF atom=
NIL
THEN {
atom ← IO.GetAtom[h.stream];
IF NOT HashTable.Insert[h.atomIDTab, atomID, atom] THEN ERROR;
};
};
WriteRope:
PUBLIC
PROC [h: Handle, rope:
ROPE] = {
ropeID: ROPE ← NARROW[HashTable.Fetch[h.ropeIDTab, rope].value];
IF ropeID=
NIL
THEN {
ropeID ← Rope.Cat["R", Convert.RopeFromInt[from: HashTable.GetSize[h.ropeIDTab], base: 16, showRadix: FALSE]];
IF NOT HashTable.Insert[h.ropeIDTab, rope, ropeID] THEN ERROR;
WriteID[h, ropeID];
IO.PutRope[h.stream, "\""];
IO.PutRope[h.stream, rope]; -- cannot use IO.PutF that truncates long ropes!
IO.PutRope[h.stream, "\" "];
}
ELSE WriteID[h, ropeID];
};
ReadRope:
PUBLIC
PROC [h: Handle]
RETURNS [rope:
ROPE] = {
ropeID: ROPE ← ReadID[h];
IF Rope.Fetch[ropeID]#'R THEN ERROR;
rope ← NARROW[HashTable.Fetch[h.ropeIDTab, ropeID].value];
IF rope=
NIL
THEN {
rope ← IO.GetRopeLiteral[h.stream];
IF NOT HashTable.Insert[h.ropeIDTab, ropeID, rope] THEN ERROR;
};
};
WriteListOfRope:
PUBLIC
PROC [h: Handle, ropes:
LIST
OF
ROPE] = {
count: INT ← 0;
FOR rl:
LIST
OF
ROPE ← ropes, rl.rest
UNTIL rl=
NIL
DO
count ← count + 1;
ENDLOOP;
WriteInt[h, count];
FOR rl:
LIST
OF
ROPE ← ropes, rl.rest
UNTIL rl=
NIL
DO
WriteRope[h, rl.first];
ENDLOOP;
};
ReadListOfRope:
PUBLIC
PROC [h: Handle]
RETURNS [ropes:
LIST
OF
ROPE] = {
count: INT ← ReadInt[h];
lor: LIST OF ROPE ← NIL;
FOR c:
INT
IN [0..count)
DO
lor ← CONS[ReadRope[h], lor];
ENDLOOP;
FOR rl:
LIST
OF
ROPE ← lor, rl.rest
UNTIL rl=
NIL
DO
ropes ← CONS[rl.first, ropes];
ENDLOOP;
};
WriteInt:
PUBLIC
PROC [h: Handle, int:
INT] = {
IO.PutF[h.stream, "%g ", IO.int[int]];
};
ReadInt:
PUBLIC
PROC [h: Handle]
RETURNS [int:
INT] = {
int ← IO.GetInt[h.stream];
};
WriteReal:
PUBLIC
PROC [h: Handle, real:
REAL] = {
IO.PutF[h.stream, "%g ", IO.int[LOOPHOLE[real]]];
};
ReadReal:
PUBLIC
PROC [h: Handle]
RETURNS [real:
REAL] = {
real ← LOOPHOLE[IO.GetInt[h.stream]];
};
WriteBool:
PUBLIC
PROC [h: Handle, bool:
BOOL] = {
IO.PutChar[h.stream, IF bool THEN 'T ELSE 'F];
IO.PutChar[h.stream, ' ];
};
ReadBool:
PUBLIC
PROC [h: Handle]
RETURNS [bool:
BOOL] = {
bool ←
SELECT
IO.GetChar[h.stream]
FROM
'T => TRUE,
'F => FALSE,
ENDCASE => ERROR;
[] ← IO.GetChar[h.stream];
};
WriteHashTable:
PUBLIC
PROC [h: Handle, table: HashTable.Table, eachPair: HashWriteProc] = {
HashPair: HashTable.EachPairAction = {
eachPair[h, key, value];
};
WriteInt[h, HashTable.GetSize[table]];
IF HashTable.Pairs[table, HashPair] THEN ERROR;
};
ReadHashTable:
PUBLIC
PROC [h: Handle, eachPair: HashReadProc, equal: HashTable.EqualProc ←
NIL, hash: HashTable.HashProc ←
NIL]
RETURNS [table: HashTable.Table] = {
table ← HashTable.Create[equal: equal, hash: hash];
THROUGH [1..ReadInt[h]]
DO
key, value: REF ANY ← NIL;
[key, value] ← eachPair[h];
IF NOT HashTable.Insert[table, key, value] THEN ERROR;
ENDLOOP;
};
WriteCellTypeIDPair:
PUBLIC HashWriteProc = {
id: ROPE ← NARROW[key];
cellType: Core.CellType ← NARROW[value];
WriteID[h, id];
WriteCellType[h, cellType];
};
ReadCellTypeIDPair:
PUBLIC HashReadProc = {
key ← ReadID[h];
value ← ReadCellType[h];
};
WriteRopeIDPair:
PUBLIC HashWriteProc = {
id: ROPE ← NARROW[key];
rope: ROPE ← NARROW[value];
WriteID[h, id];
WriteRope[h, rope];
};
ReadRopeIDPair:
PUBLIC HashReadProc = {
key ← ReadID[h];
value ← ReadRope[h];
};
WriteAtomIDPair:
PUBLIC HashWriteProc = {
id: ROPE ← NARROW[key];
atom: ATOM ← NARROW[value];
WriteID[h, id];
WriteAtom[h, atom];
};
ReadAtomIDPair:
PUBLIC HashReadProc = {
key ← ReadID[h];
value ← ReadAtom[h];
};
Cell Class IO
WriteRecordCell: ClassWriteProc = {
rct: CoreClasses.RecordCellType ← NARROW[cellType.data];
WriteInt[h, rct.size];
WriteWire[h, wireIDTab, rct.internal];
FOR in:
NAT
IN [0..rct.size)
DO
instance: CoreClasses.CellInstance ← rct[in];
WriteWire[h, wireIDTab, instance.actual];
WriteProperties[h, instance.properties];
WriteCellType[h, instance.type];
ENDLOOP;
};
ReadRecordCell: ClassReadProc = {
rct: CoreClasses.RecordCellType ← NEW[CoreClasses.RecordCellTypeRec[ReadInt[h]]];
rct.internal ← ReadWire[h, wireIDTab];
FOR in:
NAT
IN [0..rct.size)
DO
instance: CoreClasses.CellInstance ← NEW[CoreClasses.CellInstanceRec];
rct[in] ← instance;
instance.actual ← ReadWire[h, wireIDTab];
instance.properties ← ReadProperties[h];
instance.type ← ReadCellType[h];
ENDLOOP;
cellType.data ← rct;
};
WriteTransistor: ClassWriteProc = {
tran: CoreClasses.Transistor ← NARROW[cellType.data];
WriteID[h, CoreClasses.transistorTypeNames[tran.type]];
WriteInt[h, tran.length];
WriteInt[h, tran.width];
};
ReadTransistor: ClassReadProc = {
tran: CoreClasses.Transistor ← NEW[CoreClasses.TransistorRec];
type: ROPE ← ReadID[h];
FOR t: CoreClasses.TransistorType
IN CoreClasses.TransistorType
DO
IF Rope.Equal[CoreClasses.transistorTypeNames[t], type]
THEN {
tran.type ← t;
EXIT;
};
REPEAT FINISHED => ERROR;
ENDLOOP;
tran.length ← ReadInt[h];
tran.width ← ReadInt[h];
cellType.data ← tran;
};
WriteUnspecified: ClassWriteProc = {};
ReadUnspecified: ClassReadProc = {cellType.data ←
NIL};
WriteSequence: ClassWriteProc = {
WriteSequenceSet:
PROC [set: CoreClasses.SequenceSet] = {
IF set=NIL THEN WriteInt[h, -1]
ELSE {
WriteInt[h, set.length];
FOR i:
NAT
IN [0..set.length)
DO
WriteInt[h, set[i]];
ENDLOOP;
};
};
seq: CoreClasses.SequenceCellType ← NARROW[cellType.data];
WriteCellType[h, seq.base];
WriteInt[h, seq.count];
WriteSequenceSet[seq.sequence];
WriteSequenceSet[seq.flatSequence];
};
ReadSequence: ClassReadProc = {
ReadSequenceSet:
PROC
RETURNS [set: CoreClasses.SequenceSet ←
NIL] = {
length: INT ← ReadInt[h];
IF length >= 0
THEN {
set ← NEW[CoreClasses.SequenceSetRec[length]];
FOR i:
NAT
IN [0..set.length)
DO
set[i] ← ReadInt[h];
ENDLOOP;
};
};
seq: CoreClasses.SequenceCellType ← NEW[CoreClasses.SequenceCellTypeRec];
seq.base ← ReadCellType[h];
seq.count ← ReadInt[h];
seq.sequence ← ReadSequenceSet[];
seq.flatSequence ← ReadSequenceSet[];
cellType.data ← seq;
};
Initialization
[] ← RegisterClass[CoreClasses.recordCellClass, WriteRecordCell, ReadRecordCell];
[] ← RegisterClass[CoreClasses.transistorCellClass, WriteTransistor, ReadTransistor];
[] ← RegisterClass[CoreClasses.unspecifiedCellClass, WriteUnspecified, ReadUnspecified];
[] ← RegisterClass[CoreClasses.sequenceCellClass, WriteSequence, ReadSequence];
[] ← RegisterClass[importCellClass, WriteImport, ReadImport];