Packages November 2008

packages@lists.squeakfoundation.org

2 participants
66 discussions

Rio: File-Kernel-kph.1.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 13 Nov '08

13 Nov '08

A new version of File-Kernel was added to project Rio: http://www.squeaksource.com/Rio/File-Kernel-kph.1.mcz ==================== Summary ==================== Name: File-Kernel-kph.1 Author: kph Time: 13 November 2008, 2:18:54 am UUID: 48277d4e-9c33-4715-930d-51a96bc99cc0 Ancestors: first release of File version of Rio ==================== Snapshot ==================== SystemOrganization addCategory: #'File-Kernel'! ----- Method: StandardFileStream class>>retryWithGC:until:forFileNamed: (in category '*file-kernel-override') ----- retryWithGC: execBlock until: testBlock forFileNamed: fullName "Re-implemented to only force GC if a file with the given name exists" | blockValue foundIt | blockValue := execBlock value. (testBlock value: blockValue) ifTrue:[^blockValue]. "See if we have a file with the given name" foundIt := Registry keys "hold on strongly for now" anySatisfy:[:file| file name sameAs: fullName asString ]. foundIt ifFalse:[^blockValue]. Smalltalk garbageCollectMost. blockValue := execBlock value. (testBlock value: blockValue) ifTrue:[^blockValue]. Smalltalk garbageCollect. ^execBlock value.! ----- Method: StandardFileStream>>close (in category '*file-kernel-override') ----- close "Close this file." fileID ifNotNil: [ self primClose: fileID. self unregister. fileID := nil]. ^ name ! ----- Method: SocketStream>>copyTo: (in category '*file-kernel') ----- copyTo: out self isBinary ifTrue: [ out binary ]. [self atEnd] whileFalse: [ self receiveAvailableData. out nextPutAll: self nextAllInBuffer. ]. ! ----- Method: SocketStream>>copyTo:size:withProgress: (in category '*file-kernel') ----- copyTo: out size: size withProgress: label | barPos read | self isBinary ifTrue: [ out binary ]. label asString displayProgressAt: Sensor cursorPoint from: (barPos := 0) to: size during: [:bar | [self atEnd] whileFalse: [ bar value: barPos. self receiveAvailableData. out nextPutAll: (read := self nextAllInBuffer). barPos := barPos + read size ]. ].! ----- Method: String>>asDirectory (in category '*file-kernel') ----- asDirectory ^ FileKernel newDirectoryFrom: self! ----- Method: String>>asFile (in category '*file-kernel') ----- asFile ^ FileKernel newFileFrom: self! Object subclass: #FileDirStat instanceVariableNames: 'array dir' classVariableNames: '' poolDictionaries: '' category: 'File-Kernel'! !FileDirStat commentStamp: 'kph 3/8/2007 02:52' prior: 0! A RioDirEntry is a wrapper for the results of primLookup to be more user friendly. For example modification times are avalable as squeak DateAndTime instances. ! ----- Method: FileDirStat class>>in:array: (in category 'as yet unclassified') ----- in: dirRio array: theArray ^ self new setDir: dirRio array: theArray! ----- Method: FileDirStat>>cTime (in category 'as yet unclassified') ----- cTime ^ TimeStamp fromSeconds: self cTimeInSeconds! ----- Method: FileDirStat>>cTimeInSeconds (in category 'as yet unclassified') ----- cTimeInSeconds ^ array at: 2! ----- Method: FileDirStat>>creationTime (in category 'as yet unclassified') ----- creationTime ^ self cTime! ----- Method: FileDirStat>>dir (in category 'as yet unclassified') ----- dir ^ dir! ----- Method: FileDirStat>>fileName (in category 'as yet unclassified') ----- fileName ^array at: 1! ----- Method: FileDirStat>>fileSize (in category 'as yet unclassified') ----- fileSize ^ array at: 5! ----- Method: FileDirStat>>invalidate (in category 'as yet unclassified') ----- invalidate array := nil.! ----- Method: FileDirStat>>isDirectory (in category 'as yet unclassified') ----- isDirectory ^(array at: 4)! ----- Method: FileDirStat>>isFile (in category 'as yet unclassified') ----- isFile ^self isDirectory not! ----- Method: FileDirStat>>isInvalid (in category 'as yet unclassified') ----- isInvalid ^ dir isNil! ----- Method: FileDirStat>>isValid (in category 'as yet unclassified') ----- isValid ^ dir notNil! ----- Method: FileDirStat>>mTime (in category 'as yet unclassified') ----- mTime ^ TimeStamp fromSeconds: self mTimeInSeconds ! ----- Method: FileDirStat>>mTimeInSeconds (in category 'as yet unclassified') ----- mTimeInSeconds ^ array at: 3! ----- Method: FileDirStat>>modificationTime (in category 'as yet unclassified') ----- modificationTime ^ self mTime! ----- Method: FileDirStat>>rio (in category 'as yet unclassified') ----- rio ^ dir / self fileName! ----- Method: FileDirStat>>setDir:array: (in category 'as yet unclassified') ----- setDir: aDir array: data dir := aDir. array := data.! Object subclass: #FileExecutive instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'File-Kernel'! ----- Method: FileExecutive class>>canInstanciateFrom: (in category 'as yet unclassified') ----- canInstanciateFrom: aPathString "we return false, because we do not support any specific protocol" ^ false! ----- Method: FileExecutive class>>default (in category 'as yet unclassified') ----- default ^ FileLocalExecutive ! ----- Method: FileExecutive class>>dirClass (in category 'as yet unclassified') ----- dirClass ^ Smalltalk at: #Directory ifAbsent: [ FileKernel ]! ----- Method: FileExecutive class>>fileClass (in category 'as yet unclassified') ----- fileClass ^ Smalltalk at: #File ifAbsent: [ FileKernel ]! ----- Method: FileExecutive class>>fileStreamClass (in category 'as yet unclassified') ----- fileStreamClass ^ FileStream concreteStream! ----- 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 ]! ----- Method: FileExecutive class>>newDirectoryFrom: (in category 'as yet unclassified') ----- newDirectoryFrom: aString ^ (self instanciatorFrom: aString) makeNew: self dirClass from: aString ! ----- Method: FileExecutive class>>newFileFrom: (in category 'as yet unclassified') ----- newFileFrom: aString ^ (self instanciatorFrom: aString) makeNew: self fileClass from: aString ! ----- Method: FileExecutive class>>pathDelimiter (in category 'as yet unclassified') ----- pathDelimiter ^ '/' ! ----- Method: FileExecutive>>MCPasswordManager (in category 'case-sensitivity') ----- MCPasswordManager ^ MCPasswordManager! ----- Method: FileExecutive>>arePathsCaseSensitive (in category 'case-sensitivity') ----- arePathsCaseSensitive ^ (self is: $a sameAs: $A) not ! ----- Method: FileExecutive>>basicReader: (in category 'as yet unclassified') ----- basicReader: aFile ^ self class fileStreamClass new open: aFile forWrite: false! ----- Method: FileExecutive>>basicWriter: (in category 'as yet unclassified') ----- basicWriter: aRio ^ self class fileStreamClass new open: aRio forWrite: true ! ----- Method: FileExecutive>>delete: (in category 'as yet unclassified') ----- delete: aFileOrDir aFileOrDir isDirectory ifTrue: [ ^ aFileOrDir rmdir ]. self deleteFile: aFileOrDir.! ----- Method: FileExecutive>>dirClass (in category 'as yet unclassified') ----- dirClass ^ Smalltalk at: #Directory ifAbsent: [ FileKernel ]! ----- Method: FileExecutive>>fileClass (in category 'as yet unclassified') ----- fileClass ^ Smalltalk at: #File ifAbsent: [ FileKernel ]! ----- Method: FileExecutive>>fileSize: (in category 'testing') ----- fileSize: aRio ^ aRio stat fileSize! ----- 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)! ----- Method: FileExecutive>>hashFor: (in category 'equality') ----- hashFor: aRio ^ aRio value hash! ----- 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! ----- 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) ! ----- Method: FileExecutive>>is:sameAs: (in category 'equality') ----- is: aRio sameAs: bRio ^ aRio value = bRio value! ----- Method: FileExecutive>>isDirectory: (in category 'as yet unclassified') ----- isDirectory: aRio ^ aRio stat ifNil: [ false ] ifNotNil: [ aRio stat isDirectory ] ! ----- Method: FileExecutive>>isFile: (in category 'as yet unclassified') ----- isFile: aFileOrDirectory ^ (aFileOrDirectory stat ifNil: [ ^ false ]) isFile ! ----- Method: FileExecutive>>isFull: (in category 'as yet unclassified') ----- isFull: aFileOrDirectory ^ aFileOrDirectory value beginsWith: self rootString! ----- Method: FileExecutive>>isRoot: (in category 'testing') ----- isRoot: aRioOrString ^ aRioOrString value = self rootString! ----- Method: FileExecutive>>makeNewRioFromString: (in category 'as yet unclassified') ----- makeNewRioFromString: aString ^ self fileClass executive: self value: aString ! ----- Method: FileExecutive>>mkdir: (in category 'as yet unclassified') ----- mkdir: aRio aRio isDirectory ifTrue: [ ^ self error: 'directory already exists' ]. self createDirectory: aRio ! ----- Method: FileExecutive>>mkpath: (in category 'as yet unclassified') ----- mkpath: aRio aRio isDirectory ifTrue: [ ^self ]. aRio parent mkpath. self createDirectory: aRio. ! ----- Method: FileExecutive>>pathDelimiter (in category 'as yet unclassified') ----- pathDelimiter ^ '/' ! ----- Method: FileExecutive>>pathDelimiterChar (in category 'as yet unclassified') ----- pathDelimiterChar ^ $/ ! ----- Method: FileExecutive>>root (in category 'as yet unclassified') ----- root ^ self class makeNew: self class dirClass from: self rootString! ----- Method: FileExecutive>>rootString (in category 'as yet unclassified') ----- rootString ^ self subclassResponsibility! ----- Method: FileExecutive>>touch: (in category 'as yet unclassified') ----- touch: aRio aRio writer close! FileExecutive subclass: #FileLocalExecutive instanceVariableNames: 'rootString root defaultDirectory' classVariableNames: 'Current Test' poolDictionaries: '' category: 'File-Kernel'! !FileLocalExecutive commentStamp: 'kph 4/17/2007 19:25' prior: 0! Introducing the idea that Rio's exist in the context of their 'physical container', we have the RioLocalFileSystem as the primary container which provides the file system interface, also known as the 'executive'. On unix there is one executive for the whole system. On dos there is one executive per volume. This approach also supports the notion of files within archives and files on remote servers. On startup, having a formal model of the host filesystem allows us to keep a current and previous instance introducing the possibility for migrating Rio's on startup when the image has been moved. For example C:/ could be replaced with /mnt/hda1 thus attempting to make images properly portable. (experimental idea) ! FileLocalExecutive subclass: #FileLocalCaseInsensitiveExecutive instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'File-Kernel'! ----- Method: FileLocalCaseInsensitiveExecutive>>hashFor: (in category 'case-sensitivity') ----- hashFor: aRio ^ aRio value asLowercase hash! ----- Method: FileLocalCaseInsensitiveExecutive>>is:sameAs: (in category 'case-sensitivity') ----- is: aRio sameAs: bRio ^ (aRio value compare: bRio value caseSensitive: false) = 2! FileLocalCaseInsensitiveExecutive subclass: #FileLocalDosExecutive instanceVariableNames: '' classVariableNames: 'Volumes' poolDictionaries: '' category: 'File-Kernel'! !FileLocalDosExecutive commentStamp: 'kph 4/17/2007 19:19' prior: 0! The initial idea was to model things properly as a file within a named volume, on unix there would be one executive for the whole system. On dos there would be one executive per volume.! ----- Method: FileLocalDosExecutive class>>canInstanciateFrom: (in category 'as yet unclassified') ----- canInstanciateFrom: aString ^ (aString size > 1 and: [ aString second = $: ])! ----- Method: FileLocalDosExecutive class>>executiveForVolume: (in category 'as yet unclassified') ----- executiveForVolume: theRequestedRoot | requestedRoot | requestedRoot := theRequestedRoot. requestedRoot = nil ifTrue: [ requestedRoot := 'C:/' ]. ^ Volumes detect: [ :i | i isRoot: requestedRoot ] ifNone: [ Volumes add: (self class basicNew setRootString: requestedRoot; setDefault: nil; yourself) ]! ----- Method: FileLocalDosExecutive class>>initializeVolumes (in category 'as yet unclassified') ----- initializeVolumes Volumes := Set new ! ----- Method: FileLocalDosExecutive class>>makeNew:from: (in category 'as yet unclassified') ----- makeNew: aClass from: str | rioDrive exec | rioDrive := nil. (str size > 1) ifTrue: [ (str second = $:) ifTrue: [ rioDrive := (str first: 2) , self pathDelimiter ]. ]. exec := self executiveForVolume: rioDrive. ^ aClass executive: exec value: str! ----- Method: FileLocalDosExecutive class>>pathDelimiter (in category 'as yet unclassified') ----- pathDelimiter ^ '\' ! ----- Method: FileLocalDosExecutive>>drive (in category 'accessing') ----- drive ^ self rootString first: 2! ----- Method: FileLocalDosExecutive>>driveLetter (in category 'accessing') ----- driveLetter ^ self rootString first! ----- Method: FileLocalDosExecutive>>executiveForVolume: (in category 'accessing') ----- executiveForVolume: requestedRoot ^ Volumes detect: [ :i | i isRoot: requestedRoot ] ifNone: [ Volumes add: (self class basicNew setRootString: requestedRoot; setDefault: nil; yourself) ]! ----- Method: FileLocalDosExecutive>>fullFor: (in category 'as yet unclassified') ----- fullFor: aRio "the absolute path of this rio (with the current volume drive prepended), or if relative combine with #defaultDirectory to obtain the full path" aRio value isEmpty ifTrue: [ ^ self defaultDirectory ]. (self isFull: aRio) ifTrue: [ ^ aRio ]. "if we are an absolute path, prepend the volume" aRio value first = self pathDelimiterChar ifTrue: [ ^ aRio newFrom: (self drive, aRio value) ]. ^ aRio newFrom: (self defaultDirectory value, self pathDelimiter, aRio value)! ----- Method: FileLocalDosExecutive>>getTempDirectory (in category 'as yet unclassified') ----- getTempDirectory ^ self dirClass new: 'C:\WINDOWS\TEMP\'! ----- Method: FileLocalDosExecutive>>importValue: (in category 'as yet unclassified') ----- importValue: aPath ^ super importValue: (aPath copy replaceAll: $/ with: $\).! ----- Method: FileLocalDosExecutive>>initializeDefault (in category 'as yet unclassified') ----- initializeDefault self setRootString: (self primImagePath first: 3); setDefault: self getDefaultDirectory. Volumes add: self.! ----- Method: FileLocalDosExecutive>>isRoot: (in category 'as yet unclassified') ----- isRoot: aRioOrString aRioOrString value size = self rootString size ifTrue: [ ^ super isRoot: aRioOrString ]. ^ (aRioOrString value, self pathDelimiter) = self rootString! ----- Method: FileLocalDosExecutive>>makeNewFrom: (in category 'fs migration') ----- makeNewFrom: aString | rioDrive exec str | str := aString. exec := self. (aString size > 1) ifTrue: [ rioDrive := rootString. (str second = $:) ifTrue: [ rioDrive := (str first: 2) , self pathDelimiter ]. rioDrive ~= rootString ifTrue: [ exec := self executiveForVolume: rioDrive ]. ]. ^ exec fileClass executive: exec value: str! ----- Method: FileLocalDosExecutive>>makeNewRioFrom: (in category 'fs migration') ----- makeNewRioFrom: aString | rioDrive exec str | str := aString. exec := self. (aString size > 1) ifTrue: [ rioDrive := rootString. (str second = $:) ifTrue: [ rioDrive := (str first: 2) , self pathDelimiter ]. rioDrive ~= rootString ifTrue: [ exec := self executiveForVolume: rioDrive ]. ]. ^ exec fileClass executive: exec value: str! ----- Method: FileLocalDosExecutive>>migrateFromLocalDosFileSystem: (in category 'fs migration todo') ----- migrateFromLocalDosFileSystem: nfs "could do something here" ^ nfs ! ----- Method: FileLocalDosExecutive>>migrateFromLocalFileSystem: (in category 'fs migration') ----- migrateFromLocalFileSystem: nfs ^ self ! ----- Method: FileLocalDosExecutive>>migrateToLocalDosFileSystem: (in category 'fs migration') ----- migrateToLocalDosFileSystem: old ^ self! ----- Method: FileLocalDosExecutive>>pathDelimiter (in category 'as yet unclassified') ----- pathDelimiter ^ '\' ! ----- Method: FileLocalDosExecutive>>pathDelimiterChar (in category 'as yet unclassified') ----- pathDelimiterChar ^ $\ ! ----- Method: FileLocalExecutive class>>current (in category 'accessing current') ----- current ^ Test ifNil: [ Current ] ! ----- Method: FileLocalExecutive class>>initialize (in category 'class initialization') ----- initialize Smalltalk addToStartUpList: self after: Delay. FileLocalDosExecutive initializeVolumes. Current := self newForThisPlatform. Current initializeDefault. ! ----- Method: FileLocalExecutive class>>makeNew:from: (in category 'as yet unclassified') ----- makeNew: aClass from: aString ^ aClass executive: self current value: aString ! ----- Method: FileLocalExecutive class>>maxFileNameLengthOnDOS (in category 'image start up ') ----- maxFileNameLengthOnDOS ^ 8! ----- Method: FileLocalExecutive class>>maxFileNameLengthOnMacOS (in category 'image start up ') ----- maxFileNameLengthOnMacOS ^ 31! ----- Method: FileLocalExecutive class>>maxFileNameLengthOnRiscOS (in category 'image start up ') ----- maxFileNameLengthOnRiscOS ^ 255! ----- Method: FileLocalExecutive class>>maxFileNameLengthOnUnix (in category 'image start up ') ----- maxFileNameLengthOnUnix ^ 255! ----- Method: FileLocalExecutive class>>maxFileNameLengthOnWin32 (in category 'image start up ') ----- maxFileNameLengthOnWin32 ^ 255! ----- Method: FileLocalExecutive class>>newForDOS (in category 'image start up ') ----- newForDOS ^ FileLocalDosExecutive new! ----- Method: FileLocalExecutive class>>newForMacOS (in category 'image start up ') ----- newForMacOS ^ FileLocalCaseInsensitiveExecutive new! ----- Method: FileLocalExecutive class>>newForRiscOS (in category 'image start up ') ----- newForRiscOS ^ FileLocalExecutive new! ----- Method: FileLocalExecutive class>>newForThisPlatform (in category 'image start up ') ----- newForThisPlatform ^ self perform: ('newFor', self platform) asSymbol! ----- Method: FileLocalExecutive class>>newForUnix (in category 'image start up ') ----- newForUnix ^ FileLocalExecutive! ----- Method: FileLocalExecutive class>>newForWin32 (in category 'image start up ') ----- newForWin32 ^ FileLocalDosExecutive! ----- Method: FileLocalExecutive class>>performStartUpMigration (in category 'image start up ') ----- performStartUpMigration | old | old := self current. Current := self newForThisPlatform. Current initializeDefault. old migrateFileSystemTo: Current! ----- Method: FileLocalExecutive class>>platform (in category 'image start up ') ----- platform ^ SmalltalkImage current platformName asLegalSelector capitalized! ----- Method: FileLocalExecutive class>>startUp: (in category 'image start up ') ----- startUp: resuming resuming ifFalse: [ ^self ]. self performStartUpMigration.! ----- Method: FileLocalExecutive class>>testEnd (in category 'image start up ') ----- testEnd Test := nil! ----- Method: FileLocalExecutive class>>testFileSystem: (in category 'image start up ') ----- testFileSystem: fs ^ Test := fs! ----- Method: FileLocalExecutive>>createDirectory: (in category 'executive actions') ----- createDirectory: aRio ^ self primCreateDirectory: aRio asVmPathName ! ----- Method: FileLocalExecutive>>defaultDirectory (in category 'accessing') ----- defaultDirectory ^ defaultDirectory! ----- Method: FileLocalExecutive>>deleteDirectory: (in category 'executive actions') ----- deleteDirectory: aDir self primDeleteDirectory: aDir asVmPathName. aDir statIsNowInvalid! ----- Method: FileLocalExecutive>>deleteFile: (in category 'executive actions') ----- deleteFile: aRio "Delete the file of the given name if it exists. If the first deletion attempt fails do a GC to force finalization of any lost references. ar 3/21/98 17:53" self retryWithGC: [ self primDeleteFileNamed: aRio asVmPathName ] until:[:result| result notNil] forFileNamed: aRio. aRio statIsNowInvalid! ----- Method: FileLocalExecutive>>errorMustBeInSameFileSystem: (in category 'errors') ----- errorMustBeInSameFileSystem: aDirectory ^ self error: 'Must be in same file system', aDirectory, ',', self printString! ----- Method: FileLocalExecutive>>errorUnableToDeleteDir: (in category 'errors') ----- errorUnableToDeleteDir: fullPath | entries | entries := fullPath asDirectory entries. ^ self error: 'unable to delete directory: ', fullPath, ((entries size >0) ifTrue: [' (not empty)'] ifFalse: ['']). ! ----- Method: FileLocalExecutive>>getDefaultDirectory (in category 'executive actions') ----- getDefaultDirectory ^ (Preferences startInUntrustedDirectory ifTrue: [ self untrustedDirectory mkpath ] ifFalse: [ self getImageDirectory ] )! ----- Method: FileLocalExecutive>>getImageDirectory (in category 'executive actions') ----- getImageDirectory ^ (self dirClass executive: self value: self primImagePath) parent ! ----- Method: FileLocalExecutive>>getMacFileTypeAndCreator: (in category 'executive actions') ----- getMacFileTypeAndCreator: aRio | results typeString creatorString | "get the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4. Does nothing on other platforms (where the underlying primitive is a noop)." "FileDirectory default getMacFileNamed: 'foo'" typeString := ByteArray new: 4 withAll: ($? asInteger). creatorString := ByteArray new: 4 withAll: ($? asInteger). [self primGetMacFileNamed: aRio asVmPathName type: typeString creator: creatorString.] ensure: [typeString := typeString asString. creatorString := creatorString asString]. results := Array with: typeString convertFromSystemString with: creatorString convertFromSystemString. ^results ! ----- Method: FileLocalExecutive>>getTempDirectory (in category 'executive actions') ----- getTempDirectory ^ self dirClass new: '/tmp'! ----- Method: FileLocalExecutive>>initializeDefault (in category 'executive actions') ----- initializeDefault self setRootString: self pathDelimiter; setDefault: self getDefaultDirectory! ----- Method: FileLocalExecutive>>isDirectory: (in category 'executive actions') ----- isDirectory: aRio ^ #badDirectoryPath ~= (self primLookupEntryIn: aRio full value index: 1) ! ----- Method: FileLocalExecutive>>linearRelativeTo: (in category 'executive actions') ----- linearRelativeTo: aDirectory self ~= aDirectory executive ifTrue: [ ^ self errorMustBeInSameFileSystem: aDirectory ]. ^ self root! ----- Method: FileLocalExecutive>>maxFileNameLength (in category 'misc') ----- maxFileNameLength ^ (self class respondsTo: #maxFileNameLength) ifTrue: [ self class maxFileNameLength ] ifFalse: [ self class perform: ('maxFileNameLengthOn', self class platform) asSymbol ]! ----- Method: FileLocalExecutive>>migrateFileSystemTo: (in category 'fs migration') ----- migrateFileSystemTo: next ^ next migrateFromLocalFileSystem: self ! ----- Method: FileLocalExecutive>>migrateFromLocalDosFileSystem: (in category 'fs migration') ----- migrateFromLocalDosFileSystem: nfs "could do something here" ^ self ! ----- Method: FileLocalExecutive>>migrateFromLocalFileSystem: (in category 'fs migration') ----- migrateFromLocalFileSystem: nfs ^ nfs ! ----- Method: FileLocalExecutive>>primCreateDirectory: (in category 'primitives') ----- primCreateDirectory: fullPath "Create a directory named by the given path. Fail if the path is bad or if a file or directory by that name already exists." <primitive: 'primitiveDirectoryCreate' module: 'FilePlugin'> self primitiveFailed! ----- Method: FileLocalExecutive>>primDeleteDirectory: (in category 'primitives') ----- primDeleteDirectory: fullPath "Delete the directory named by the given path. Raise an error if the path is bad or if a directory by that name does not exist." <primitive: 'primitiveDirectoryDelete' module: 'FilePlugin'> ^ self errorUnableToDeleteDir: fullPath ! ----- Method: FileLocalExecutive>>primDeleteFileNamed: (in category 'primitives') ----- primDeleteFileNamed: aFileName "Delete the file of the given name. Return self if the primitive succeeds, nil otherwise." <primitive: 'primitiveFileDelete' module: 'FilePlugin'> ^ nil ! ----- Method: FileLocalExecutive>>primGetMacFileNamed:type:creator: (in category 'primitives') ----- primGetMacFileNamed: fileName type: typeString creator: creatorString "Get the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4. This primitive is Mac specific; it is a noop on other platforms." <primitive: 'primitiveDirectoryGetMacTypeAndCreator' module: 'FilePlugin'> ! ----- Method: FileLocalExecutive>>primImagePath (in category 'primitives') ----- primImagePath "Answer the full path name for the current image." "self new primImagePath" <primitive: 121> self primitiveFailed! ----- Method: FileLocalExecutive>>primLookupEntryIn:index: (in category 'primitives') ----- primLookupEntryIn: fullPath index: index "Look up the index-th entry of the directory with the given fully-qualified path (i.e., starting from the root of the file hierarchy) and return an array containing: <name> <creationTime in seconds since squeak epoch> <modificationTime> <dirFlag (dir is true)> <fileSize in bytes> The empty string enumerates the top-level files or drives. (For example, on Unix, the empty path enumerates the contents of '/'. On Macs and PCs, it enumerates the mounted volumes/drives.) Returns nil when index is past the end of the directory. Fails if the given path is bad." <primitive: 'primitiveDirectoryLookup' module: 'FilePlugin'> ^ #badDirectoryPath ! ----- Method: FileLocalExecutive>>primPathNameDelimiter (in category 'primitives') ----- primPathNameDelimiter "Return the path delimiter for the underlying platform's file system." <primitive: 'primitiveDirectoryDelimitor' module: 'FilePlugin'> self primitiveFailed ! ----- Method: FileLocalExecutive>>primRename:to: (in category 'primitives') ----- primRename: oldFileFullName to: newFileFullName "Rename the file of the given name to the new name. Fail if there is no file of the old name or if there is an existing file with the new name. Changed to return nil instead of failing ar 3/21/98 18:04" <primitive: 'primitiveFileRename' module: 'FilePlugin'> ^nil! ----- Method: FileLocalExecutive>>primSetMacFileNamed:type:creator: (in category 'primitives') ----- primSetMacFileNamed: fileName type: typeString creator: creatorString "Set the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4. This primitive is Mac specific; it is a noop on other platforms." <primitive: 'primitiveDirectorySetMacTypeAndCreator' module: 'FilePlugin'> self primitiveFailed ! ----- Method: FileLocalExecutive>>primVmPath (in category 'primitives') ----- primVmPath "Answer the path for the directory containing the Smalltalk virtual machine. Return the empty string if this primitive is not implemented." "Rio primVmPath" <primitive: 142> ^ ''! ----- Method: FileLocalExecutive>>printId (in category 'printing') ----- printId ^ rootString! ----- Method: FileLocalExecutive>>printOn: (in category 'printing') ----- printOn: str super printOn: str. str nextPut: $(; nextPutAll: self printId; nextPut: $).! ----- Method: FileLocalExecutive>>rename:to: (in category 'executive actions') ----- rename: aRio to: bRio (self retryWithGC:[ self primRename: aRio asVmPathName to: bRio asVmPathName ] until:[:result| result notNil] forFileNamed: aRio) ~~ nil ifTrue:[ aRio statIsNowInvalid. ^ bRio ]. aRio exists ifFalse:[ ^ self error:'Attempt to rename a non-existent file:' , aRio]. bRio exists ifTrue:[ ^self error: 'Failed to rename, ', bRio,' already exists.' ].! ----- Method: FileLocalExecutive>>retryWithGC:until:forFileNamed: (in category 'utilities') ----- retryWithGC: execBlock until: okBlock forFileNamed: aRio ^ StandardFileStream retryWithGC: execBlock until: okBlock forFileNamed: aRio! ----- Method: FileLocalExecutive>>rootString (in category 'accessing') ----- rootString ^ rootString! ----- Method: FileLocalExecutive>>set:macType:creator: (in category 'executive actions') ----- set: aRio macType: typeString creator: creatorString "Set the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4." self primSetMacFileNamed: aRio asVmPathName type: typeString convertToSystemString creator: creatorString convertToSystemString.! ----- Method: FileLocalExecutive>>setDefault: (in category 'executive actions') ----- setDefault: d defaultDirectory := d! ----- Method: FileLocalExecutive>>setRootString: (in category 'executive actions') ----- setRootString: aString rootString := aString. ! ----- Method: FileLocalExecutive>>startAt:recursively:select:into: (in category 'executive actions') ----- startAt: aDir recursively: beRecursive select: selectBlock into: results "Return a collection of rio's selected by passing the directoryEntry array to the selectBlock. The KernelRio implemetation of setStatFromEntryArray: does not populate these rios with stat data. Rio's more verbose implementation does. This can be called with startAt: aString, but if so beRecursive must be false. See primLookupEntryIn:index: for further details." | index entryArray entry isDir | index := 1. [ (entryArray := self primLookupEntryIn: aDir asVmPathName index: index) notNil ] whileTrue: [ #badDirectoryPath = entryArray ifTrue: [ ^ results "(InvalidDirectoryError pathName: aDir value) signal" ]. isDir := entryArray at: 4. (entry := aDir / (entryArray at: 1)) setStatFromDir: aDir andEntryArray:entryArray. isDir ifFalse: [ entry := entry asFile ]. (selectBlock value: entry) ifTrue: [ results add: entry ]. (beRecursive and: [ isDir ]) ifTrue: [ self startAt: entry recursively: beRecursive select: selectBlock into: results ]. index := index + 1 ]. ^ results! ----- Method: FileLocalExecutive>>tempDirectory (in category 'executive actions') ----- tempDirectory ^ self dirClass new: '/tmp'! ----- Method: FileLocalExecutive>>untrustedDirectory (in category 'executive actions') ----- untrustedDirectory ^ self dirClass new: (SecurityManager default primUntrustedUserDirectory) ! Object subclass: #FileKernel instanceVariableNames: 'executive value stat' classVariableNames: 'TestFileSystem' poolDictionaries: '' category: 'File-Kernel'! !FileKernel commentStamp: 'kph 11/2/2008 22:50' prior: 0! The minimum Rio functionality required to support a kernel image is implemented here, thus making the rest of rio unloadable. Recursive querying via #select: is available however the selectBlock is passed a raw entryArray, rather than a RioStat instance. This is not intended to be used extensively but is needed as a minimum for #isFile/#isDirectory. If either #reader or #writer should fail RioKernel returns a nil, A functionally complete interface to the parts of the fileName is available as follows: getter - splitToBaseVersionAndExt: [ :b :v :e | ] setter - #base: <nil or newName> version: <nil or newVersion> ext: <nil or new ext> Interface for file versions is available via: #versions - returns a SortedCollection of the version numbers available for this rio #latestVersion - returns a rio for the latest version of the current rio in the versions list #nextVersion - returns a rio for the latest + 1 version of the current rio. Rio's may be included in the concatenation of strings RioKernel file copyTo: does a binary stream to stream copy, without a progress bar. Rio's file copyTo: honours the setting of the Rio's binary mode, and displays a progress bar. instVars --------- value - internal (to Rio) holds the path! ----- Method: FileKernel class>>defaultExecutive (in category 'as yet unclassified') ----- defaultExecutive ^ FileExecutive default! ----- Method: FileKernel class>>executive:value: (in category 'as yet unclassified') ----- executive: e value: v ^ self basicNew setExecutive: e value: v! ----- Method: FileKernel class>>fileStreamClass (in category 'as yet unclassified') ----- fileStreamClass ^ FileStream concreteStream! ----- Method: FileKernel class>>initialize (in category 'as yet unclassified') ----- initialize TestFileSystem := nil! ----- Method: FileKernel class>>new (in category 'as yet unclassified') ----- new ^ self new: '' ! ----- Method: FileKernel class>>new: (in category 'as yet unclassified') ----- new: aPathOrFile "the preferred generic instanciation method, will call the correct specific instanciation method on the correct class" (aPathOrFile isKindOf: FileKernel) ifTrue: [ ^ aPathOrFile copy ]. ^ self defaultExecutive current class newDirectoryFrom: aPathOrFile! ----- Method: FileKernel class>>newDirectoryFrom: (in category 'as yet unclassified') ----- newDirectoryFrom: aPath ^ self defaultExecutive current class newDirectoryFrom: aPath! ----- Method: FileKernel class>>newFileFrom: (in category 'as yet unclassified') ----- newFileFrom: aPath ^ self defaultExecutive current class newFileFrom: aPath! ----- Method: FileKernel class>>thisImage (in category 'as yet unclassified') ----- thisImage ^ self new: self defaultExecutive current primImagePath.! ----- Method: FileKernel>>/ (in category 'as yet unclassified') ----- / morePath ^ self newFrom: (self pathJoin: morePath)! ----- Method: FileKernel>>= (in category 'comparison+legacy enabling') ----- = aRioAble ^ executive is: self sameAs: aRioAble asFile! ----- Method: FileKernel>>asDirectory (in category 'coercing') ----- asDirectory ^ self! ----- Method: FileKernel>>asFile (in category 'coercing') ----- asFile ^ self! ----- Method: FileKernel>>asPath (in category 'coercing') ----- asPath ^ self! ----- Method: FileKernel>>asSqueakPathName (in category 'comparison+legacy enabling') ----- asSqueakPathName "permits a rio to be handed right into open:forWrite:" ^ self full value! ----- Method: FileKernel>>asString (in category 'coercing') ----- asString ^ value! ----- Method: FileKernel>>asVmPathName (in category 'comparison+legacy enabling') ----- asVmPathName "permits a rio to be handed right into open:forWrite:" ^ self full value ! ----- Method: FileKernel>>at: (in category 'comparison+legacy enabling') ----- at: n "this is purely to enable Rio's to be concatenated with strings" ^ self value at: n! ----- Method: FileKernel>>base:version:ext: (in category 'accessing') ----- base: newBase version: newVersion ext: newExt "only changes non nil values" | base version ext | self splitToBaseVersionAndExt: [ :b :v :e | base := newBase ifNil: [ b ]. version := newVersion ifNil: [ v ]. ext := newExt ifNil: [ e ]. ]. self fileName: (String streamContents: [ :str | str nextPutAll: base. version = 0 ifFalse: [ str nextPut: $. ; nextPutAll: version asString ]. ext notEmpty ifTrue: [ str nextPut: $.; nextPutAll: ext ] ]). ! ----- Method: FileKernel>>basicReader (in category 'public file') ----- basicReader ^ executive basicReader: self! ----- Method: FileKernel>>basicWriter (in category 'public file') ----- basicWriter ^ executive basicWriter: self! ----- Method: FileKernel>>copyTo: (in category 'file copy') ----- copyTo: aPathOrFile | in out | self validateIsFile. (in := self reader) binary copyTo: (out := aPathOrFile asFile writer) binary. out close. in close. ^ aPathOrFile asFile ! ----- Method: FileKernel>>entries (in category 'enumeration') ----- entries ^ self select: [:e | true ]! ----- Method: FileKernel>>executive (in category 'accessing') ----- executive ^ executive ! ----- Method: FileKernel>>executive: (in category 'accessing') ----- executive: aSystem executive := aSystem! ----- Method: FileKernel>>exists (in category 'testing') ----- exists ^ self isDirectory or: [ self isFile ]! ----- Method: FileKernel>>fileName (in category 'accessing') ----- fileName ^ stat ifNotNil: [ stat fileName ] ifNil: [ self splitToPathAndName: [ :path :n | n ] ] ! ----- Method: FileKernel>>fileName: (in category 'accessing') ----- fileName: newFileName self splitToPathAndName: [ :dirPath :fileName | value := executive importValue: ((self newFrom: dirPath) pathJoin: newFileName) asString ].! ----- Method: FileKernel>>findTokens: (in category 'comparison+legacy enabling') ----- findTokens: t "this method enables Rio to be passed into a MultiByteFileStream just as a string, it is not needed in 3.9+" ^ self asString findTokens: t! ----- Method: FileKernel>>full (in category 'accessing') ----- full ^ executive fullFor: self! ----- Method: FileKernel>>hash (in category 'as yet unclassified') ----- hash ^ executive hashFor: self! ----- Method: FileKernel>>isDirectory (in category 'testing') ----- isDirectory ^ executive isDirectory: self ! ----- Method: FileKernel>>isEmpty (in category 'coercing') ----- isEmpty ^ value isEmpty! ----- Method: FileKernel>>isFile (in category 'testing') ----- isFile ^ executive isFile: self! ----- Method: FileKernel>>isFileKernel (in category 'testing') ----- isFileKernel ^true! ----- Method: FileKernel>>isFileKernelInstance (in category 'testing') ----- isFileKernelInstance ^true! ----- Method: FileKernel>>isRecursive (in category 'testing') ----- isRecursive ^ false! ----- Method: FileKernel>>isRoot (in category 'testing') ----- isRoot ^ executive isRoot: self! ----- Method: FileKernel>>latestVersion (in category 'versions') ----- latestVersion ^ self copy base: nil version: (self versions last) ext: nil! ----- Method: FileKernel>>newFrom: (in category 'as yet unclassified') ----- newFrom: pathOrFileOrDirectory ^ self class executive: executive value: pathOrFileOrDirectory! ----- Method: FileKernel>>nextVersion (in category 'versions') ----- nextVersion "the next non-exisiting version (self if none)" ^ self copy base: nil version: ((self versions ifEmpty: [ ^ self ]) last + 1) ext: nil! ----- Method: FileKernel>>parent (in category 'accessing') ----- parent "note that the parent of root is the file system 'executive' " ^self isRoot ifTrue: [ executive ] ifFalse: [ executive dirClass executive: executive value: self full path ] ! ----- Method: FileKernel>>path (in category 'accessing') ----- path ^ self splitToPathAndName: [ :path :n | path ].! ----- Method: FileKernel>>pathJoin: (in category 'private') ----- pathJoin: morePath (executive isRoot: value) ifTrue: [ ^ value , morePath asString ]. ^value isEmpty ifTrue: [ morePath asString ] ifFalse: [ self value, executive pathDelimiter, morePath asString ]. ! ----- Method: FileKernel>>printOn: (in category 'printing') ----- printOn: str str << $( << self class name << ' new: ''' << value << ''')' ! ----- Method: FileKernel>>reader (in category 'public file') ----- reader ^ self basicReader! ----- Method: FileKernel>>sameAs: (in category 'testing') ----- sameAs: aFileAble ^ executive is: self sameAs: aFileAble asFile! ----- Method: FileKernel>>select: (in category 'enumeration') ----- select: selectBlock "select: returns an empty result if the rio is not a valid directory." ^ executive in: self select: selectBlock! ----- Method: FileKernel>>setExecutive:value: (in category 'as yet unclassified') ----- setExecutive: e value: aRef "create a fully initialized rio" executive := e. self value: aRef. ^ self ! ----- Method: FileKernel>>setMacType:creator: (in category 'as yet unclassified') ----- setMacType: typeString creator: creatorString "Set the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4." executive set: self macType: typeString creator: creatorString! ----- Method: FileKernel>>setStatFromDir:andEntryArray: (in category 'accessing') ----- setStatFromDir: dir andEntryArray: a stat := FileDirStat in: dir array: a ! ----- Method: FileKernel>>size (in category 'as yet unclassified') ----- size "size returns the path length, this is to enable Rio's to be concatenated with strings" ^ self value size! ----- Method: FileKernel>>splitToBaseVersionAndExt: (in category 'accessing') ----- splitToBaseVersionAndExt: block | fileName version ext period | fileName := self fileName. period := fileName lastIndexOf: $.. ((period <=1) | (period = fileName size)) ifTrue: [ ^ block value: fileName value: 0 value: '' ]. ext := fileName copyFrom: (period + 1) to: fileName size. fileName := fileName copyFrom: 1 to: period - 1. period := fileName lastIndexOf: $. ifAbsent: [ ^ block value: fileName value: 0 value: ext ]. version := fileName copyFrom: period + 1 to: fileName size. version do: [ :char | char isDigit ifFalse: [ ^ block value: fileName value: 0 value: ext ]]. version := version asInteger. fileName := fileName copyFrom: 1 to: period - 1. ^ block value: fileName value: version value: ext ! ----- Method: FileKernel>>splitToPathAndName: (in category 'as yet unclassified') ----- splitToPathAndName: pathAndNameBlock "Take the path and convert it to the path name of a directory and a local file name within that directory. FileName must be of the form: <dirPath><delimiter><localName>, where <dirPath><delimiter> is optional. The <dirPath> part may contain delimiters." | i dirName localName fullName | fullName := self value. i := fullName lastIndexOf: executive pathDelimiterChar. i == 0 ifTrue: [ ^ pathAndNameBlock value: '' value: fullName ]. dirName := fullName copyFrom: 1 to: (i - 1 max: 1). localName := fullName copyFrom: i + 1 to: fullName size. ^ pathAndNameBlock value: dirName value: localName! ----- Method: FileKernel>>stat (in category 'stat') ----- stat | full | (stat notNil and: [ stat isValid ]) ifTrue: [ ^ stat ]. full := self full. (Directory executive: executive value: full path) select: [ :e | e = full ifTrue: [ ^ stat ifNil: [ e stat ] ifNotNil: [ stat copyFrom: e stat. ] ]. false. ]. ^ stat := nil. ! ----- Method: FileKernel>>statIsNowInvalid (in category 'stat') ----- statIsNowInvalid "All rios copyied from this one, share a stat instance if it exists. Invalidating that instance means that this and all such derived rios, will refresh their stat when needed." stat ifNotNil: [ stat invalidate ]. ! ----- Method: FileKernel>>validateIsDirectory (in category 'validation & errors') ----- validateIsDirectory self isDirectory ifFalse: [ ^self error: 'not a directory at: ', self value ]. ! ----- Method: FileKernel>>validateIsFile (in category 'validation & errors') ----- validateIsFile self isFile ifFalse: [ ^self error: 'file not readable at: ', self value ]. ! ----- Method: FileKernel>>value (in category 'private') ----- value ^ value ! ----- Method: FileKernel>>value: (in category 'as yet unclassified') ----- value: aStringable value := executive importValue: aStringable asString. ! ----- Method: FileKernel>>versions (in category 'versions') ----- versions | versions | versions := SortedCollection new. self splitToBaseVersionAndExt: [ :myB :myV :myE | self parent entries select: [ :each | each splitToBaseVersionAndExt: [ :eachB :eachV :eachE | ((eachB = myB) and: [ eachE = myE ]) ifTrue: [ versions add: eachV ] . false. ] ] ]. ^ versions! ----- Method: FileKernel>>writer (in category 'public file') ----- writer ^ self basicWriter! ----- Method: Collection>>ifEmpty: (in category '*file-kernel-override') ----- ifEmpty: aBlock self isEmpty ifTrue: [ ^ aBlock value ] ! ----- Method: PositionableStream>>copyTo: (in category '*file-kernel') ----- copyTo: out | buffer first | self atEnd ifTrue: [ ^ self ]. first := self next. buffer := (first isCharacter ifTrue: [ String ] ifFalse: [ out binary. ByteArray ]) new: 50000. out nextPut: first. [self atEnd] whileFalse: [out nextPutAll: (self nextInto: buffer)]. ! ----- Method: PositionableStream>>size (in category '*file-kernel') ----- size ^ readLimit!

