Christoph Thiede uploaded a new version of System to project The Trunk: http://source.squeak.org/trunk/System-ct.1297.mcz
==================== Summary ====================
Name: System-ct.1297 Author: ct Time: 31 January 2022, 8:02:46.547876 pm UUID: 9f3500d4-cb3b-1f4c-9950-7f27f7b2f965 Ancestors: System-ct.1296
Fixes DoIt tests for Windows. Uses Files-ct.189 (FileDirectory class >> #startUpDefaultDirectory). See: http://lists.squeakfoundation.org/pipermail/squeak-dev/2022-January/218179.h...
=============== Diff against System-ct.1296 ===============
Item was changed: ----- Method: DoItFirst>>parse: (in category 'evaluating') ----- parse: argumentList "Iterate over the argument list, creating actions blocks. Register each action block in the actions dictionary, and collect a list of the actions blocks to be evaluated now. If any action blocks will require files or directory initialization, send the appropriate startUp messages. Answer the list of action blocks to be evaluated."
| args listOfBlocks needsFiles needsDirectory | needsFiles := needsDirectory := false. args := argumentList readStream. listOfBlocks := OrderedCollection new. [ args atEnd ] whileFalse: [ | key | (key := self keyFor: args next) caseOf: { [ #help ] -> [ self addFirst: [ self help ] to: listOfBlocks at: key. needsFiles := true] . [ #debug ] -> [ self addWithoutEvaluation: [ self debug ] at: key] . [ #doit ] -> [ | list | list := self nextTokensFrom: args. self add:[ self doIt: list ] to: listOfBlocks at: key. needsFiles := true] . [ #evaluate ] -> [ | arg | arg := args next. self add:[ self evaluateOption: arg ] to: listOfBlocks at: key. needsFiles := true] . [ #file ] -> [ | arg | arg := args next. self add:[ self evaluateFileContents: arg ] to: listOfBlocks at: key. needsFiles := true] . [ #filein ] -> [ | list | list := self nextTokensFrom: args. self add:[ self fileIn: list ] to: listOfBlocks at: key. needsFiles := needsDirectory := true] . [ #cwd ] -> [ | arg | arg := args next. self addFirst:[ self cwd: arg ] to: listOfBlocks at: key. needsFiles := needsDirectory := true] . } otherwise: [] ]. needsFiles ifTrue: [ FileStream startUp: true. "initialize stdout and stderr" ]. + needsDirectory ifTrue: [ FileDirectory startUpDefaultDirectory ]. + ^ listOfBlocks! - needsDirectory ifTrue: [ FileDirectory startUp "set default directory" ]. - ^ listOfBlocks. - !
packages@lists.squeakfoundation.org