Don't forge that the VM is also BLOATWARE (I know this is getting bettwe
with the pluginzed VM stuff), and that it will be so much bigger.  Also,
don't forget that the VM assumes that certain objects exist and that if this
are not there, then life will get very difficult.

> -----Original Message-----
> From: Tim Olson [mailto:tim at jumpnet.com]
> Sent: Wednesday, June 21, 2000 8:52 AM
> To: Squeak
> Subject: Re: "Hello World" in Squeak -> Burn the Disk Packs!
>
>
> >Can anyone comment on what it would take to produce a minimal Squeak
> >image (say 1K beyond the header) that would write out "hello world" to a
> >disk file? Is such a thing possible in under 1K?
>
> Interesting problem.  I just wrote a "simple" helloWorld method:
>
> helloWorld
>
> 	| f |
> 	f := FileStream fileNamed: 'hello.out'.
> 	f nextPutAll: 'Hello, world!'; cr.
> 	f close.
>
>
> Then traced it, collecting the set of all CompiledMethods it invoked when
> running:
>
> tallyMethodSizesinBlock: aBlock
>
> 	| usedMethods w |
> 	usedMethods := Set new.
> 	thisContext sender
> 		runSimulated: aBlock
> 		contextAtEachStep: [:ctxt | usedMethods add: ctxt
> method].
> 	^ usedMethods detectSum: [:m | m size].
>
>
> For the helloWorld above I came up with 2426 bytes, total, from the
> following compiledMethods:
>
>
> UndefinedObject>>#DoIt
> SequenceableCollection>>#replaceFrom:to:with:startingAt:
> StandardFileStream class>>#fileNamed:
> Magnitude>>#max:
> StandardFileStream class>>#register:
> WeakRegistry>>#add:
> FileStream class>>#fileNamed:
> FileDirectory>>#fullPathFor:
> FileStream class>>#fullName:
> FileDirectory>>#fullNameFor:
> Object>>#myDependents:
> Set>>#findElementOrNil:
> IdentityDictionary>>#scanFor:
> WeakRegistry>>#protected:
> BlockContext>>#ifError:
> Process>>#errorHandler:
> Dictionary>>#scanFor:
> LookupKey class>>#key:
> WeakKeyAssociation>>#key:
> Association>>#value:
> StandardFileStream>>#nextPutAll:
> Character class>>#value:
> StandardFileStream>>#nextPut:
> StandardFileStream class>>#unregister:
> Object>>#=
> Set>>#fixCollisionsFrom:
> Dictionary>>#keyAt:
> FileDirectory>>#checkName:fixErrors:
> FileDirectory class>>#splitName:to:
> SequenceableCollection>>#copyFrom:to:
> StandardFileStream>>#open:forWrite:
> Object>>#retryWithGC:until:
> Dictionary>>#removeKey:ifAbsent:
> Semaphore>>#critical:ifError:
> BlockContext>>#on:do:
> WeakKeyDictionary>>#at:put:
> Association class>>#key:value:
> Set>>#atNewIndex:put:
> WeakRegistry>>#remove:ifAbsent:
> FileDirectory>>#pathNameDelimiter
> FileDirectory>>#slash
> FileDirectory class>>#slash
> FileDirectory class>>#default
> HelloWorld class>>#helloWorld
> FileStream class>>#concreteStream
> MacFileDirectory class>>#pathNameDelimiter
> ArrayedCollection class>>#new
> Collection>>#isEmpty
> FileDirectory class>>#maxFileNameLength
> SequenceableCollection>>#last
> Character>>#asString
> SequenceableCollection>>#copyReplaceFrom:to:with:
> Object>>#species
> FileStream class>>#new
> StandardFileStream>>#register
> WeakArray class>>#isFinalizationSupported
> StandardFileStream class>>#registry
> Object>>#executor
> StandardFileStream>>#actAsExecutor
> Object>>#actAsExecutor
> Object>>#breakDependents
> Object>>#hash
> Set>>#fullCheck
> WriteStream>>#cr
> Character class>>#cr
> StandardFileStream>>#close
> StandardFileStream>>#unregister
> WeakKeyAssociation>>#key
> SequenceableCollection>>#findLast:
> ArrayedCollection class>>#with:
> SequenceableCollection>>#,
> String>>#replaceFrom:to:with:startingAt:
>
>
>      -- tim
>
>
>