hg/stx-libbasic: comparison Smalltalk.st

equal deleted inserted replaced

-:9dd403ddfb91
+:4306fb61b9f8
 newStream := 'src.tmp' asFilename writeStream.
 table := IdentityDictionary new:100.
 Method allSubInstancesDo:[:aMethod |
-	source := nil.
+source := nil.
-	aMethod sourcePosition notNil ifTrue:[
+aMethod sourcePosition notNil ifTrue:[
-	    aMethod sourceFilename = 'st.src' ifTrue:[
+aMethod sourceFilename = 'st.src' ifTrue:[
-		source := aMethod source.
+source := aMethod source.
-	    ]
+]
-	] ifFalse:[
+] ifFalse:[
-	    source := aMethod source
+source := aMethod source
-	].
+].
-	source notNil ifTrue:[
+source notNil ifTrue:[
-	    pos := newStream position1Based.
+pos := newStream position1Based.
-	    newStream nextChunkPut:source.
+newStream nextChunkPut:source.
-	    "
+"
-	     dont change the methods info - maybe some write error
+dont change the methods info - maybe some write error
-	     occurs later, in that case we abort and leave everything
+occurs later, in that case we abort and leave everything
-	     untouched.
+untouched.
-	    "
+"
-	    table at:aMethod put:pos
+table at:aMethod put:pos
-	]
+]
 ].
-newStream close.
+newStream syncData; close.
 "
 now, rename the new source file,
 "
 fileName := (ObjectMemory nameForSources).
 "good - now go over all changed methods, and change their
 source reference"
 table keysAndValuesDo:[:aMethod :pos |
-	aMethod localSourceFilename:fileName position:pos.
+aMethod localSourceFilename:fileName position:pos.
 "/        aMethod printCR.
 ].
 "
 Smalltalk compressSources
 newStream := 'src.tmp' asFilename writeStream.
 table := IdentityDictionary new:100.
 Method allSubInstancesDo:[:aMethod |
-	source := aMethod source.
+source := aMethod source.
-	source notNil ifTrue:[
+source notNil ifTrue:[
-	    pos := newStream position1Based.
+pos := newStream position1Based.
-	    newStream nextChunkPut:source.
+newStream nextChunkPut:source.
-	    "
+"
-	     dont change the methods info - maybe some write error
+dont change the methods info - maybe some write error
-	     occurs later, in that case we abort and leave everything
+occurs later, in that case we abort and leave everything
-	     untouched.
+untouched.
-	    "
+"
-	    table at:aMethod put:pos
+table at:aMethod put:pos
-	]
+]
 ].
-newStream close.
+newStream syncData; close.
 "
 now, rename the new source file,
 "
 fileName := (ObjectMemory nameForSources).
 "good - now go over all changed methods, and change their
 source reference"
 table keysAndValuesDo:[:aMethod :pos |
-	aMethod localSourceFilename:fileName position:pos.
+aMethod localSourceFilename:fileName position:pos.
 "/        aMethod printCR.
 ].
 "
 Smalltalk generateSingleSourceFile
 ! !
 !Smalltalk class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.872 2009-03-10 13:36:15 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Smalltalk.st,v 1.873 2009-03-23 19:50:06 stefan Exp $'
 ! !

changeset 11655	4306fb61b9f8
parent 11624	c1ed76416b0a
child 11667	4994ddb5ed2f