Packages February 2009

packages@lists.squeakfoundation.org

3 participants
146 discussions

Rio: File-Base-kph.17.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Feb '09

28 Feb '09

A new version of File-Base was added to project Rio: http://www.squeaksource.com/Rio/File-Base-kph.17.mcz ==================== Summary ==================== Name: File-Base-kph.17 Author: kph Time: 28 February 2009, 1:31:10 pm UUID: 0fe2d2dd-059c-11de-9b6f-000a95edb42a Ancestors: File-Base-kph.16 All non-archive tests pass =============== Diff against File-Base-kph.16 =============== Item was changed: ----- Method: File>>linearRelativeTo: (in category 'public dir') ----- linearRelativeTo: aDirectoryOrFile | tmp | + self full = aDirectoryOrFile full ifTrue: [ ^ Directory new: '' ]. - self = aDirectoryOrFile full ifTrue: [ ^ Directory new: '' ]. tmp := (self parent linearRelativeTo: aDirectoryOrFile) / self fileName. ^tmp ! Item was changed: ----- Method: FileFtpExecutive>>copyLocalFile:toRemoteFile: (in category 'external ftp') ----- + copyLocalFile: aFile toRemoteFile: bFile - copyLocalFile: aFile toRemoteFile: bFile self class OSProcessOrNil ifNil: [ ^ aFile copyTo: bFile ]. self class OSProcessOrNil waitForCommand: 'ftp -u "', url asString , bFile , '" "' , aFile asVmPathName ,'"' ! Item was added: + ----- Method: Directory>>isOverwriting (in category 'directory/container actions') ----- + isOverwriting + + ^ overwriting ifNil: [ false ]! Item was added: + ----- Method: FileFtpExecutive>>copyUsing:from:to:relativeTo: (in category 'local/remote file copy') ----- + copyUsing: aSelector from: aDir to: someFD relativeTo: aBaseDir + + "here we do two passes, first we ensure that all of the needed directories exist. + for this we use our ususal ftp client. + + for the file transfers themselves we run n threads feeding from a shared queue + + " + + | queue map done delay flg dest | + + flg := FileNotification signal isOverwrite. + + self ftpDo: [ :ftp | + + map := self toDir: aDir mkpathAll: someFD relativeTo: aBaseDir. + + map := map select: [ :ea | + dest := ea second. + dest isDirectory not and: [ flg or: [ dest exists not ] ] + ] + ]. + + delay := Delay forMilliseconds: 100. + queue := SharedQueue2 new setItems: map copy. + done := SharedQueue2 new. + + + self class prefFtpParallel timesRepeat: [ + [ + [ queue isEmpty ] whileFalse: [ + queue nextOrNil ifNotNilDo: [ :ea | + [ self perform: aSelector withArguments: ea ] ensure: [ done nextPut: ea ]. + ] + ] + ] fork. + ]. + + [ done size < map size ] whileTrue: [ delay wait ]. + + ^ map collect: [ :ea | ea second ]! Item was added: + ----- Method: FileArchive>>expandTo:cachingIn: (in category 'public') ----- + expandTo: destDir cachingIn: cacheDir + + "expand a zip file into a local directory, if remote there may be a cached version in the cacheDir + this is not a perfect implementation of the rio API, but bob needed it, so it may be useful to others" + + "a better api + + (cacheDir addIfAbsent: aZip) expandTo: destDir. + + " + + | localZipFile zipFile | + + zipFile := executive file. + + zipFile executive isRemote + ifTrue: [ + + localZipFile := cacheDir / zipFile fileName. + + localZipFile exists ifFalse: [ + self log info downloading: zipFile. + localZipFile parent mkpath add: zipFile ]. + ] + ifFalse: [ localZipFile := zipFile ]. + + self log info bob expanding: localZipFile to: destDir. + + self exec: 'unzip ', localZipFile, ' -d ', destDir full mkpath. + + ^ localZipFile + + ! Item was changed: ----- Method: Directory>>addAll:relativeTo: (in category 'directory/container actions') ----- addAll: someFD relativeTo: aBaseDir "someFd must all have the same executor" "we could perform a sort here to handle the other case" someFD isEmpty ifTrue: [ ^ #() ]. + ^ [ someFD first executive addAll: someFD relativeTo: aBaseDir toDir: self ] + on: FileNotification do: [ :ex | ex isOverwrite: self isOverwriting]! - ^ someFD first executive addAll: someFD relativeTo: aBaseDir toDir: self.! Item was changed: ----- Method: FileFtpExecutive>>toDirLocal:addAllRemote:relativeTo: (in category 'local/remote file copy') ----- toDirLocal: aDir addAllRemote: someFD relativeTo: aBaseDir + ^ self + copyUsing: #copyRemoteFile:toLocalFile: + from: aDir + to: someFD + relativeTo: aBaseDir + ! - ^ self toDirRemote: aDir addAllLocal: someFD relativeTo: aBaseDir - copySelector: #copyRemoteFile:toLocalFile:! Item was changed: ----- Method: File>>asMatchedList (in category 'enumeration') ----- asMatchedList + ^ self parent filesMatching: self fileName! - ^ self parent filesMatching: self filename! Item was changed: File subclass: #Directory + instanceVariableNames: 'overwriting' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'File-Base'! !Directory commentStamp: 'kph 11/24/2008 01:59' prior: 0! Could mode mkdir and mkpath into this adaptor. TODO: asFile to pick correct File subclass (like auto only better) auto can be retired! Item was added: + ----- Method: Directory>>beOverwriting (in category 'directory/container actions') ----- + beOverwriting + + overwriting := true! Item was changed: ----- Method: FileFtpExecutive>>copyRemoteFile:toLocalFile: (in category 'external ftp') ----- + copyRemoteFile: aFile toLocalFile: bFile - copyRemoteFile: aFile toLocalFile: bFile self class OSProcessOrNil ifNil: [ ^ aFile copyTo: bFile ]. self class OSProcessOrNil waitForCommand: 'ftp -o "', bFile asVmPathName, '" "' , url asString , aFile, '"'! Item was changed: ----- Method: FileFtpExecutive>>copyRemoteFile:toRemoteFile: (in category 'external ftp') ----- + copyRemoteFile: aFile toRemoteFile: bFile - copyRemoteFile: aFile toRemoteFile: bFile "we copy the executives to enable multi threaded copying and because we cant read and write with the same executive" ^ (aFile executive: aFile executive copy initialize) copyTo: (bFile executive: bFile executive copy initialize)! Item was changed: ----- Method: FileFtpExecutive>>toDirRemote:addAllLocal:relativeTo: (in category 'local/remote file copy') ----- toDirRemote: aDir addAllLocal: someFD relativeTo: aBaseDir + ^ self + copyUsing: #copyLocalFile:toRemoteFile: + from: aDir + to: someFD + relativeTo: aBaseDir + ! - ^ self toDirRemote: aDir addAllLocal: someFD relativeTo: aBaseDir - copySelector: #copyLocalFile:toRemoteFile:! Item was changed: ----- Method: Directory>>add: (in category 'directory/container actions') ----- add: aFD + ^ self addAll: (Array with: aFD) - ^ (self addAll: (Array with: aFD) ) first " self assert: (('a' asDirectory mkpath add: 'b' asFile touch) = 'a/b' asFile) "! Item was changed: ----- Method: FileFtpExecutive>>toDirRemote:addAllRemote:relativeTo: (in category 'local/remote file copy') ----- toDirRemote: aDir addAllRemote: someFD relativeTo: aBaseDir + ^ self + copyUsing: #copyRemoteFile:toRemoteFile: + from: aDir + to: someFD + relativeTo: aBaseDir + ! - ^ self toDirRemote: aDir addAllLocal: someFD relativeTo: aBaseDir - copySelector: #copyRemoteFile:toRemoteFile:! Item was changed: ----- Method: Directory>>addTree: (in category 'directory/container actions') ----- addTree: aDir "this adds all the contents of aDir to the directory, not aDir itself" | list | self validateIsContainer. list := aDir isCollection ifTrue: [ aDir ] ifFalse: [ Array with: aDir ]. list do: [ :ea | + self addAll: ((ea all entries) addFirst: ea; yourself) relativeTo: ea parent. - self addAll: (ea all entries; addFirst: ea; yourself) relativeTo: ea parent. ]. ! Item was added: + ----- Method: Directory>>overwrite (in category 'directory/container actions') ----- + overwrite + + ^ self copy beOverwriting! Item was changed: ----- Method: File>>resolveMatchAll (in category 'enumeration') ----- resolveMatchAll + ^ self parent filesMatching: self fileName! - ^ self parent filesMatching: self filename! Item was removed: - ----- Method: FileFtpExecutive>>dir:addFile: (in category 'external ftp') ----- - dir: aDir addFile: aFile - - ^ aFile executive copyFile: aFile toRemoteFile: aDir / aFile fileName - - ! Item was removed: - ----- Method: FileFtpExecutive>>toDirRemote:addAllLocal:relativeTo:copySelector: (in category 'local/remote file copy') ----- - toDirRemote: aDir addAllLocal: someFD relativeTo: aBaseDir copySelector: aSelector - - "here we do two passes, first we ensure that all of the needed directories exist. - for this we use our ususal ftp client. - - for the file transfers themselves we run n threads feeding from a shared queue - - " - - | queue map done delay | - - self ftpDo: [ :ftp | - - map := self toDir: aDir mkpathAll: someFD relativeTo: aBaseDir. - - ]. - - delay := Delay forMilliseconds: 100. - queue := SharedQueue2 new setItems: map copy. - done := SharedQueue2 new. - - self class prefFtpParallel timesRepeat: [ - [ - [ queue isEmpty ] whileFalse: [ - queue nextOrNil ifNotNilDo: [ :ea | - [ self perform: aSelector withArguments: ea ] ensure: [ done nextPut: ea ]. - ] - ] - ] fork. - ]. - - [ done size < map size ] whileTrue: [ delay wait ]. - - ^ map collect: [ :ea | ea second ]!

