[Pkg] The Trunk: System-tpr.991.mcz

[commits at source.squeak.org]

tim Rowledge uploaded a new version of System to project The Trunk:
http://source.squeak.org/trunk/System-tpr.991.mcz

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

Name: System-tpr.991
Author: tpr
Time: 21 December 2017, 12:28:58.277846 pm
UUID: 9d4fc5f3-acd3-4406-a00e-7e61a91b62bc
Ancestors: System-mt.990

vm/image name related clean ups

=============== Diff against System-mt.990 ===============

Item was changed:
  ----- Method: FileDirectory class>>setDefaultDirectory: (in category '*System-Files') -----
  setDefaultDirectory: directoryName
  	"Initialize the default directory to the directory supplied. This method is called when the image starts up."
  	| dirName |
  	DirectoryClass := self activeDirectoryClass.
+ 	"There doesn't seem to be any really good reason to use the FilePath conversion stuff here; after all, this method gets sent after having read the image path and explicitly converting it"
  	dirName := (FilePath pathName: directoryName) asSqueakPathName.
  	[dirName endsWith: self slash] whileTrue:[
  		dirName := dirName copyFrom: 1 to: dirName size - self slash size.
  	].
  	DefaultDirectory := self on: dirName.!

Item was changed:
  ----- Method: SecurityManager>>secureUserDirectory (in category 'accessing') -----
  secureUserDirectory
  	"SecurityManager default secureUserDirectory"
  	| dir |
  	dir := self primSecureUserDirectory.
  	^ dir
  		ifNil: [FileDirectory default pathName]
+ 		ifNotNil: [dir vmPathToSqueakPath]!
- 		ifNotNil: [(FilePath pathName: dir isEncoded: true) asSqueakPathName]!

Item was changed:
  ----- Method: SecurityManager>>untrustedUserDirectory (in category 'accessing') -----
  untrustedUserDirectory
  	"SecurityManager default untrustedUserDirectory"
  	| dir |
  	dir := self primUntrustedUserDirectory.
  	^ dir
  		ifNil: [FileDirectory default pathName]
+ 		ifNotNil: [dir vmPathToSqueakPath]!
- 		ifNotNil: [(FilePath pathName: dir isEncoded: true) asSqueakPathName]!

Item was changed:
  ----- Method: SmalltalkImage>>imageName (in category 'image, changes names') -----
  imageName
  	"Answer the full path name for the current image."
  	"Smalltalk imageName"
  
+ 	^ self primImageName vmPathToSqueakPath
- 	| str |
- 	str := self primImageName.
- 	^ (FilePath pathName: str isEncoded: true) asSqueakPathName.
  !

Item was changed:
  ----- Method: SmalltalkImage>>imageName: (in category 'image, changes names') -----
  imageName: newName
  	"Set the the full path name for the current image.  All further snapshots will use this."
  
+ 	self primImageName: newName asVmPathName.
- 	| encoded |
- 	encoded := (FilePath pathName: newName isEncoded: false) asVmPathName.
- 	self primImageName: encoded.
  !

Item was changed:
  ----- Method: SmalltalkImage>>vmFileName (in category 'command line') -----
  vmFileName
  	"Answer the absolute file name of the the Smalltalk virtual machine"
  	"Smalltalk vmFileName"
  
+ 	^ self primVmFileName vmPathToSqueakPath
- 	^ (FilePath pathName: (self primVmFileName) isEncoded: true) asSqueakPathName.
  !

Item was changed:
  ----- Method: SmalltalkImage>>vmPath (in category 'command line') -----
  vmPath
+ 	"Answer the path for the directory containing the Smalltalk virtual machine, making sure to convert the vm string to a Squeak string as required."
- 	"Answer the path for the directory containing the Smalltalk virtual machine. Return the 	empty string if this primitive is not implemented."
  	"Smalltalk vmPath"
  
+ 	^self primVmPath vmPathToSqueakPath
- 	^ (FilePath pathName: (self primVmPath) isEncoded: true) asSqueakPathName.
  !