hg/stx-libbasic: comparison Filename.st

equal deleted inserted replaced

-:956d62a5656c
+:94c803be0210
 |sep s|
 sep := self separator asString.
 s := ''.
 aCollectionOfDirectoryNames keysAndValuesDo:[:index :component |
-index == 1 ifTrue:[
+	index == 1 ifTrue:[
-(component ~= sep
+	    (component ~= sep
-or:[aCollectionOfDirectoryNames size == 1]) ifTrue:[
+	    or:[aCollectionOfDirectoryNames size == 1]) ifTrue:[
-s := s , component
+		s := s , component
-]
+	    ]
-] ifFalse:[
+	] ifFalse:[
-s := s , '/' , component
+	    s := s , '/' , component
-].
+	].
 ].
 ^ self named:s
 "
 Filename fromComponents:#('/' 'foo' 'bar' 'baz')
 Filename fromComponents:#('foo' 'bar' 'baz')
 Filename fromComponents:#('/')
 Filename fromComponents:
-(Filename components:('.' asFilename pathName))
+	 (Filename components:('.' asFilename pathName))
 Filename fromComponents:
-(Filename components:('.' asFilename name))
+	 (Filename components:('.' asFilename name))
 "
 "Modified: 29.2.1996 / 20:18:34 / cg"
 !
 |s|
 s := OperatingSystem getHomeDirectory.
 s isNil ifTrue:[
-^ self defaultDirectory
+	^ self defaultDirectory
 ].
 ^ s asFilename
 "
 Filename homeDirectory
 See also: #newTemporary which looks for a good temp directory."
 |pid nm|
 NextTempFilenameIndex isNil ifTrue:[
-NextTempFilenameIndex := 1.
+	NextTempFilenameIndex := 1.
 ].
 "
 the following has to be made OS independent ...
 "
 pid := OperatingSystem getProcessId printString.
 nm := 'stxtmp_' , pid , '_' , NextTempFilenameIndex printString.
 NextTempFilenameIndex := NextTempFilenameIndex + 1.
 (aDirectoryPrefix isNil or:[aDirectoryPrefix asString isEmpty]) ifFalse:[
-nm := aDirectoryPrefix asFilename construct:nm
+	nm := aDirectoryPrefix asFilename construct:nm
 ] ifTrue:[
-nm := nm asFilename
+	nm := nm asFilename
 ].
 ^ nm
 "temp files in '/tmp':
 If any of the environment variables ST_TMPDIR or TMPDIR is set,
 its value defines the name, otherwise, '/tmp' is used.
 (at least on unix ...).
 Notice: do not hardcode '/tmp' into your programs - things may be