1 0

Rio: File-Kernel-kph.14.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Feb '09

28 Feb '09

A new version of File-Kernel was added to project Rio: http://www.squeaksource.com/Rio/File-Kernel-kph.14.mcz ==================== Summary ==================== Name: File-Kernel-kph.14 Author: kph Time: 28 February 2009, 1:30:54 pm UUID: 0677ab8c-059c-11de-9b6f-000a95edb42a Ancestors: File-Kernel-kph.13 All non-archive tests pass =============== Diff against File-Kernel-kph.13 =============== Item was changed: ----- Method: FileExecutive>>toDirLocal:addAllLocal:relativeTo: (in category 'local/remote file copy') ----- toDirLocal: aDir addAllLocal: someFD relativeTo: aBaseDir + | map overwrite dest | - | map | - - map := self toDir: aDir mkpathAll: someFD relativeTo: aBaseDir. + overwrite := FileNotification signal isOverwrite. + + map := self toDir: aDir mkpathAll: someFD relativeTo: aBaseDir. + + ^ map collect: [ :ea | + dest := ea second. + (dest isDirectory not and: [ overwrite or: [ dest exists not ] ]) + ifTrue: [ + self copyLocalFile: ea first toLocalFile: dest + ]. + + dest + ]. - map do: [ :each | self copyLocalFile: each first toLocalFile: each second ]. + ! - ^ map collect: [ :ea | ea second ]! Item was changed: ----- Method: FileLocalExecutive>>copyLocalFile:toLocalFile: (in category 'as yet unclassified') ----- copyLocalFile: aFile toLocalFile: bFile + | | + + self class OSProcessOrNil ifNotNilDo: [ :osp | + + osp waitForCommand: 'cp "', aFile asVmPathName, '" "', bFile asVmPathName, '"'. ^ aFile + + ]. - self class OSProcessOrNil ifNotNilDo: [ :osp | osp waitForCommand: 'cp "', aFile asVmPathName, '" "', bFile asVmPathName, '"'. ^ aFile]. (self primCopyFile: aFile asVmPathName to: bFile asVmPathName) = #failed ifTrue: [ ^ aFile copyTo: bFile ]. ^ aFile ! Item was added: + ----- Method: FileNotification>>isOverwrite (in category 'accessing') ----- + isOverwrite + "Answer the value of isOverwrite" + + ^ isOverwrite ifNil:[ false ]! Item was added: + ----- Method: FileLocalDosExecutive class>>instanciatorFrom: (in category 'as yet unclassified') ----- + instanciatorFrom: aString + + "we being a dos file system have been asked to instancate a url, if that returns a FileLocalExecutive + we butt in" + + ^ (super instanciatorFrom: aString)! Item was changed: ----- Method: FileExecutive>>toDir:mkpathAll:relativeTo: (in category 'local/remote file copy') ----- + toDir: aDir mkpathAll: someFD relativeTo: aBaseDir - toDir: aDir mkpathAll: someFD relativeTo: aBaseDir - "take the list of files and ensure that the directories exist, return sourceFile -> destFile map" ^ someFD collect: [ :aFileOrDir | Array with: aFileOrDir with: (self dir: aDir mkpath: aFileOrDir relativeTo: aBaseDir) ] - thenSelect: [ :ea | ea first isFile ]. ! Item was added: + ----- Method: FileNotification>>isOverwrite: (in category 'accessing') ----- + isOverwrite: anObject + "Set the value of isOverwrite" + + isOverwrite := anObject. + self resume: self.! Item was added: + ----- Method: FileExecutive>>toDir:mkpathAll:relativeTo:overwriting: (in category 'local/remote file copy') ----- + toDir: aDir mkpathAll: someFD relativeTo: aBaseDir overwriting: flg + + "take the list of files and ensure that the directories exist, return sourceFile -> destFile map" + + ^ someFD + collect: [ :aFileOrDir | Array with: aFileOrDir with: (self dir: aDir mkpath: aFileOrDir relativeTo: aBaseDir overwriting: flg) ] + ! Item was added: + ----- Method: FileExecutive>>dir:mkpath:relativeTo:overwriting: (in category 'as yet unclassified') ----- + dir: aDir mkpath: aFileOrDir relativeTo: aBaseDirectory overwriting: flg + + | newFD | + + newFD := aBaseDirectory ifNil: [ (aDir / aFileOrDir fileName) asFile ] + ifNotNil: [ aDir / (aFileOrDir linearRelativeTo: aBaseDirectory) ]. + + aFileOrDir isDirectory ifTrue: [ newFD mkpath ]. + aFileOrDir isFile ifTrue: [ newFD parent mkpath ]. + + ^ newFD! Item was added: + Notification subclass: #FileNotification + instanceVariableNames: 'isOverwrite' + classVariableNames: '' + poolDictionaries: '' + category: 'File-Kernel'! Item was added: + ----- Method: FileNotification>>defaultAction (in category 'accessing') ----- + defaultAction + + "default action is to return self, since we carry the flags" + ^ self + + " + 'defaultAction' + FileNotification signal isOverwrite. + [ FileNotification signal isOverwrite ] on: FileNotification do: [ :ex | ex isOverwrite: true) ] + "! Item was removed: - ----- Method: FileLocalExecutive>>copyFile:toLocalFile: (in category 'as yet unclassified') ----- - copyFile: aFile toLocalFile: bFile - - ^ self copyLocalFile: aFile toLocalFile: bFile - ! Item was removed: - ----- Method: FileLocalExecutive>>copyFile:toRemoteFile: (in category 'as yet unclassified') ----- - copyFile: aFile toRemoteFile: bFile - - ^ bFile executive copyLocalFile: aFile toRemoteFile: bFile!

1 0

Rio: File-Test-kph.9.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Feb '09

28 Feb '09

