[Pkg] Rio: File-Kernel-kph.4.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Tue Nov 25 05:38:53 UTC 2008
A new version of File-Kernel was added to project Rio:
http://www.squeaksource.com/Rio/File-Kernel-kph.4.mcz
==================== Summary ====================
Name: File-Kernel-kph.4
Author: kph
Time: 25 November 2008, 5:38:51 am
UUID: a4c27605-fdd9-41e1-86ee-a130db646196
Ancestors: File-Kernel-kph.3
+ archive working once more
=============== Diff against File-Kernel-kph.3 ===============
Item was removed:
- ----- Method: FileExecutive>>basicReader: (in category 'as yet unclassified') -----
- basicReader: aFile
-
- ^ self class fileStreamClass new open: aFile forWrite: false!
Item was removed:
- ----- Method: FileExecutive>>toDirLocal:addAllLocal:relativeTo: (in category 'local/remote file copy') -----
- toDirLocal: aDir addAllLocal: someFD relativeTo: aBaseDir
-
- | map |
-
- map := self toDir: aDir mkpathAll: someFD relativeTo: aBaseDir.
-
- map do: [ :each | self copyLocalFile: each first toLocalFile: each second ].
-
- ^ map!
Item was removed:
- ----- Method: FileExecutive>>touch: (in category 'as yet unclassified') -----
- touch: aRio
-
- aRio writer close!
Item was removed:
- ----- Method: FileExecutive>>root (in category 'as yet unclassified') -----
- root
-
- ^ self class makeNew: self class dirClass from: self rootString!
Item was removed:
- ----- Method: FileExecutive>>pathDelimiter (in category 'as yet unclassified') -----
- pathDelimiter
-
- ^ '/'
- !
Item was removed:
- ----- Method: FileExecutive>>mkpath: (in category 'as yet unclassified') -----
- mkpath: aRio
-
- aRio isDirectory ifTrue: [ ^self ].
- aRio parent mkpath.
- self createDirectory: aRio. !
Item was removed:
- ----- Method: FileExecutive>>isRoot: (in category 'testing') -----
- isRoot: aRioOrString
-
- ^ aRioOrString value = self rootString!
Item was removed:
- ----- Method: FileExecutive>>isDirectory: (in category 'as yet unclassified') -----
- isDirectory: aRio
-
- ^ aRio stat ifNil: [ false ] ifNotNil: [ aRio stat isDirectory ]
- !
Item was removed:
- ----- Method: FileExecutive class>>newDirectoryFrom: (in category 'as yet unclassified') -----
- newDirectoryFrom: aString
-
- ^ (self instanciatorFrom: aString) makeNew: self dirClass from: aString
- !
Item was removed:
- ----- Method: FileExecutive>>toDir:mkpathAll:relativeTo: (in category 'local/remote file copy') -----
- toDir: aDir mkpathAll: someFD relativeTo: aBaseDir
-
- "take the list of files and ensure that the directories exist, return sourceFile -> destFile map"
-
- ^ someFD
- collect: [ :aFileOrDir | Array with: aFileOrDir with: (self dir: aDir mkpath: aFileOrDir relativeTo: aBaseDir) ]
- thenSelect: [ :ea | ea first isFile ].
-
- !
Item was removed:
- ----- Method: FileExecutive>>fileSize: (in category 'testing') -----
- fileSize: aRio
-
- ^ aRio stat fileSize!
Item was removed:
- ----- Method: FileExecutive class>>pathDelimiter (in category 'as yet unclassified') -----
- pathDelimiter
-
- ^ '/'
- !
Item was removed:
- ----- Method: FileExecutive>>delete: (in category 'as yet unclassified') -----
- delete: aFileOrDir
-
- aFileOrDir isDirectory ifTrue: [ ^ aFileOrDir rmdir ].
- self deleteFile: aFileOrDir.!
Item was removed:
- ----- Method: FileExecutive class>>instanciatorFrom: (in category 'as yet unclassified') -----
- instanciatorFrom: aString
-
- | executiveClass |
-
- FileExecutive allSubclassesDo: [ :c | (c canInstanciateFrom: aString) ifTrue: [ executiveClass := c ]].
-
- ^ executiveClass ifNil: [ self default ]!
Item was removed:
- ----- Method: FileExecutive>>dirClass (in category 'as yet unclassified') -----
- dirClass
-
- ^ Smalltalk at: #Directory ifAbsent: [ FileKernel ]!
Item was removed:
- ----- Method: FileExecutive class>>fileStreamClass (in category 'as yet unclassified') -----
- fileStreamClass
-
- ^ FileStream concreteStream!
Item was removed:
- ----- Method: FileExecutive>>toDir:addAllLocal:relativeTo: (in category 'local/remote file copy') -----
- toDir: aDir addAllLocal: someFD relativeTo: aBaseDir
-
- ^ self toDirLocal: aDir addAllLocal: someFD relativeTo: aBaseDir.!
Item was removed:
- ----- Method: FileExecutive>>makeNewRioFromString: (in category 'as yet unclassified') -----
- makeNewRioFromString: aString
-
- ^ self fileClass executive: self value: aString !
Item was removed:
- ----- Method: FileExecutive>>mkdir: (in category 'as yet unclassified') -----
- mkdir: aRio
-
- aRio isDirectory ifTrue: [ ^ self error: 'directory already exists' ].
- self createDirectory: aRio !
Item was removed:
- ----- Method: FileExecutive class>>canInstanciateFrom: (in category 'as yet unclassified') -----
- canInstanciateFrom: aPathString
-
- "we return false, because we do not support any specific protocol"
-
- ^ false!
Item was removed:
- ----- Method: FileExecutive>>fileClass (in category 'as yet unclassified') -----
- fileClass
-
- ^ Smalltalk at: #File ifAbsent: [ FileKernel ]!
Item was removed:
- ----- Method: FileExecutive>>toDir:addAllRemote:relativeTo: (in category 'local/remote file copy') -----
- toDir: aDir addAllRemote: someFD relativeTo: aBaseDir
-
- ^ someFD first executive toDirLocal: aDir addAllRemote: someFD relativeTo: aBaseDir.!
Item was removed:
- ----- Method: FileExecutive class>>dirClass (in category 'as yet unclassified') -----
- dirClass
-
- ^ Smalltalk at: #Directory ifAbsent: [ FileKernel ]!
Item was removed:
- ----- Method: FileExecutive>>basicWriter: (in category 'as yet unclassified') -----
- basicWriter: aRio
-
- ^ self class fileStreamClass new open: aRio forWrite: true
- !
Item was removed:
- Object subclass: #FileExecutive
- instanceVariableNames: ''
- classVariableNames: ''
- poolDictionaries: ''
- category: 'File-Kernel'!
Item was removed:
- ----- Method: FileExecutive>>pathDelimiterChar (in category 'as yet unclassified') -----
- pathDelimiterChar
-
- ^ $/
- !
Item was removed:
- ----- Method: FileExecutive>>MCPasswordManager (in category 'case-sensitivity') -----
- MCPasswordManager
-
- ^ MCPasswordManager!
Item was removed:
- ----- Method: FileExecutive class>>default (in category 'as yet unclassified') -----
- default
-
- ^ FileLocalExecutive !
Item was removed:
- ----- Method: FileExecutive class>>fileClass (in category 'as yet unclassified') -----
- fileClass
-
- ^ Smalltalk at: #File ifAbsent: [ FileKernel ]!
Item was removed:
- ----- Method: FileExecutive>>importValue: (in category 'executive actions') -----
- importValue: path
-
- path isEmpty ifTrue: [ ^ '' ].
-
- (self isRoot: path) ifTrue: [ ^ self rootString ].
-
- (path last = self pathDelimiter first) ifTrue: [ ^ path allButLast ].
-
- ^path!
Item was removed:
- ----- Method: FileExecutive>>isFile: (in category 'as yet unclassified') -----
- isFile: aFileOrDirectory
-
- ^ (aFileOrDirectory stat ifNil: [ ^ false ]) isFile
- !
Item was removed:
- ----- Method: FileExecutive>>isFull: (in category 'as yet unclassified') -----
- isFull: aFileOrDirectory
-
- ^ aFileOrDirectory value beginsWith: self rootString!
Item was removed:
- ----- Method: FileExecutive>>rootString (in category 'as yet unclassified') -----
- rootString
-
- ^ self subclassResponsibility!
Item was removed:
- ----- Method: FileExecutive>>dir:mkpath:relativeTo: (in category 'as yet unclassified') -----
- dir: aDir mkpath: aFileOrDir relativeTo: aBaseDirectory
-
- | newFD |
-
- newFD := aBaseDirectory ifNil: [ aFileOrDir ]
- ifNotNil: [ aDir / (aFileOrDir linearRelativeTo: aBaseDirectory) ].
-
- aFileOrDir isDirectory ifTrue: [ newFD mkpath ].
- aFileOrDir isFile ifTrue: [ newFD parent mkpath ].
-
- ^ newFD
-
- !
Item was removed:
- ----- Method: FileExecutive>>hashFor: (in category 'equality') -----
- hashFor: aRio
-
- ^ aRio value hash!
Item was removed:
- ----- Method: FileExecutive>>is:sameAs: (in category 'equality') -----
- is: aRio sameAs: bRio
-
- ^ aRio value = bRio value!
Item was removed:
- ----- Method: FileExecutive>>in:select: (in category 'as yet unclassified') -----
- in: aDir select: selectBlock
-
- ^ self
- startAt: aDir
- recursively: aDir isRecursive
- select: selectBlock
- into: (OrderedCollection new: 50)
- !
Item was removed:
- ----- Method: FileExecutive>>arePathsCaseSensitive (in category 'case-sensitivity') -----
- arePathsCaseSensitive
-
- ^ (self is: $a sameAs: $A) not
-
- !
Item was removed:
- ----- Method: FileExecutive>>addAll:relativeTo:toDir: (in category 'local/remote file copy') -----
- addAll: someFD relativeTo: aBaseDir toDir: aDir
-
- ^ aDir executive toDir: aDir addAllLocal: someFD relativeTo: aBaseDir.!
Item was removed:
- ----- Method: FileExecutive class>>newFileFrom: (in category 'as yet unclassified') -----
- newFileFrom: aString
-
- ^ (self instanciatorFrom: aString) makeNew: self fileClass from: aString
- !
Item was removed:
- ----- Method: FileExecutive class>>OSProcessOrNil (in category 'as yet unclassified') -----
- OSProcessOrNil
-
- "extra check is needed because OSProcess on windows does not support waitForCommand (yet)"
-
- | osp |
-
- osp := Smalltalk at: #OSProcess ifAbsent: [ ^ nil ].
-
- ^ (osp thisOSProcess respondsTo: #waitForCommand:) ifTrue: [ osp ] ifFalse: [ nil ]
- !
Item was removed:
- ----- Method: FileExecutive>>fullFor: (in category 'as yet unclassified') -----
- fullFor: aFileOrDirectory
-
- "the absolute path of this rio, or if relative
- combine with #defaultDirectory to obtain the full path"
-
- aFileOrDirectory value isEmpty ifTrue: [ ^ self defaultDirectory ].
-
- (self isFull: aFileOrDirectory) ifTrue: [ ^ aFileOrDirectory ].
-
- ^ aFileOrDirectory newFrom: (self defaultDirectory value, self pathDelimiter, aFileOrDirectory value)!
More information about the Packages
mailing list