1 0

Packages: Sake-SqueakMap-kph.4.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 12 Nov '08

12 Nov '08

A new version of Sake-SqueakMap was added to project Packages: http://www.squeaksource.com/Packages/Sake-SqueakMap-kph.4.mcz ==================== Summary ==================== Name: Sake-SqueakMap-kph.4 Author: kph Time: 12 November 2008, 5:01:22 pm UUID: e9d9a270-f6d0-4eb6-8548-3d99f23a1b7c Ancestors: Sake-SqueakMap-kph.3 regenerated =============== Diff against Sake-SqueakMap-kph.3 =============== Item was changed: ----- Method: PackagesSqueakMapData>>KoreanLanguageEnvironment: (in category 'K') ----- KoreanLanguageEnvironment: aVersion self name: 'KoreanLanguageEnvironment'. self version: aVersion. info summary: 'organize the Korean Language Environment in Squeak'. info author: 'YunJae, Jang <janggoons(a)gmail.com>'. info owner: 'Yun Jae, Jang'. info created: '22 September 2008 11:55:42 pm'. + info updated: '10 November 2008 2:21:46 am'. - info updated: '22 September 2008 11:55:42 pm'. info description: ''. info versions: { + { + #version -> 'KoreanLanguageEnvironment-beta'. + #created -> '7 November 2008 2:32:19 am'. + #updated -> '7 November 2008 2:32:19 am'. + #categories -> #('Squeak3.10' 'Code changes, but only internal' 'SqueakL + MIT' 'Beta'). + #id -> '085b4c70-af83-4360-b2b0-7b8da70342b4'. + #publisher -> 'Yun Jae, Jang'. + #url ->'http://map.squeak.org/accountbyid/e52f1f99-f9d2-4529-9664-126951af76df/file…'. + }. + { + #version -> 'KoreanLanguageEnvironment-beta-3'. + #created -> '5 November 2008 1:45:43 am'. + #updated -> '5 November 2008 1:45:43 am'. + #categories -> #('Translation' 'Code changes, but only internal' 'Squeak3.10' 'SqueakL' 'SqueakL + MIT' 'Beta'). + #id -> 'ced57f22-6762-4dee-84bb-e864b96e43cf'. + #publisher -> 'Yun Jae, Jang'. + #url ->'http://map.squeak.org/accountbyid/e52f1f99-f9d2-4529-9664-126951af76df/file…'. + }. { #version -> 'KoreanLanguageEnvironment-beta-2'. #created -> '28 October 2008 7:25:12 am'. #updated -> '28 October 2008 11:18:26 pm'. #categories -> #('SqueakL' 'Squeak3.10' 'Code changes, but only internal' 'Alpha'). #id -> '13d818dd-94fd-411a-a2d1-1869701b4aab'. #publisher -> 'Yun Jae, Jang'. #url ->'http://map.squeak.org/accountbyid/e52f1f99-f9d2-4529-9664-126951af76df/file…'. }. { #version -> 'KoreanLanguageEnvironment-beta-1'. #created -> '23 September 2008 12:41:56 am'. #updated -> '23 September 2008 12:41:56 am'. #categories -> #('Code changes, but only internal' 'Alpha' 'SqueakL' 'Squeak3.10'). #id -> 'd0277deb-7eeb-4d0c-8532-2f2f46a55a1e'. #publisher -> 'Yun Jae, Jang'. #url ->'http://map.squeak.org/accountbyid/e52f1f99-f9d2-4529-9664-126951af76df/file…'. }. { #version -> 'KoreanLanguageEnvironment-beta-1'. #created -> '23 September 2008 12:35:48 am'. #updated -> '23 September 2008 12:39:47 am'. #categories -> #('Code changes, but only internal' 'Alpha' 'SqueakL' 'Squeak3.10'). #id -> 'c916ed15-ce03-43e9-92d1-0cb5cb523d14'. #publisher -> 'Yun Jae, Jang'. #url ->'http://map.squeak.org/accountbyid/e52f1f99-f9d2-4529-9664-126951af76df/file…'. }. }. ! Item was changed: ----- Method: PackagesSqueakMapData>>CalculatorMorph: (in category 'C') ----- CalculatorMorph: aVersion self name: 'CalculatorMorph'. self version: aVersion. info summary: 'Calculator made with morphic'. info author: 'Robert Hawley'. info owner: 'Robert Hawley'. info created: '26 October 2007 7:42:16 am'. info updated: '26 October 2007 4:58:14 pm'. info description: 'A simple numerical calculator with additional mathematical functions and a single memory. Use menu option ''switch tape on'' to record the calculations in a Transcript window.'. info versions: { { + #version -> '(2)'. + #created -> '7 November 2008 1:37:12 am'. + #updated -> '7 November 2008 1:37:12 am'. + #categories -> #('MIT' 'Only extensions, no changes' 'Squeak3.9' 'Beta'). + #id -> '758df2ed-f30e-4086-b327-dfefbe083866'. - #version -> '(1)'. - #created -> '26 October 2007 4:50:34 pm'. - #updated -> '10 July 2008 5:58:59 am'. - #categories -> #('Squeak3.9' 'MIT' 'Not backwards compatible' 'Beta'). - #id -> 'da376ee8-e7a2-4034-9a82-bbb7c2f0e2fa'. #publisher -> 'nil'. + #url ->'http://map.squeak.org/accountbyid/94efac2d-50af-4408-a3d1-a4442eaefe28/file… V2.st'. - #url ->'http://map.squeak.org/accountbyid/94efac2d-50af-4408-a3d1-a4442eaefe28/file…'. }. }. ! Item was changed: ----- Method: PackagesSqueakMapData>>DiceMorph: (in category 'D') ----- DiceMorph: aVersion self name: 'DiceMorph'. self version: aVersion. info summary: 'Rolls dice - eToys scriptable'. info author: 'RJH'. info owner: 'Robert Hawley'. info created: '1 July 2008 10:19:49 pm'. info updated: '4 July 2008 6:26:37 pm'. info description: 'Rolls dice - eToys scriptable. - was loosely based on the Squeak By Example example.'. info versions: { { #version -> '(2)'. + #created -> '7 November 2008 1:38:13 am'. + #updated -> '7 November 2008 1:38:13 am'. + #categories -> #('MIT' 'Only extensions, no changes' 'Squeak3.9' 'Beta'). + #id -> 'bfc2db64-646b-4040-9857-b601f21e1456'. - #created -> '4 July 2008 6:16:41 pm'. - #updated -> '9 October 2008 12:45:09 am'. - #categories -> #('Squeak3.9' 'Not backwards compatible' 'SqueakL + MIT' 'Alpha'). - #id -> 'd42399f5-6283-4525-a450-8cf8e536221a'. #publisher -> 'nil'. + #url ->'http://map.squeak.org/accountbyid/94efac2d-50af-4408-a3d1-a4442eaefe28/file… V2.st'. - #url ->'http://map.squeak.org/accountbyid/94efac2d-50af-4408-a3d1-a4442eaefe28/file…'. }. }. !

1 0

Packages: Sake-Packages-kph.9.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 12 Nov '08