A new version of File-Test was added to project Rio: http://www.squeaksource.com/Rio/File-Test-kph.9.mcz ==================== Summary ==================== Name: File-Test-kph.9 Author: kph Time: 28 February 2009, 1:30:40 pm UUID: fe1c7649-059b-11de-9b6f-000a95edb42a Ancestors: File-Test-kph.8 All non-archive tests pass =============== Diff against File-Test-kph.8 =============== Item was changed: ----- Method: FileDirTest>>setUp (in category 'fixtures') ----- setUp testDir mkdir! Item was added: + ----- Method: FileDirTest>>testResolveMatchAll (in category 'tests-select') ----- + testResolveMatchAll + + self makeDirectoriesAndFiles. + + self assert: (testDir / 't_a/f*') resolveMatchAll size = 2! Item was changed: ----- Method: FileVirtualFSDosFileTest>>testFromUrl (in category 'tests') ----- testFromUrl self assert: ((fileClass new: 'file:///E%3A/aa/bb/cc') asString = 'E:\aa\bb\cc' ). + self assert: ((fileClass new: 'file:///E:/aa/bb/cc') asString = 'E:\aa\bb\cc' ). ! Item was changed: ----- Method: FileArchiveExtractTest>>testAddFile (in category 'as yet unclassified') ----- testAddFile + - self halt. super testAddFile.! Item was changed: ----- Method: FileDirTest>>testAddTree (in category 'tests-directory copying') ----- testAddTree self makeDirectoriesAndFiles. + + destDir mkdir addTree: testDir entries. - destDir mkdir addTree: testDir. + self assert: (destDir all entries size = 5). - self assert: (destDir all entries size = 6). self assert: ((testDir / 't_a' / 'f 1') contents = 'test file'). self assert: ((testDir / 't_a' / 'f 2') contents = 'test file2'). + self assert: ((destDir / 't_a' / 'f 1') contents = 'test file'). + self assert: ((destDir / 't_a' / 'f 2') contents = 'test file2').! - self assert: ((destDir / 'testing_file'/ 't_a' / 'f 1') contents = 'test file'). - self assert: ((destDir / 'testing_file'/ 't_a' / 'f 2') contents = 'test file2').! Item was changed: ----- Method: FileDirTest>>testAddFile (in category 'tests-directory copying') ----- testAddFile | result | self makeDirectoriesAndFiles. result := destDir mkpath add: (testDir / 't_a' / 'f 1'). self assert: (destDir all entries size = 1). ! Item was removed: - ----- Method: FileDirTest>>testMatchingList (in category 'tests-select') ----- - testMatchingList - - self makeDirectoriesAndFiles. - - self assert: ('f*' asFile asMatchedList) size = 2!

1 0

Sake : Sake-Bob-kph.14.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Feb '09

28 Feb '09

