> maxRecLen: INTEGER ~ 256; --the longest a record can be (1 byte for its length) len: INTEGER; TRUSTED { bytesGot: INT _ s.UnsafeGetBlock[ [base: LOOPHOLE[sBlock], startIndex: 0, count: bytesInSilItemBlock] ]; IF bytesGot # bytesInSilItemBlock THEN CD.Error [ec: other, explanation: "Macro file corrupted"] }; name _ IF sBlock.leftChar = mainElementName THEN ' ELSE sBlock.rightChar; <<-- name depends on whether is part of main picture ot macro.>> <<-- state of item block (normal, selected, deleted) is ignored.>> itemBlock.xMin _ sBlock.xMin; itemBlock.yMin _ sBlock.yMin; itemBlock.xMax _ sBlock.xMax; itemBlock.yMax _ sBlock.yMax; itemBlock.color _ sBlock.color; itemBlock.font _ sBlock.font; itemBlock.italic _ (sBlock.italic = 1); IF debug0 THEN { TerminalIO.WriteLn; TerminalIO.WriteChar [name]; TerminalIO.WriteInt [ORD[name]]; {OPEN itemBlock; TerminalIO.WriteRope [": xMin, yMin:"]; TerminalIO.WriteInt [xMin]; TerminalIO.WriteInt [yMin]; TerminalIO.WriteRope [". xMax, yMax:"]; TerminalIO.WriteInt [xMax]; TerminalIO.WriteInt [yMax]; TerminalIO.WriteRope [". Col:"]; TerminalIO.WriteInt [color]; TerminalIO.WriteRope [". Font:"]; TerminalIO.WriteInt [font]; IF color # 0 THEN TerminalIO.WriteRope ["***"]; IF NOT italic THEN TerminalIO.WriteRope [", not"]; TerminalIO.WriteRope [" italic "]; } }; IF itemBlock.font IN InternalRopeFonts THEN { len _ s.GetChar[] - 0C; itemBlock.value _ Rope.FromProc[len, ReadChar, maxRecLen]; IF debug0 THEN TerminalIO.WriteRope [itemBlock.value]; IF len MOD 2 = 0 THEN --Make sure to start next item block on a word boundary [] _ s.GetChar[]; --Flush the extra slot for a Char } }; -- end ReadItemBlock { header1, header2: CHAR; s: IO.STREAM _ FS.StreamOpen [fileName ! FS.Error => IF error.group#bug THEN { TerminalIO.WriteRope [Rope.Cat [fileName, " not opened: ", error.explanation]]; ERROR ABORTED } ]; name: CHAR; itemBlock: SilObject; IF debugAll THEN { TerminalIO.WriteRope [fileName]; TerminalIO.WriteLn }; header1 _ s.GetChar[]; header2 _ s.GetChar[]; IF (header1 = checkCodeByte1) AND (header2 = unbuiltCheckCodeByte2) THEN { IF debugAll THEN TerminalIO.WriteRope ["Sil file format OK.\n"] } ELSE IF (header1 = checkCodeByte1) AND (header2 = builtCheckCodeByte2) THEN TerminalIO.WriteRope ["Sil schematic file has been 'build' into a wire-list file via the Build process.\n"] ELSE TerminalIO.WriteRope ["File not in Sil format. Proceeding anyway.\n"]; allMacros _ NEW [MacroFile]; WHILE NOT s.EndOf[] DO [name, itemBlock] _ ReadItemBlock [s]; <> AddItemBlockToMacro [itemBlock, name] <> ENDLOOP; IO.Close[s] } }; -- end ReadSilFile ReadModel: Commander.CommandProc = BEGIN ENABLE { TerminalIO.UserAbort => GOTO UserAbrt; }; list: LIST OF Rope.ROPE; length: NAT; name: Rope.ROPE; [list, length] _ CommandTool.ParseToList [cmd]; IF length = 1 THEN name_list.first ELSE { result_$Failure; msg_"unknown arguments"; TerminalIO.WriteRope ["Read command failed\n"]; RETURN }; TerminalIO.WriteRope ["Warning: Strings of macros as they occour in the synoptic tables are not aligned correctly.\n"]; [] _ ReadSilModel [name]; <> <> <<[] _ CDViewer.CreateViewer [design: synopsis]; CDOps.Redraw [synopsis] -- optional>> EXITS UserAbrt => {TerminalIO.WriteRope ["Read aborted\n"]}; END; <> SetFonts[]; Commander.Register [key: "CDReadSil", proc: ReadModel, doc: "Read a SIL model into chipndale"] END. <> <> <> <> <<>>