-different on other OS's. Also, the user may want to set the
+	     different on other OS's. Also, the user may want to set the
-TMPDIR environment variable to have her temp files somewhere else.
+	     TMPDIR environment variable to have her temp files somewhere else.
-(especially on SUNOS, the root partition is ALWAYS too small ..."
+	     (especially on SUNOS, the root partition is ALWAYS too small ..."
 |tempDir|
 tempDir := OperatingSystem getEnvironment:'ST_TMPDIR'.
 tempDir isNil ifTrue:[
-tempDir := OperatingSystem getEnvironment:'TMPDIR'.
+	tempDir := OperatingSystem getEnvironment:'TMPDIR'.
-tempDir isNil ifTrue:[
+	tempDir isNil ifTrue:[
-tempDir := '/tmp'
+	    tempDir := '/tmp'
-].
+	].
 ].
 ^ self named:tempDir
 "
 Filename tempDirectory
 |components|
 components := aString asCollectionOfSubstringsSeparatedBy:(self separator).
 components first isEmpty ifTrue:[
-components at:1 put:(self separator asString)
+	components at:1 put:(self separator asString)
 ].
 ^ components
 "
 ! !
 !Filename methodsFor:'error handling'!
 accessDeniedError:filename
+"{ Pragma: +optSpace }"
+"report an error that access to some file was denied"
 ^ OperatingSystem accessDeniedErrorSignal
 	raiseRequestWith:filename
 	errorString:('access denied: ' , filename asString)
 !
 fileCreationError:filename
+"{ Pragma: +optSpace }"
+"report an error that some file could not be created"
 ^ OperatingSystem accessDeniedErrorSignal
 	raiseRequestWith:filename
 	errorString:('cannot create/write file: ' , filename asString)
 !
 fileNotFoundError:filename
+"{ Pragma: +optSpace }"
+"report an error that some file was not found"
 ^ OperatingSystem fileNotFoundErrorSignal
 	raiseRequestWith:filename
 	errorString:('file not found: ' , filename asString)
 !
 removeError:filename
+"{ Pragma: +optSpace }"
+"report an error that some file could not be removed"
 ^ OperatingSystem accessDeniedErrorSignal
 	raiseRequestWith:filename
 	errorString:('cannot remove: ' , filename asString)
 !
 reportError:string with:filename
+"{ Pragma: +optSpace }"
+"report an error"
 ^ OperatingSystem errorSignal
 	raiseRequestWith:filename
 	errorString:string
 ! !
 truncateTo:newSize
 "change the files size.
 This may not be supported on all operating systems"
 (OperatingSystem truncateFile:nameString to:newSize) ifFalse:[
-^ self reportError:'unsupported operation' with:self
+	^ self reportError:'unsupported operation' with:self
 ]
 "
 |s|
 |sepString|
 sepString := self class separator asString.
 nameString = sepString ifTrue:[
-"I am the root"
+	"I am the root"
-^ sepString  , subname
+	^ sepString  , subname
 ].
 ^ nameString , sepString , subname asString
 "
 '/tmp' asFilename constructString:'foo'
 |dir baseName matching matchLen try allMatching
 sepString parentString prefix nMatch|
 sepString := self class separator asString.
 (nameString endsWith:sepString) ifTrue:[
-^ #()
+	^ #()
 ].
 parentString := self class parentDirectoryName.
 baseName := self baseName.
 baseName ~= nameString ifTrue:[
-prefix := self directoryName.
+	prefix := self directoryName.
 ].
 self isAbsolute ifTrue:[
-dir := self directory
+	dir := self directory
 ] ifFalse:[
-aDirectory isNil ifTrue:[
+	aDirectory isNil ifTrue:[
-dir := self directory
+	    dir := self directory
-] ifFalse:[
+	] ifFalse:[
-dir := (aDirectory construct:nameString) directory
+	    dir := (aDirectory construct:nameString) directory
-]
+	]
 ].
 matching := OrderedCollection new.
 dir directoryContents do:[:fileName |
-((fileName ~= '.') and:[fileName ~= parentString]) ifTrue:[
+	((fileName ~= '.') and:[fileName ~= parentString]) ifTrue:[
-(fileName startsWith:baseName) ifTrue:[
+	    (fileName startsWith:baseName) ifTrue:[
-matching add:fileName
+		matching add:fileName
-]
+	    ]
-]
+	]
 ].
 (nMatch := matching size) > 1 ifTrue:[
-"
+	"
-find the longest common prefix
+	 find the longest common prefix
-"
+	"
-matchLen := baseName size.
+	matchLen := baseName size.
-matchLen > matching first size ifTrue:[
+	matchLen > matching first size ifTrue:[
-try := baseName.
+	    try := baseName.
-allMatching := false
+	    allMatching := false
-] ifFalse:[
+	] ifFalse:[
-try := matching first copyTo:matchLen.
+	    try := matching first copyTo:matchLen.
-allMatching := true.
+	    allMatching := true.
-].
+	].
-[allMatching] whileTrue:[
+	[allMatching] whileTrue:[
-matching do:[:aName |
+	    matching do:[:aName |
-(aName startsWith:try) ifFalse:[
+		(aName startsWith:try) ifFalse:[
-allMatching := false
+		    allMatching := false
-]
+		]
-].
+	    ].
-allMatching ifTrue:[
+	    allMatching ifTrue:[
-matchLen <  matching first size ifTrue:[
+		matchLen <  matching first size ifTrue:[
-matchLen := matchLen + 1.
+		    matchLen := matchLen + 1.
-try := matching first copyTo:matchLen.
+		    try := matching first copyTo:matchLen.
-] ifFalse:[
+		] ifFalse:[
-allMatching := false
+		    allMatching := false
-]
+		]
-] ifFalse:[
+	    ] ifFalse:[
-try := matching first copyTo:matchLen - 1.
+		try := matching first copyTo:matchLen - 1.
-]
+	    ]
-].
+	].
-"
+	"
-and set my name to the last full match
+	 and set my name to the last full match
-"
+	"
-nameString := try
+	nameString := try
 ].
 "
 if I had a directory-prefix, change names in collection ...
 "
 prefix notNil ifTrue:[
-prefix = '/' ifTrue:[
+	prefix = '/' ifTrue:[
-"/ avoid introducing double slashes
+	    "/ avoid introducing double slashes
-prefix := ''
+	    prefix := ''
-].
+	].
-matching := matching collect:[:n | prefix , '/' , n].
+	matching := matching collect:[:n | prefix , '/' , n].
-nMatch == 1 ifTrue:[
+	nMatch == 1 ifTrue:[
-nameString := matching first
+	    nameString := matching first
-] ifFalse:[
+	] ifFalse:[
-nMatch > 1 ifTrue:[
+	    nMatch > 1 ifTrue:[
-nameString := prefix , '/' , nameString
+		nameString := prefix , '/' , nameString
-]
+	    ]
-]
+	]
 ] ifFalse:[
-nMatch == 1 ifTrue:[
+	nMatch == 1 ifTrue:[
-nameString := matching first
+	    nameString := matching first
-]
+	]
 ].
 "
 return the match-set, so caller can decide what to do
 (i.e. show the matches, output a warning etc ...)
 |nm idx|
 nm := self baseName.
 idx := nm lastIndexOf:(self class suffixSeparator).
 idx == 0 ifTrue:[
-^ Array with:nm with:''
+	^ Array with:nm with:''
 ].
 ^ Array
-with:(nm copyTo:idx-1)
+	with:(nm copyTo:idx-1)
-with:(nm copyFrom:idx+1)
+	with:(nm copyFrom:idx+1)
 "
 'abc.st' asFilename prefixAndSuffix
 'abc' asFilename prefixAndSuffix
 'a.b.c' asFilename prefixAndSuffix
 "return a new filename for the receivers name with a suffix.
 If the name already has a sufix, the new suffix replacaes it;
 otherwise, the new suffix simply appended to the name."
 ^ self class named:
-(self withoutSuffix name
+	(self withoutSuffix name
-, self class suffixSeparator asString
+	 , self class suffixSeparator asString
-, aSuffix asString)
+	 , aSuffix asString)
 "
 'abc.st' asFilename withSuffix:'o'
 'abc' asFilename withSuffix:'o'
 'a.b.c' asFilename withSuffix:'o'
 ! !
 !Filename class methodsFor:'documentation'!
 version
-^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.53 1996-03-07 13:53:37 cg Exp $'
+^ '$Header: /cvs/stx/stx/libbasic/Filename.st,v 1.54 1996-03-23 17:55:20 cg Exp $'
 ! !

changeset 1120	94c803be0210
parent 1081	c2f1f8441663
child 1225	b7def4d21cb8