The Trunk: Environments-cwp.8.mcz

Colin Putney uploaded a new version of Environments to project The Trunk:
http://source.squeak.org/trunk/Environments-cwp.8.mcz

==================== Summary ====================

Name: Environments-cwp.8
Author: cwp
Time: 1 January 2013, 7:00:24.118 pm
UUID: 0abedc80-5737-42fb-babd-6b2d69f1b352
Ancestors: Environments-cwp.7

Environments bootstrap - stage 3

=============== Diff against Environments-cwp.7 ===============

Item was changed:
  ----- Method: Environment>>fileIn:announcing: (in category 'operations') -----
  fileIn: aStream announcing: aString
+ (EnvironmentLoader for: self)
- self shouldBeImplemented.
- " (EnvironmentLoader for: self)
  fileIn: aStream
  announcing: aString
+ !
- "!

Item was added:
+ Object subclass: #EnvironmentLoader
+ instanceVariableNames: 'environment'
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Core'!

Item was added:
+ ----- Method: EnvironmentLoader class>>for: (in category 'as yet unclassified') -----
+ for: anEnvironment
+ ^ self basicNew initializeWithEnvironment: anEnvironment!

Item was added:
+ ----- Method: EnvironmentLoader>>evaluate:logged: (in category 'as yet unclassified') -----
+ evaluate: chunk logged: aBoolean
+ ^ [Compiler evaluate: chunk environment: environment logged: aBoolean]
+ on: EnvironmentRequest
+ do: [:req | req resume: environment]!

Item was added:
+ ----- Method: EnvironmentLoader>>fileIn:announcing: (in category 'as yet unclassified') -----
+ fileIn: aStream announcing: aString
+ | val |
+ self logStart: aStream name.
+ aString displayProgressFrom: 0 to: aStream size during:
+ [:bar |
+ [aStream atEnd] whileFalse:
+ [bar value: aStream position.
+ aStream skipSeparators.
+ [val := self fileInChunkFrom: aStream]
+ on: InMidstOfFileinNotification
+ do: [:ex | ex resume: true].
+ aStream skipStyleChunk].
+ aStream close].
+ self logEnd: aStream name.
+ ^ val!

Item was added:
+ ----- Method: EnvironmentLoader>>fileInChunkFrom: (in category 'as yet unclassified') -----
+ fileInChunkFrom: aStream
+ | chunk |
+ ^ (aStream peekFor: $!!)
+ ifTrue: [
+ | reader |
+ chunk := aStream nextChunk.
+ reader := self evaluate: chunk logged: false.
+ reader scanFrom: aStream environment: environment]
+ ifFalse: [
+ chunk := aStream nextChunk.
+ aStream checkForPreamble: chunk.
+ self evaluate: chunk logged: true ]!

Item was added:
+ ----- Method: EnvironmentLoader>>initializeWithEnvironment: (in category 'as yet unclassified') -----
+ initializeWithEnvironment: anEnvironment
+ self initialize.
+ environment := anEnvironment!

Item was added:
+ ----- Method: EnvironmentLoader>>logEnd: (in category 'as yet unclassified') -----
+ logEnd: filename
+ "Note:  The main purpose of this banner is to flush the changes file."
+ SmalltalkImage current logChange: '----End fileIn of ' , filename , ' into ', environment name, '----' !

Item was added:
+ ----- Method: EnvironmentLoader>>logStart: (in category 'as yet unclassified') -----
+ logStart: filename
+ SmalltalkImage current logChange: '----Start fileIn of ' , filename , ' into ' , environment name , '----'!

Item was added:
+ Notification subclass: #EnvironmentRequest
+ instanceVariableNames: ''
+ classVariableNames: ''
+ poolDictionaries: ''
+ category: 'Environments-Core'!