A new version of Sake-Bob was added to project Sake : http://www.squeaksource.com/Sake/Sake-Bob-kph.14.mcz ==================== Summary ==================== Name: Sake-Bob-kph.14 Author: kph Time: 28 February 2009, 6:43:21 am UUID: 16faf722-0563-11de-9b6f-000a95edb42a Ancestors: Sake-Bob-kph.13 working on saving one click images =============== Diff against Sake-Bob-kph.13 =============== Item was changed: ----- Method: BobBuildImage>>package (in category 'as yet unclassified') ----- package + self packageDirectory: self stampedName intoZip: self publishDir from: self publishDir parent + + ! - - self exec: 'cd ', self publishDir parent, '; zip -R ', self packageFile, ' "', self stampedName ,'/*" -x "__*" ".DS*"'. - ! Item was changed: ----- Method: BobBuildImage class>>taskBuild: (in category 'as yet unclassified') ----- taskBuild: metaSelector | isNeeded | ^ self define: [ :task | "obtain latest meta-data from instance side" (task infoFor: metaSelector) ifNil: [ ^ self noop ]. task if: [ task timeStart. isNeeded := task isBuildNeeded. self log info build: task info name isNeeded: isNeeded first because: isNeeded second. . isNeeded first ]. task action: [ + task stepAction. + task perform: task info action. - task stepAction. - task expandZipFileTo: (task newWorkingDir). - - task startImage: (task workingDir all fileMatching: '*.image'). - - task theScript scriptFileWrite. - - task launchVm: self configVm image: task startImage with: task scriptFile. - - task isSuccessfulBuild ifTrue: [ - task info timeComplete: DateAndTime now. - task info timeDuration: ((task info timeComplete - task info timeStart) roundTo: 1 second). - - task publish. - task package. - task tidy. - task publishLinks. - - task uploadImmediate. ] - ] ] + + - ! Item was changed: ----- Method: BobBuild>>nextScriptPut: (in category 'as yet unclassified') ----- nextScriptPut: aScript | bScript | bScript := (self class configStepScript = true) ifFalse: [ aScript ] ifTrue: [ aScript asString copyReplaceAll: self scriptCommentedHalt with: 'self halt.' ]. - script nextChunkPut: bScript, String cr. ! Item was added: + ----- Method: BobBuildImage>>configOneClickIni: (in category 'as yet unclassified') ----- + configOneClickIni: imageName + + ^ '[Global] + DeferUpdate=1 + ShowConsole=0 + DynamicConsole=0 + ReduceCPUUsage=1 + ReduceCPUInBackground=0 + 3ButtonMouse=0 + 1ButtonMouse=0 + UseDirectSound=1 + PriorityBoost=1 + B3DXUsesOpenGL=0 + CaseSensitiveFileMode=0 + ImageFile="Contents\Resources\' , imageName, '.image"'! Item was added: + ----- Method: BobBuildImage>>publishManifestTo: (in category 'as yet unclassified') ----- + publishManifestTo: aPublishDir + + aPublishDir mkpath + addAll: (self imageDir filesMatching: (self stampedName, '.*')). + + aPublishDir + addAll: (self imageDir all filesMatching: #('*.txt' '*.text' '*.pr' '*.pass' '*.fail' )) + + + + ! Item was added: + ----- Method: BobBuildImage>>workingDirOneClickIn (in category 'as yet unclassified') ----- + workingDirOneClickIn + + ^ (self workingDir + '-OneClick.in') asDirectory! Item was added: + ----- Method: BobBuildImage>>configOneClickSh: (in category 'as yet unclassified') ----- + configOneClickSh: imageName + + ^ '#!!/bin/sh + APP=`dirname $0` + EXE="$APP/Contents/Linux686" + RES="$APP/Contents/Resources" + + exec "$EXE/squeak" -plugins "$EXE" \ + -encoding latin1 \ + -vm-display-X11 -swapbtn \ + "$RES/' , imageName , '.image"'! Item was changed: ----- Method: BobBuildImage>>startImage: (in category 'accessing') ----- startImage: anObject "Set the value of startImage" + startImage := anObject. + + ! - startImage := anObject! Item was added: + ----- Method: BobBuildImage>>oneClickUpdatePlist:fromDictionary: (in category 'as yet unclassified') ----- + oneClickUpdatePlist: originalPlistFile fromDictionary: dict + + | plist file | + + file := originalPlistFile asFile xml. + plist := file contents. + + ((plist elementAt: 'plist') elementAt: 'dict') elements pairsDo: [ :keyElement :valueElement | + + dict at: (keyElement contentString) ifPresent:[ :newValue | (valueElement contents at: 1) string: newValue ] + ]. + + file delete contents: plist.! Item was added: + ----- Method: BobBuildImage>>workingDirOneClickOut (in category 'as yet unclassified') ----- + workingDirOneClickOut + + ^ (self workingDir + '-OneClick.out') asDirectory! Item was added: + ----- Method: BobBuildImage>>packageDirectory:intoZip:from: (in category 'as yet unclassified') ----- + packageDirectory: directory intoZip: packageFile from: rootDir + + self exec: 'cd ', rootDir, '; zip -r ', packageFile, '.zip "', directory ,'" -x "__*" ".DS*"'. + ! Item was added: + ----- Method: BobBuildImage>>configOneClickPlist (in category 'as yet unclassified') ----- + configOneClickPlist + "we take the plist from the template and substitute these values + note: only string values are supported at this time" + + ^ self oneClickPlistBase + at: 'CFBundleName' put: (info oneClickName ifNil: [ info name ]); + at: 'CFBundleShortVersionString' put: (info oneClickName ifNil: [ info name ]); + at: 'CFBundlePackageType' put: 'APPL'; + at: 'CFBundleSignature' put: 'FAST'; + at: 'CFBundleExecutable' put: 'squeak'; + at: 'CFBundleGetInfoString' put: 'http://www.squeak.org'; + at: 'CFBundleIdentifier' put: 'org.squeak'; + at: 'CFBundleVersion' put: '3.8.18b1U'; + at: 'SqueakEncodingType' put: 'UTF-8'; + yourself + ! Item was changed: ----- Method: BobBuildImage>>scriptSetVersion (in category 'as yet unclassified') ----- scriptSetVersion | s | s := String new writeStream. s << '"self halt."' ; cr. s << 'SystemVersion newVersion: ' << self name printString << '.' ; cr. s << 'SystemVersion current date: ''' << self timeStart asTimeStamp printString << ''' asTimeStamp.'; cr. + s << 'Smalltalk at: #Scripter ifPresent: [ :scr | scr transcript windowLabel: ''' << + self stampedName <<''' ].' ; cr. self nextScriptPut: s contents! Item was added: + ----- Method: BobBuildImage>>actionPublishOneClick (in category 'as yet unclassified') ----- + actionPublishOneClick + + "if our source zip has an info file accompanying read it" + | sourceInfo | + sourceInfo := Compiler evaluate: (zipFile copy ext: 'info') contents. + + info timeStart: sourceInfo timeStart. + info timeDuration: sourceInfo timeDuration. + info timeComplete: sourceInfo timeComplete. + info timeOneClickGenerated: DateAndTime now. + + self expandZipFileTo: (self workingDirOneClickIn mkpath clean). + + self startImage: (self workingDirOneClickIn all fileMatching: '*.image'). + + self packageOneClick. + + + ! Item was changed: ----- Method: BobBuildImage>>scriptAddInfoScript (in category 'as yet unclassified') ----- scriptAddInfoScript | rs | rs := (self class docAt: self info build) readStream. [ rs atEnd ] whileFalse: [ self nextScriptPut: (rs upToAll: '""""""') asString ].! Item was changed: ----- Method: BobBuildImage>>newWorkingDir (in category 'as yet unclassified') ----- newWorkingDir self workingDir mkpath. + self exec: 'cd ', self workingDir,'; rm -rf *'. - self exec: 'cd ', self workingDir,'; rm -rf *; ln -s ', self class configPackageCacheDir mkpath, ' package-cache'. ^ self workingDir. ! Item was added: + ----- Method: BobBuild>>description (in category 'as yet unclassified') ----- + description + + ^ ''! Item was added: + ----- Method: BobBuildImage>>configOneClickCopyrightStatement (in category 'as yet unclassified') ----- + configOneClickCopyrightStatement + + ^ + + 'Distribution based on Sophie + + http://www.sophieproject.org/'! Item was changed: ----- Method: BobBuildImage>>scriptOpenInWorkspace: (in category 'as yet unclassified') ----- scriptOpenInWorkspace: afilename + self nextScriptPut: 'Workspace openFile: ', afilename printString, '.'. - self nextScriptPut: '"self halt." - Workspace openFile: ', afilename printString, '.'. ! Item was added: + ----- Method: BobBuildImage>>workingOneClickDir (in category 'as yet unclassified') ----- + workingOneClickDir + + ^ (self workingDir + '-OneClick') asDirectory! Item was added: + ----- Method: BobBuildImage>>configOneClickIcns (in category 'as yet unclassified') ----- + configOneClickIcns + + ^ (info oneClickIcns ifNil: [ '/bob/misc/SqueakImage.icns' ]) ! Item was changed: ----- Method: BobBuildImage>>scriptAddLPF (in category 'as yet unclassified') ----- scriptAddLPF self nextScriptPut: '"self halt." (HTTPSocket httpGet: ''ftp.squeak.org/3.11/bob/LPF.st'') readStream fileIn.'. ! Item was added: + ----- Method: BobBuildImage>>scriptAddScripter (in category 'as yet unclassified') ----- + scriptAddScripter + + self nextScriptPut: '"self halt." Installer ss project: ''Scripter''; install: ''Scripter-Core''.'. + ! Item was changed: ----- Method: BobBuildImage>>scriptCleanUp (in category 'as yet unclassified') ----- scriptCleanUp + self nextScriptPut: '"self halt." SmalltalkImage current cleanUpAllExcept: #(ChangeSet).'! - self nextScriptPut: 'SmalltalkImage current cleanUpAllExcept: #(ChangeSet).'! Item was changed: ----- Method: BobBuildImage>>publish (in category 'as yet unclassified') ----- publish "we publish to a temp directory and publish as an atomic operation otherwise the uploader might start uploading before it is ready" self info overwrite = true ifTrue: [ self outputDir all delete ]. + self publishManifestTo: self publishDir. - self publishManifest. self infoFilePublishAlongside: self publishDir. ! Item was added: + ----- Method: BobBuildImage>>actionBuild (in category 'as yet unclassified') ----- + actionBuild + + self stepAction. + self expandZipFileTo: (self workingDir mkpath clean). + + self startImage: (self workingDir all fileMatching: '*.image'). + self linkPackageCache. + + self theScript scriptFileWrite. + + self launchVm: self configVm image: self startImage with: self scriptFile. + + self isSuccessfulBuild ifFalse: [ ^ self ]. + + info timeComplete: DateAndTime now. + info timeDuration: ((info timeComplete - info timeStart) roundTo: 1 second). + + self publish. + + self package. + + self tidy. + self publishLinks. + + self uploadImmediate. + ! Item was changed: ----- Method: BobBuildImage>>scriptSaveImageAndQuit: (in category 'as yet unclassified') ----- scriptSaveImageAndQuit: requestQuit | s | s := String new writeStream. s << ' | image resuming |' ; cr. s << '"self halt."' ; cr. + s << 'WorldState addDeferredUIMessage: [ (Delay forSeconds: 1) wait. '; cr. s << 'image := SmalltalkImage current.'; cr. s << 'resuming := image saveAs: '''<< self stampedName << '.image''.'; cr. requestQuit ifTrue: [ s << 'resuming ifFalse: [ image snapshot: false andQuit: true ].' ; cr ]. + s << '].' + self nextScriptPut: s contents! Item was added: + ----- Method: BobBuildImage>>packageOneClick (in category 'as yet unclassified') ----- + packageOneClick + + | appZip appDir resources plist bundleName imageName template filename | + + info oneClick = true ifFalse: [ ^ self ]. + + template := info oneClickTemplate ifNil: [ self configOneClickTemplate ]. + + "use the match string given to find the template" + appZip := self resolveFile: template ifNone: [ :msg | self error: msg ]. + + "download to images cache, and decompress to the output area" + self expand: appZip to: self workingDirOneClickOut mkpath clean. + + "the result should have a .app dir, find it" + appDir := self workingDirOneClickOut directories detect: [ :ea | ea asString endsWith: '.app' ] ifNone: [ self error: '*.app not found' ]. + + "get our plist contribution" + plist := self configOneClickPlist. + + bundleName := plist at: 'CFBundleName'. + imageName := bundleName asLowercase. + plist at: 'SqueakImageName' put: (imageName, '.image'). + + "rename the .app dir to the desired name" + appDir beRenaming fileName: (bundleName , '.app'). + + "top level directory" + (appDir filesMatching: #('*.exe' '*.ini' '*.sh')) do: [ :ea | ea rename base: bundleName ]. + (appDir / bundleName + '.ini' ) delete contents: ((self configOneClickIni: imageName) copyReplaceAll: String cr with: String crlf). + (appDir / bundleName + '.sh' ) delete contents: (self configOneClickSh: imageName). + (appDir / 'COPYRIGHT') delete contents: (info oneClickCopyrightStatement ifNil: [ self configOneClickCopyrightStatement ] ). + + "Contents Directory" + appDir / 'Contents' / 'PkgInfo' contents: ((plist at: 'CFBundlePackageType') , (plist at: 'CFBundleSignature')). + self oneClickUpdatePlist: (appDir / 'Contents' / 'Info.plist') fromDictionary: plist. + + "Resources Directory" + resources := (appDir / 'Contents' / 'Resources') all delete mkpath. + + resources addTree: self imageDir entries. + (resources filesMatching: #('*.image' '*.changes')) do: [ :ea | ea rename base: imageName ]. + resources add: self configOneClickIcns asFile. + resources add: (info oneClickSources ifNil: [ self configOneClickSources ]) asFile. + + self halt. + filename := appDir fileName. + self packageDirectory: filename intoZip: (self stamp,'_', filename) from: appDir parent. + + ! Item was added: + ----- Method: BobBuildImage>>configOneClickTemplate (in category 'as yet unclassified') ----- + configOneClickTemplate + + ^ 'file:///bob/images/Seaside-2.8.3.app.zip' ! Item was added: + ----- Method: BobBuildImage>>oneClickPlistBase (in category 'as yet unclassified') ----- + oneClickPlistBase + + ^ Dictionary new + at: 'CFBundleIconFile' put: self configOneClickIcns asFile fileName; + yourself! Item was changed: ----- Method: BobBuild class>>taskUpload: (in category 'as yet unclassified') ----- taskUpload: metaSelector "the task of uploading is defined as a top level task, because it is more generic than image building, and may be applied to any result." | newInfo lock ul dl yes | ^ self define: [ :task | (task infoFor: metaSelector) ifNil: [ ^ self noop ]. task dependsOn: #(). newInfo := task info. "obtain and use the latest meta-data from the most recent build activity" task info: task infoFileReadLatest. "some fields in the metadata we prefer new values over the older" task info upload: newInfo upload. task info download: newInfo download. task info linkRelease: newInfo linkRelease. task info comment: newInfo comment. task if: [ lock := ul := dl := nil. yes := task name notNil and: [ (ul := task isUploadRequested) and: [ dl := task isUploadedFileAvailableForDownload. dl ifTrue: [ task uploadDirLock delete ]. dl not and: [ (lock := task uploadDirLock exists) not ] ] ]. task name ifNotNil:[ self log info name: task name uploadRequested: ul done: dl inProgress: lock. ]. "if we decide that we shall upload, we lock the upload dir to inform others" yes ifTrue: [ task uploadDirLock touch ]. yes. ]. task action: [ self log info UPLOADING: task publishDir. task infoFilePublishAlongside: task publishDir. task linkRelease. + task oneClick = true ifTrue: [ task packageOneClick ]. + task perform: ('uploadUsing', (task info upload upTo: $:) capitalized) asSymbol. task isUploadedFileAvailableForDownload ifTrue: [ task uploadDirLock delete ]. ] ] ! Item was changed: ----- Method: BobBuild>>infoFor: (in category 'as yet unclassified') ----- infoFor: selector selector ifNil: [ ^ nil ]. self info name: self class label. self info build: selector. self info label: self class label. self when: self class configWhen. self info linkRelease: self class configLinkRelease. + self description ifNotEmpty: [ self info description: self description ]. + info action: #actionBuild. self perform: selector. + ! - self info when: self preprocessWhen. - - - ! Item was added: + ----- Method: BobBuildImage>>configOneClickSources (in category 'as yet unclassified') ----- + configOneClickSources + + ^ '/bob/vm/SqueakV39.sources' + + " '/bob/vm/SqueakV3.sources' " + ! Item was changed: ----- Method: BobBuild>>expandZipFileTo: (in category 'zip file') ----- expandZipFileTo: destDir - - " - (self obtainImage: 'ftp://ftp.squeak.org/3.10/Squeak3.10.2-*-basic.zip') run - " - | localZipFile | + ^ self expand: zipFile to: destDir! - zipFile executive isRemote - ifTrue: [ - - localZipFile := self class configImagesDir / zipFile fileName. - - "if it is not in the local downloaded images cache, look in our output tree" - localZipFile exists ifFalse: [ - (self outputDir parent all filesMatching: zipFile fileName) firstOrNil - ifNotNilDo: [ :found | - self log info found: found. - localZipFile := found - ]. - ]. - - localZipFile exists ifFalse: [ - self log info downloading: zipFile. - localZipFile parent mkpath add: zipFile ]. - ] - ifFalse: [ localZipFile := zipFile ]. - - self log info bob expanding: localZipFile to: destDir. - - self exec: 'unzip ', localZipFile, ' -d ', destDir full mkpath. - - ^ localZipFile - - " - localZipFile zip readArchive extractAllTo: destDir mkpath asFileDirectory. - " - ! Item was added: + ----- Method: BobBuildImage>>linkPackageCache (in category 'accessing') ----- + linkPackageCache + + self exec: 'cd ', self imageDir,'; ln -s ', self class configPackageCacheDir mkpath, ' package-cache'. + ! Item was added: + ----- Method: BobBuild>>expand:to: (in category 'zip file') ----- + expand: aZipFile to: destDir + + " + (self obtainImage: 'ftp://ftp.squeak.org/3.10/Squeak3.10.2-*-basic.zip') run + " + | localZipFile | + + aZipFile executive isRemote + ifTrue: [ + + localZipFile := self class configImagesDir / aZipFile fileName. + + "if it is not in the local downloaded images cache, look in our output tree" + localZipFile exists ifFalse: [ + (self outputDir parent all filesMatching: aZipFile fileName) firstOrNil + ifNotNilDo: [ :found | + self log info found: found. + localZipFile := found + ]. + ]. + + localZipFile exists ifFalse: [ + self log info downloading: zipFile. + localZipFile parent mkpath add: zipFile ]. + ] + ifFalse: [ localZipFile := aZipFile ]. + + self log info bob expanding: localZipFile to: destDir. + + self exec: 'unzip ', localZipFile, ' -d ', destDir full mkpath. + + ^ localZipFile + + " + localZipFile zip readArchive extractAllTo: destDir mkpath asFileDirectory. + " + ! Item was removed: - ----- Method: BobBuildImage>>scriptGoAtomic (in category 'as yet unclassified') ----- - scriptGoAtomic - - self nextScriptPut: 'Preferences setPreference; #useMonticelloAtomicLoader toValue: true.'! Item was removed: - ----- Method: BobBuildImage>>packageFile (in category 'as yet unclassified') ----- - packageFile - - ^ self publishDir + '.zip'!