12 Nov '08

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.9.mcz ==================== Summary ==================== Name: Sake-Packages-kph.9 Author: kph Time: 12 November 2008, 5:01:08 pm UUID: a5bed0f8-b61a-495c-8e64-d550de5a86e3 Ancestors: Sake-Packages-kph.8 regenerated + when no url is given, generate nil rather than 'nil'. =============== Diff against Sake-Packages-kph.8 =============== Item was changed: ----- Method: PackagesDevU>>OmniBrowserStandard (in category 'Code Browsing') ----- OmniBrowserStandard self name: 'OmniBrowser-Standard'. + self version: '0.369'. - self version: '0.356'. info category: 'Code Browsing'. info description: 'OB-Standard represents the classical system browser implemented with the OmniBrowser framework.'. info maintainer: 'Colin Putney'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Standard-dr.369.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Standard-dr.356.mcz'. self provides: #(). self dependsOn: #('OmniBrowser'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowser (in category 'Code Browsing') ----- OmniBrowser self name: 'OmniBrowser'. + self version: '0.426'. - self version: '0.420'. info category: 'Code Browsing'. info description: 'OmniBrowser is a ground up rewrite of the classical system browsers provided in Smalltalk. It''s designed to be flexible and extensible, so as to encourage experimentation with new types of development tools, language extensions, and runtime environments. In fact it''s a framework to build browsers. Install OmniBrowser-Standard to get the new browser using this framework.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: '81451b19-7df8-4fc7-8652-b26cc55dd291'. + info url: 'http://source.wiresong.ca/ob/OmniBrowser-dr.426.mcz'. - info url: 'http://source.wiresong.ca/ob/OmniBrowser-dr.420.mcz'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>Monticello2 (in category 'Group Development') ----- Monticello2 self name: 'Monticello2'. self version: '0.2'. info category: 'Group Development'. info description: 'Monticello is a distributed version control system. Monticello 2 addresses the problems we encountered with Monticello 1. They mostly stem from a common cause: its unit of versioning, the package, is too coarse for many situations that arise in normal development.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://wiki.squeak.org/squeak/5624'. info squeakMapID: ''. + info url: nil. - info url: 'nil'. self provides: #(). self dependsOn: #('Monticello2-Core' 'Monticello2-OmniBrowser' 'Monticello2-Squeak'). ! Item was changed: ----- Method: PackagesDevU>>RefactoringEngine (in category 'Development') ----- RefactoringEngine self name: 'Refactoring Engine'. self version: '51'. info category: 'Development'. info description: 'Damien Cassou: This package is now obsolete. Use ''Refactoring Core'' instead.'. info maintainer: 'Marcus Denker <denker(a)iam.unibe.ch>'. info homepage: 'http://www.squeaksource.com/RefactoringEngine.html'. info squeakMapID: ''. + info url: nil. - info url: 'nil'. self provides: #(). self dependsOn: #('AST'). ! Item was changed: ----- Method: PackagesDevU>>SeasideAdaptersSwazoo (in category 'Web Development beta') ----- SeasideAdaptersSwazoo self name: 'Seaside-Adapters-Swazoo'. + self version: '9'. - self version: '8'. info category: 'Web Development beta'. info description: 'The Swazoo 2.1 server adapter form Seaside 2.9, works also with Seaside 2.8. Can be started and stopped with: SwazooSeaside startOn: 8080 SwazooSeaside stop'. info maintainer: 'pmm'. info homepage: 'http://www.squeaksource.com/Seaside29.html'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Seaside29old/Seaside-Adapters-Swazoo-pmm.8.mcz'. - info url: 'http://www.squeaksource.com/Seaside29LGPL/Seaside-Adapters-Swazoo-pmm.8.mcz'. self provides: #(). self dependsOn: #('Seaside-Squeak-Adapters' 'SeasideAdaptersCompatibility' 'Swazoo'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserMorphic (in category 'Code Browsing') ----- OmniBrowserMorphic self name: 'OmniBrowser-Morphic'. + self version: '0.61'. - self version: '0.59'. info category: 'Code Browsing'. info description: 'OB-Standard represents the classical system browser implemented with the OmniBrowser framework.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Morphic-dr.61.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Morphic-dr.59.mcz'. self provides: #(). self dependsOn: #('OmniBrowser' 'OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesDevU>>Squeakdevpackages (in category 'Development') ----- Squeakdevpackages self name: 'Squeak dev packages'. self version: '0.27'. info category: 'Development'. info description: 'Abstract package that only depends on other packages. This packages are used to build a squeak distribution for developers.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://damien.cassou.free.fr/'. info squeakMapID: ''. + info url: nil. - info url: 'nil'. self provides: #(). self dependsOn: #('AST' 'Algernon' 'AutomaticMethodCategorizer' 'AutomaticMethodCategorizerOB' 'Installer' 'OB-Enhancements' 'OmniBrowser-Algernon' 'OmniBrowser-Full' 'OmniBrowser-Refactory' 'OmniBrowser-Regex' 'Refactoring Core' 'SUnitGUI-improved' 'ScriptManager' 'Shout' 'ShoutWorkspace' 'SmaCC runtime' 'Universes' 'Universes OmniBrowser' 'eCompletion' 'eCompletion-Traits' 'eCompletionOmniBrowser'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserSUnitIntegration (in category 'Code Browsing') ----- OmniBrowserSUnitIntegration self name: 'OmniBrowser-SUnitIntegration'. self version: '1 obsolete'. info category: 'Code Browsing'. info description: 'Obsolete. Merged into OB-Enhancements'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: ''. info squeakMapID: ''. + info url: nil. - info url: 'nil'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserRefactory (in category 'Development') ----- OmniBrowserRefactory self name: 'OmniBrowser-Refactory'. + self version: '108'. - self version: '103'. info category: 'Development'. info description: 'Brings refactorings to OmniBrowser'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: ''. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Refactory-lr.107.mcz'. - info url: 'http://source.lukas-renggli.ch/omnibrowser/OB-Refactory-lr.103.mcz'. self provides: #(). self dependsOn: #('OmniBrowser-Morphic' 'OmniBrowser-Standard' 'Refactoring Core'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserFull (in category 'Code Browsing') ----- OmniBrowserFull self name: 'OmniBrowser-Full'. self version: '0.27'. info category: 'Code Browsing'. info description: 'OmniBrowser is a ground up rewrite of the classical system browsers provided in Smalltalk. It''s designed to be flexible and extensible, so as to encourage experimentation with new types of development tools, language extensions, and runtime environments. In fact it''s a framework to build browsers. This packages installs OmniBrowser, a rewrite of the system browser using OmniBrowser and fixes to make things work with new Squeak versions.'. info maintainer: 'Damien Cassou'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: ''. + info url: nil. - info url: 'nil'. self provides: #(). self dependsOn: #('OB-Enhancements' 'OmniBrowser' 'OmniBrowser-Morphic' 'OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesDevU>>SUnitGUIimproved (in category 'Development') ----- SUnitGUIimproved self name: 'SUnitGUI-improved'. + self version: '4.0.50'. - self version: '4.0.48'. info category: 'Development'. info description: 'Improved TestRunner - pane for selecting published suites and filtering - can report results to a file via TestReporter.'. info maintainer: 'kph'. info homepage: ''. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Testing/SUnitGUI-kph.50.mcz'. - info url: 'http://www.squeaksource.com/Testing/SUnitGUI-dc.48.mcz'. self provides: #(). self dependsOn: #('SUnit-improved'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserTraitsIntegration (in category 'Code Browsing') ----- OmniBrowserTraitsIntegration self name: 'OmniBrowser-TraitsIntegration'. self version: '1 obsolete'. info category: 'Code Browsing'. info description: 'Obsolete. Has been merged into OB-Enhancements'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: ''. info squeakMapID: ''. + info url: nil. - info url: 'nil'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>eCompletion (in category 'Code Browsing') ----- eCompletion self name: 'eCompletion'. + self version: '0.92'. - self version: '0.91'. info category: 'Code Browsing'. info description: 'Complete variables, selectors, class names in your browser, workspace, debugger and other code holders.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://www.squeaksource.com/eCompletion'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/eCompletion/ECompletion-danieroux.92.mcz'. - info url: 'http://www.squeaksource.com/eCompletion/ECompletion-damiencassou.91.mcz'. self provides: #(). self dependsOn: #('RoelTyper' 'Shout'). ! Item was changed: ----- Method: PackagesDevU>>RefactoringCore (in category 'Development') ----- RefactoringCore self name: 'Refactoring Core'. + self version: '11'. - self version: '5'. info category: 'Development'. info description: 'The refactoring engine of the old RefactoringBrowser. It does not include any browser and needs at least Squeak 3.9.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://www.squeaksource.com/RefactoringEngine.html'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/RefactoringEngine/Refactoring-Core-lr.11.mcz'. - info url: 'http://www.squeaksource.com/RefactoringEngine/Refactoring-Core-lr.5.mcz'. self provides: #(). self dependsOn: #('AST'). ! Item was changed: ----- Method: PackagesDevU>>Squeakwebpackages (in category 'Web Development') ----- Squeakwebpackages self name: 'Squeak web packages'. self version: '0.2'. info category: 'Web Development'. info description: 'Abstract package that only depends on other packages. This packages are used to build a squeak distribution for developers.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://damien.cassou.free.fr/'. info squeakMapID: ''. + info url: nil. - info url: 'nil'. self provides: #(). self dependsOn: #('Aida' 'Pier' 'Scriptaculous' 'Seaside' 'Seaside-Adapters-Swazoo' 'Squeak dev packages'). ! Item was changed: ----- Method: PackagesDevU>>OBEnhancements (in category 'Code Browsing') ----- OBEnhancements self name: 'OB-Enhancements'. + self version: '0.247'. - self version: '0.221'. info category: 'Code Browsing'. info description: 'OB-Enhancements extend the OmniBrowser framework with new features such as multiple selection of elements in columns, a package-based view on the image instead of using just class categories, or smart groups to categorize source artifacts. This package requires the latest version of the OmniBrowser framework.'. info maintainer: 'David Röthlisberger'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Enhancements-dr.247.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Enhancements-dr.221.mcz'. self provides: #(). self dependsOn: #('OmniBrowser' 'OmniBrowser-Morphic' 'OmniBrowser-Standard'). ! Item was changed: ----- Method: Packages class>>taskGenerateUniversePackageTasks (in category 'tasks - universes') ----- taskGenerateUniversePackageTasks | source selector | ^ SakeTask define: [ :task | task dependsOn: { [ self isUniverse ]. self taskUpdateUniverse. self taskRemoveOldPackages. }. task action: [ (self theUUniverse packageNames collect: [ :each | self theUUniverse newestPackageNamed: each ]) do: [ :each | source := (WriteStream on: String new). source << (selector := self asSelector: each name). source cr; cr. source << ' self name: ' << each name printString << '.' ; cr. source << ' self version: ''' << each version << '''.' ; cr. source << ' info category: ''' << each category printString << '''.' ; cr. source << ' info description: ' ; cr. source << each description withSqueakLineEndings printString << '.' ; cr. source << ' info maintainer: ''' << each maintainer << '''.' ; cr. source << ' info homepage: ''' << (each homepage ifNil: ['']) asString << '''.' ; cr. source << ' info squeakMapID: ''' << (each squeakMapID ifNil: ['']) asString << '''.' ; cr. + source << ' info url: ' << (each url ifNotNil: [ '''' , each url printString , '''' ] ifNil: [ 'nil' ]) << '.' ; cr. - source << ' info url: ''' << each url printString << '''.' ; cr. source << ' self provides: ' << each provides asArray printString << '.' ; cr ; cr. source << ' self dependsOn: ' << each depends asSortedCollection asArray printString << '.' ; cr ; cr. (self sourceCodeAt: selector ifAbsent: nil) ~= source contents ifTrue: [ self compile: source contents classified: each category printString notifying: nil ] ]. theUUniverse := nil. ]. ]! Item was changed: ----- Method: PackagesDevU>>Squeakdevpackagesbeta (in category 'Development') ----- Squeakdevpackagesbeta self name: 'Squeak dev packages beta'. self version: '0.32'. info category: 'Development'. info description: 'Abstract package that only depends on other packages. This packages are used to build a squeak distribution for developers.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: ''. info squeakMapID: ''. + info url: nil. - info url: 'nil'. self provides: #(). self dependsOn: #('Polymorph TaskbarIcons' 'Polymorph ToolBuilder' 'Polymorph Tools Diff' 'Squeak dev packages'). ! Item was changed: ----- Method: PackagesDevU>>Installer (in category 'Group Development') ----- Installer self name: 'Installer'. + self version: '4.2'. - self version: '4.1'. info category: 'Group Development'. info description: 'Installer provides a simple Domain Specific Language for installing packages from monticello and squeakmap of various version. One design decision is to be able to paste scripts a workspace and run and tested from there without any special editing. Includes support for Package Universes '. info maintainer: 'kph'. info homepage: 'http://wiki.squeak.org/squeak/Installer'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Installer/Installer-Core-mtf.250.mcz'. - info url: 'http://www.squeaksource.com/Installer/Installer-Core-kph.187.mcz'. self provides: #('Installer'). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>Rio (in category 'Model Extension') ----- Rio self name: 'Rio'. + self version: '0.81.35'. - self version: '0.34.29'. info category: 'Model Extension'. info description: 'A file IO interface inspired by http://rio.rubyforge.org , potentially replaces FileDirectory. This is the full distribution of Rio.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://wiki.squeak.org/squeak/5929'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Rio/Rio-Grande-kph.35.mcz'. - info url: 'http://www.squeaksource.com/Rio/Rio-Grande-kph.29.mcz'. self provides: #(). + self dependsOn: #('Rio-Kernel'). - self dependsOn: #('Null' 'Rio-Kernel'). ! Item was changed: ----- Method: PackagesDevU>>Pier (in category 'Web Development') ----- Pier self name: 'Pier'. self version: 'current'. info category: 'Web Development'. info description: 'Pier with some common plugins. A good package to get started with Pier development or deployment.'. info maintainer: 'lr'. info homepage: 'http://www.lukas-renggli.ch/smalltalk/pier'. info squeakMapID: ''. + info url: nil. - info url: 'nil'. self provides: #(). self dependsOn: #('Magritte-Tests' 'Pier-Blog' 'Pier-Documents' 'Pier-EditorEnh' 'Pier-OmniBrowser' 'Pier-Seaside' 'Pier-Security' 'Pier-Tests'). !

1 0

Packages: Sake-Packages-kph.8.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 12 Nov '08

12 Nov '08

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.8.mcz ==================== Summary ==================== Name: Sake-Packages-kph.8 Author: kph Time: 12 November 2008, 3:40:32 pm UUID: b0716b9d-5a00-4aed-a48f-12b83aac578c Ancestors: Sake-Packages-kph.7 fixed case where url is nil in #defaultAction =============== Diff against Sake-Packages-kph.7 =============== Item was changed: ----- Method: Packages>>defaultAction (in category 'as yet unclassified') ----- defaultAction + ^ [ self info url ifNotNilDo: [ :url | Installer installUrl: url ] ]! - ^ [ Installer installUrl: self info url ]!

1 0

Sake : Sake-Core-kph.66.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 12 Nov '08

12 Nov '08

A new version of Sake-Core was added to project Sake : http://www.squeaksource.com/Sake/Sake-Core-kph.66.mcz ==================== Summary ==================== Name: Sake-Core-kph.66 Author: kph Time: 12 November 2008, 4:34:52 am UUID: 07b580b0-d6ef-4c51-95f7-945386041897 Ancestors: Sake-Core-kph.65 fix log problem =============== Diff against Sake-Core-kph.65 =============== Item was added: + ----- Method: SakeClassTask class>>class:subclass: (in category 'as yet unclassified') ----- + class: aClassName subclass: bClassName + + ^ (self class: aClassName) subclass: bClassName! Item was changed: ----- Method: SakeTask>>log: (in category 'as yet unclassified') ----- log: aString + (self respondsTo: #log) ifFalse: [ ^ self ]. + self log sake << aString printString << ' ' <<< self context method selector! Item was added: + ----- Method: SakeClassTask>>subclass: (in category 'accessing') ----- + subclass: bClassName + + ^ self subclass: bClassName category: nil ; defined! Item was added: + ----- Method: SakeClassTask>>subclass:category: (in category 'accessing') ----- + subclass: bClassName category: aCat + + ^ self define: [ :task | + + task dependsOn: { (SakeClassTask nonMeta: theClassName) }. + + task if: [ (Smalltalk classNamed: bClassName) isNil ]. + + task action: [ + + task theClass subclass: bClassName asSymbol + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: (aCat ifNil: [ task theClass category ]). + ] + ] ! Item was removed: - ----- Method: SakeClassTask>>ensureSubclass:category: (in category 'accessing') ----- - ensureSubclass: bClassName category: aCat - - ^ self define: [ :task | - - task dependsOn: { (SakeClassTask nonMeta: theClassName) }. - - task if: [ (Smalltalk classNamed: bClassName) isNil ]. - - task action: [ - - task theClass subclass: bClassName asSymbol - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: (aCat ifNil: [ task theClass category ]). - ] - ] ! Item was removed: - ----- Method: SakeClassTask>>ensureSubclass: (in category 'accessing') ----- - ensureSubclass: bClassName - - ^ self ensureSubclass: bClassName category: nil ; defined! Item was removed: - ----- Method: SakeClassTask class>>class:ensureSubclass: (in category 'as yet unclassified') ----- - class: aClassName ensureSubclass: bClassName - - ^ (self class: aClassName) ensureSubclass: bClassName!

1 0

Rio: Rio-Test-kph.50.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 10 Nov '08

10 Nov '08

A new version of Rio-Test was added to project Rio: http://www.squeaksource.com/Rio/Rio-Test-kph.50.mcz ==================== Summary ==================== Name: Rio-Test-kph.50 Author: kph Time: 10 November 2008, 5:01:02 pm UUID: 897857b0-91f5-4173-a1d2-3f76cdf7f757 Ancestors: Rio-Test-kph.49 Re-architected to be cleaner, remove dnus etc =============== Diff against Rio-Test-kph.49 =============== Item was changed: ----- Method: RioVirtualTestFSDos>>rioClass (in category 'as yet unclassified') ----- rioClass + ^ Notification signal! - ^ Smalltalk at: rioClass! Item was changed: ----- Method: RioArchiveTest>>archiveContents (in category 'tests-archive') ----- archiveContents | all | self makeArchive. self assert: (archive zip entries asSet = (Set with: (Rio new: 'testing_rio'))). all := archive zip all entries. self assert: (all asSet = { (Rio new: 'testing_rio'). + (Rio new: 'testing_rio/t_a/f 1'). + (Rio new: 'testing_rio/t_a/t 1'). - (Rio new: 'testing_rio/t_a/f_1'). - (Rio new: 'testing_rio/t_a/t_1'). (Rio new: 'testing_rio/t_a/t_2'). } asArray asOrderedCollection asSet). self assert: (all first isDirectory). self assert: (all second isFile). ! Item was changed: ----- Method: RioGzipTest>>gzipWriteAndRead (in category 'tests') ----- gzipWriteAndRead self assert: (self fox size = 44). + rio := (self useTestDir / 'zip.gz') gzip writer: [ :out | out << self fox ]. - rio := (self useTestDir / 'zip.gz') gzip writer: [ :out | out << self testString ]. self assert: (rio isFile & rio fileSize = 62). "reading from a gzip file should honour the binary setting of the stream even though the actual on disk file is binary" + self assert: ( rio contents = self fox ). - self assert: ( rio contents = self testString ). self assert: ( rio contents size = 44 ). ! Item was changed: + RioLocalExecutive subclass: #RioVirtualTestFSUnix + instanceVariableNames: '' - RioLocalFileSystem subclass: #RioVirtualTestFSUnix - instanceVariableNames: 'rioClass' classVariableNames: '' poolDictionaries: '' category: 'Rio-Test'! Item was added: + ----- Method: RioVirtualFSCommonTest>>runCaseWith: (in category 'as yet unclassified') ----- + runCaseWith: aBlock + + aBlock on: Notification do: [ :ex | ex resume: rioClass ]! Item was added: + ----- Method: RioVirtualTestFSUnix>>initialize (in category 'as yet unclassified') ----- + initialize + + self initializeDefault! Item was changed: ----- Method: RioCaseInsensitiveTest>>setOfRios (in category 'tests') ----- setOfRios rio := Set new. rio + add: ( (Rio new: 'hello') executive: (RioLocalCaseInsensitiveExecutive new) ). - add: ( (Rio new: 'hello') executive: (RioLocalCaseInsensitiveFileSystem new) ). self assert: rio size = 1. rio + add: ((Rio new: 'heLLo') executive: (RioLocalCaseInsensitiveExecutive new) ). - add: ((Rio new: 'heLLo') executive: (RioLocalCaseInsensitiveFileSystem new) ). self assert: rio size = 1! Item was changed: ----- Method: RioDirTest>>addTree (in category 'tests-directory copying') ----- addTree self makeDirectoriesAndFiles. destDir mkdir addTree: testDir. self assert: (destDir all entries size = 5). self assert: ((testDir / 't_a' / 'f 1') contents = 'test file'). self assert: ((destDir / 'testing_rio'/ 't_a' / 'f 1') contents = 'test file').! Item was changed: ----- Method: RioVirtualFSDosKernelTest>>setUp (in category 'fixture') ----- setUp - RioLocalFileSystem testFileSystem: RioVirtualTestFSDos newUsingRioKernel. - rioClass := RioKernel. + + RioLocalExecutive testFileSystem: RioVirtualTestFSDos new. + ! Item was changed: ----- Method: RioModeTests>>testBinaryModes (in category 'binary mode') ----- testBinaryModes rio := self useTestDir / self hello. self deny: (rio binary == rio). + self assert: (rio beBinary == rio). - self assert: (rio setModeToBinary == rio). ! Item was changed: ----- Method: RioKernelTest>>rootIsDirectory (in category 'tests-standard') ----- rootIsDirectory + rio := rioClass new: RioLocalExecutive current root value. - rio := rioClass new: RioLocalFileSystem current root value. self assert: (rio isRoot). self assert: (rio isDirectory). ! Item was changed: ----- Method: RioVirtualFSCommonTest>>currentFileSystem (in category 'fixtures') ----- currentFileSystem + ^ RioLocalExecutive current! - ^ RioLocalFileSystem current! Item was added: + ----- Method: RioVirtualTestFSDos>>initialize (in category 'as yet unclassified') ----- + initialize + + self initializeDefault! Item was changed: ----- Method: RioVirtualTestFSUnix>>rioClass (in category 'as yet unclassified') ----- rioClass + ^ Notification signal! - ^ Smalltalk at: rioClass! Item was changed: ----- Method: RioTest>>http (in category 'tests') ----- http rio := Rio new: 'http://www.google.com'. + self assert: rio class = Rio. + self assert: rio executive class = RioHttpExecutive! - self assert: rio class = RioHttp! Item was changed: ----- Method: RioVirtualFSUnixKernelTest>>setUp (in category 'fixture') ----- setUp + + rioClass := RioKernel. + RioLocalExecutive testFileSystem: RioVirtualTestFSUnix new. - - RioLocalFileSystem testFileSystem: RioVirtualTestFSUnix newUsingRioKernel. + ! - rioClass := RioKernel.! Item was changed: + RioLocalDosExecutive subclass: #RioVirtualTestFSDos + instanceVariableNames: '' - RioLocalDosFileSystem subclass: #RioVirtualTestFSDos - instanceVariableNames: 'rioClass' classVariableNames: '' poolDictionaries: '' category: 'Rio-Test'! Item was changed: ----- Method: RioGzipTest>>gzipWriteAndReadBinary (in category 'tests') ----- gzipWriteAndReadBinary self assert: (self fox size = 44). + rio := (self useTestDir / 'zip.gz') gzip beBinary writer: [ :out | out << self fox asByteArray ]. - rio := (self useTestDir / 'zip.gz') gzip setModeToBinary writer: [ :out | out << self testString asByteArray ]. self assert: (rio isFile & rio fileSize = 62). + self assert: ( rio beBinary contents = self fox asByteArray ). - self assert: ( rio setModeToBinary contents = self testString asByteArray ). + self assert: ( rio beBinary contents size = 44 ).! - self assert: ( rio setModeToBinary contents size = 44 ).! Item was changed: ----- Method: RioModeTests>>testGzipModes (in category 'binary mode') ----- testGzipModes rio := self useTestDir / self hello. self deny: (rio gzip == rio). + - self assert: (rio setModeToGzip == rio). ! Item was changed: ----- Method: RioModeTests>>testRenamingModes (in category 'renaming mode') ----- testRenamingModes rio := self useTestDir / self hello. self deny: (rio rename == rio). + self assert: (rio beRenaming == rio). - self assert: (rio setModeToRenaming == rio). ! Item was changed: ----- Method: RioVirtualFSDosRioTest>>setUp (in category 'fixture') ----- setUp + + rioClass := Rio. + RioLocalExecutive testFileSystem: RioVirtualTestFSDos new. + + ! - RioVirtualTestFSDos newUsingRio. - rioClass := Rio.! Item was changed: ----- Method: RioVirtualFSCommonTest>>tearDown (in category 'fixtures') ----- tearDown + RioLocalExecutive testEnd! - RioLocalFileSystem testEnd! Item was changed: ----- Method: RioVirtualFSUnixRioTest>>setUp (in category 'fixture') ----- setUp + + rioClass := Rio. + RioLocalExecutive testFileSystem: RioVirtualTestFSUnix new. - RioLocalFileSystem testFileSystem: RioVirtualTestFSUnix newUsingRio. + ! - rioClass := Rio.! Item was changed: ----- Method: RioTest>>ftp (in category 'tests') ----- ftp rio := Rio new: 'ftp://ftp.seasidehosting.st'. + self assert: rio class = Rio. + self assert: rio executive class = RioFtpExecutive.! - self assert: rio class = RioFtp! Item was removed: - ----- Method: RioVirtualTestFSDos class>>newUsingRioKernel (in category 'as yet unclassified') ----- - newUsingRioKernel - - ^ (RioLocalFileSystem testFileSystem: self new useRioKernel) - initializeDefault; - yourself! Item was removed: - ----- Method: RioVirtualTestFSUnix class>>newUsingRio (in category 'as yet unclassified') ----- - newUsingRio - - ^ (RioLocalFileSystem testFileSystem: self new useRio) - initializeDefault; - yourself! Item was removed: - ----- Method: RioVirtualTestFSDos>>useRio (in category 'as yet unclassified') ----- - useRio - - rioClass := #Rio ! Item was removed: - ----- Method: RioVirtualTestFSDos class>>newUsingRio (in category 'as yet unclassified') ----- - newUsingRio - - ^ (RioLocalFileSystem testFileSystem: self new useRio) - initializeDefault; - yourself! Item was removed: - ----- Method: RioVirtualTestFSUnix class>>newUsingRioKernel (in category 'as yet unclassified') ----- - newUsingRioKernel - - ^ (RioLocalFileSystem testFileSystem: self new useRioKernel) - initializeDefault; - yourself! Item was removed: - ----- Method: RioVirtualTestFSDos>>useRioKernel (in category 'as yet unclassified') ----- - useRioKernel - - rioClass := #RioKernel! Item was removed: - ----- Method: RioVirtualTestFSUnix>>useRio (in category 'as yet unclassified') ----- - useRio - - rioClass := #Rio ! Item was removed: - ----- Method: RioVirtualTestFSUnix>>useRioKernel (in category 'as yet unclassified') ----- - useRioKernel - - rioClass := #RioKernel!

