hg/stx-libbasic: comparison Class.st

equal deleted inserted replaced

-:0caa2f092e45
+:76b406c7cc2b
 |aStream fileName newFileName savFilename needRename
 mySourceFileName sameFile s mySourceFileID anySourceRef|
 self isLoaded ifFalse:[
-	^ FileOutErrorSignal
+^ FileOutErrorSignal
-	    raiseRequestWith:self
+raiseRequestWith:self
-		 errorString:' - will not fileOut unloaded class: ', self name
+errorString:' - will not fileOut unloaded class: ', self name
 ].
 fileName := fileNameString asFilename.
 "
 if file exists, copy the existing to a .sav-file,
 create the new file as XXX.new-file,
 and, if that worked rename afterwards ...
 "
 (fileName exists) ifTrue:[
-	sameFile := false.
+sameFile := false.
-	"/ check carefully - maybe, my source does not really come from that
+"/ check carefully - maybe, my source does not really come from that
-	"/ file (i.e. all of my methods have their source as string)
+"/ file (i.e. all of my methods have their source as string)
-	anySourceRef := false.
+anySourceRef := false.
-	self instAndClassMethodsDo:[:m |
+self instAndClassMethodsDo:[:m |
-	    m sourcePosition notNil ifTrue:[
+m sourcePosition notNil ifTrue:[
-		anySourceRef := true
+anySourceRef := true
-	    ]
+]
-	].
+].
-	anySourceRef ifTrue:[
+anySourceRef ifTrue:[
-	    s := self sourceStream.
+s := self sourceStream.
-	    s notNil ifTrue:[
+s notNil ifTrue:[
-		mySourceFileID := s pathName asFilename info id.
+mySourceFileID := s pathName asFilename info id.
-		sameFile := (fileName info id) == mySourceFileID.
+sameFile := (fileName info id) == mySourceFileID.
-		s close.
+s close.
-	    ] ifFalse:[
+] ifFalse:[
-		classFilename notNil ifTrue:[
+classFilename notNil ifTrue:[
-		    "
+"
-		     check for overwriting my current source file
+check for overwriting my current source file
-		     this is not allowed, since it would clobber my methods source
+this is not allowed, since it would clobber my methods source
-		     file ... you have to save it to some other place.
+file ... you have to save it to some other place.
-		     This happens if you ask for a fileOut into the source-directory
+This happens if you ask for a fileOut into the source-directory
-		     (from which my methods get their source)
+(from which my methods get their source)
-		    "
+"
-		    mySourceFileName := Smalltalk getSourceFileName:classFilename.
+mySourceFileName := Smalltalk getSourceFileName:classFilename.
-		    sameFile := (fileNameString = mySourceFileName).
+sameFile := (fileNameString = mySourceFileName).
-		    sameFile ifFalse:[
+sameFile ifFalse:[
-			mySourceFileName notNil ifTrue:[
+mySourceFileName notNil ifTrue:[
-			    sameFile := (fileName info id) == (mySourceFileName asFilename info id)
+sameFile := (fileName info id) == (mySourceFileName asFilename info id)
-			]
+]
-		    ].
+].
-		]
+]
-	    ].
+].
-	].
+].
-	sameFile ifTrue:[
+sameFile ifTrue:[
-	    ^ FileOutErrorSignal
+^ FileOutErrorSignal
-		raiseRequestWith:fileNameString
+raiseRequestWith:fileNameString
-		errorString:(' - may not overwrite sourcefile:', fileNameString)
+errorString:(' - may not overwrite sourcefile:', fileNameString)
-	].
+].
-	savFilename := Filename newTemporary.
+savFilename := Filename newTemporary.
-	fileName copyTo:savFilename.
+fileName copyTo:savFilename.
-	newFileName := fileName withSuffix:'new'.
+newFileName := fileName withSuffix:'new'.
-	needRename := true
+needRename := true
 ] ifFalse:[
-	"/ another possible trap: if my sourceFileName is
+"/ another possible trap: if my sourceFileName is
-	"/ the same as the written one AND the new files directory
+"/ the same as the written one AND the new files directory
-	"/ is along the sourcePath, we also need a temporary file
+"/ is along the sourcePath, we also need a temporary file
-	"/ first, to avoid accessing the newly written file.
+"/ first, to avoid accessing the newly written file.
-	anySourceRef := false.
+anySourceRef := false.
-	self instAndClassMethodsDo:[:m |
+self instAndClassMethodsDo:[:m |
-	    |mSrc|
+|mSrc|
-	    (mSrc := m sourceFilename) notNil ifTrue:[
+(mSrc := m sourceFilename) notNil ifTrue:[
-		mSrc asFilename baseName = fileName baseName ifTrue:[
+mSrc asFilename baseName = fileName baseName ifTrue:[
-		    anySourceRef := true
+anySourceRef := true
-		]
+]
-	    ]
+]
-	].
+].
-	anySourceRef ifTrue:[
+anySourceRef ifTrue:[
-	    newFileName := fileName withSuffix:'new'.
+newFileName := fileName withSuffix:'new'.
-	    needRename := true
+needRename := true
-	] ifFalse:[
+] ifFalse:[
-	    newFileName := fileName.
+newFileName := fileName.
-	    needRename := false
+needRename := false
-	]
+]
 ].
 [
-	aStream := newFileName writeStream.
+aStream := newFileName writeStream.
 ] on:FileStream openErrorSignal do:[:ex|
-	savFilename notNil ifTrue:[
+savFilename notNil ifTrue:[
-	    savFilename delete
+savFilename delete
-	].
+].
-	^ FileOutErrorSignal
+^ FileOutErrorSignal
-		raiseRequestWith:newFileName
+raiseRequestWith:newFileName name
-		errorString:(' - cannot create file:', newFileName name)
+errorString:(' - cannot create file:', newFileName name)
 ].
 self fileOutOn:aStream.
 aStream close.
 "
 finally, replace the old-file
 be careful, if the old one is a symbolic link; in this case,
 we have to do a copy ...
 "
 needRename ifTrue:[
-	newFileName copyTo:fileName.
+newFileName copyTo:fileName.
-	newFileName delete
+newFileName delete
 ].
 savFilename notNil ifTrue:[
-	savFilename delete
+savFilename delete
 ].
 "
 add a change record; that way, administration is much easier,
 since we can see in that changeBrowser, which changes have
 The given fileName should be a full path, including suffix."
 |aStream fileName|
 self isLoaded ifFalse:[
-	^ FileOutErrorSignal
+^ FileOutErrorSignal
-	    raiseRequestWith:self
+raiseRequestWith:self
-		 errorString:' - will not fileOut unloaded class: ', self name
+errorString:' - will not fileOut unloaded class: ', self name
 ].
 fileName := fileNameOrString asFilename.
 [
-	aStream := fileName writeStream.
+aStream := fileName writeStream.
 ] on:FileStream openErrorSignal do:[:ex|
-	^ FileOutErrorSignal
+^ FileOutErrorSignal
-		raiseRequestWith:fileName
+raiseRequestWith:fileName name
-		errorString:(' - cannot create file: ', fileName name)
+errorString:(' - cannot create file: ', fileName name)
 ].
 self fileOutXMLOn:aStream.
 aStream close.
 "
 ! !
 !Class class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.469 2004-03-30 18:53:08 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Class.st,v 1.470 2004-04-01 11:53:57 cg Exp $'
 ! !

changeset 8281	76b406c7cc2b
parent 8277	357428ca03c5
child 8285	53824703669c