1 0

Rio: File-Base-kph.16.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Feb '09

28 Feb '09

A new version of File-Base was added to project Rio: http://www.squeaksource.com/Rio/File-Base-kph.16.mcz ==================== Summary ==================== Name: File-Base-kph.16 Author: kph Time: 28 February 2009, 6:42 am UUID: e6d54b7e-0562-11de-9b6f-000a95edb42a Ancestors: File-Base-kph.15 addTree: now accepts a directory or a list. =============== Diff against File-Base-kph.15 =============== Item was changed: ----- Method: Directory>>addTree: (in category 'directory/container actions') ----- addTree: aDir "this adds all the contents of aDir to the directory, not aDir itself" + | list | self validateIsContainer. + + list := aDir isCollection ifTrue: [ aDir ] ifFalse: [ Array with: aDir ]. - aDir validateIsDirectory. + list do: [ :ea | + + self addAll: (ea all entries; addFirst: ea; yourself) relativeTo: ea parent. - ^ self addAll: (aDir all entries) relativeTo: aDir. + ]. + !

1 0

Rio: File-Base-kph.15.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Feb '09

28 Feb '09

A new version of File-Base was added to project Rio: http://www.squeaksource.com/Rio/File-Base-kph.15.mcz ==================== Summary ==================== Name: File-Base-kph.15 Author: kph Time: 28 February 2009, 6:34:03 am UUID: ca41a85a-0561-11de-9b6f-000a95edb42a Ancestors: File-Base-kph.14 + FileXML + addTree: bDir adds the contents of bDir (not bDIr itself) =============== Diff against File-Base-kph.14 =============== Item was added: + ----- Method: Directory>>clean (in category 'directory/container actions') ----- + clean + + executive cleanDir: self! Item was added: + ----- Method: FileXML>>XMLDOMParser (in category 'as yet unclassified') ----- + XMLDOMParser + + ^ Smalltalk at: #XMLDOMParser ifAbsent: [ self error: 'XMLSupport not loaded' ]! Item was added: + ----- Method: FileXML>>contents (in category 'as yet unclassified') ----- + contents + + self reader: [ :str | ^ self XMLDOMParser parseDocumentFrom: str ]. + + ^ nil! Item was added: + File subclass: #FileXML + instanceVariableNames: '' + classVariableNames: '' + poolDictionaries: '' + category: 'File-Base'! Item was added: + ----- Method: FileXML>>contents: (in category 'as yet unclassified') ----- + contents: aXMLDocument + + "aStreamable refers to implementers of << and hence putOn: + And so would write out an array of strings" + + self writer: [ :out | aXMLDocument printOn: out ].! Item was changed: ----- Method: File>>auto (in category 'public modes') ----- auto + | ext | + ext := self ext. + + ext = 'gz' ifTrue: [ ^ self gzip ]. + (#('xml' 'plist' 'xhtml') includes: ext) ifTrue: [ ^ self xml ]. - self ext = 'gz' ifTrue: [ ^ self gzip ]. + ^ self + + ! - ^ self copy! Item was added: + ----- Method: File>>xml (in category 'public modes') ----- + xml + + ^ FileXML newFrom: self! Item was changed: ----- Method: Directory>>addTree: (in category 'directory/container actions') ----- addTree: aDir + "this adds all the contents of aDir to the directory, not aDir itself" self validateIsContainer. aDir validateIsDirectory. + ^ self addAll: (aDir all entries) relativeTo: aDir. - ^ self addAll: (aDir all entries addFirst: aDir asDirectory; yourself) relativeTo: aDir parent. + ! - !