1 0

Rio: Rio-Kernel-kph.87.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 10 Nov '08

10 Nov '08

A new version of Rio-Kernel was added to project Rio: http://www.squeaksource.com/Rio/Rio-Kernel-kph.87.mcz ==================== Summary ==================== Name: Rio-Kernel-kph.87 Author: kph Time: 10 November 2008, 5:00:51 pm UUID: 1cf2f1e9-e0d1-40d5-bef3-d203107e8cf0 Ancestors: Rio-Kernel-kph.86 Re-architected to be cleaner, remove dnus etc =============== Diff against Rio-Kernel-kph.86 =============== Item was changed: ----- Method: RioLocalExecutive class>>newForRiscOS (in category 'image start up ') ----- newForRiscOS ^ RioLocalExecutive new! Item was changed: ----- Method: RioLocalExecutive class>>newForWin32 (in category 'image start up ') ----- newForWin32 + ^ RioLocalDosExecutive! - ^ RioLocalDosExecutive new! Item was changed: ----- Method: RioLocalExecutive class>>newForThisPlatform (in category 'image start up ') ----- newForThisPlatform ^ self perform: ('newFor', self platform) asSymbol! Item was changed: ----- Method: RioLocalExecutive class>>newForMacOS (in category 'image start up ') ----- newForMacOS ^ RioLocalCaseInsensitiveExecutive new! Item was changed: ----- Method: RioLocalExecutive class>>newForDOS (in category 'image start up ') ----- newForDOS ^ RioLocalDosExecutive new! Item was changed: ----- Method: RioLocalExecutive>>getDefaultDirectory (in category 'executive actions') ----- getDefaultDirectory ^ (Preferences startInUntrustedDirectory + ifTrue: [ self untrustedDirectory mkpath ] - ifTrue: [ self untrustedDirectory mkdir ] ifFalse: [ self getImageDirectory ] )! Item was changed: ----- Method: RioLocalExecutive class>>newForUnix (in category 'image start up ') ----- newForUnix + ^ RioLocalExecutive! - ^ RioLocalExecutive new! Item was changed: ----- Method: RioKernel class>>new: (in category 'as yet unclassified') ----- new: aPathOrRio "the preferred generic instanciation method, will call the correct specific instanciation method on the correct class" aPathOrRio isRio ifTrue: [ ^ aPathOrRio copy ]. + ^ self defaultExecutive current class newRioFrom: aPathOrRio! - ^ self defaultExecutive newRioFrom: aPathOrRio! Item was changed: ----- Method: RioLocalExecutive>>getImageDirectory (in category 'executive actions') ----- getImageDirectory + ^ (self rioClass executive: self value: self primImagePath) parent ! - ^ (self rioClass new: self primImagePath) parent !

1 0

Rio: Rio-Grande-kph.45.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 10 Nov '08

10 Nov '08

A new version of Rio-Grande was added to project Rio: http://www.squeaksource.com/Rio/Rio-Grande-kph.45.mcz ==================== Summary ==================== Name: Rio-Grande-kph.45 Author: kph Time: 10 November 2008, 5:00:42 pm UUID: 258ae1d9-1875-4e89-9dfd-60082d7809fc Ancestors: Rio-Grande-kph.44 Re-architected to be cleaner, remove dnus etc =============== Diff against Rio-Grande-kph.44 =============== Item was added: + ----- Method: RioHttpExecutive>>password: (in category 'as yet unclassified') ----- + password: passwordString + + | pwd | + + self user = 'ftp' ifTrue: [ ^ self ]. + + passwordString isEmpty ifTrue:[pwd := nil] ifFalse:[pwd := passwordString]. + + self MCPasswordManager default passwordAt: url asString user: self user put: pwd. + ! Item was changed: ----- Method: Rio>>archive (in category 'public modes') ----- archive + ^ self zip! - ^ self new setModeToZip! Item was added: + ----- Method: Rio>>add:fromBase: (in category 'directory/container actions') ----- + add: aFileOrDir fromBase: aBaseDirectory + + "I am a directory, add the file or create directory using aBaseDirectory + as the base reference." + + | newRio | + + self validateIsDirectory. + + newRio := self / (aFileOrDir linearRelativeTo: aBaseDirectory). + + aFileOrDir isFile ifTrue: [ + newRio parent ifAbsentDo: [ :newPath | newPath mkpath ]. + ^ aFileOrDir copyTo: newRio + ]. + + aFileOrDir isDirectory ifTrue: [ ^ newRio mkpath ]. + + ! Item was added: + ----- Method: RioArchive>>archive (in category 'accessing') ----- + archive + + ^ executive archive! Item was added: + ----- Method: RioArchive>>file (in category 'public') ----- + file + + ^ executive file ! Item was added: + ----- Method: Rio>>addTree: (in category 'directory/container actions') ----- + addTree: aDir + + | base newAddition | + + self validateIsContainer. + aDir validateIsDirectory. + + newAddition := self add: aDir fromBase: (base := aDir parent). + + self addAll: (aDir all entries) fromBase: base. + + ^ newAddition + ! Item was added: + ----- Method: RioArchive>>add:fromBase: (in category 'public') ----- + add: aFileOrDir fromBase: aBaseDirectory + + "I am an archive, add the file or create directory using aBaseDirectory + as the base reference." + + | localFileName | + + self validateIsContainer. + + localFileName := aFileOrDir linearRelativeTo: aBaseDirectory. + + aFileOrDir isFile ifTrue: [ + self archive addFile: aFileOrDir value as: localFileName value. + ]. + aFileOrDir isDirectory ifTrue: [ + self archive addDirectory: aFileOrDir value as: localFileName value. + ]. + + ! Item was changed: ----- Method: Rio>>gzip (in category 'public modes') ----- gzip + ^ RioGzip newFrom: self! - ^ self copy setModeToGzip! Item was added: + ----- Method: Rio>>beBinary (in category 'public modes') ----- + beBinary + + binary := true! Item was added: + Rio subclass: #RioDir + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Rio-Grande'! + + !RioDir commentStamp: 'kph 4/12/2007 07:44' prior: 0! + Could mode mkdir and mkpath into this adaptor.! Item was changed: ----- Method: Rio>>rename (in category 'public modes') ----- rename + ^ self copy beRenaming ! - ^ self copy setModeToRenaming ! Item was added: + ----- Method: RioRemoteExecutive>>rootString (in category 'as yet unclassified') ----- + rootString + + ^ '/'! Item was changed: ----- Method: RioFtpExecutive>>receiveDataSignallingTimeout:into:startingAt: (in category 'wrap socket') ----- receiveDataSignallingTimeout: timeout into: inBuffer startingAt: inNextToWrite + ^ client dataSocket receiveDataSignallingTimeout: timeout - ^ ftpClient dataSocket receiveDataSignallingTimeout: timeout into: inBuffer startingAt: inNextToWrite! Item was changed: ----- Method: Rio>>writer (in category 'public file') ----- writer + ^ self writeStream! - ^ self adaptor writeStream! Item was added: + ----- Method: RioGzip>>basicReader (in category 'streams') ----- + basicReader + + self validateIsFile. + + ^ GZipReadStream on: (super basicReader).! Item was changed: RioRemoteExecutive subclass: #RioHttpExecutive instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Rio-Grande'! + + !RioHttpExecutive commentStamp: 'kph 11/10/2008 05:36' prior: 0! + placeholder! Item was added: + ----- Method: Rio>>commit (in category 'directory/container actions') ----- + commit + + ! Item was changed: ----- Method: RioFtpExecutive>>isOtherEndClosed (in category 'wrap socket') ----- isOtherEndClosed + ^ (client dataSocket ifNil: [ ^ true ]) isOtherEndClosed! - ^ (ftpClient dataSocket ifNil: [ ^ true ]) isOtherEndClosed! Item was added: + ----- Method: RioGzip>>decompress (in category 'streams') ----- + decompress + + ^ self copyTo: ((Rio new: self asString) ext: '') + ! Item was added: + ----- Method: RioArchive>>commit (in category 'public') ----- + commit + + "Catch attempts to overwrite existing zip file" + (self archive canWriteToFileNamed: self asString) + ifFalse: [ ^ self error: 'a member of this archive is using this file: ', self ]. + + self writer: [ :stream | + self archive writeTo: stream. + ].! Item was changed: ----- Method: PositionableStream>>copyTo:size:withProgress: (in category '*rio-grande') ----- copyTo: out size: aSize withProgress: label | buffer barPos read first | self atEnd ifTrue: [ ^ self ]. first := self next. buffer := (first isCharacter + ifTrue: [ String ] - ifTrue: [ out ascii. String ] ifFalse: [ out binary. ByteArray ]) new: 50000. out nextPut: first. label asString displayProgressAt: Sensor cursorPoint from: (barPos := 0) to: (aSize) during: [:bar | [ self atEnd ] whileFalse: [ bar value: barPos. out nextPutAll: (read := self nextInto: buffer). barPos := barPos + read size ]. ].! Item was added: + ----- Method: Rio>>beRenaming (in category 'public modes') ----- + beRenaming + + rename := true! Item was changed: ----- Method: RioFtpExecutive>>ftpClient (in category 'as yet unclassified') ----- ftpClient + client ifNotNil: [client isConnected ifTrue: [ ^ client ] ]. - ftpClient ifNotNil: [ftpClient isConnected ifTrue: [ ^ ftpClient ] ]. + ^ client := self ftpOpenClient! - ^ ftpClient := self ftpOpenClient! Item was added: + ----- Method: RioArchive>>setRio: (in category 'accessing') ----- + setRio: aRio + + super setRio: aRio. + aRio executive: (RioArchiveExecutive file: aRio copy). + aRio value: ''. "aRio executive root value."! Item was added: + ----- Method: Rio>>commit: (in category 'directory/container actions') ----- + commit: monadicBlock + + monadicBlock value; self. + self commit.! Item was added: + ----- Method: RioArchive>>validExtensions (in category 'validation') ----- + validExtensions + + ^ #('zip' 'mcz')! Item was changed: ----- Method: RioFtpExecutive>>sendData:count: (in category 'wrap socket') ----- sendData: outBuffer count: n + client dataSocket sendData: outBuffer count: n! - ftpClient dataSocket sendData: outBuffer count: n! Item was changed: ----- Method: RioFtpExecutive>>closeAndDestroy: (in category 'wrap socket') ----- closeAndDestroy: timeout + client closeDataSocket. + client checkResponse. - ftpClient closeDataSocket. - ftpClient checkResponse. + rw = #write ifTrue: [ client checkResponse ].! - rw = #write ifTrue: [ ftpClient checkResponse ].! Item was added: + ----- Method: Rio>>writeStream (in category 'adaptor') ----- + writeStream + + | writer | + + writer := self basicWriter ifNil: [ ^ nil ]. + + self isBinary ifTrue: [ writer binary ]. + + ^ writer! Item was added: + ----- Method: RioGzip>>readStream (in category 'streams') ----- + readStream + + | str | + self validateGzip. + + str := super basicReader. + + self isBinary ifTrue: [ str binary ]. + + ^ self readerClass on: str. + ! Item was added: + ----- Method: RioGzip>>copyDescription (in category 'streams') ----- + copyDescription + + ^ 'Decompressing'! Item was added: + ----- Method: RioRemoteExecutive>>host (in category 'as yet unclassified') ----- + host + + ^ url authority! Item was added: + ----- Method: RioArchive>>comment: (in category 'public') ----- + comment: aComment + + self archive zipFileComment: aComment! Item was added: + ----- Method: RioArchive>>writeStream (in category 'public') ----- + writeStream + + ^ self file writeStream! Item was changed: ----- Method: RioFtpExecutive>>rioClass (in category 'as yet unclassified') ----- rioClass + ^ Rio! - ^ RioFtp! Item was added: + ----- Method: RioGzip>>compress (in category 'streams') ----- + compress + + ^ self binary basic copyTo: (self + '.gz') gzip. + + ! Item was added: + ----- Method: RioGzip>>readerClass (in category 'streams') ----- + readerClass + + ^ GZipReadStream ! Item was changed: ----- Method: Rio>>rmdir (in category 'public dir') ----- rmdir "as a minor saftey precaution, the directory must be empty or we must be explicitly set in recursive mode (rmdir resets recursive mode). " self isDirectory ifFalse: [ ^self ]. self isRecursive ifTrue: [ recursive := false. + self entries do: [:d | d beRecursive delete ] ]. - self entries do: [:d | d setModeToRecursive delete ] ]. executive deleteDirectory: self ! Item was added: + ----- Method: RioRemoteExecutive>>password (in category 'as yet unclassified') ----- + password + + ^ url password ifNil: [ (self MCPasswordManager default queryPasswordAt: url asString user: (self user ifNil:[^'squeak'])) ] + + + ! Item was changed: ----- Method: RioRemoteExecutive>>setUrl: (in category 'as yet unclassified') ----- setUrl: aUrl url := aUrl. ! Item was added: + ----- Method: RioArchive>>setArchive: (in category 'accessing') ----- + setArchive: anArchiveManager + + executive setArchive: anArchiveManager. + + ! Item was changed: ----- Method: Rio>>all (in category 'public modes') ----- all + ^ self copy beRecursive! - ^ self copy setModeToRecursive! Item was added: + ----- Method: RioGzip>>writerClass (in category 'streams') ----- + writerClass + + ^ GZipWriteStream ! Item was changed: ----- Method: RioFtpExecutive>>ftpDo: (in category 'as yet unclassified') ----- ftpDo: aBlock | tmp result | tmp := isKeepAlive. isKeepAlive := true. [ result := aBlock value: self ftpClient. ] + ensure: [ (isKeepAlive := tmp) ifFalse: [ client ifNotNil: [ client quit ] ] ]. - ensure: [ (isKeepAlive := tmp) ifFalse: [ ftpClient ifNotNil: [ ftpClient quit ] ] ]. ^ result! Item was changed: ----- Method: Rio>>recursively (in category 'public modes') ----- recursively + ^ self copy beRecursive! - ^ self new setModeToRecursive! Item was added: + ----- Method: Rio>>addAll: (in category 'directory/container actions') ----- + addAll: aCollectionOfFiles + + aCollectionOfFiles do: [ :each | self add: each ]! Item was changed: RioRemoteExecutive subclass: #RioFtpExecutive + instanceVariableNames: 'home isKeepAlive rw ftpClient' - instanceVariableNames: 'home isKeepAlive rw' classVariableNames: '' poolDictionaries: '' category: 'Rio-Grande'! Item was added: + ----- Method: Rio>>addAll:fromBase: (in category 'directory/container actions') ----- + addAll: aCollection fromBase: aDirectory + + aCollection do: [ :each | self add: each fromBase: aDirectory ]! Item was added: + ----- Method: Rio>>readForm (in category 'adaptor') ----- + readForm + + ^ ImageReadWriter formFromFileNamed: self asString ! Item was added: + ----- Method: Rio>>validateIsContainer (in category 'directory/container actions') ----- + validateIsContainer + + self validateIsDirectory + ! Item was changed: ----- Method: Rio>>zip (in category 'public modes') ----- zip + ^ (RioArchive on: self) setArchive: ZipArchive new; yourself! - ^ self copy setModeToZip! Item was changed: ----- Method: RioFtpExecutive>>dataAvailable (in category 'wrap socket') ----- dataAvailable + ^ client dataSocket dataAvailable! - ^ ftpClient dataSocket dataAvailable! Item was added: + ----- Method: RioArchive>>validateIsContainer (in category 'validation') ----- + validateIsContainer + + (self validExtensions includes: self file ext) ifFalse: [ ^self error: 'wrong extension for a zip archive' ]. + ! Item was added: + ----- Method: RioGzip>>validateGzip (in category 'validation & errors') ----- + validateGzip + + (self validExtensions includes: self ext) ifFalse: [ ^self error: 'wrong extension for a gzip file' ]. + ! Item was added: + ----- Method: Rio>>add: (in category 'directory/container actions') ----- + add: aFile + + self validateIsDirectory. + aFile validateIsFile. + + ^ aFile copyTo: self / aFile fileName + ! Item was added: + ----- Method: RioGzip>>copyResultDescription (in category 'streams') ----- + copyResultDescription + + ^ 'Compressed with gzip'! Item was added: + ----- Method: RioGzip>>validExtensions (in category 'streams') ----- + validExtensions + + ^ #( 'gz' )! Item was added: + ----- Method: RioArchive>>add: (in category 'public') ----- + add: aFile + + self validateIsContainer. + aFile validateIsFile. + + self archive addFile: aFile full asString as: aFile fileName. + + ! Item was changed: ----- Method: Rio>>auto (in category 'public modes') ----- auto + self ext = 'gz' ifTrue: [ ^ self gzip ]. + + ^ self copy! - ^ self copy setModeAutomatically ! Item was changed: ----- Method: RioFtpExecutive>>isConnected (in category 'wrap socket') ----- isConnected + ^ (client dataSocket ifNil: [ ^ false ]) isConnected! - ^ (ftpClient dataSocket ifNil: [ ^ false ]) isConnected! Item was changed: ----- Method: Rio>>binary (in category 'public modes') ----- binary + ^ self copy beBinary ! - ^ self copy setModeToBinary ! Item was added: + ----- Method: RioArchive class>>on: (in category 'as yet unclassified') ----- + on: aRio + + ^ self executive: (RioArchiveExecutive file: aRio) value: ''.! Item was changed: ----- Method: Rio>>from: (in category 'copying instanciation') ----- from: pathOrRio (pathOrRio isEmpty and: [ self class name ~= #Cwd ]) ifTrue: [ value := '']. pathOrRio isRio ifTrue: [ self setStat: pathOrRio getStat. + pathOrRio isBinary ifTrue: [ self beBinary ]. - pathOrRio isBinary ifTrue: [ self setModeToBinary ]. - adaptor := pathOrRio adaptor. ]. ^ self value: pathOrRio! Item was added: + ----- Method: RioGzip>>writeStream (in category 'streams') ----- + writeStream + + | str | + self validateGzip. + + str := self writerClass on: (super writeStream ifNil: [ ^ nil ]). + self setFileTypeToObject. + + ^ str! Item was changed: ----- Method: RioFtpExecutive>>receiveAvailableDataInto:startingAt: (in category 'wrap socket') ----- receiveAvailableDataInto: inBuffer startingAt: n + ^ client dataSocket receiveAvailableDataInto: inBuffer startingAt: n! - ^ ftpClient dataSocket receiveAvailableDataInto: inBuffer startingAt: n! Item was added: + ----- Method: RioRemoteExecutive>>user (in category 'as yet unclassified') ----- + user + + ^ url username ifNil: [ '' ] + ! Item was added: + ----- Method: RioGzip class>>validExtensions (in category 'as yet unclassified') ----- + validExtensions + + ^ #( 'gz' )! Item was added: + ----- Method: Rio>>readStream (in category 'adaptor') ----- + readStream + + | reader | + + reader := self basicReader ifNil: [ ^ nil ]. + + self isBinary ifTrue: [ reader binary ]. + + ^ reader! Item was added: + ----- Method: Rio>>basic (in category 'public modes') ----- + basic + + ^ Rio newFrom: self! Item was added: + ----- Method: Rio>>beRecursive (in category 'public modes') ----- + beRecursive + + recursive := true! Item was changed: ----- Method: Rio>>reader (in category 'public file') ----- reader + ^ self readStream! - ^ self adaptor readStream! Item was changed: ----- Method: RioFtpExecutive>>ftpOpenForRead: (in category 'as yet unclassified') ----- ftpOpenForRead: aRio self ftpClient openPassiveDataConnection. self ftpClient sendCommand: 'RETR ', home , aRio asVmPathName. + [client checkResponse] - [ftpClient checkResponse] on: TelnetProtocolError do: [:ex | ftpClient closeDataSocket. ex pass]. "we will wrap a socket for writing" rw := #read. ^ SocketStream on: self.! Item was changed: ----- Method: Rio>>tar (in category 'public modes') ----- tar + ^ (RioArchive on: self) setArchive: TarArchive new; yourself! - ^ self copy setModeToTar! Item was added: + Rio subclass: #RioArchive + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Rio-Grande'! Item was added: + Rio subclass: #RioGzip + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Rio-Grande'! + + !RioGzip commentStamp: 'kph 3/16/2007 08:06' prior: 0! + In using gzip rio expects that if you write text to the file you should read text from the file. + + The 3.9 implemementation of InflateStream blindly sets the readStream to binary. Although its output buffer is created using #species new: in an attempt to make the output in the correct form in practice this would always result in a ByteArray. + + A small fix to InflateStream #on:, checks the #binary setting before is is 'blindly set' and initializes the output collection to be a String is it is not binary. + + In #on:from:to: the collection is initialized to be a buffer being the same species as itself if set in #on: + + ! Item was removed: - ----- Method: RioAdaptorGzip>>copyResultDescription (in category 'streams') ----- - copyResultDescription - - ^ 'Compressed with gzip'! Item was removed: - ----- Method: RioAdaptorGzip>>validExtensions (in category 'streams') ----- - validExtensions - - ^ #( 'gz' )! Item was removed: - ----- Method: RioAdaptorArchive>>writeStream (in category 'public') ----- - writeStream - - ^ self file writeStream! Item was removed: - ----- Method: RioAdaptorGzip>>readerClass (in category 'streams') ----- - readerClass - - ^ GZipReadStream ! Item was removed: - ----- Method: RioAdaptor>>readStream (in category 'as yet unclassified') ----- - readStream - - | reader | - - reader := rio basicReader ifNil: [ ^ nil ]. - - rio isBinary ifTrue: [ reader binary ]. - - ^ reader! Item was removed: - ----- Method: RioAdaptor>>readForm (in category 'as yet unclassified') ----- - readForm - - ^ ImageReadWriter formFromFileNamed: rio asString ! Item was removed: - RioAdaptor subclass: #RioAdaptorGzip - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Rio-Grande'! - - !RioAdaptorGzip commentStamp: 'kph 3/16/2007 08:06' prior: 0! - In using gzip rio expects that if you write text to the file you should read text from the file. - - The 3.9 implemementation of InflateStream blindly sets the readStream to binary. Although its output buffer is created using #species new: in an attempt to make the output in the correct form in practice this would always result in a ByteArray. - - A small fix to InflateStream #on:, checks the #binary setting before is is 'blindly set' and initializes the output collection to be a String is it is not binary. - - In #on:from:to: the collection is initialized to be a buffer being the same species as itself if set in #on: - - ! Item was removed: - ----- Method: Rio>>setModeToTar (in category 'public modes') ----- - setModeToTar - - adaptor := RioAdaptorArchive rio: self archive: TarArchive new.! Item was removed: - ----- Method: RioAdaptorDir>>addAll: (in category 'as yet unclassified') ----- - addAll: aCollectionOfFiles - - aCollectionOfFiles do: [ :each | self add: each ]! Item was removed: - ----- Method: Rio>>respondsTo: (in category 'adaptor wiring') ----- - respondsTo: aSymbol - - ^ (self class canUnderstand: aSymbol) or: [ self adaptor class canUnderstand: aSymbol ]! Item was removed: - ----- Method: Rio>>setModeAutomatically (in category 'public modes') ----- - setModeAutomatically - - self ext = 'gz' ifTrue: [ self setModeToGzip ]! Item was removed: - ----- Method: RioAdaptorGzip class>>validExtensions (in category 'as yet unclassified') ----- - validExtensions - - ^ #( 'gz' )! Item was removed: - ----- Method: RioAdaptorDir>>addAll:fromBase: (in category 'as yet unclassified') ----- - addAll: aCollection fromBase: aDirectory - - aCollection do: [ :each | self add: each fromBase: aDirectory ]! Item was removed: - ----- Method: RioFtpExecutive>>rootString (in category 'as yet unclassified') ----- - rootString - - ^ '/'! Item was removed: - ----- Method: RioFtpExecutive>>password (in category 'as yet unclassified') ----- - password - - ^ url password ifNil: [ (self MCPasswordManager default queryPasswordAt: url asString user: (self user ifNil:[^'squeak'])) ] - - - ! Item was removed: - Rio subclass: #RioHttp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Rio-Grande'! Item was removed: - Rio subclass: #RioFtp - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Rio-Grande'! Item was removed: - ----- Method: RioAdaptor class>>rio: (in category 'as yet unclassified') ----- - rio: aRio - - ^ (self new) - setRio: aRio; - yourself! Item was removed: - ----- Method: RioAdaptorDir>>add: (in category 'as yet unclassified') ----- - add: aFile - - self validate. - aFile validateIsFile. - - ^ aFile copyTo: rio / aFile fileName - ! Item was removed: - ----- Method: RioAdaptorArchive>>archive (in category 'accessing') ----- - archive - - ^ rio executive archive! Item was removed: - ----- Method: RioAdaptorArchive>>add: (in category 'public') ----- - add: aFile - - self validate. - aFile validateIsFile. - - self archive addFile: aFile full asString as: aFile fileName. - - ! Item was removed: - ----- Method: RioAdaptorArchive>>add:fromBase: (in category 'public') ----- - add: aFileOrDir fromBase: aBaseDirectory - - "I am an archive, add the file or create directory using aBaseDirectory - as the base reference." - - | localFileName | - - self validate. - - localFileName := aFileOrDir linearRelativeTo: aBaseDirectory. - - aFileOrDir isFile ifTrue: [ - self archive addFile: aFileOrDir value as: localFileName value. - ]. - aFileOrDir isDirectory ifTrue: [ - self archive addDirectory: aFileOrDir value as: localFileName value. - ]. - - ! Item was removed: - ----- Method: RioFtpExecutive>>host (in category 'as yet unclassified') ----- - host - - ^ url authority! Item was removed: - ----- Method: RioAdaptorGzip>>writeStream (in category 'streams') ----- - writeStream - - | str | - self validate. - - str := self writerClass on: (super writeStream ifNil: [ ^ nil ]). - rio setFileTypeToObject. - - ^ str! Item was removed: - ----- Method: RioFtpExecutive>>password: (in category 'as yet unclassified') ----- - password: passwordString - - | pwd | - - self user = 'ftp' ifTrue: [ ^ self ]. - - passwordString isEmpty ifTrue:[pwd := nil] ifFalse:[pwd := passwordString]. - - self MCPasswordManager default passwordAt: url asString user: self user put: pwd. - ! Item was removed: - ----- Method: RioAdaptorDir>>validate (in category 'as yet unclassified') ----- - validate - - rio validateIsDirectory - ! Item was removed: - ----- Method: RioAdaptorGzip>>basicReader (in category 'streams') ----- - basicReader - - self validate. - - ^ GZipReadStream on: (super basicReader).! Item was removed: - ----- Method: RioAdaptorGzip>>decompress (in category 'streams') ----- - decompress - - ^ rio binary copyTo: ((Rio new: rio asString) ext: '') - ! Item was removed: - ----- Method: RioAdaptorArchive>>commit (in category 'public') ----- - commit - - "Catch attempts to overwrite existing zip file" - (self archive canWriteToFileNamed: rio asString) - ifFalse: [ ^ self error: 'a member of this archive is using this file: ', rio ]. - - rio writer: [ :stream | - self archive writeTo: stream. - ].! Item was removed: - RioAdaptorDir subclass: #RioAdaptorArchive - instanceVariableNames: 'archive' - classVariableNames: '' - poolDictionaries: '' - category: 'Rio-Grande'! Item was removed: - ----- Method: Rio>>adaptor (in category 'accessing') ----- - adaptor - - ^ adaptor ifNil: [ self defaultAdaptor ]. ! Item was removed: - ----- Method: Rio>>setModeToRenaming (in category 'public modes') ----- - setModeToRenaming - - rename := true! Item was removed: - ----- Method: RioAdaptorArchive>>validate (in category 'validation') ----- - validate - - (self validExtensions includes: self file ext) ifFalse: [ ^self error: 'wrong extension for a zip archive' ]. - ! Item was removed: - ----- Method: RioFtpExecutive>>setUrl: (in category 'as yet unclassified') ----- - setUrl: aUrl - - url := aUrl. - ! Item was removed: - ----- Method: RioAdaptorArchive>>validExtensions (in category 'validation') ----- - validExtensions - - ^ #('zip' 'mcz')! Item was removed: - ----- Method: RioHttpExecutive class>>makeNewRioFrom: (in category 'as yet unclassified') ----- - makeNewRioFrom: aString - - | exec path theUrl | - - theUrl := aString asUrl. - - path := String new writeStream. - - theUrl path do: [ :pathElem | - path nextPut: $/. - path nextPutAll: pathElem ]. - - theUrl path: #(). - - exec := self executiveForUrl: theUrl. - - ^ exec rioClass executive: exec value: path contents.! Item was removed: - ----- Method: Rio>>defaultAdaptor (in category 'private') ----- - defaultAdaptor - - self isDirectory ifTrue: [ ^ RioAdaptorDir rio: self ]. - - ^ RioAdaptor rio: self! Item was removed: - ----- Method: RioAdaptorArchive class>>rio:archive: (in category 'as yet unclassified') ----- - rio: aRio archive: anArchive - - ^ (super rio: aRio) - setArchive: anArchive; - yourself! Item was removed: - ----- Method: RioFtp class>>canInstanciate: (in category 'as yet unclassified') ----- - canInstanciate: aPathString - - ^ aPathString beginsWith: 'ftp:'! Item was removed: - ----- Method: RioAdaptorDir>>add:fromBase: (in category 'as yet unclassified') ----- - add: aFileOrDir fromBase: aBaseDirectory - - "I am a directory, add the file or create directory using aBaseDirectory - as the base reference." - - | newRio | - - self validate. - - newRio := rio / (aFileOrDir linearRelativeTo: aBaseDirectory). - - aFileOrDir isFile ifTrue: [ - newRio parent ifAbsentDo: [ :newPath | newPath mkpath ]. - ^ aFileOrDir copyTo: newRio - ]. - - aFileOrDir isDirectory ifTrue: [ ^ newRio mkpath ]. - - ! Item was removed: - ----- Method: RioAdaptorArchive>>comment: (in category 'public') ----- - comment: aComment - - self archive zipFileComment: aComment! Item was removed: - ----- Method: RioAdaptorGzip>>readStream (in category 'streams') ----- - readStream - - self validate. - - ^ self readerClass on: (super readStream).! Item was removed: - ----- Method: RioAdaptorGzip>>copyDescription (in category 'streams') ----- - copyDescription - - ^ 'Decompressing'! Item was removed: - ----- Method: RioAdaptorDir>>addTree: (in category 'as yet unclassified') ----- - addTree: aDir - - | base newAddition | - - self validate. - aDir validateIsDirectory. - - newAddition := self add: aDir fromBase: (base := aDir parent). - - self addAll: (aDir all entries) fromBase: base. - - ^ newAddition - ! Item was removed: - ----- Method: RioAdaptorArchive>>file (in category 'public') ----- - file - - ^ rio executive file ! Item was removed: - ----- Method: Rio>>doesNotUnderstand: (in category 'adaptor wiring') ----- - doesNotUnderstand: aMessage - - | anAdaptor | - - anAdaptor := self adaptor. - - (anAdaptor respondsTo: aMessage selector) - ifTrue: [ ^anAdaptor perform: aMessage selector withArguments: aMessage arguments ]. - - ^super doesNotUnderstand: aMessage! Item was removed: - ----- Method: RioHttp class>>canInstanciate: (in category 'as yet unclassified') ----- - canInstanciate: aPathString - - ^ aPathString beginsWith: 'http:'! Item was removed: - RioAdaptor subclass: #RioAdaptorDir - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Rio-Grande'! - - !RioAdaptorDir commentStamp: 'kph 4/12/2007 07:44' prior: 0! - Could mode mkdir and mkpath into this adaptor.! Item was removed: - ----- Method: RioAdaptorGzip>>compress (in category 'streams') ----- - compress - - ^ rio binary setModeToNoAdaptor copyTo: (rio + '.gz') setModeToGzip. - - ! Item was removed: - ----- Method: Rio>>setModeToBinary (in category 'public modes') ----- - setModeToBinary - - binary := true! Item was removed: - ----- Method: RioAdaptor>>setRio: (in category 'as yet unclassified') ----- - setRio: aRio - - rio := aRio! Item was removed: - Object subclass: #RioAdaptor - instanceVariableNames: 'rio' - classVariableNames: '' - poolDictionaries: '' - category: 'Rio-Grande'! Item was removed: - ----- Method: RioAdaptorArchive>>setArchive: (in category 'accessing') ----- - setArchive: anArchiveManager - - rio executive setArchive: anArchiveManager. - - ! Item was removed: - ----- Method: RioAdaptorDir>>commit (in category 'as yet unclassified') ----- - commit - - ! Item was removed: - ----- Method: RioAdaptorGzip>>writerClass (in category 'streams') ----- - writerClass - - ^ GZipWriteStream ! Item was removed: - ----- Method: Rio>>setModeToZip (in category 'public modes') ----- - setModeToZip - - adaptor := RioAdaptorArchive rio: self archive: ZipArchive new. - ! Item was removed: - ----- Method: RioAdaptorDir>>commit: (in category 'as yet unclassified') ----- - commit: monadicBlock - - monadicBlock value; self. - self commit.! Item was removed: - ----- Method: Rio>>setModeToGzip (in category 'public modes') ----- - setModeToGzip - - adaptor := RioAdaptorGzip rio: self - ! Item was removed: - ----- Method: RioAdaptor>>writeStream (in category 'as yet unclassified') ----- - writeStream - - | writer | - - writer := rio basicWriter ifNil: [ ^ nil ]. - - rio isBinary ifTrue: [ writer binary ]. - - ^ writer! Item was removed: - ----- Method: RioAdaptorArchive>>setRio: (in category 'accessing') ----- - setRio: aRio - - super setRio: aRio. - aRio executive: (RioArchiveExecutive file: aRio copy). - aRio value: ''. "aRio executive root value."! Item was removed: - ----- Method: Rio>>setModeToRecursive (in category 'public modes') ----- - setModeToRecursive - - recursive := true! Item was removed: - ----- Method: Rio>>setModeToNoAdaptor (in category 'public modes') ----- - setModeToNoAdaptor - - adaptor := nil - ! Item was removed: - ----- Method: RioAdaptorGzip>>validate (in category 'validation & errors') ----- - validate - - (self validExtensions includes: rio ext) ifFalse: [ ^self error: 'wrong extension for a gzip file' ]. - !

