The Trunk: System-tpr.991.mcz

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.
  !