1 0

Rio: File-Kernel-kph.13.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 28 Feb '09

28 Feb '09

A new version of File-Kernel was added to project Rio: http://www.squeaksource.com/Rio/File-Kernel-kph.13.mcz ==================== Summary ==================== Name: File-Kernel-kph.13 Author: kph Time: 28 February 2009, 6:32:45 am UUID: 9bc2f6dc-0561-11de-9b6f-000a95edb42a Ancestors: File-Kernel-kph.12 + clean = fixed fileName on a directory =============== Diff against File-Kernel-kph.12 =============== Item was changed: ----- Method: String>>asFile (in category '*file-kernel') ----- asFile ^ FileKernel newFileFrom: self! Item was added: + ----- Method: FileLocalDosExecutive>>cleanDir: (in category 'as yet unclassified') ----- + cleanDir: aDir + + (self class OSProcessOrNil ifNil: [ ^ aDir all delete ]) waitForCommand: 'cd ', aDir,' && del \s *.*'.! Item was changed: ----- Method: FileStat>>fileName (in category 'as yet unclassified') ----- fileName + array ifNil: [ ^ nil ]. + + ^ array at: 1! - ^ array at: 1! Item was changed: ----- Method: FileKernel>>fileName (in category 'accessing') ----- fileName + ^ (stat ifNotNil: [ stat fileName ]) ifNil: [ self splitToPathAndName: [ :path :n | n ] ] - ^ stat ifNotNil: [ stat fileName ] ifNil: [ self splitToPathAndName: [ :path :n | n ] ] ! Item was added: + ----- Method: FileExecutive>>cleanDir: (in category 'case-sensitivity') ----- + cleanDir: aDir + + (self class OSProcessOrNil ifNil: [ ^ aDir all delete ]) waitForCommand: 'cd ', aDir,'; rm -rf *'.!

1 0

Packages: Packages-Library-kph.40.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 27 Feb '09

27 Feb '09

A new version of Packages-Library was added to project Packages: http://www.squeaksource.com/Packages/Packages-Library-kph.40.mcz ==================== Summary ==================== Name: Packages-Library-kph.40 Author: kph Time: 26 February 2009, 11:29 pm UUID: 3f5f9fbc-045d-11de-a647-000a95edb42a Ancestors: Packages-Library-kph.39 fixed Tasks =============== Diff against Packages-Library-kph.39 =============== Item was changed: ----- Method: PackagesDev>>Tasks (in category 'Group Development') ----- Tasks | thisVersion sqVersion testCandidate | self name: 'Tasks'. self info mcName: 'Tasks-Common'. self version: '1+'. info description: 'Package definitions for this version of squeak'. info author: 'keith_hodges(a)yahoo.co.uk'. info owner: 'Keith Hodges'. self dependsOn: { 'Sake' }. thisVersion := 'Tasks-', (sqVersion := SystemVersion current majorMinorVersion copyWithout: $.). + testCandidate := ( sqVersion, 'PlusOne') asSymbol. - testCandidate := ('ReleaseAfter', sqVersion) asSymbol. self load: [ - self halt. Installer squeaksource project: 'Bob'; install: 'Tasks-Common'; install: thisVersion. ((Smalltalk classNamed: testCandidate) ifNil: [ self stop ]) releaseCandidateTasksInstaller install. ]. self unload: [ Installer mc unload: thisVersion. Installer mc unload: 'Tasks-Common'. ]. !

1 0

Packages: Packages-Library-kph.39.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Feb '09

26 Feb '09

