# HG changeset patch # User Gerald Klix (speedy) # Date 1719404600 -7200 # Wed Jun 26 14:23:20 2024 +0200 # Branch Cuis7.0based # Node ID a56262af9198f55ad4591be31e6a9a5e73580aec # Parent e17867f16ca6f7c98576622bc4989addfc458cdc SUM: Use #ofRoom: instead of #new: diff --git a/haver/db/PlanF.pck.st b/haver/db/PlanF.pck.st --- a/haver/db/PlanF.pck.st +++ b/haver/db/PlanF.pck.st @@ -1,6 +1,6 @@ -'From Haver7.0 [latest update: #6454] on 20 June 2024 at 6:45:35 pm'! +'From Haver7.0 [latest update: #6454] on 26 June 2024 at 2:01:40 pm'! 'Description A yet simpler try on some means of peristence.'! -!provides: 'PlanF' 1 27! +!provides: 'PlanF' 1 28! !requires: 'Cuis-Base' 60 5967 nil! !requires: 'BinaryFileStream' 1 1 nil! !requires: 'Collections-TwoAndEightByteArrays' 1 1 nil! @@ -20,9 +20,9 @@ !interfacesOf: PlanF! Modules environment: #PlanF :: interface: #API exporting: #(#(#Store #FileStoreInterface)) :: - interface: #Store exporting: #(#(#Store #FileStore)) :: - interface: #SPI exporting: #(#ObjectRecord #AbstractAtomicCollectionRecord #BaseClassRecord #AbstractProxy #DoubleByteArrayRecord #AbstractAtomicRecord #LargeNegativeIntegerRecord #NegativeSmallIntegerRecord #AbstractSetRecord #StringRecord #PlanFClassRecord #AbstractMetaRecord #RootsRecord #AbstractInstanceRecord #SmalltalkProxy #AbstractStringLike #UninternedSymbolRecord #StoreRecord #PositiveSmallIntegerRecord #ByteArrayRecord #AbstractRecord #InternedSymbolRecord #LocalSymbolProxy #CompiledMethodProxy #FileStore #WordArrayRecord #SetRecord #AbstractLargeIntegerRecord #LargePositiveIntegerRecord #ClassRecord #CodePackageProxy #EnvironmentProxy #AbstractSmallIntegerRecord #DoubleWordArrayRecord #ModuleProxy #DictionaryRecord #AbstractStatelessProxy #AbstractClassRecord) :: - interface: #UTI exporting: #(#ObjectRecord #AbstractAtomicCollectionRecord #BaseClassRecord #AbstractProxy #DoubleByteArrayRecord #AbstractAtomicRecord #LargeNegativeIntegerRecord #NegativeSmallIntegerRecord #AbstractSetRecord #StringRecord #PlanFClassRecord #AbstractMetaRecord #RootsRecord #AbstractInstanceRecord #SmalltalkProxy #RecordDescription #AbstractStringLike #UninternedSymbolRecord #StoreRecord #PositiveSmallIntegerRecord #ByteArrayRecord #AbstractRecord #InternedSymbolRecord #LocalSymbolProxy #CompiledMethodProxy #FileStore #WordArrayRecord #SetRecord #AbstractLargeIntegerRecord #LargePositiveIntegerRecord #RunningWorldProxy #ClassRecord #CodePackageProxy #EnvironmentProxy #AbstractSmallIntegerRecord #DoubleWordArrayRecord #ModuleProxy #DictionaryRecord #AbstractStatelessProxy #AbstractClassRecord)! + interface: #SPI exporting: #(#StringRecord #AbstractStatelessProxy #PlanFClassRecord #DictionaryRecord #AbstractSmallIntegerRecord #AbstractClassRecord #LargePositiveIntegerRecord #PositiveSmallIntegerRecord #CompiledMethodProxy #FileStore #AbstractLargeIntegerRecord #UninternedSymbolRecord #ClassRecord #AbstractStringLike #AbstractMetaRecord #RootsRecord #WordArrayRecord #AbstractAtomicCollectionRecord #InternedSymbolRecord #AbstractSetRecord #AbstractRecord #DoubleWordArrayRecord #BaseClassRecord #SmalltalkProxy #DoubleByteArrayRecord #ModuleProxy #CodePackageProxy #ObjectRecord #LocalSymbolProxy #AbstractAtomicRecord #SetRecord #NegativeSmallIntegerRecord #LargeNegativeIntegerRecord #EnvironmentProxy #AbstractProxy #StoreRecord #ByteArrayRecord #AbstractInstanceRecord) :: + interface: #UTI exporting: #(#StringRecord #AbstractStatelessProxy #PlanFClassRecord #DictionaryRecord #AbstractSmallIntegerRecord #AbstractClassRecord #LargePositiveIntegerRecord #PositiveSmallIntegerRecord #CompiledMethodProxy #RecordDescription #FileStore #AbstractLargeIntegerRecord #UninternedSymbolRecord #ClassRecord #AbstractStringLike #AbstractMetaRecord #RootsRecord #WordArrayRecord #AbstractAtomicCollectionRecord #InternedSymbolRecord #AbstractSetRecord #AbstractRecord #DoubleWordArrayRecord #BaseClassRecord #SmalltalkProxy #DoubleByteArrayRecord #RunningWorldProxy #ModuleProxy #CodePackageProxy #ObjectRecord #LocalSymbolProxy #AbstractAtomicRecord #SetRecord #NegativeSmallIntegerRecord #LargeNegativeIntegerRecord #EnvironmentProxy #AbstractProxy #StoreRecord #ByteArrayRecord #AbstractInstanceRecord) :: + interface: #Store exporting: #(#(#Store #FileStore))! !classDefinition: #TextFontFamilyAndSize category: #'PlanF-Compatibility'! @@ -1887,13 +1887,13 @@ arrayIndex _ arrayIndex + 1 ]. aStream nextPutAll: dataArray! ! -!(Modules>>#PlanF>>#DictionaryRecord) methodsFor: 'persistence' stamp: 'KLG 8/1/2023 11:00:29'! +!(Modules>>#PlanF>>#DictionaryRecord) methodsFor: 'persistence' stamp: 'KLG 6/25/2024 20:54:53'! loadDataFrom: aStream header: aHeader "Creat an instance of mine and load it from aStream." | dataArray size | aStream nextInto: (dataArray := DoubleWordArray new: (size := aHeader at: 1)). - object := (store loadObjectAt: (dataArray at: 1)) new: (size - 1) / 2. + object := (store loadObjectAt: (dataArray at: 1)) ofRoom: (size - 1) / 2. self registerPositionWithStore. 2 to: size by: 2 do: [ :index | object @@ -2227,14 +2227,14 @@ ^ 2! ! -!(Modules>>#PlanF>>#StoreRecord) methodsFor: 'persistence' stamp: 'KLG 5/15/2021 18:33:36'! +!(Modules>>#PlanF>>#StoreRecord) methodsFor: 'persistence' stamp: 'KLG 6/25/2024 21:48:43'! loadDataFrom: aStream header: aHeader "Creat an instance of mine and load it from aStream." | versionStringSize | - storedVersion _ aHeader at: 1. - storedMagicString _ String new: (versionStringSize _ aHeader at: 2). - aStream next: versionStringSize into: storedMagicString startingAt: 1 + storedVersion := aHeader at: 1. + storedMagicString := String new: (versionStringSize := aHeader at: 2). + aStream next: versionStringSize into: storedMagicString startingAt: 1 ! ! !(Modules>>#PlanF>>#StoreRecord) class methodsFor: 'magic' stamp: 'KLG 5/14/2021 21:10:25'!