2092 !Class methodsFor:'binary storage'!

  2093 

  2094 storeBinaryDefinitionOn: stream manager: manager

  2095     "store the receiver in a binary format on stream.

  2096      This is an internal interface for binary storage mechanism.

  2097      classes only store the name, signature and instvar names.

  2098      They restore by looking for that name in the Smalltalk dictionary.

  2099      However, using the signature, a check for being valid is made at

  2100      restore time.

  2101      This avoids a full recursive store of a class in the normal binary

  2102      storage - however, it also means that a classes semantics cannot

  2103      be stored with the basic storeBinary operation

  2104      (we depend on the class being present at binaryLoad time.

  2105     To store classes, use #storeBinaryClassOn:manager: or BOSS>>nextPutClasses:."

  2106 

  2107     |varnames n sz|

  2108 

  2109     "/

  2110     "/ output the signature

  2111     "/

  2112     stream nextNumber:4 put:self signature MSB:true.

  2113 

  2114     varnames := self allInstVarNames.

  2115     n := varnames size.

  2116     n == 0 ifTrue:[

  2117         sz := 0

  2118     ] ifFalse:[

  2119         sz := varnames inject:0 into:[:sum :nm | sum + nm size].

  2120         sz := sz + n - 1.

  2121     ].

  2122     "/

  2123     "/ output the nmber of instvars

  2124     "/ followed by each instvar name

  2125     "/

  2126     stream nextNumber:2 put:sz MSB:true.

  2127     varnames keysAndValuesDo:[:i :nm |

  2128         stream nextPutBytes:(nm size) from:nm startingAt:1.

  2129         i ~~ n ifTrue:[stream nextPut:(Character space codePoint)]

  2130     ].

  2131 

  2132     "/

  2133     "/ output my name

  2134     "/

  2135     stream nextNumber:2 put:name size MSB:true.

  2136     stream nextPutBytes:(name size) from:name startingAt:1.

  2137 

  2138     "

  2139      |s|

  2140      s := WriteStream on:ByteArray new.

  2141      Rectangle storeBinaryOn:s.

  2142      Object readBinaryFrom:(ReadStream on:s contents)

  2143     "

  2144 

  2145     "Modified: / 19-03-1997 / 18:47:10 / cg"

  2146     "Modified (comment): / 25-08-2017 / 09:01:26 / cg"

  2147 ! !