A new version of Packages-Library was added to project Packages: http://www.squeaksource.com/Packages/Packages-Library-kph.39.mcz ==================== Summary ==================== Name: Packages-Library-kph.39 Author: kph Time: 26 February 2009, 10:10:50 pm UUID: 540ae122-0452-11de-aedb-000a95edb42a Ancestors: Packages-Library-kph.38 regnerated =============== Diff against Packages-Library-kph.38 =============== Item was changed: ----- Method: PackagesDevU>>SakeScheduler (in category 'Group Development') ----- SakeScheduler self name: 'Sake-Scheduler'. + self version: '10'. - self version: ''. info category: 'Group Development'. info description: + 'Periodic actions, with logging support'. - 'Periodic actions'. info maintainer: 'Keith Hodges'. info homepage: 'http://wiki.squeak.org/squeak/5953'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Sake/Sake-Scheduler-kph.10.mcz'. - info url: 'http://www.squeaksource.com/Sake/Sake-Scheduler-kph.6.mcz'. self provides: #('Sake-Scheduler'). + self dependsOn: #('Logging'). - self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>Monticello15 (in category 'Group Development') ----- Monticello15 self name: 'Monticello15'. self version: '1.5+'. info category: 'Group Development'. info description: 'Monticello - evolution - Improvements over 1.0 - Method/Class Orphanage which enables out-of-order loading of packages, and maintenance of packages whose dependencies have not been loaded. - Method Overrides (if properly categorized) are fully supported preserving the integrity of a package even if it has overridden methods - Refactored UI/repository classes so that one UI heirachy serves all. - Dual Changes Browser - In memory cache repository - Support for configurations (Please name them using the MC conventions) - Support for more complex version numbering conventions i.e. Package-kph-1.0.3.mcz known problems: methods have been known to loose their categories future: Atomic Loading loader using System Editor is already coded and contained in this release. See #theChosenLoaderClass. '. info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. info homepage: ''. info squeakMapID: ''. info url: 'http://installer.pbwiki.com/f/mc15.st'. + self provides: #('PackageInfo-Base' 'Installer' 'MonticelloConfigurations' 'Monticello15'). - self provides: #('Monticello15' 'Installer' 'MonticelloConfigurations' 'PackageInfo-Base'). self dependsOn: #(). ! Item was changed: ----- Method: PackagesSqueak37U>>KomPackaging (in category 'Uncategorized') ----- KomPackaging self name: 'KomPackaging'. self version: '1.0'. info category: 'Uncategorized'. info description: + 'This package adds support for two types of urls, package and squeakmap...they take the forms: - ' - This package adds support for two types of urls, package and squeakmap...they take the forms: sqpkg://httpserver.kom:6.1 sqmap://Named Process:1.1 You can to interesting things with these URLs, such as install them: ''sqpkg://httpserver.kom:6.1'' asUrl install or, query whether or not a version of the package is currently installed: ''sqpkg://httpserver.kom:6.1'' asUrl isPresent Version 1.0: - initial version'. info maintainer: ''. info homepage: ''. info squeakMapID: ''. info url: 'http://universes.dnsalias.net:8888/universes/repositories/stable-3.7/KomPac…'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesSqueak37U>>KomServices (in category 'Uncategorized') ----- KomServices self name: 'KomServices'. self version: '1.0'. info category: 'Uncategorized'. info description: + '===== Release Notes ===== - ' - ===== Release Notes ===== KomServices provides a framework for the creation and management of background processes. A generic Service class is provided for this purpose. Additionally, TcpService is provided for creating services that respond to inbound TCP connections. ===== Release History ===== Version 1.0: - initial version, this package is bourne out of KomHttpServer and renames a few classes: - ComancheService -> Service - ComancheNetService -> TcpService - the old ConnectionHandler is dropped in favor of a cleaner TcpListener.'. info maintainer: ''. info homepage: ''. info squeakMapID: ''. info url: 'http://universes.dnsalias.net:8888/universes/repositories/stable-3.7/KomSer…'. self provides: #(). self dependsOn: #('DynamicBindings' 'KomPackaging'). ! Item was changed: ----- Method: PackagesDev>>Tasks (in category 'Group Development') ----- Tasks | thisVersion sqVersion testCandidate | self name: 'Tasks'. self info mcName: 'Tasks-Common'. self version: '1+'. info description: 'Package definitions for this version of squeak'. info author: 'keith_hodges(a)yahoo.co.uk'. info owner: 'Keith Hodges'. self dependsOn: { 'Sake' }. thisVersion := 'Tasks-', (sqVersion := SystemVersion current majorMinorVersion copyWithout: $.). testCandidate := ('ReleaseAfter', sqVersion) asSymbol. self load: [ + self halt. + Installer squeaksource project: 'Bob'; install: 'Tasks-Common'; install: thisVersion. ((Smalltalk classNamed: testCandidate) ifNil: [ self stop ]) releaseCandidateTasksInstaller install. ]. self unload: [ Installer mc unload: thisVersion. Installer mc unload: 'Tasks-Common'. ]. ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserTools (in category 'Development') ----- OmniBrowserTools self name: 'OmniBrowser-Tools'. + self version: '0.62'. - self version: '0.61'. info category: 'Development'. info description: 'Set of tools (debugger, inspector...) rewritten on top of the OmniBrowser framework.'. info maintainer: 'Dale Henrichs <dale.henrichs(a)gemstone.com>'. info homepage: ''. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/omnibrowser/OB-Tools-dkh.62.mcz'. - info url: 'http://source.lukas-renggli.ch/omnibrowser/OB-Tools-dkh.60.mcz'. self provides: #(). self dependsOn: #('OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesSqueak37U>>KomHttpServer (in category 'Uncategorized') ----- KomHttpServer self name: 'KomHttpServer'. self version: '6.2'. info category: 'Uncategorized'. info description: + 'KomHttpServer is the Comanche web server package. To get a simple web server running, install this package and evaluate the code below. A simple file serving web server will be started and will serve the files in your default directory. - ' - KomHttpServer is the Comanche web server package. To get a simple web server running, install this package and evaluate the code below. A simple file serving web server will be started and will serve the files in your default directory. | ma | ma := ModuleAssembly core. ma serverRoot: FileDirectory default fullName. ma documentRoot: FileDirectory default fullName. ma directoryIndex: ''index.html index.htm''. ma serveFiles. (HttpService startOn: 8080 named: ''httpd'') plug: ma rootModule After starting the server, point your web browser to http://localhost:8080/ If you have loaded Seaside, you can start a web server that serves Seaside based applications using the following configuration: | ma seaside | seaside := WAKom default. ma := ModuleAssembly core. ma serverRoot: FileDirectory default fullName. ma alias: ''/seaside'' to: [ma addPlug: [:request | seaside process: request]]. ma documentRoot: FileDirectory default fullName. ma directoryIndex: ''index.html index.htm''. ma serveFiles. (HttpService startOn: 8080 named: ''httpd'') plug: ma rootModule See the class comments of the various subclasses of ComancheModule for documentation and usage examples. ===== Release History ===== Version 6.2: - Added support for Squeak 3.6 - Now uses SocketStream from the network rewrite Version 6.1: - (build #41) Fixes various issues for running on Mac OSX - Packaged using KomPackaging (Squeak version only) - Separated the services framework into a separate package called KomServices - Added a module framework - The following modules have been added (see the individual classes for details): - ModCore - this is the core module and designed to be the root of a module assembly, it extracts basic information from the request and makes it available to sub-modules, it also handles http TRACE and OPTIONS methods - ModMulti - this is a module designed only to wrap submodules into a single entity - ModAlias - for mapping url prefixes to sub modules - ModAuth - for authentication - KomAuthDb - a very basic user and password database - ModAutoIndex - for generating directory listings - ModDir - for directory processing (including redirects to fix the trailing slash problem) - ModDoc - for file location processing in a file server - ModVhost - for name based virtual hosting - ModVhostDoc - for document serving based on virtual host name - ModVhostAlias - for module routing based on the virtual host name - ModFile - for serving files - ModLog - for logging http requests (not yet usable) - KomLogger - writes out a log in CLF format - KomTracer - writes out a detailed trace of http request/response pairs - ModNotFound - if reached will generate a not found response - ModSession - for client session handling - KomSession - the session class used by ModSession (by default) - Added ModuleAssembly to help in creating module assemblies - Renamed classes: - ComancheHttpService -> HttpService - Removed classes - BoundedStream - HttpBadRequest - HttpParser - NetworkProtocolAdaptor - NetworkRequest Version 6.0.1: - Adds pluggability to ComancheHttpService (see class comments). Version 6.0: - Initial ComancheNG release ===== Future Enhancement Plans ===== - add WebDAV server capability (in a separate package) - synchronize with the network rewrite project - separate some of the http protocol support into a separate package and provide an Http/WebDAV client implementation (separate package) - rework the handling of chunked responses (using the SharedStreams package) - rework the handling of document uploads (via multipart/form-data) using the SharedStreams package - support chunked transfer encoding for incoming requests - Reify cookies and make them easier to work with - Slim down HttpRequest and HttpResponse such that they are only responsible for constructing requests and responses (currently, these classes are heavily overloaded) '. info maintainer: ''. info homepage: ''. info squeakMapID: ''. info url: 'http://universes.dnsalias.net:8888/universes/repositories/stable-3.7/KomHtt…'. self provides: #(). self dependsOn: #('KomServices'). ! Item was changed: ----- Method: PackagesDevU>>SimpleLog (in category 'Development') ----- SimpleLog self name: 'SimpleLog'. + self version: '1.15'. - self version: '1.13'. info category: 'Development'. info description: 'Nice and simple logging. There are eight messages for logging based on severity. These correspond to the eight levels defined in syslog: 7 - debug (Debug-level messages) 6 - info (Informational) 5 - notice (Normal but significant Condition) 4 - warning (Warning Condition) 3 - err (Error Condition) 2 - crit (Critical Conditions) 1 - alert (must be handled immediately) 0 - emerg (System is unusable) The absolutely easiest way to log is like this: SLLog warn: ''Oopsidaisy'' We only need to include the actual message in the string, timestamp etc is added automatically. You can also explicitly supply a "sender" object which can be anything you like, a symbol or a specific domain object even: SLLog warn: ''Yowsa'' sender: #email SLLog uses printString on the sender when producing the log entry, so if you use domain objects - make sure they have a unique printOn: method defined so that you can distinguish them. See class side category "logging" and "logging shorthand" for the available log messages. By default there is a single emitter registered that logs on Transcript, you can turn this off with: SLLog useTranscript: false And you can set a threshold for the above 8 syslog levels that should be logged onto Transcript using: SLLog instance transcriptMaxLevel: 4 ..or set a global threshold for all emitters: SLLog instance globalMaxLevel: 4 Global flushing of all emitters can be done using "SLLog flush" and should ideally be called regularly by some background process. Finally take a look at SLLogFile for details on how to add it as an emitter to get logging onto file instead of Transcript, and SLLogMorph for getting logging into a very nice UI that offers filtering, searching etc. '. info maintainer: 'keith_hodges(a)yahoo.co.uk'. info homepage: ''. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Logging/SimpleLog-kph.15.mcz'. - info url: 'http://www.squeaksource.com/Logging/SimpleLog-kph.13.mcz'. self provides: #('SimpleLog'). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>Logging (in category 'Development') ----- Logging self name: 'Logging'. + self version: '3.44'. - self version: '3.42'. info category: 'Development'. info description: 'Logging for squeak, a front end to Toothpick OR SimpleLog (apologies to LogEngine) usage: self log this. self log x: 10 y: 20. and much more... '. info maintainer: 'Keith Hodges <keith_hodges(a)yahoo.co.uk>'. info homepage: 'http://wiki.squeak.org/squeak/3706'. info squeakMapID: '6c1b03cd-6c37-4acf-b971-72ff132c03f0'. + info url: 'http://www.squeaksource.com/Logging/Logging-kph.44.mcz'. - info url: 'http://www.squeaksource.com/Logging/Logging-kph.42.mcz'. self provides: #('Logging'). self dependsOn: #('ProcessSpecific' 'StreamsReadability'). !