1 0

Rio: Rio-Grande-kph.44.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 09 Nov '08

09 Nov '08

A new version of Rio-Grande was added to project Rio: http://www.squeaksource.com/Rio/Rio-Grande-kph.44.mcz ==================== Summary ==================== Name: Rio-Grande-kph.44 Author: kph Time: 9 November 2008, 7:31:49 pm UUID: 36b650df-52dd-45f7-bf61-27ccfede14c9 Ancestors: Rio-Grande-kph.43 Refactored Instanciation =============== Diff against Rio-Grande-kph.43 =============== Item was added: + ----- Method: RioArchiveExecutive>>startAt:recursively:select:into: (in category 'as yet unclassified') ----- + startAt: rioOrString recursively: beRecursive select: selectBlock into: results + + "this unpleasent method repackages the flat archive as a hierarchical structure that + can be recursively traversed like a normal directory." + + | membersBelow subDirs dir | + + membersBelow := self members. + + rioOrString isEmpty + ifTrue: [ + dir := ''. + ] + ifFalse: [ + dir := rioOrString value. + dir last ~= $/ ifTrue: [ dir := dir , '/' ]. + membersBelow := membersBelow select: [ :member | + (member fileName ~= dir) and: [member fileName beginsWith: dir] + ]. + ]. + + subDirs := membersBelow select: [ :member | + | pathBelow entryRio | + pathBelow := member fileName allButFirst: dir size. + pathBelow last = $/ ifTrue: [ pathBelow := pathBelow allButLast ]. + (pathBelow includes: $/) + ifFalse: [ + entryRio := self class makeNewRioFrom: member fileName. + entryRio setStatFromDir: rioOrString andEntryArray: + (Array + with: pathBelow + with: "member lastModTime" 0 + with: "member lastModTime" 0 + with: member isDirectory). + (selectBlock value: entryRio) ifTrue: [ results add: entryRio ]. + false + ] + ifTrue: [ true ]. + ]. + + beRecursive ifTrue: [ + subDirs do: [ :aDir | + self startAt: aDir fileName recursively: beRecursive select: selectBlock into: results + ]. + ]. + + ^ results! Item was added: + ----- Method: RioFtpExecutive>>isFile: (in category 'Rio-Grande') ----- + isFile: aRio + + self ftpDo: [ :ftp | ftp getFileSize: home, aRio asVmPathName ] ifError: [ :ex | ^ false ]. + + ^ true.! Item was added: + ----- Method: RioFtpExecutive>>ftpOpenForWrite: (in category 'as yet unclassified') ----- + ftpOpenForWrite: aRio + + self ftpClient openPassiveDataConnection. + self ftpClient sendCommand: 'STOR ', home , aRio asVmPathName. + + "we will wrap a socket for writing" + rw := #write. + + ^ SocketStream on: self.! Item was added: + ----- Method: RioFtpExecutive>>ftpParseEntryOld: (in category 'as yet unclassified') ----- + ftpParseEntryOld: ftpEntry + | tokens longy dateInSeconds thisYear thisMonth | + thisYear := Date today year. + thisMonth := Date today monthIndex. + tokens := ftpEntry findTokens: ' '. + + tokens size = 8 ifTrue: + [((tokens at: 6) size ~= 3 and: [(tokens at: 5) size = 3]) ifTrue: + ["Fix for case that group is blank (relies on month being 3 chars)" + tokens _ tokens copyReplaceFrom: 4 to: 3 with: {'blank'}]]. + tokens size >= 9 ifFalse:[^nil]. + + ((tokens at: 6) size ~= 3 and: [(tokens at: 5) size = 3]) ifTrue: + ["Fix for case that group is blank (relies on month being 3 chars)" + tokens := tokens copyReplaceFrom: 4 to: 3 with: {'blank'}]. + + tokens size > 9 ifTrue: + [longy := tokens at: 9. + 10 to: tokens size do: [:i | longy := longy , ' ' , (tokens at: i)]. + tokens at: 9 put: longy]. + dateInSeconds := self + secondsForDay: (tokens at: 7) + month: (tokens at: 6) + yearOrTime: (tokens at: 8) + thisMonth: thisMonth + thisYear: thisYear. + + ^Array with: (tokens last) "file name" + with: dateInSeconds "creation date" + with: dateInSeconds "modification time" + with: ( (tokens first first) = $d or: [tokens first first =$l]) "is-a-directory flag" + with: tokens fifth asNumber "file size" + ! Item was added: + ----- Method: RioArchiveExecutive>>setFile: (in category 'as yet unclassified') ----- + setFile: aRio + + file := aRio! Item was added: + ----- Method: RioFtpExecutive>>createDirectory: (in category 'Rio-Grande') ----- + createDirectory: aRio + + self ftpDo: [ :ftp | + + ftp makeDirectory: home, aRio asVmPathName. + + ]. + + aRio statIsNowInvalid.! Item was added: + ----- Method: RioFtpExecutive>>isDirectory: (in category 'Rio-Grande') ----- + isDirectory: aRio + + self ftpDo: [ :ftp | ftp changeDirectoryTo: home, aRio asVmPathName ] ifError: [ :ex | ^ false ]. + + ^ true.! Item was added: + ----- Method: RioHttpExecutive class>>canInstanciateRioFrom: (in category 'as yet unclassified') ----- + canInstanciateRioFrom: aPathString + + ^ aPathString beginsWith: 'http:'! Item was added: + ----- Method: RioFtpExecutive>>secondsForDay:month:yearOrTime:thisMonth:thisYear: (in category 'as yet unclassified') ----- + secondsForDay: dayToken month: monthToken yearOrTime: ytToken + thisMonth: thisMonth thisYear: thisYear + + | ftpDay ftpMonth pickAYear jDateToday trialJulianDate | + + ftpDay := dayToken asNumber. + ftpMonth := Date indexOfMonth: monthToken. + (ytToken includes: $:) ifFalse: [ + ^(Date newDay: ftpDay month: ftpMonth year: ytToken asNumber) asSeconds + ]. + jDateToday := Date today dayOfYear. + trialJulianDate := (Date newDay: ftpDay month: ftpMonth year: thisYear) dayOfYear. + + "Date has no year if within six months (do we need to check the day, too?)" + + "Well it appear to be pickier than that... it isn't just 6 months or 6 months and the day of the month, put perhaps the julian date AND the time as well. I don't know what the precise standard is, but this seems to produce better results" + + pickAYear := (jDateToday - trialJulianDate) > 182 ifTrue: [ + thisYear + 1 "his clock could be ahead of ours??" + ] ifFalse: [ + pickAYear := (trialJulianDate - jDateToday) > 182 ifTrue: [ + thisYear - 1 + ] ifFalse: [ + thisYear + ]. + ]. + ^(Date newDay: ftpDay month: ftpMonth year: pickAYear) asSeconds + + (Time readFrom: (ReadStream on: ytToken)) asSeconds + + ! Item was added: + ----- Method: RioFtpExecutive>>receiveDataSignallingTimeout:into:startingAt: (in category 'wrap socket') ----- + receiveDataSignallingTimeout: timeout + into: inBuffer startingAt: inNextToWrite + + ^ ftpClient dataSocket receiveDataSignallingTimeout: timeout + into: inBuffer startingAt: inNextToWrite! Item was added: + ----- Method: RioFtpExecutive>>rootString (in category 'as yet unclassified') ----- + rootString + + ^ '/'! Item was added: + RioRemoteExecutive subclass: #RioHttpExecutive + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Rio-Grande'! Item was added: + ----- Method: RioFtpExecutive>>isOtherEndClosed (in category 'wrap socket') ----- + isOtherEndClosed + + ^ (ftpClient dataSocket ifNil: [ ^ true ]) isOtherEndClosed! Item was added: + ----- Method: RioFtpExecutive>>password (in category 'as yet unclassified') ----- + password + + ^ url password ifNil: [ (self MCPasswordManager default queryPasswordAt: url asString user: (self user ifNil:[^'squeak'])) ] + + + ! Item was changed: ----- Method: PositionableStream>>copyTo:size:withProgress: (in category '*rio-grande') ----- copyTo: out size: aSize withProgress: label | buffer barPos read first | self atEnd ifTrue: [ ^ self ]. first := self next. buffer := (first isCharacter + ifTrue: [ out ascii. String ] - ifTrue: [ String ] ifFalse: [ out binary. ByteArray ]) new: 50000. out nextPut: first. label asString displayProgressAt: Sensor cursorPoint + from: (barPos := 0) to: (aSize) - from: (barPos := 0) to: (self size) during: [:bar | [ self atEnd ] whileFalse: [ bar value: barPos. out nextPutAll: (read := self nextInto: buffer). barPos := barPos + read size ]. ].! Item was added: + ----- Method: RioFtpExecutive>>ftpClient (in category 'as yet unclassified') ----- + ftpClient + + ftpClient ifNotNil: [ftpClient isConnected ifTrue: [ ^ ftpClient ] ]. + + ^ ftpClient := self ftpOpenClient! Item was added: + ----- Method: RioFtpExecutive>>in:select: (in category 'as yet unclassified') ----- + in: aRio select: selectBlock + + ^ self ftpDo: [ :c | super in: aRio select: selectBlock ]! Item was added: + ----- Method: RioArchiveExecutive>>setArchive: (in category 'as yet unclassified') ----- + setArchive: anArchive + + archive := anArchive ! Item was added: + ----- Method: RioFtpExecutive>>sendData:count: (in category 'wrap socket') ----- + sendData: outBuffer count: n + + ftpClient dataSocket sendData: outBuffer count: n! Item was added: + ----- Method: RioArchiveExecutive>>isFile: (in category 'as yet unclassified') ----- + isFile: aRio + + ^ (self isDirectory: aRio) not! Item was added: + ----- Method: RioFtpExecutive>>basicReader: (in category 'as yet unclassified') ----- + basicReader: aRio + + ^ self ftpOpenForRead: aRio! Item was added: + ----- Method: RioFtpExecutive>>closeAndDestroy: (in category 'wrap socket') ----- + closeAndDestroy: timeout + + ftpClient closeDataSocket. + ftpClient checkResponse. + + rw = #write ifTrue: [ ftpClient checkResponse ].! Item was added: + ----- Method: RioFtpExecutive>>startAt:recursively:select:into: (in category 'as yet unclassified') ----- + startAt: rioOrString recursively: beRecursive select: selectBlock into: results + + "Return a collection of rio's selected by passing + the directoryEntry array to the selectBlock. + + This can be called with startAt: aString, but if so beRecursive must be false. + + See primLookupEntryIn:index: for further details." + + | entryRio | + + (self ftpGetDirectory: home, rioOrString asVmPathName) keysAndValuesDo: [ :index :entryArray | + + (entryRio := rioOrString / (entryArray at: 1)) + setStatFromDir: rioOrString andEntryArray:entryArray. + + (selectBlock value: entryRio) ifTrue: [ results add: entryRio ]. + + (beRecursive and: [ entryArray at: 4]) + ifTrue: [ + self + startAt: entryRio + recursively: beRecursive + select: selectBlock + into: results + ]. + + ]. + + ^ results! Item was added: + ----- Method: RioArchiveExecutive class>>file: (in category 'as yet unclassified') ----- + file: aRio + + ^ (self new) setFile: aRio; yourself! Item was added: + ----- Method: RioFtpExecutive>>touch: (in category 'Rio-Grande') ----- + touch: aRio + + self ftpDo: [ :dtp | + + ftp putFileStreamContents: (WriteStream with: String new) as: home , aRio asVmPathName + + ]! Item was added: + RioLocalExecutive subclass: #RioArchiveExecutive + instanceVariableNames: 'file archive members' + classVariableNames: '' + poolDictionaries: '' + category: 'Rio-Grande'! Item was added: + ----- Method: RioFtpExecutive>>ftpDo:ifError: (in category 'as yet unclassified') ----- + ftpDo: aBlock ifError: errBlock + + [ self ftpDo: aBlock. + ] on: TelnetProtocolError do: errBlock ! Item was added: + ----- Method: RioFtpExecutive>>rioClass (in category 'as yet unclassified') ----- + rioClass + + ^ RioFtp! Item was added: + ----- Method: RioFtpExecutive>>host (in category 'as yet unclassified') ----- + host + + ^ url authority! Item was added: + ----- Method: RioFtpExecutive>>mkpath: (in category 'Rio-Grande') ----- + mkpath: aRio + self ftpDo: [ :ftp | super mkpath: aRio ] ! Item was added: + ----- Method: RioFtpExecutive>>password: (in category 'as yet unclassified') ----- + password: passwordString + + | pwd | + + self user = 'ftp' ifTrue: [ ^ self ]. + + passwordString isEmpty ifTrue:[pwd := nil] ifFalse:[pwd := passwordString]. + + self MCPasswordManager default passwordAt: url asString user: self user put: pwd. + ! Item was added: + ----- Method: RioArchiveExecutive>>members (in category 'as yet unclassified') ----- + members + + ^ members ifNil: [ + file reader: [ :str | archive readFrom: str ]. + members := archive members. + ]! Item was added: + ----- Method: RioRemoteExecutive>>setUrl: (in category 'as yet unclassified') ----- + setUrl: aUrl + + url := aUrl. + ! Item was added: + ----- Method: RioFtpExecutive>>deleteFile: (in category 'Rio-Grande') ----- + deleteFile: aRio + + self ftpDo: [ :ftp | + + (self isFile: aRio) ifTrue: [ ftp deleteFileNamed: home , aRio asVmPathName ] + + ]. + + aRio statIsNowInvalid.! Item was added: + ----- Method: RioFtpExecutive>>fileSize: (in category 'Rio-Grande') ----- + fileSize: aRio + + ^ self ftpDo: [ :ftp | ftp getFileSize: home, aRio asVmPathName ] ! Item was added: + ----- Method: RioFtpExecutive>>ftpDo: (in category 'as yet unclassified') ----- + ftpDo: aBlock + + | tmp result | + + tmp := isKeepAlive. + isKeepAlive := true. + + [ result := aBlock value: self ftpClient. ] + + ensure: [ (isKeepAlive := tmp) ifFalse: [ ftpClient ifNotNil: [ ftpClient quit ] ] ]. + + ^ result! Item was added: + ----- Method: RioFtpExecutive>>setUrl: (in category 'as yet unclassified') ----- + setUrl: aUrl + + url := aUrl. + ! Item was added: + RioRemoteExecutive subclass: #RioFtpExecutive + instanceVariableNames: 'home isKeepAlive rw' + classVariableNames: '' + poolDictionaries: '' + category: 'Rio-Grande'! Item was added: + ----- Method: RioFtpExecutive>>delete: (in category 'Rio-Grande') ----- + delete: aRio + self ftpDo: [ :ftp | super delete: aRio ] ! Item was added: + ----- Method: RioHttpExecutive class>>makeNewRioFrom: (in category 'as yet unclassified') ----- + makeNewRioFrom: aString + + | exec path theUrl | + + theUrl := aString asUrl. + + path := String new writeStream. + + theUrl path do: [ :pathElem | + path nextPut: $/. + path nextPutAll: pathElem ]. + + theUrl path: #(). + + exec := self executiveForUrl: theUrl. + + ^ exec rioClass executive: exec value: path contents.! Item was added: + ----- Method: RioArchiveExecutive>>fullFor: (in category 'as yet unclassified') ----- + fullFor: aRio + + ^ aRio + ! Item was added: + ----- Method: RioFtpExecutive class>>canInstanciateRioFrom: (in category 'as yet unclassified') ----- + canInstanciateRioFrom: aPathString + + ^ aPathString beginsWith: 'ftp:'! Item was added: + ----- Method: RioFtpExecutive>>dataAvailable (in category 'wrap socket') ----- + dataAvailable + + ^ ftpClient dataSocket dataAvailable! Item was added: + RioArchiveExecutive subclass: #RioZipArchiveExecutive + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Rio-Grande'! Item was added: + ----- Method: RioArchiveExecutive>>printId (in category 'as yet unclassified') ----- + printId + + ^ self file asString! Item was added: + ----- Method: RioFtpExecutive>>ftpKeepAliveDuring: (in category 'as yet unclassified') ----- + ftpKeepAliveDuring: aBlock + + | tmp | + + tmp := isKeepAlive. + isKeepAlive := true. + aBlock ensure: [ isKeepAlive := tmp ] + ! Item was added: + ----- Method: RioArchiveExecutive>>root (in category 'as yet unclassified') ----- + root + + ^ self pathDelimiter + ! Item was added: + ----- Method: RioFtpExecutive>>deleteDirectory: (in category 'Rio-Grande') ----- + deleteDirectory: aRio + + self ftpDo: [ :ftp | + + ftp deleteDirectory: home, aRio asVmPathName. + + ]. + + aRio statIsNowInvalid.! Item was added: + ----- Method: RioFtpExecutive>>isKeepAlive (in category 'as yet unclassified') ----- + isKeepAlive + + ^ true! Item was added: + ----- Method: RioFtpExecutive>>isConnected (in category 'wrap socket') ----- + isConnected + + ^ (ftpClient dataSocket ifNil: [ ^ false ]) isConnected! Item was added: + ----- Method: RioFtpExecutive>>mkdir: (in category 'Rio-Grande') ----- + mkdir: aRio + self ftpDo: [ :ftp | super mkdir: aRio ] ! Item was added: + RioExecutive subclass: #RioRemoteExecutive + instanceVariableNames: 'url client' + classVariableNames: '' + poolDictionaries: '' + category: 'Rio-Grande'! Item was added: + ----- Method: RioArchiveExecutive>>isDirectory: (in category 'as yet unclassified') ----- + isDirectory: aRio + + | dir | + + dir := aRio value, '/'. + + ^ (archive members detect: [ :member | dir = member fileName ] ifNone: [ ^false ]) isDirectory! Item was added: + ----- Method: RioFtpExecutive>>ftpOpenClient (in category 'as yet unclassified') ----- + ftpOpenClient + + | loginSuccessful what client | + + client := self FTPClient openOnHostNamed: self host. + loginSuccessful := false. + [loginSuccessful] + whileFalse: [ + [loginSuccessful := true. + client loginUser: self user password: self password] + on: LoginFailedException + do: [:ex | + what := UIManager default + chooseFrom: #('enter password' 'give up') + title: 'Would you like to try another password?'. + what = 1 ifFalse: [self error: 'Login failed.'. ^nil] + ifTrue: [ self password: nil ]. + loginSuccessful := false]]. + + home := client pwd. + + ^client! Item was added: + ----- Method: RioArchiveExecutive>>archive (in category 'as yet unclassified') ----- + archive + + ^ archive! Item was added: + ----- Method: RioArchiveExecutive>>file (in category 'as yet unclassified') ----- + file + + ^ file ! Item was added: + ----- Method: RioFtpExecutive>>receiveAvailableDataInto:startingAt: (in category 'wrap socket') ----- + receiveAvailableDataInto: inBuffer startingAt: n + + ^ ftpClient dataSocket receiveAvailableDataInto: inBuffer startingAt: n! Item was added: + ----- Method: RioFtpExecutive>>basicWriter: (in category 'as yet unclassified') ----- + basicWriter: aRio + + ^ self ftpOpenForWrite: aRio! Item was added: + ----- Method: RioFtpExecutive>>initialize (in category 'as yet unclassified') ----- + initialize + + isKeepAlive := false.! Item was changed: ----- Method: RioAdaptorArchive>>setRio: (in category 'accessing') ----- setRio: aRio super setRio: aRio. + aRio executive: (RioArchiveExecutive file: aRio copy). - aRio executive: (RioArchiveFileSystem file: aRio copy). aRio value: ''. "aRio executive root value."! Item was added: + ----- Method: RioFtpExecutive>>user (in category 'as yet unclassified') ----- + user + + ^ url username ifNil: [ 'ftp' ] + ! Item was added: + ----- Method: RioFtpExecutive>>ftpOpenForRead: (in category 'as yet unclassified') ----- + ftpOpenForRead: aRio + + self ftpClient openPassiveDataConnection. + self ftpClient sendCommand: 'RETR ', home , aRio asVmPathName. + + [ftpClient checkResponse] + on: TelnetProtocolError + do: [:ex | + ftpClient closeDataSocket. + ex pass]. + + "we will wrap a socket for writing" + rw := #read. + + ^ SocketStream on: self.! Item was added: + ----- Method: RioRemoteExecutive class>>executiveForUrl: (in category 'as yet unclassified') ----- + executiveForUrl: aUrl + + ^ self basicNew setUrl: aUrl; initialize! Item was added: + ----- Method: RioFtpExecutive>>ftpGetDirectory: (in category 'Rio-Grande') ----- + ftpGetDirectory: dirString + "Return a stream with a listing of the current server directory. (Later -- Use a proxy server if one has been registered.)" + + | listing str ftpEntries | + + self ftpDo: [ :ftp | + ftp changeDirectoryTo: dirString. + listing := ftp getDirectory ]. + + str := ReadStream on: listing. + + (str respondsTo: #contentsOfEntireFile) ifFalse: [^ #()]. + + ftpEntries := str contentsOfEntireFile findTokens: String crlf. + + ^ ftpEntries + collect:[:ftpEntry | self ftpParseEntry: ftpEntry ] + thenSelect: [:entry | entry notNil]! Item was added: + ----- Method: RioFtpExecutive>>rename:to: (in category 'Rio-Grande') ----- + rename: aRio to: bRio + + self ftpDo: [ :ftp | ftp renameFileNamed: home, aRio asVmPathName to: home, bRio asVmPathName ] + ifError: [ + + aRio exists ifFalse:[ self error:'Attempt to rename a non-existent file or dir:' , aRio]. + + bRio exists ifTrue:[ self error: 'Failed to rename, ', bRio,' already exists.' ]. + + ]. + + aRio statIsNowInvalid. + + + ^ bRio + + ! Item was added: + ----- Method: RioFtpExecutive>>FTPClient (in category 'as yet unclassified') ----- + FTPClient + + ^ FTPClient"Debug"! Item was added: + ----- Method: RioFtpExecutive>>ftpParseEntry: (in category 'as yet unclassified') ----- + ftpParseEntry: ftpEntry + | permissions rs dateInSeconds thisYear thisMonth unkown user group size month day time filename | + thisYear := Date today year. + thisMonth := Date today monthIndex. + + rs := ftpEntry readStream. + + permissions := rs upToSeparator. + + permissions size < 10 ifTrue: [ ^ nil ]. + + rs skipSeparators. + + unkown := rs upToSeparator. + + rs skipSeparators. + + user := rs upToSeparator. + + rs skipSeparators. + + group := rs upToSeparator. + + rs skipSeparators. + + size := rs upToSeparator. + + rs skipSeparators. + + month := rs upToSeparator. + + rs skipSeparators. + + "Fix for case that group is blank (relies on month being 3 chars)" + (size size = 3 and: [ size asNumber = 0 ]) ifTrue: [ + + month := size. + size := group. + group := 'blank'. + + ]. + + day := rs upToSeparator. + + rs skipSeparators. + + time := rs upToSeparator. + + rs skipSeparators. + + filename := rs upToEnd. + + dateInSeconds := self + secondsForDay: day + month: month + yearOrTime: time + thisMonth: thisMonth + thisYear: thisYear. + + ^Array with: filename "file name" + with: dateInSeconds "creation date" + with: dateInSeconds "modification time" + with: ( (permissions first) = $d or: [permissions first =$l]) "is-a-directory flag" + with: size asNumber "file size" + ! Item was added: + ----- Method: RioRemoteExecutive class>>makeNewRioFrom: (in category 'as yet unclassified') ----- + makeNewRioFrom: aString + + | exec path theUrl | + + theUrl := aString asUrl. + + path := String new writeStream. + + theUrl path do: [ :pathElem | + path nextPut: $/. + path nextPutAll: pathElem ]. + + theUrl path: #(). + + exec := self executiveForUrl: theUrl. + + ^ exec rioClass executive: exec value: path contents.! Item was removed: - ----- Method: RioArchiveFileSystem>>startAt:recursively:select:into: (in category 'as yet unclassified') ----- - startAt: rioOrString recursively: beRecursive select: selectBlock into: results - - "this unpleasent method repackages the flat archive as a hierarchical structure that - can be recursively traversed like a normal directory." - - | membersBelow subDirs dir | - - membersBelow := self members. - - rioOrString isEmpty - ifTrue: [ - dir := ''. - ] - ifFalse: [ - dir := rioOrString value. - dir last ~= $/ ifTrue: [ dir := dir , '/' ]. - membersBelow := membersBelow select: [ :member | - (member fileName ~= dir) and: [member fileName beginsWith: dir] - ]. - ]. - - subDirs := membersBelow select: [ :member | - | pathBelow entryRio | - pathBelow := member fileName allButFirst: dir size. - pathBelow last = $/ ifTrue: [ pathBelow := pathBelow allButLast ]. - (pathBelow includes: $/) - ifFalse: [ - entryRio := self makeNewRioOfClass: Rio fromString: member fileName. - entryRio setStatFromDir: rioOrString andEntryArray: - (Array - with: pathBelow - with: "member lastModTime" 0 - with: "member lastModTime" 0 - with: member isDirectory). - (selectBlock value: entryRio) ifTrue: [ results add: entryRio ]. - false - ] - ifTrue: [ true ]. - ]. - - beRecursive ifTrue: [ - subDirs do: [ :aDir | - self startAt: aDir fileName recursively: beRecursive select: selectBlock into: results - ]. - ]. - - ^ results! Item was removed: - ----- Method: RioFtpFileSystem>>isDirectory: (in category 'as yet unclassified') ----- - isDirectory: aRio - - self ftpDo: [ :client | client changeDirectoryTo: home, aRio asVmPathName ] ifError: [ :ex | ^ false ]. - - ^ true.! Item was removed: - ----- Method: RioFtpFileSystem>>secondsForDay:month:yearOrTime:thisMonth:thisYear: (in category 'as yet unclassified') ----- - secondsForDay: dayToken month: monthToken yearOrTime: ytToken - thisMonth: thisMonth thisYear: thisYear - - | ftpDay ftpMonth pickAYear jDateToday trialJulianDate | - - ftpDay := dayToken asNumber. - ftpMonth := Date indexOfMonth: monthToken. - (ytToken includes: $:) ifFalse: [ - ^(Date newDay: ftpDay month: ftpMonth year: ytToken asNumber) asSeconds - ]. - jDateToday := Date today dayOfYear. - trialJulianDate := (Date newDay: ftpDay month: ftpMonth year: thisYear) dayOfYear. - - "Date has no year if within six months (do we need to check the day, too?)" - - "Well it appear to be pickier than that... it isn't just 6 months or 6 months and the day of the month, put perhaps the julian date AND the time as well. I don't know what the precise standard is, but this seems to produce better results" - - pickAYear := (jDateToday - trialJulianDate) > 182 ifTrue: [ - thisYear + 1 "his clock could be ahead of ours??" - ] ifFalse: [ - pickAYear := (trialJulianDate - jDateToday) > 182 ifTrue: [ - thisYear - 1 - ] ifFalse: [ - thisYear - ]. - ]. - ^(Date newDay: ftpDay month: ftpMonth year: pickAYear) asSeconds + - (Time readFrom: (ReadStream on: ytToken)) asSeconds - - ! Item was removed: - ----- Method: RioFtpFileSystem>>receiveDataSignallingTimeout:into:startingAt: (in category 'wrap socket') ----- - receiveDataSignallingTimeout: timeout - into: inBuffer startingAt: inNextToWrite - - ^ ftpClient dataSocket receiveDataSignallingTimeout: timeout - into: inBuffer startingAt: inNextToWrite! Item was removed: - ----- Method: RioFtpFileSystem>>rootString (in category 'as yet unclassified') ----- - rootString - - ^ '/'! Item was removed: - ----- Method: RioFtpFileSystem>>deleteFile: (in category 'as yet unclassified') ----- - deleteFile: aRio - - self ftpDo: [ :client | - - (self isFile: aRio) ifTrue: [ client deleteFileNamed: home , aRio asVmPathName ] - - ]. - - aRio statIsNowInvalid.! Item was removed: - ----- Method: RioFtpFileSystem>>isOtherEndClosed (in category 'wrap socket') ----- - isOtherEndClosed - - ^ (ftpClient dataSocket ifNil: [ ^ true ]) isOtherEndClosed! Item was removed: - ----- Method: RioFtpFileSystem>>ftpDo: (in category 'as yet unclassified') ----- - ftpDo: aBlock - - | tmp result | - - tmp := isKeepAlive. - isKeepAlive := true. - - [ result := aBlock value: self ftpClient. ] - - ensure: [ (isKeepAlive := tmp) ifFalse: [ ftpClient ifNotNil: [ ftpClient quit ] ] ]. - - ^ result! Item was removed: - ----- Method: RioFtpFileSystem>>password (in category 'as yet unclassified') ----- - password - - ^ url password ifNil: [ (self MCPasswordManager default queryPasswordAt: url asString user: (self user ifNil:[^'squeak'])) ] - - - ! Item was removed: - ----- Method: RioFtpFileSystem>>ftpClient (in category 'as yet unclassified') ----- - ftpClient - - ftpClient ifNotNil: [ftpClient isConnected ifTrue: [ ^ ftpClient ] ]. - - ^ ftpClient := self ftpOpenClient! Item was removed: - ----- Method: RioFtpFileSystem>>in:select: (in category 'as yet unclassified') ----- - in: aRio select: selectBlock - - ^ self ftpDo: [ :c | super in: aRio select: selectBlock ]! Item was removed: - ----- Method: RioArchiveFileSystem>>file (in category 'as yet unclassified') ----- - file - - ^ file ! Item was removed: - ----- Method: RioFtpFileSystem>>sendData:count: (in category 'wrap socket') ----- - sendData: outBuffer count: n - - ftpClient dataSocket sendData: outBuffer count: n! Item was removed: - ----- Method: RioFtpFileSystem>>basicReader: (in category 'as yet unclassified') ----- - basicReader: aRio - - ^ self ftpOpenForRead: aRio! Item was removed: - ----- Method: RioFtpFileSystem>>closeAndDestroy: (in category 'wrap socket') ----- - closeAndDestroy: timeout - - ftpClient closeDataSocket. - ftpClient checkResponse. - - rw = #write ifTrue: [ ftpClient checkResponse ].! Item was removed: - ----- Method: RioFtpFileSystem>>startAt:recursively:select:into: (in category 'as yet unclassified') ----- - startAt: rioOrString recursively: beRecursive select: selectBlock into: results - - "Return a collection of rio's selected by passing - the directoryEntry array to the selectBlock. - - This can be called with startAt: aString, but if so beRecursive must be false. - - See primLookupEntryIn:index: for further details." - - | entryRio | - - (self ftpGetDirectory: home, rioOrString asVmPathName) keysAndValuesDo: [ :index :entryArray | - - (entryRio := rioOrString / (entryArray at: 1)) - setStatFromDir: rioOrString andEntryArray:entryArray. - - (selectBlock value: entryRio) ifTrue: [ results add: entryRio ]. - - (beRecursive and: [ entryArray at: 4]) - ifTrue: [ - self - startAt: entryRio - recursively: beRecursive - select: selectBlock - into: results - ]. - - ]. - - ^ results! Item was removed: - ----- Method: RioArchiveFileSystem>>setArchive: (in category 'as yet unclassified') ----- - setArchive: anArchive - - archive := anArchive ! Item was removed: - ----- Method: RioFtp class>>defaultExecutive (in category 'as yet unclassified') ----- - defaultExecutive - - ^ RioFtpFileSystem new! Item was removed: - ----- Method: RioFtpFileSystem>>ftpDo:ifError: (in category 'as yet unclassified') ----- - ftpDo: aBlock ifError: errBlock - - [ self ftpDo: aBlock. - ] on: TelnetProtocolError do: errBlock ! Item was removed: - ----- Method: RioFtpFileSystem>>mkpath: (in category 'as yet unclassified') ----- - mkpath: aRio - self ftpDo: [ :client | super mkpath: aRio ] ! Item was removed: - ----- Method: RioFtpFileSystem>>makeNewRioOfClass:fromString: (in category 'as yet unclassified') ----- - makeNewRioOfClass: aRioClass fromString: aString - - | exec path theUrl | - - theUrl := aString asUrl. - - path := String new writeStream. - - theUrl path do: [ :pathElem | - path nextPut: $/. - path nextPutAll: pathElem ]. - - theUrl path: #(). - - exec := self executiveForUrl: theUrl. - - ^ aRioClass executive: exec value: path contents.! Item was removed: - ----- Method: RioFtpFileSystem>>rioClass (in category 'as yet unclassified') ----- - rioClass - - ^ RioFtp! Item was removed: - ----- Method: RioFtpFileSystem>>host (in category 'as yet unclassified') ----- - host - - ^ url authority! Item was removed: - ----- Method: RioArchiveFileSystem class>>file: (in category 'as yet unclassified') ----- - file: aRio - - ^ (self new) setFile: aRio; yourself! Item was removed: - ----- Method: RioFtpFileSystem>>password: (in category 'as yet unclassified') ----- - password: passwordString - - | pwd | - - self user = 'ftp' ifTrue: [ ^ self ]. - - passwordString isEmpty ifTrue:[pwd := nil] ifFalse:[pwd := passwordString]. - - self MCPasswordManager default passwordAt: url asString user: self user put: pwd. - ! Item was removed: - ----- Method: RioFtpFileSystem>>ftpOpenClient (in category 'as yet unclassified') ----- - ftpOpenClient - - | loginSuccessful what client | - - client := self FTPClient openOnHostNamed: self host. - loginSuccessful := false. - [loginSuccessful] - whileFalse: [ - [loginSuccessful := true. - client loginUser: self user password: self password] - on: LoginFailedException - do: [:ex | - what := UIManager default - chooseFrom: #('enter password' 'give up') - title: 'Would you like to try another password?'. - what = 1 ifFalse: [self error: 'Login failed.'. ^nil] - ifTrue: [ self password: nil ]. - loginSuccessful := false]]. - - home := client pwd. - - ^client! Item was removed: - ----- Method: RioArchiveFileSystem>>setFile: (in category 'as yet unclassified') ----- - setFile: aRio - - file := aRio! Item was removed: - ----- Method: RioFtpFileSystem>>fileSize: (in category 'as yet unclassified') ----- - fileSize: aRio - - ^ self ftpDo: [ :client | client getFileSize: home, aRio asVmPathName ] ! Item was removed: - ----- Method: RioFtpFileSystem>>delete: (in category 'as yet unclassified') ----- - delete: aRio - self ftpDo: [ :client | super delete: aRio ] ! Item was removed: - ----- Method: RioFtpFileSystem>>ftpParseEntry: (in category 'as yet unclassified') ----- - ftpParseEntry: ftpEntry - | permissions rs dateInSeconds thisYear thisMonth unkown user group size month day time filename | - thisYear := Date today year. - thisMonth := Date today monthIndex. - - rs := ftpEntry readStream. - - permissions := rs upToSeparator. - - permissions size < 10 ifTrue: [ ^ nil ]. - - rs skipSeparators. - - unkown := rs upToSeparator. - - rs skipSeparators. - - user := rs upToSeparator. - - rs skipSeparators. - - group := rs upToSeparator. - - rs skipSeparators. - - size := rs upToSeparator. - - rs skipSeparators. - - month := rs upToSeparator. - - rs skipSeparators. - - "Fix for case that group is blank (relies on month being 3 chars)" - (size size = 3 and: [ size asNumber = 0 ]) ifTrue: [ - - month := size. - size := group. - group := 'blank'. - - ]. - - day := rs upToSeparator. - - rs skipSeparators. - - time := rs upToSeparator. - - rs skipSeparators. - - filename := rs upToEnd. - - dateInSeconds := self - secondsForDay: day - month: month - yearOrTime: time - thisMonth: thisMonth - thisYear: thisYear. - - ^Array with: filename "file name" - with: dateInSeconds "creation date" - with: dateInSeconds "modification time" - with: ( (permissions first) = $d or: [permissions first =$l]) "is-a-directory flag" - with: size asNumber "file size" - ! Item was removed: - ----- Method: RioFtpFileSystem>>FTPClient (in category 'as yet unclassified') ----- - FTPClient - - ^ FTPClient"Debug"! Item was removed: - ----- Method: RioFtpFileSystem>>dataAvailable (in category 'wrap socket') ----- - dataAvailable - - ^ ftpClient dataSocket dataAvailable! Item was removed: - ----- Method: RioFtpFileSystem>>ftpKeepAliveDuring: (in category 'as yet unclassified') ----- - ftpKeepAliveDuring: aBlock - - | tmp | - - tmp := isKeepAlive. - isKeepAlive := true. - aBlock ensure: [ isKeepAlive := tmp ] - ! Item was removed: - ----- Method: RioFtpFileSystem>>deleteDirectory: (in category 'as yet unclassified') ----- - deleteDirectory: aRio - - self ftpDo: [ :client | - - client deleteDirectory: home, aRio asVmPathName. - - ]. - - aRio statIsNowInvalid.! Item was removed: - ----- Method: RioArchiveFileSystem>>isFile: (in category 'as yet unclassified') ----- - isFile: aRio - - ^ (self isDirectory: aRio) not! Item was removed: - ----- Method: RioArchiveFileSystem>>printId (in category 'as yet unclassified') ----- - printId - - ^ self file asString! Item was removed: - ----- Method: RioFtpFileSystem>>isConnected (in category 'wrap socket') ----- - isConnected - - ^ (ftpClient dataSocket ifNil: [ ^ false ]) isConnected! Item was removed: - ----- Method: RioFtpFileSystem>>isKeepAlive (in category 'as yet unclassified') ----- - isKeepAlive - - ^ true! Item was removed: - ----- Method: RioArchiveFileSystem>>root (in category 'as yet unclassified') ----- - root - - ^ self pathDelimiter - ! Item was removed: - ----- Method: RioFtpFileSystem>>mkdir: (in category 'as yet unclassified') ----- - mkdir: aRio - self ftpDo: [ :client | super mkdir: aRio ] ! Item was removed: - ----- Method: RioFtpFileSystem>>createDirectory: (in category 'as yet unclassified') ----- - createDirectory: aRio - - self ftpDo: [ :client | - - client makeDirectory: home, aRio asVmPathName. - - ]. - - aRio statIsNowInvalid.! Item was removed: - RioExecutive subclass: #RioFtpFileSystem - instanceVariableNames: 'url home ftpClient isKeepAlive rw' - classVariableNames: 'Servers' - poolDictionaries: '' - category: 'Rio-Grande'! Item was removed: - ----- Method: RioFtpFileSystem>>receiveAvailableDataInto:startingAt: (in category 'wrap socket') ----- - receiveAvailableDataInto: inBuffer startingAt: n - - ^ ftpClient dataSocket receiveAvailableDataInto: inBuffer startingAt: n! Item was removed: - ----- Method: RioFtpFileSystem>>basicWriter: (in category 'as yet unclassified') ----- - basicWriter: aRio - - ^ self ftpOpenForWrite: aRio! Item was removed: - ----- Method: RioFtpFileSystem>>executiveForUrl: (in category 'as yet unclassified') ----- - executiveForUrl: aUrl - - url := aUrl. - ! Item was removed: - ----- Method: RioFtpFileSystem>>initialize (in category 'as yet unclassified') ----- - initialize - - isKeepAlive := false.! Item was removed: - ----- Method: RioArchiveFileSystem>>isDirectory: (in category 'as yet unclassified') ----- - isDirectory: aRio - - | dir | - - dir := aRio value, '/'. - - ^ (archive members detect: [ :member | dir = member fileName ] ifNone: [ ^false ]) isDirectory! Item was removed: - ----- Method: RioArchiveFileSystem>>members (in category 'as yet unclassified') ----- - members - - ^ members ifNil: [ - file reader: [ :str | archive readFrom: str ]. - members := archive members. - ]! Item was removed: - ----- Method: RioFtpFileSystem>>user (in category 'as yet unclassified') ----- - user - - ^ url username ifNil: [ 'ftp' ] - ! Item was removed: - ----- Method: RioArchiveFileSystem>>archive (in category 'as yet unclassified') ----- - archive - - ^ archive! Item was removed: - ----- Method: RioFtpFileSystem>>MCPasswordManager (in category 'as yet unclassified') ----- - MCPasswordManager - - ^ MCPasswordManager! Item was removed: - ----- Method: RioFtpFileSystem>>ftpOpenForRead: (in category 'as yet unclassified') ----- - ftpOpenForRead: aRio - - self ftpClient openPassiveDataConnection. - self ftpClient sendCommand: 'RETR ', home , aRio asVmPathName. - - [ftpClient checkResponse] - on: TelnetProtocolError - do: [:ex | - ftpClient closeDataSocket. - ex pass]. - - "we will wrap a socket for writing" - rw := #read. - - ^ SocketStream on: self.! Item was removed: - RioArchiveFileSystem subclass: #RioZipArchiveFileSystem - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Rio-Grande'! Item was removed: - ----- Method: RioFtpFileSystem>>ftpGetDirectory: (in category 'as yet unclassified') ----- - ftpGetDirectory: dirString - "Return a stream with a listing of the current server directory. (Later -- Use a proxy server if one has been registered.)" - - | listing str ftpEntries | - - self ftpDo: [ :client | - client changeDirectoryTo: dirString. - listing := client getDirectory ]. - - str := ReadStream on: listing. - - (str respondsTo: #contentsOfEntireFile) ifFalse: [^ #()]. - - ftpEntries := str contentsOfEntireFile findTokens: String crlf. - - ^ ftpEntries - collect:[:ftpEntry | self ftpParseEntry: ftpEntry ] - thenSelect: [:entry | entry notNil]! Item was removed: - ----- Method: RioFtpFileSystem>>rename:to: (in category 'as yet unclassified') ----- - rename: aRio to: bRio - - self ftpDo: [ :client | client renameFileNamed: home, aRio asVmPathName to: home, bRio asVmPathName ] - ifError: [ - - aRio exists ifFalse:[ self error:'Attempt to rename a non-existent file or dir:' , aRio]. - - bRio exists ifTrue:[ self error: 'Failed to rename, ', bRio,' already exists.' ]. - - ]. - - aRio statIsNowInvalid. - - - ^ bRio - - ! Item was removed: - ----- Method: RioFtpFileSystem>>isFile: (in category 'as yet unclassified') ----- - isFile: aRio - - self ftpDo: [ :client | client getFileSize: home, aRio asVmPathName ] ifError: [ :ex | ^ false ]. - - ^ true.! Item was removed: - ----- Method: RioFtpFileSystem>>ftpOpenForWrite: (in category 'as yet unclassified') ----- - ftpOpenForWrite: aRio - - self ftpClient openPassiveDataConnection. - self ftpClient sendCommand: 'STOR ', home , aRio asVmPathName. - - "we will wrap a socket for writing" - rw := #write. - - ^ SocketStream on: self.! Item was removed: - ----- Method: RioArchiveFileSystem>>fullFor: (in category 'as yet unclassified') ----- - fullFor: aRio - - ^ aRio - ! Item was removed: - ----- Method: RioFtpFileSystem>>touch: (in category 'as yet unclassified') ----- - touch: aRio - - self ftpDo: [ :client | - - client putFileStreamContents: (WriteStream with: String new) as: home , aRio asVmPathName - - ]! Item was removed: - RioLocalFileSystem subclass: #RioArchiveFileSystem - instanceVariableNames: 'file archive members' - classVariableNames: '' - poolDictionaries: '' - category: 'Rio-Grande'! Item was removed: - ----- Method: RioFtpFileSystem>>ftpParseEntryOld: (in category 'as yet unclassified') ----- - ftpParseEntryOld: ftpEntry - | tokens longy dateInSeconds thisYear thisMonth | - thisYear := Date today year. - thisMonth := Date today monthIndex. - tokens := ftpEntry findTokens: ' '. - - tokens size = 8 ifTrue: - [((tokens at: 6) size ~= 3 and: [(tokens at: 5) size = 3]) ifTrue: - ["Fix for case that group is blank (relies on month being 3 chars)" - tokens _ tokens copyReplaceFrom: 4 to: 3 with: {'blank'}]]. - tokens size >= 9 ifFalse:[^nil]. - - ((tokens at: 6) size ~= 3 and: [(tokens at: 5) size = 3]) ifTrue: - ["Fix for case that group is blank (relies on month being 3 chars)" - tokens := tokens copyReplaceFrom: 4 to: 3 with: {'blank'}]. - - tokens size > 9 ifTrue: - [longy := tokens at: 9. - 10 to: tokens size do: [:i | longy := longy , ' ' , (tokens at: i)]. - tokens at: 9 put: longy]. - dateInSeconds := self - secondsForDay: (tokens at: 7) - month: (tokens at: 6) - yearOrTime: (tokens at: 8) - thisMonth: thisMonth - thisYear: thisYear. - - ^Array with: (tokens last) "file name" - with: dateInSeconds "creation date" - with: dateInSeconds "modification time" - with: ( (tokens first first) = $d or: [tokens first first =$l]) "is-a-directory flag" - with: tokens fifth asNumber "file size" - !