1 0

Sake : Sake-Scheduler-kph.10.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 26 Feb '09

26 Feb '09

A new version of Sake-Scheduler was added to project Sake : http://www.squeaksource.com/Sake/Sake-Scheduler-kph.10.mcz ==================== Summary ==================== Name: Sake-Scheduler-kph.10 Author: kph Time: 26 February 2009, 2:09:35 pm UUID: 18f59660-040f-11de-a647-000a95edb42a Ancestors: Sake-Scheduler-kph.9 Added ScheduledLoggedTask =============== Diff against Sake-Scheduler-kph.9 =============== Item was added: + ----- Method: ScheduledTask>>nextRunTime: (in category 'accessing') ----- + nextRunTime: newTime + + nextRunTime := newTime! Item was changed: ----- Method: ScheduledTask>>setNextRunTime (in category 'private') ----- setNextRunTime + | dt | self scheduleHasOnlyZeroDuration ifTrue: [^ self]. + dt := DateAndTime now. + schedule scheduleDo: + [:each | (each > dt) ifTrue: [ self nextRunTime: each. ^ self]]. - [:each | (each > DateAndTime now) ifTrue: [nextRunTime := each. ^ self]]. self delete "delete if no more scheduled tasks"! Item was changed: ----- Method: ScheduledTask>>schedule: (in category 'accessing') ----- schedule: aSchedule schedule := aSchedule. nextRunTime := schedule start. self setNextRunTime ! Item was added: + ----- Method: ScheduledLoggedTask>>logNextRunTime (in category 'as yet unclassified') ----- + logNextRunTime + + nextRunTime ifNil: [ ^ self ]. + self thisLog info desc: self description nextRunTime: nextRunTime asTimeStamp + ! Item was added: + ----- Method: ScheduledLoggedTask>>stop (in category 'as yet unclassified') ----- + stop + self thisLog value info: 'STOP'. + super stop + + ! Item was added: + ----- Method: ScheduledLoggedTask>>resume (in category 'as yet unclassified') ----- + resume + self thisLog value info: 'RESUME'. + super resume + + ! Item was added: + ----- Method: ScheduledLoggedTask>>thisLog (in category 'as yet unclassified') ----- + thisLog + + ^ (thisLog ifNil: [ thisLog := LogCurrent new. + self thisLogInitialize: thisLog adapters. + thisLog ]) inSender: thisContext sender + + + ! Item was added: + ----- Method: ScheduledTask>>runNow (in category 'private') ----- + runNow + + nextRunTime := DateAndTime now! Item was changed: ----- Method: Scheduler>>start (in category 'executing') ----- start | process | running ifTrue: [^ self]. running := true. process := [ [running] whileTrue: [0.25 seconds asDelay wait. self tasksDo: [:each | each runIfNecessary]]] newProcess. + (process respondsTo: #name:) ifTrue: [process name: 'Scheduler']. - (process respondsTo: #name:) ifTrue: [process name: 'taskScheduler']. process priority: Processor systemBackgroundPriority. process resume. ! Item was changed: ----- Method: ScheduledTask>>startDateAndTime:duration: (in category 'accessing') ----- startDateAndTime: aDateAndTime duration: aDuration | timeParameter | timeParameter := self convertToTimeParameter: aDateAndTime. nextRunTime := ((timeParameter isKindOf: Time) ifTrue: [DateAndTime date: Date today time: timeParameter] ifFalse: [timeParameter]). schedule := Schedule starting: self nextRunTime duration: 1000 weeks. schedule schedule: {aDuration}. self setNextRunTime ! Item was added: + ----- Method: ScheduledLoggedTask>>schedule: (in category 'as yet unclassified') ----- + schedule: aSchedule + + super schedule: aSchedule. + + self logNextRunTime.! Item was added: + ScheduledTask subclass: #ScheduledLoggedTask + instanceVariableNames: 'thisLog' + classVariableNames: '' + poolDictionaries: '' + category: 'Sake-Scheduler'! Item was added: + ----- Method: ScheduledLoggedTask>>start (in category 'as yet unclassified') ----- + start + self thisLog value info: 'START'. + super start + + ! Item was added: + ----- Method: Scheduler class>>refresh (in category 'as yet unclassified') ----- + refresh + self stopServices. + self startServices.! Item was changed: ----- Method: Scheduler class>>startUp: (in category 'as yet unclassified') ----- startUp: resuming resuming ifFalse: [ ^ self ]. + self refresh.! - self stopServices. - self startServices.! Item was changed: ----- Method: ScheduledTask>>doAllTasks (in category 'as yet unclassified') ----- doAllTasks | tasks | tasks := (self class selectors select: [ :ea | ea beginsWith: #task ]) collect: [ :sel | self perform: sel ]. tasks asTask runLogging.! Item was added: + ----- Method: ScheduledTask class>>doAllTasksNow (in category 'as yet unclassified') ----- + doAllTasksNow + + [ self new task: #doAllTasks; runTask ] fork! Item was added: + ----- Method: ScheduledLoggedTask>>thisLogInitialize: (in category 'as yet unclassified') ----- + thisLogInitialize: adapters + + ^ adapters + addTranscript; + add: ((LogFile named: 'logs/', self class name, '.log') maxLevel: 7; yourself); + yourself + + ! Item was changed: ----- Method: ScheduledTask>>runIfNecessary (in category 'executing') ----- runIfNecessary ((DateAndTime now >= self nextRunTime) and: [self isRunning not]) ifTrue: [self run]! Item was added: + ----- Method: ScheduledLoggedTask>>runTask (in category 'as yet unclassified') ----- + runTask + + LogCurrent value: self thisLog during: [ + + [ super runTask ] + + ensure: [ self logNextRunTime ]. + + ].!

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2009