1 0

Rio: Rio-Kernel-kph.86.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 09 Nov '08

09 Nov '08

A new version of Rio-Kernel was added to project Rio: http://www.squeaksource.com/Rio/Rio-Kernel-kph.86.mcz ==================== Summary ==================== Name: Rio-Kernel-kph.86 Author: kph Time: 9 November 2008, 7:31:34 pm UUID: fe4e14d0-d65b-4fde-9f00-78e2cea6afa7 Ancestors: Rio-Kernel-kph.85 Refactored instanciation =============== Diff against Rio-Kernel-kph.85 =============== Item was added: + ----- Method: RioLocalDosExecutive>>getTempDirectory (in category 'as yet unclassified') ----- + getTempDirectory + + ^ self rioClass new: 'C:\WINDOWS\TEMP\'! Item was added: + ----- Method: RioLocalExecutive>>primSetMacFileNamed:type:creator: (in category 'primitives') ----- + primSetMacFileNamed: fileName type: typeString creator: creatorString + "Set the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4. This primitive is Mac specific; it is a noop on other platforms." + + <primitive: 'primitiveDirectorySetMacTypeAndCreator' module: 'FilePlugin'> + self primitiveFailed + ! Item was added: + ----- Method: RioExecutive>>makeNewRioFromString: (in category 'as yet unclassified') ----- + makeNewRioFromString: aString + + ^ self rioClass executive: self value: aString ! Item was added: + ----- Method: RioLocalExecutive>>rename:to: (in category 'executive actions') ----- + rename: aRio to: bRio + + (self retryWithGC:[ + self primRename: aRio asVmPathName to: bRio asVmPathName + ] + until:[:result| result notNil] + forFileNamed: aRio) ~~ nil ifTrue:[ aRio statIsNowInvalid. ^ bRio ]. + + aRio exists ifFalse:[ ^ self error:'Attempt to rename a non-existent file:' , aRio]. + + bRio exists ifTrue:[ ^self error: 'Failed to rename, ', bRio,' already exists.' ].! Item was added: + ----- Method: RioLocalDosExecutive>>importValue: (in category 'as yet unclassified') ----- + importValue: aPath + + ^ super importValue: (aPath copy replaceAll: $/ with: $\).! Item was added: + ----- Method: RioLocalExecutive class>>maxFileNameLengthOnMacOS (in category 'image start up ') ----- + maxFileNameLengthOnMacOS + + ^ 31! Item was added: + ----- Method: RioLocalDosExecutive>>migrateToLocalDosFileSystem: (in category 'fs migration') ----- + migrateToLocalDosFileSystem: old + + ^ self! Item was added: + ----- Method: RioLocalDosExecutive class>>makeNewRioFrom: (in category 'as yet unclassified') ----- + makeNewRioFrom: str + + | rioDrive exec | + + rioDrive := nil. + + (str size > 1) ifTrue: [ + + (str second = $:) ifTrue: [ rioDrive := (str first: 2) , self pathDelimiter ]. + + ]. + exec := self executiveForVolume: rioDrive. + + ^ exec rioClass executive: exec value: str! Item was added: + ----- Method: RioLocalExecutive class>>platform (in category 'image start up ') ----- + platform + + ^ SmalltalkImage current platformName asLegalSelector capitalized! Item was added: + ----- Method: RioLocalExecutive class>>initialize (in category 'class initialization') ----- + initialize + + Smalltalk addToStartUpList: self after: Delay. + RioLocalDosExecutive initializeVolumes. + Current := self newForThisPlatform. + Current initializeDefault. + ! Item was added: + ----- Method: RioLocalExecutive>>printId (in category 'printing') ----- + printId + + ^ rootString! Item was added: + ----- Method: RioLocalExecutive>>setRootString: (in category 'executive actions') ----- + setRootString: aString + rootString := aString. + ! Item was added: + ----- Method: RioLocalExecutive>>retryWithGC:until:forFileNamed: (in category 'utilities') ----- + retryWithGC: execBlock until: okBlock forFileNamed: aRio + + ^ StandardFileStream + retryWithGC: execBlock + until: okBlock + forFileNamed: aRio! Item was added: + ----- Method: RioLocalExecutive class>>makeNewRioFrom: (in category 'as yet unclassified') ----- + makeNewRioFrom: aString + + | exec | + exec := self current. + + ^ exec rioClass executive: exec value: aString ! Item was added: + ----- Method: RioLocalDosExecutive>>migrateFromLocalDosFileSystem: (in category 'fs migration todo') ----- + migrateFromLocalDosFileSystem: nfs + + "could do something here" + + ^ nfs ! Item was changed: ----- Method: RioKernel class>>thisImage (in category 'as yet unclassified') ----- thisImage + ^ self new: self defaultExecutive current primImagePath.! - ^ self new: self defaultExecutive primImagePath.! Item was added: + ----- Method: RioLocalExecutive>>primGetMacFileNamed:type:creator: (in category 'primitives') ----- + primGetMacFileNamed: fileName type: typeString creator: creatorString + "Get the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4. This primitive is Mac specific; it is a noop on other platforms." + + <primitive: 'primitiveDirectoryGetMacTypeAndCreator' module: 'FilePlugin'> + + ! Item was added: + ----- Method: RioLocalExecutive>>migrateFromLocalDosFileSystem: (in category 'fs migration') ----- + migrateFromLocalDosFileSystem: nfs + + "could do something here" + + ^ self ! Item was added: + ----- Method: RioLocalCaseInsensitiveExecutive>>hashFor: (in category 'case-sensitivity') ----- + hashFor: aRio + + ^ aRio value asLowercase hash! Item was added: + ----- Method: RioLocalExecutive>>getMacFileTypeAndCreator: (in category 'executive actions') ----- + getMacFileTypeAndCreator: aRio + + | results typeString creatorString | + "get the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4. Does nothing on other platforms (where the underlying primitive is a noop)." + "FileDirectory default getMacFileNamed: 'foo'" + + typeString := ByteArray new: 4 withAll: ($? asInteger). + creatorString := ByteArray new: 4 withAll: ($? asInteger). + [self primGetMacFileNamed: aRio asVmPathName + type: typeString + creator: creatorString.] ensure: + [typeString := typeString asString. + creatorString := creatorString asString]. + results := Array with: typeString convertFromSystemString with: creatorString convertFromSystemString. + ^results + ! Item was added: + ----- Method: RioLocalExecutive>>isDirectory: (in category 'executive actions') ----- + isDirectory: aRio + + ^ #badDirectoryPath ~= (self primLookupEntryIn: aRio full value index: 1) + ! Item was added: + ----- Method: RioLocalExecutive>>primDeleteDirectory: (in category 'primitives') ----- + primDeleteDirectory: fullPath + "Delete the directory named by the given path. Raise an error if the path is bad or if a directory by that name does not exist." + + <primitive: 'primitiveDirectoryDelete' module: 'FilePlugin'> + ^ self errorUnableToDeleteDir: fullPath + ! Item was added: + ----- Method: RioExecutive>>MCPasswordManager (in category 'case-sensitivity') ----- + MCPasswordManager + + ^ MCPasswordManager! Item was added: + ----- Method: RioExecutive class>>default (in category 'as yet unclassified') ----- + default + + ^ RioLocalExecutive ! Item was added: + ----- Method: RioLocalExecutive>>deleteFile: (in category 'executive actions') ----- + deleteFile: aRio + + "Delete the file of the given name if it exists. + If the first deletion attempt fails do a GC to force finalization of any lost references. ar 3/21/98 17:53" + + self retryWithGC: [ + self primDeleteFileNamed: aRio asVmPathName ] + until:[:result| result notNil] + forFileNamed: aRio. + + aRio statIsNowInvalid! Item was added: + ----- Method: RioLocalExecutive>>maxFileNameLength (in category 'misc') ----- + maxFileNameLength + + ^ (self class respondsTo: #maxFileNameLength) + ifTrue: [ self class maxFileNameLength ] + ifFalse: [ self class perform: ('maxFileNameLengthOn', self class platform) asSymbol ]! Item was added: + ----- Method: RioLocalDosExecutive>>fullFor: (in category 'as yet unclassified') ----- + fullFor: aRio + + "the absolute path of this rio (with the current volume drive prepended), or if relative + combine with #defaultDirectory to obtain the full path" + + aRio value isEmpty ifTrue: [ ^ self defaultDirectory ]. + + (self isFull: aRio) ifTrue: [ ^ aRio ]. + + "if we are an absolute path, prepend the volume" + aRio value first = self pathDelimiterChar ifTrue: [ ^ aRio newFrom: (self drive, aRio value) ]. + + ^ aRio newFrom: (self defaultDirectory value, self pathDelimiter, aRio value)! Item was added: + ----- Method: RioLocalExecutive class>>performStartUpMigration (in category 'image start up ') ----- + performStartUpMigration + | old | + + old := self current. + Current := self newForThisPlatform. + Current initializeDefault. + + old migrateFileSystemTo: Current! Item was added: + ----- Method: RioExecutive class>>makeNewRioFrom: (in category 'as yet unclassified') ----- + makeNewRioFrom: aString + + ^ self subclassResponsibility! Item was added: + ----- Method: RioLocalExecutive class>>newForRiscOS (in category 'image start up ') ----- + newForRiscOS + + ^ RioLocalExecutive new! Item was added: + ----- Method: RioLocalDosExecutive>>pathDelimiter (in category 'as yet unclassified') ----- + pathDelimiter + + ^ '\' + ! Item was added: + ----- Method: RioLocalExecutive>>startAt:recursively:select:into: (in category 'executive actions') ----- + startAt: rioOrString recursively: beRecursive select: selectBlock into: results + + "Return a collection of rio's selected by passing + the directoryEntry array to the selectBlock. + + The KernelRio implemetation of setStatFromEntryArray: + does not populate these rios with stat data. + Rio's more verbose implementation does. + + This can be called with startAt: aString, but if so beRecursive must be false. + + See primLookupEntryIn:index: for further details." + + | index entryArray entryRio | + + index := 1. + + [ (entryArray := self primLookupEntryIn: rioOrString asVmPathName index: index) notNil ] + whileTrue: [ + #badDirectoryPath = entryArray ifTrue: [ + ^ results "(InvalidDirectoryError pathName: rioOrString value) signal" ]. + + (entryRio := rioOrString / (entryArray at: 1)) + setStatFromDir: rioOrString andEntryArray:entryArray. + + (selectBlock value: entryRio) ifTrue: [ results add: entryRio ]. + + (beRecursive and: [ entryArray at: 4]) + ifTrue: [ + self + startAt: entryRio + recursively: beRecursive + select: selectBlock + into: results + ]. + index := index + 1 + ]. + + ^ results! Item was added: + ----- Method: RioLocalDosExecutive>>initializeDefault (in category 'as yet unclassified') ----- + initializeDefault + + self setRootString: (self primImagePath first: 3); + setDefault: self getDefaultDirectory. + + Volumes add: self.! Item was added: + ----- Method: RioLocalExecutive>>deleteDirectory: (in category 'executive actions') ----- + deleteDirectory: aRio + + self primDeleteDirectory: aRio asVmPathName. + aRio statIsNowInvalid! Item was added: + ----- Method: RioLocalDosExecutive>>isRoot: (in category 'as yet unclassified') ----- + isRoot: aRioOrString + + aRioOrString value size = self rootString size ifTrue: [ ^ super isRoot: aRioOrString ]. + + ^ (aRioOrString value, self pathDelimiter) = self rootString! Item was added: + ----- Method: RioLocalExecutive class>>newForWin32 (in category 'image start up ') ----- + newForWin32 + + ^ RioLocalDosExecutive new! Item was added: + ----- Method: RioLocalExecutive>>initializeDefault (in category 'executive actions') ----- + initializeDefault + + self setRootString: self pathDelimiter; + setDefault: self getDefaultDirectory! Item was changed: ----- Method: RioKernel class>>defaultExecutive (in category 'as yet unclassified') ----- defaultExecutive + ^ RioExecutive default! - ^ RioLocalFileSystem current! Item was added: + ----- Method: RioLocalExecutive>>linearRelativeTo: (in category 'executive actions') ----- + linearRelativeTo: aDirectory + + self ~= aDirectory executive ifTrue: [ ^ self errorMustBeInSameFileSystem: aDirectory ]. + + ^ self root! Item was added: + ----- Method: RioLocalExecutive>>primPathNameDelimiter (in category 'primitives') ----- + primPathNameDelimiter + "Return the path delimiter for the underlying platform's file system." + + <primitive: 'primitiveDirectoryDelimitor' module: 'FilePlugin'> + self primitiveFailed + ! Item was added: + ----- Method: RioLocalExecutive class>>current (in category 'accessing current') ----- + current + + ^ Test ifNil: [ Current ] + + ! Item was added: + ----- Method: RioLocalExecutive>>setDefault: (in category 'executive actions') ----- + setDefault: d + + defaultDirectory := d! Item was added: + ----- Method: RioLocalExecutive class>>newForThisPlatform (in category 'image start up ') ----- + newForThisPlatform + + ^ self perform: ('newFor', self platform) asSymbol! Item was added: + ----- Method: RioLocalExecutive>>errorUnableToDeleteDir: (in category 'errors') ----- + errorUnableToDeleteDir: fullPath + + | entries | + + entries := fullPath asRio entries. + + ^ self error: 'unable to delete directory: ', fullPath, ((entries size >0) ifTrue: [' (not empty)'] ifFalse: ['']). + ! Item was added: + ----- Method: RioLocalExecutive class>>maxFileNameLengthOnDOS (in category 'image start up ') ----- + maxFileNameLengthOnDOS + + ^ 8! Item was added: + ----- Method: RioLocalCaseInsensitiveExecutive>>is:sameAs: (in category 'case-sensitivity') ----- + is: aRio sameAs: bRio + + ^ (aRio value compare: bRio value caseSensitive: false) = 2! Item was added: + ----- Method: RioLocalDosExecutive class>>pathDelimiter (in category 'as yet unclassified') ----- + pathDelimiter + + ^ '\' + ! Item was added: + ----- Method: RioLocalExecutive>>untrustedDirectory (in category 'executive actions') ----- + untrustedDirectory + + ^ self rioClass new: (SecurityManager default primUntrustedUserDirectory) + ! Item was added: + ----- Method: RioLocalExecutive>>primImagePath (in category 'primitives') ----- + primImagePath + "Answer the full path name for the current image." + "self new primImagePath" + + <primitive: 121> + self primitiveFailed! Item was added: + ----- Method: RioLocalExecutive>>set:macType:creator: (in category 'executive actions') ----- + set: aRio macType: typeString creator: creatorString + "Set the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4." + + self primSetMacFileNamed: aRio asVmPathName + type: typeString convertToSystemString + creator: creatorString convertToSystemString.! Item was added: + ----- Method: RioLocalExecutive>>primRename:to: (in category 'primitives') ----- + primRename: oldFileFullName to: newFileFullName + "Rename the file of the given name to the new name. Fail if there is no file of the old name or if there is an existing file with the new name. + Changed to return nil instead of failing ar 3/21/98 18:04" + + <primitive: 'primitiveFileRename' module: 'FilePlugin'> + ^nil! Item was added: + ----- Method: RioLocalDosExecutive>>pathDelimiterChar (in category 'as yet unclassified') ----- + pathDelimiterChar + + ^ $\ + ! Item was added: + RioExecutive subclass: #RioLocalExecutive + instanceVariableNames: 'rootString root defaultDirectory' + classVariableNames: 'Current Test' + poolDictionaries: '' + category: 'Rio-Kernel'! + + !RioLocalExecutive commentStamp: 'kph 4/17/2007 19:25' prior: 0! + Introducing the idea that Rio's exist in the context of their 'physical container', we have the RioLocalFileSystem as the primary container which provides the file system interface, also known as the 'executive'. + + On unix there is one executive for the whole system. On dos there is one executive per volume. This approach also supports the notion of files within archives and files on remote servers. + + On startup, having a formal model of the host filesystem allows us to keep a current and previous instance introducing the possibility for migrating Rio's on startup when the image has been moved. For example C:/ could be replaced with /mnt/hda1 thus attempting to make images properly portable. (experimental idea) + + ! Item was added: + ----- Method: RioLocalExecutive class>>maxFileNameLengthOnUnix (in category 'image start up ') ----- + maxFileNameLengthOnUnix + + ^ 255! Item was added: + ----- Method: RioLocalDosExecutive class>>canInstanciateRioFrom: (in category 'as yet unclassified') ----- + canInstanciateRioFrom: aString + + ^ (aString size > 1 and: [ aString second = $: ])! Item was added: + ----- Method: RioLocalExecutive>>primCreateDirectory: (in category 'primitives') ----- + primCreateDirectory: fullPath + "Create a directory named by the given path. Fail if the path is bad or if a file or directory by that name already exists." + + <primitive: 'primitiveDirectoryCreate' module: 'FilePlugin'> + self primitiveFailed! Item was changed: ----- Method: RioExecutive>>root (in category 'as yet unclassified') ----- root + ^ self makeNewRioFromString: self rootString! - ^ self makeNewRioOfClass: self rioClass fromString: self rootString! Item was added: + ----- Method: RioLocalExecutive>>getTempDirectory (in category 'executive actions') ----- + getTempDirectory + + ^ self rioClass new: '/tmp'! Item was added: + ----- Method: RioLocalExecutive class>>newForMacOS (in category 'image start up ') ----- + newForMacOS + + ^ RioLocalCaseInsensitiveExecutive new! Item was added: + ----- Method: RioLocalExecutive>>migrateFileSystemTo: (in category 'fs migration') ----- + migrateFileSystemTo: next + + ^ next migrateFromLocalFileSystem: self ! Item was added: + ----- Method: RioLocalExecutive>>tempDirectory (in category 'executive actions') ----- + tempDirectory + + ^ self rioClass new: '/tmp'! Item was added: + ----- Method: RioLocalExecutive class>>testEnd (in category 'image start up ') ----- + testEnd + + Test := nil! Item was added: + ----- Method: RioLocalDosExecutive>>executiveForVolume: (in category 'accessing') ----- + executiveForVolume: requestedRoot + + ^ Volumes + detect: [ :i | i isRoot: requestedRoot ] + ifNone: [ Volumes add: (self class basicNew setRootString: requestedRoot; setDefault: nil; yourself) ]! Item was added: + ----- Method: RioLocalDosExecutive>>drive (in category 'accessing') ----- + drive + + ^ self rootString first: 2! Item was added: + ----- Method: RioLocalExecutive>>printOn: (in category 'printing') ----- + printOn: str + + super printOn: str. + str nextPut: $(; nextPutAll: self printId; nextPut: $).! Item was added: + ----- Method: RioLocalExecutive class>>newForDOS (in category 'image start up ') ----- + newForDOS + + ^ RioLocalDosExecutive new! Item was added: + ----- Method: RioLocalExecutive class>>testFileSystem: (in category 'image start up ') ----- + testFileSystem: fs + + ^ Test := fs! Item was added: + ----- Method: RioLocalExecutive>>getDefaultDirectory (in category 'executive actions') ----- + getDefaultDirectory + + ^ (Preferences startInUntrustedDirectory + ifTrue: [ self untrustedDirectory mkdir ] + ifFalse: [ self getImageDirectory ] )! Item was added: + ----- Method: RioLocalExecutive class>>maxFileNameLengthOnWin32 (in category 'image start up ') ----- + maxFileNameLengthOnWin32 + + ^ 255! Item was added: + ----- Method: RioExecutive class>>newRioFrom: (in category 'as yet unclassified') ----- + newRioFrom: aString + + | executiveClass | + + RioExecutive allSubclassesDo: [ :c | (c canInstanciateRioFrom: aString) ifTrue: [ executiveClass := c ]]. + + ^ (executiveClass ifNil: [ self default ]) makeNewRioFrom: aString + ! Item was added: + ----- Method: RioLocalDosExecutive class>>initializeVolumes (in category 'as yet unclassified') ----- + initializeVolumes + + Volumes := Set new ! Item was added: + ----- Method: RioLocalExecutive class>>newForUnix (in category 'image start up ') ----- + newForUnix + + ^ RioLocalExecutive new! Item was added: + ----- Method: RioLocalExecutive>>errorMustBeInSameFileSystem: (in category 'errors') ----- + errorMustBeInSameFileSystem: aDirectory + + ^ self error: 'Must be in same file system', aDirectory, ',', self printString! Item was added: + RioLocalCaseInsensitiveExecutive subclass: #RioLocalDosExecutive + instanceVariableNames: '' + classVariableNames: 'Volumes' + poolDictionaries: '' + category: 'Rio-Kernel'! + + !RioLocalDosExecutive commentStamp: 'kph 4/17/2007 19:19' prior: 0! + The initial idea was to model things properly as a file within a named volume, on unix there would be one executive for the whole system. On dos there would be one executive per volume.! Item was added: + ----- Method: RioLocalExecutive>>primDeleteFileNamed: (in category 'primitives') ----- + primDeleteFileNamed: aFileName + "Delete the file of the given name. Return self if the primitive succeeds, nil otherwise." + + <primitive: 'primitiveFileDelete' module: 'FilePlugin'> + ^ nil + ! Item was added: + ----- Method: RioExecutive class>>pathDelimiter (in category 'as yet unclassified') ----- + pathDelimiter + + ^ '/' + ! Item was added: + ----- Method: RioLocalExecutive>>createDirectory: (in category 'executive actions') ----- + createDirectory: aRio + + ^ self primCreateDirectory: aRio asVmPathName ! Item was added: + ----- Method: RioLocalExecutive>>primVmPath (in category 'primitives') ----- + primVmPath + "Answer the path for the directory containing the Smalltalk virtual machine. Return the empty string if this primitive is not implemented." + "Rio primVmPath" + + <primitive: 142> + ^ ''! Item was changed: ----- Method: RioKernel class>>new: (in category 'as yet unclassified') ----- new: aPathOrRio "the preferred generic instanciation method, will call the correct specific instanciation method on the correct class" aPathOrRio isRio ifTrue: [ ^ aPathOrRio copy ]. + + ^ self defaultExecutive newRioFrom: aPathOrRio! - - self allSubclassesDo: [ :c | (c canInstanciate: aPathOrRio) ifTrue: [ ^ c defaultExecutive makeNewRioOfClass: c fromString: aPathOrRio ]]. - - ^ self defaultExecutive makeNewRioOfClass: self fromString: aPathOrRio! Item was added: + ----- Method: RioLocalDosExecutive>>makeNewRioFrom: (in category 'fs migration') ----- + makeNewRioFrom: aString + + | rioDrive exec str | + + str := aString. + exec := self. + + (aString size > 1) ifTrue: [ + + rioDrive := rootString. + (str second = $:) ifTrue: [ rioDrive := (str first: 2) , self pathDelimiter ]. + + rioDrive ~= rootString ifTrue: [ exec := self executiveForVolume: rioDrive ]. + + ]. + + ^ exec rioClass executive: exec value: str! Item was added: + ----- Method: RioLocalDosExecutive>>driveLetter (in category 'accessing') ----- + driveLetter + + ^ self rootString first! Item was added: + ----- Method: RioLocalDosExecutive>>migrateFromLocalFileSystem: (in category 'fs migration') ----- + migrateFromLocalFileSystem: nfs + + ^ self ! Item was added: + ----- Method: RioLocalExecutive>>primLookupEntryIn:index: (in category 'primitives') ----- + primLookupEntryIn: fullPath index: index + + "Look up the index-th entry of the directory with the given fully-qualified path (i.e., starting from the root of the file hierarchy) and return an array containing: + + <name> + <creationTime in seconds since squeak epoch> + <modificationTime> + <dirFlag (dir is true)> + <fileSize in bytes> + + The empty string enumerates the top-level files or drives. (For example, on Unix, the empty path enumerates the contents of '/'. On Macs and PCs, it enumerates the mounted volumes/drives.) + + Returns nil when index is past the end of the directory. + Fails if the given path is bad." + + <primitive: 'primitiveDirectoryLookup' module: 'FilePlugin'> + ^ #badDirectoryPath + + ! Item was added: + ----- Method: RioLocalExecutive>>defaultDirectory (in category 'accessing') ----- + defaultDirectory + + ^ defaultDirectory! Item was added: + ----- Method: RioLocalDosExecutive class>>executiveForVolume: (in category 'as yet unclassified') ----- + executiveForVolume: theRequestedRoot + + | requestedRoot | + requestedRoot := theRequestedRoot. + requestedRoot = nil ifTrue: [ requestedRoot := 'C:/' ]. + + ^ Volumes + detect: [ :i | i isRoot: requestedRoot ] + ifNone: [ Volumes add: (self class basicNew setRootString: requestedRoot; setDefault: nil; yourself) ]! Item was added: + ----- Method: RioLocalExecutive>>getImageDirectory (in category 'executive actions') ----- + getImageDirectory + + ^ (self rioClass new: self primImagePath) parent ! Item was added: + ----- Method: RioLocalExecutive>>rootString (in category 'accessing') ----- + rootString + + ^ rootString! Item was added: + RioLocalExecutive subclass: #RioLocalCaseInsensitiveExecutive + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'Rio-Kernel'! Item was added: + ----- Method: RioExecutive class>>canInstanciateRioFrom: (in category 'as yet unclassified') ----- + canInstanciateRioFrom: aPathString + + "we return false, because we do not support any specific protocol" + + ^ false! Item was added: + ----- Method: RioLocalExecutive>>migrateFromLocalFileSystem: (in category 'fs migration') ----- + migrateFromLocalFileSystem: nfs + + ^ nfs ! Item was added: + ----- Method: RioLocalExecutive class>>maxFileNameLengthOnRiscOS (in category 'image start up ') ----- + maxFileNameLengthOnRiscOS + + ^ 255! Item was added: + ----- Method: RioLocalExecutive class>>startUp: (in category 'image start up ') ----- + startUp: resuming + + resuming ifFalse: [ ^self ]. + + self performStartUpMigration.! Item was removed: - ----- Method: RioLocalFileSystem>>defaultDirectory (in category 'accessing') ----- - defaultDirectory - - ^ defaultDirectory! Item was removed: - ----- Method: RioLocalFileSystem>>untrustedDirectory (in category 'executive actions') ----- - untrustedDirectory - - ^ self rioClass new: (SecurityManager default primUntrustedUserDirectory) - ! Item was removed: - ----- Method: RioLocalFileSystem>>primRename:to: (in category 'primitives') ----- - primRename: oldFileFullName to: newFileFullName - "Rename the file of the given name to the new name. Fail if there is no file of the old name or if there is an existing file with the new name. - Changed to return nil instead of failing ar 3/21/98 18:04" - - <primitive: 'primitiveFileRename' module: 'FilePlugin'> - ^nil! Item was removed: - ----- Method: RioLocalCaseInsensitiveFileSystem>>is:sameAs: (in category 'case-sensitivity') ----- - is: aRio sameAs: bRio - - ^ (aRio value compare: bRio value caseSensitive: false) = 2! Item was removed: - ----- Method: RioLocalFileSystem>>migrateFromLocalFileSystem: (in category 'fs migration') ----- - migrateFromLocalFileSystem: nfs - - ^ nfs ! Item was removed: - ----- Method: RioLocalFileSystem class>>maxFileNameLengthOnRiscOS (in category 'image start up ') ----- - maxFileNameLengthOnRiscOS - - ^ 255! Item was removed: - RioExecutive subclass: #RioLocalFileSystem - instanceVariableNames: 'rootString root defaultDirectory' - classVariableNames: 'Current Test' - poolDictionaries: '' - category: 'Rio-Kernel'! - - !RioLocalFileSystem commentStamp: 'kph 4/17/2007 19:25' prior: 0! - Introducing the idea that Rio's exist in the context of their 'physical container', we have the RioLocalFileSystem as the primary container which provides the file system interface, also known as the 'executive'. - - On unix there is one executive for the whole system. On dos there is one executive per volume. This approach also supports the notion of files within archives and files on remote servers. - - On startup, having a formal model of the host filesystem allows us to keep a current and previous instance introducing the possibility for migrating Rio's on startup when the image has been moved. For example C:/ could be replaced with /mnt/hda1 thus attempting to make images properly portable. (experimental idea) - - ! Item was removed: - ----- Method: RioLocalFileSystem>>primSetMacFileNamed:type:creator: (in category 'primitives') ----- - primSetMacFileNamed: fileName type: typeString creator: creatorString - "Set the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4. This primitive is Mac specific; it is a noop on other platforms." - - <primitive: 'primitiveDirectorySetMacTypeAndCreator' module: 'FilePlugin'> - self primitiveFailed - ! Item was removed: - ----- Method: RioLocalFileSystem>>rename:to: (in category 'executive actions') ----- - rename: aRio to: bRio - - (self retryWithGC:[ - self primRename: aRio asVmPathName to: bRio asVmPathName - ] - until:[:result| result notNil] - forFileNamed: aRio) ~~ nil ifTrue:[ aRio statIsNowInvalid. ^ bRio ]. - - aRio exists ifFalse:[ ^ self error:'Attempt to rename a non-existent file:' , aRio]. - - bRio exists ifTrue:[ ^self error: 'Failed to rename, ', bRio,' already exists.' ].! Item was removed: - ----- Method: RioLocalFileSystem>>getTempDirectory (in category 'executive actions') ----- - getTempDirectory - - ^ self rioClass new: '/tmp'! Item was removed: - ----- Method: RioLocalFileSystem>>migrateFileSystemTo: (in category 'fs migration') ----- - migrateFileSystemTo: next - - ^ next migrateFromLocalFileSystem: self ! Item was removed: - ----- Method: RioLocalDosFileSystem>>pathDelimiter (in category 'as yet unclassified') ----- - pathDelimiter - - ^ '\' - ! Item was removed: - ----- Method: RioLocalFileSystem>>tempDirectory (in category 'executive actions') ----- - tempDirectory - - ^ self rioClass new: '/tmp'! Item was removed: - RioLocalFileSystem subclass: #RioLocalCaseInsensitiveFileSystem - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Rio-Kernel'! Item was removed: - ----- Method: RioLocalDosFileSystem>>drive (in category 'accessing') ----- - drive - - ^ self rootString first: 2! Item was removed: - ----- Method: RioLocalFileSystem class>>initialize (in category 'class initialization') ----- - initialize - - Smalltalk addToStartUpList: self after: Delay. - RioLocalDosFileSystem initializeVolumes. - Current := self newForThisPlatform. - Current initializeDefault. - ! Item was removed: - ----- Method: RioLocalDosFileSystem>>initializeDefault (in category 'as yet unclassified') ----- - initializeDefault - - self setRootString: (self primImagePath first: 3); - setDefault: self getDefaultDirectory. - - Volumes add: self.! Item was removed: - ----- Method: RioLocalFileSystem class>>platform (in category 'image start up ') ----- - platform - - ^ SmalltalkImage current platformName asLegalSelector capitalized! Item was removed: - ----- Method: RioLocalFileSystem>>printId (in category 'printing') ----- - printId - - ^ rootString! Item was removed: - ----- Method: RioLocalDosFileSystem>>isRoot: (in category 'as yet unclassified') ----- - isRoot: aRioOrString - - aRioOrString value size = self rootString size ifTrue: [ ^ super isRoot: aRioOrString ]. - - ^ (aRioOrString value, self pathDelimiter) = self rootString! Item was removed: - ----- Method: RioLocalFileSystem>>getDefaultDirectory (in category 'executive actions') ----- - getDefaultDirectory - - ^ (Preferences startInUntrustedDirectory - ifTrue: [ self untrustedDirectory mkdir ] - ifFalse: [ self getImageDirectory ] )! Item was removed: - ----- Method: RioLocalFileSystem class>>maxFileNameLengthOnWin32 (in category 'image start up ') ----- - maxFileNameLengthOnWin32 - - ^ 255! Item was removed: - ----- Method: RioLocalFileSystem>>primGetMacFileNamed:type:creator: (in category 'primitives') ----- - primGetMacFileNamed: fileName type: typeString creator: creatorString - "Get the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4. This primitive is Mac specific; it is a noop on other platforms." - - <primitive: 'primitiveDirectoryGetMacTypeAndCreator' module: 'FilePlugin'> - - ! Item was removed: - ----- Method: RioLocalFileSystem>>errorMustBeInSameFileSystem: (in category 'errors') ----- - errorMustBeInSameFileSystem: aDirectory - - ^ self error: 'Must be in same file system', aDirectory, ',', self printString! Item was removed: - ----- Method: RioLocalFileSystem>>primDeleteFileNamed: (in category 'primitives') ----- - primDeleteFileNamed: aFileName - "Delete the file of the given name. Return self if the primitive succeeds, nil otherwise." - - <primitive: 'primitiveFileDelete' module: 'FilePlugin'> - ^ nil - ! Item was removed: - ----- Method: RioLocalFileSystem>>createDirectory: (in category 'executive actions') ----- - createDirectory: aRio - - ^ self primCreateDirectory: aRio asVmPathName ! Item was removed: - ----- Method: RioLocalFileSystem>>primDeleteDirectory: (in category 'primitives') ----- - primDeleteDirectory: fullPath - "Delete the directory named by the given path. Raise an error if the path is bad or if a directory by that name does not exist." - - <primitive: 'primitiveDirectoryDelete' module: 'FilePlugin'> - ^ self errorUnableToDeleteDir: fullPath - ! Item was removed: - ----- Method: RioLocalDosFileSystem>>pathDelimiterChar (in category 'as yet unclassified') ----- - pathDelimiterChar - - ^ $\ - ! Item was removed: - ----- Method: RioLocalFileSystem>>getImageDirectory (in category 'executive actions') ----- - getImageDirectory - - ^ (self rioClass new: self primImagePath) parent ! Item was removed: - ----- Method: RioLocalFileSystem>>rootString (in category 'accessing') ----- - rootString - - ^ rootString! Item was removed: - ----- Method: RioLocalDosFileSystem>>getTempDirectory (in category 'as yet unclassified') ----- - getTempDirectory - - ^ self rioClass new: 'C:\WINDOWS\TEMP\'! Item was removed: - ----- Method: RioLocalFileSystem class>>startUp: (in category 'image start up ') ----- - startUp: resuming - - resuming ifFalse: [ ^self ]. - - self performStartUpMigration.! Item was removed: - ----- Method: RioLocalFileSystem class>>maxFileNameLengthOnMacOS (in category 'image start up ') ----- - maxFileNameLengthOnMacOS - - ^ 31! Item was removed: - ----- Method: RioLocalFileSystem class>>newForRiscOS (in category 'image start up ') ----- - newForRiscOS - - ^ RioLocalFileSystem new! Item was removed: - ----- Method: RioLocalDosFileSystem>>executiveForVolume: (in category 'accessing') ----- - executiveForVolume: requestedRoot - - ^ Volumes - detect: [ :i | i isRoot: requestedRoot ] - ifNone: [ Volumes add: (self class basicNew setRootString: requestedRoot; setDefault: nil; yourself) ]! Item was removed: - ----- Method: RioLocalFileSystem>>setRootString: (in category 'executive actions') ----- - setRootString: aString - rootString := aString. - ! Item was removed: - ----- Method: RioLocalFileSystem>>retryWithGC:until:forFileNamed: (in category 'utilities') ----- - retryWithGC: execBlock until: okBlock forFileNamed: aRio - - ^ StandardFileStream - retryWithGC: execBlock - until: okBlock - forFileNamed: aRio! Item was removed: - ----- Method: RioLocalDosFileSystem class>>initializeVolumes (in category 'as yet unclassified') ----- - initializeVolumes - - Volumes := Set new ! Item was removed: - ----- Method: RioLocalFileSystem class>>newForWin32 (in category 'image start up ') ----- - newForWin32 - - ^ RioLocalDosFileSystem new! Item was removed: - ----- Method: RioLocalFileSystem>>initializeDefault (in category 'executive actions') ----- - initializeDefault - - self setRootString: self pathDelimiter; - setDefault: self getDefaultDirectory! Item was removed: - ----- Method: RioLocalFileSystem>>linearRelativeTo: (in category 'executive actions') ----- - linearRelativeTo: aDirectory - - self ~= aDirectory executive ifTrue: [ ^ self errorMustBeInSameFileSystem: aDirectory ]. - - ^ self root! Item was removed: - ----- Method: RioLocalFileSystem class>>current (in category 'accessing current') ----- - current - - ^ Test ifNil: [ Current ] - - ! Item was removed: - ----- Method: RioLocalFileSystem>>setDefault: (in category 'executive actions') ----- - setDefault: d - - defaultDirectory := d! Item was removed: - ----- Method: RioLocalFileSystem>>migrateFromLocalDosFileSystem: (in category 'fs migration') ----- - migrateFromLocalDosFileSystem: nfs - - "could do something here" - - ^ self ! Item was removed: - ----- Method: RioLocalDosFileSystem>>driveLetter (in category 'accessing') ----- - driveLetter - - ^ self rootString first! Item was removed: - ----- Method: RioLocalDosFileSystem>>migrateFromLocalFileSystem: (in category 'fs migration') ----- - migrateFromLocalFileSystem: nfs - - ^ self ! Item was removed: - ----- Method: RioLocalFileSystem>>getMacFileTypeAndCreator: (in category 'executive actions') ----- - getMacFileTypeAndCreator: aRio - - | results typeString creatorString | - "get the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4. Does nothing on other platforms (where the underlying primitive is a noop)." - "FileDirectory default getMacFileNamed: 'foo'" - - typeString := ByteArray new: 4 withAll: ($? asInteger). - creatorString := ByteArray new: 4 withAll: ($? asInteger). - [self primGetMacFileNamed: aRio asVmPathName - type: typeString - creator: creatorString.] ensure: - [typeString := typeString asString. - creatorString := creatorString asString]. - results := Array with: typeString convertFromSystemString with: creatorString convertFromSystemString. - ^results - ! Item was removed: - ----- Method: RioLocalFileSystem>>isDirectory: (in category 'executive actions') ----- - isDirectory: aRio - - ^ #badDirectoryPath ~= (self primLookupEntryIn: aRio full value index: 1) - ! Item was removed: - ----- Method: RioLocalFileSystem>>errorUnableToDeleteDir: (in category 'errors') ----- - errorUnableToDeleteDir: fullPath - - | entries | - - entries := fullPath asRio entries. - - ^ self error: 'unable to delete directory: ', fullPath, ((entries size >0) ifTrue: [' (not empty)'] ifFalse: ['']). - ! Item was removed: - ----- Method: RioLocalFileSystem class>>maxFileNameLengthOnDOS (in category 'image start up ') ----- - maxFileNameLengthOnDOS - - ^ 8! Item was removed: - ----- Method: RioLocalFileSystem>>primImagePath (in category 'primitives') ----- - primImagePath - "Answer the full path name for the current image." - "self new primImagePath" - - <primitive: 121> - self primitiveFailed! Item was removed: - ----- Method: RioLocalCaseInsensitiveFileSystem>>hashFor: (in category 'case-sensitivity') ----- - hashFor: aRio - - ^ aRio value asLowercase hash! Item was removed: - ----- Method: RioLocalFileSystem>>set:macType:creator: (in category 'executive actions') ----- - set: aRio macType: typeString creator: creatorString - "Set the Macintosh file type and creator info for the file with the given name. Fails if the file does not exist or if the type and creator type arguments are not strings of length 4." - - self primSetMacFileNamed: aRio asVmPathName - type: typeString convertToSystemString - creator: creatorString convertToSystemString.! Item was removed: - ----- Method: RioLocalFileSystem>>deleteFile: (in category 'executive actions') ----- - deleteFile: aRio - - "Delete the file of the given name if it exists. - If the first deletion attempt fails do a GC to force finalization of any lost references. ar 3/21/98 17:53" - - self retryWithGC: [ - self primDeleteFileNamed: aRio asVmPathName ] - until:[:result| result notNil] - forFileNamed: aRio. - - aRio statIsNowInvalid! Item was removed: - ----- Method: RioLocalFileSystem class>>maxFileNameLengthOnUnix (in category 'image start up ') ----- - maxFileNameLengthOnUnix - - ^ 255! Item was removed: - ----- Method: RioLocalDosFileSystem>>fullFor: (in category 'as yet unclassified') ----- - fullFor: aRio - - "the absolute path of this rio (with the current volume drive prepended), or if relative - combine with #defaultDirectory to obtain the full path" - - aRio value isEmpty ifTrue: [ ^ self defaultDirectory ]. - - (self isFull: aRio) ifTrue: [ ^ aRio ]. - - "if we are an absolute path, prepend the volume" - aRio value first = self pathDelimiterChar ifTrue: [ ^ aRio newFrom: (self drive, aRio value) ]. - - ^ aRio newFrom: (self defaultDirectory value, self pathDelimiter, aRio value)! Item was removed: - ----- Method: RioExecutive>>makeNewRioOfClass:fromString: (in category 'as yet unclassified') ----- - makeNewRioOfClass: aRioClass fromString: aString - - ^ aRioClass executive: self value: aString ! Item was removed: - ----- Method: RioLocalFileSystem>>maxFileNameLength (in category 'misc') ----- - maxFileNameLength - - ^ (self class respondsTo: #maxFileNameLength) - ifTrue: [ self class maxFileNameLength ] - ifFalse: [ self class perform: ('maxFileNameLengthOn', self class platform) asSymbol ]! Item was removed: - ----- Method: RioLocalDosFileSystem>>importValue: (in category 'as yet unclassified') ----- - importValue: aPath - - ^ super importValue: (aPath copy replaceAll: $/ with: $\).! Item was removed: - ----- Method: RioLocalFileSystem>>primCreateDirectory: (in category 'primitives') ----- - primCreateDirectory: fullPath - "Create a directory named by the given path. Fail if the path is bad or if a file or directory by that name already exists." - - <primitive: 'primitiveDirectoryCreate' module: 'FilePlugin'> - self primitiveFailed! Item was removed: - ----- Method: RioLocalFileSystem class>>performStartUpMigration (in category 'image start up ') ----- - performStartUpMigration - | old | - - old := self current. - Current := self newForThisPlatform. - Current initializeDefault. - - old migrateFileSystemTo: Current! Item was removed: - RioLocalCaseInsensitiveFileSystem subclass: #RioLocalDosFileSystem - instanceVariableNames: '' - classVariableNames: 'Volumes' - poolDictionaries: '' - category: 'Rio-Kernel'! - - !RioLocalDosFileSystem commentStamp: 'kph 4/17/2007 19:19' prior: 0! - The initial idea was to model things properly as a file within a named volume, on unix there would be one executive for the whole system. On dos there would be one executive per volume.! Item was removed: - ----- Method: RioLocalDosFileSystem>>migrateToLocalDosFileSystem: (in category 'fs migration') ----- - migrateToLocalDosFileSystem: old - - ^ self! Item was removed: - ----- Method: RioLocalFileSystem class>>newForMacOS (in category 'image start up ') ----- - newForMacOS - - ^ RioLocalCaseInsensitiveFileSystem new! Item was removed: - ----- Method: RioLocalDosFileSystem>>makeNewRioOfClass:fromString: (in category 'fs migration') ----- - makeNewRioOfClass: aRioClass fromString: aString - - | rioDrive exec str | - - str := aString. - exec := self. - - (aString size > 1) ifTrue: [ - - rioDrive := driveRoot. - (str second = $:) ifTrue: [ rioDrive := (str first: 2) , self pathDelimiter ]. - - rioDrive ~= driveRoot ifTrue: [ exec := self executiveForVolume: rioDrive ]. - - ]. - - ^ aRioClass executive: exec value: str! Item was removed: - ----- Method: RioLocalFileSystem class>>testEnd (in category 'image start up ') ----- - testEnd - - Test := nil! Item was removed: - ----- Method: RioLocalFileSystem class>>newForDOS (in category 'image start up ') ----- - newForDOS - - ^ RioLocalDosFileSystem new! Item was removed: - ----- Method: RioLocalFileSystem>>startAt:recursively:select:into: (in category 'executive actions') ----- - startAt: rioOrString recursively: beRecursive select: selectBlock into: results - - "Return a collection of rio's selected by passing - the directoryEntry array to the selectBlock. - - The KernelRio implemetation of setStatFromEntryArray: - does not populate these rios with stat data. - Rio's more verbose implementation does. - - This can be called with startAt: aString, but if so beRecursive must be false. - - See primLookupEntryIn:index: for further details." - - | index entryArray entryRio | - - index := 1. - - [ (entryArray := self primLookupEntryIn: rioOrString asVmPathName index: index) notNil ] - whileTrue: [ - #badDirectoryPath = entryArray ifTrue: [ - ^ results "(InvalidDirectoryError pathName: rioOrString value) signal" ]. - - (entryRio := rioOrString / (entryArray at: 1)) - setStatFromDir: rioOrString andEntryArray:entryArray. - - (selectBlock value: entryRio) ifTrue: [ results add: entryRio ]. - - (beRecursive and: [ entryArray at: 4]) - ifTrue: [ - self - startAt: entryRio - recursively: beRecursive - select: selectBlock - into: results - ]. - index := index + 1 - ]. - - ^ results! Item was removed: - ----- Method: RioLocalFileSystem>>printOn: (in category 'printing') ----- - printOn: str - - super printOn: str. - str nextPut: $(; nextPutAll: self printId; nextPut: $).! Item was removed: - ----- Method: RioLocalFileSystem class>>testFileSystem: (in category 'image start up ') ----- - testFileSystem: fs - - ^ Test := fs! Item was removed: - ----- Method: RioLocalFileSystem>>deleteDirectory: (in category 'executive actions') ----- - deleteDirectory: aRio - - self primDeleteDirectory: aRio asVmPathName. - aRio statIsNowInvalid! Item was removed: - ----- Method: RioLocalDosFileSystem>>migrateFromLocalDosFileSystem: (in category 'fs migration todo') ----- - migrateFromLocalDosFileSystem: nfs - - "could do something here" - - ^ nfs ! Item was removed: - ----- Method: RioLocalFileSystem class>>newForUnix (in category 'image start up ') ----- - newForUnix - - ^ RioLocalFileSystem new! Item was removed: - ----- Method: RioLocalFileSystem>>primPathNameDelimiter (in category 'primitives') ----- - primPathNameDelimiter - "Return the path delimiter for the underlying platform's file system." - - <primitive: 'primitiveDirectoryDelimitor' module: 'FilePlugin'> - self primitiveFailed - ! Item was removed: - ----- Method: RioLocalFileSystem class>>newForThisPlatform (in category 'image start up ') ----- - newForThisPlatform - - ^ self perform: ('newFor', self platform) asSymbol! Item was removed: - ----- Method: RioLocalFileSystem>>primVmPath (in category 'primitives') ----- - primVmPath - "Answer the path for the directory containing the Smalltalk virtual machine. Return the empty string if this primitive is not implemented." - "Rio primVmPath" - - <primitive: 142> - ^ ''! Item was removed: - ----- Method: RioLocalFileSystem>>primLookupEntryIn:index: (in category 'primitives') ----- - primLookupEntryIn: fullPath index: index - - "Look up the index-th entry of the directory with the given fully-qualified path (i.e., starting from the root of the file hierarchy) and return an array containing: - - <name> - <creationTime in seconds since squeak epoch> - <modificationTime> - <dirFlag (dir is true)> - <fileSize in bytes> - - The empty string enumerates the top-level files or drives. (For example, on Unix, the empty path enumerates the contents of '/'. On Macs and PCs, it enumerates the mounted volumes/drives.) - - Returns nil when index is past the end of the directory. - Fails if the given path is bad." - - <primitive: 'primitiveDirectoryLookup' module: 'FilePlugin'> - ^ #badDirectoryPath - - !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages November 2008