Packages December 2008

packages@lists.squeakfoundation.org

2 participants
268 discussions

Installer: Installer-Core-kph.279.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 18 Dec '08

18 Dec '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.279.mcz ==================== Summary ==================== Name: Installer-Core-kph.279 Author: kph Time: 18 December 2008, 1:55:30 pm UUID: 2db3a60d-0798-4427-8f12-02bdb16bc4ae Ancestors: Installer-Core-kph.276 ftp repos password were not working =============== Diff against Installer-Core-kph.276 =============== Item was changed: ----- Method: InstallerMonticello>>ftp:directory:user:password: (in category 'instance creation') ----- ftp: host directory: dir user: name password: secret "Installer mc ftp: 'mc.gjallar.se' directory: '' user: 'gjallar' password: secret." + mc := self classMCFtpRepository host: host directory: dir user: name password: secret. - mc := self classMCFtpRepository host: host directory: dir user: name password: ''. root := dir. ! Item was changed: ----- Method: Installer class>>keith (in category 'repositories') ----- keith + - ^ self monticello ftp: 'squeak.warwick.st' directory: 'mc' user: 'squeak' password: 'viewpoints'!

1 0

Rio: File-Kernel-kph.9.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 18 Dec '08

18 Dec '08

A new version of File-Kernel was added to project Rio: http://www.squeaksource.com/Rio/File-Kernel-kph.9.mcz ==================== Summary ==================== Name: File-Kernel-kph.9 Author: kph Time: 18 December 2008, 1:52:02 am UUID: 0dd8c7a0-f5b0-4f98-a138-b49478466009 Ancestors: File-Kernel-kph.8 add: etc returns the file/list off files resulted =============== Diff against File-Kernel-kph.8 =============== Item was changed: ----- Method: FileExecutive>>toDirLocal:addAllLocal:relativeTo: (in category 'local/remote file copy') ----- toDirLocal: aDir addAllLocal: someFD relativeTo: aBaseDir | map | map := self toDir: aDir mkpathAll: someFD relativeTo: aBaseDir. map do: [ :each | self copyLocalFile: each first toLocalFile: each second ]. + ^ map collect: [ :ea | ea second ]! - ^ map! Item was changed: ----- Method: FileExecutive>>dir:mkpath:relativeTo: (in category 'as yet unclassified') ----- dir: aDir mkpath: aFileOrDir relativeTo: aBaseDirectory | newFD | + newFD := aBaseDirectory ifNil: [ (aDir / aFileOrDir fileName) asFile ] - newFD := aBaseDirectory ifNil: [ aFileOrDir ] ifNotNil: [ aDir / (aFileOrDir linearRelativeTo: aBaseDirectory) ]. aFileOrDir isDirectory ifTrue: [ newFD mkpath ]. aFileOrDir isFile ifTrue: [ newFD parent mkpath ]. + ^ newFD! - ^ newFD - - !

1 0

Rio: File-Base-kph.9.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 18 Dec '08

18 Dec '08

A new version of File-Base was added to project Rio: http://www.squeaksource.com/Rio/File-Base-kph.9.mcz ==================== Summary ==================== Name: File-Base-kph.9 Author: kph Time: 18 December 2008, 1:51:48 am UUID: c209dd7f-d813-4107-b230-1793f1b6f126 Ancestors: File-Base-kph.8 add: etc returns the file/list off files resulted =============== Diff against File-Base-kph.8 =============== Item was changed: ----- Method: Directory>>addAll: (in category 'directory/container actions') ----- addAll: someFD + ^ self addAll: someFD relativeTo: nil! - self addAll: someFD relativeTo: nil! 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 isEmpty ifTrue: [ ^ self ]. + ^ someFD first executive addAll: someFD relativeTo: aBaseDir toDir: self.! - someFD first executive addAll: someFD relativeTo: aBaseDir toDir: self.! Item was changed: ----- 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 ]! - ^ map! Item was changed: ----- Method: Directory>>add: (in category 'directory/container actions') ----- add: aFD + ^ (self addAll: (Array with: aFD) ) first + + " + self assert: (('a' asDirectory mkpath add: 'b' asFile touch) = 'a/b' asFile) + "! - ^ self addAll: (Array with: aFD) !

1 0

Rio: File-Test-kph.6.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 18 Dec '08

18 Dec '08

A new version of File-Test was added to project Rio: http://www.squeaksource.com/Rio/File-Test-kph.6.mcz ==================== Summary ==================== Name: File-Test-kph.6 Author: kph Time: 18 December 2008, 1:51:22 am UUID: 5d76fdb7-e116-45de-a869-e05570ab3473 Ancestors: File-Test-kph.5 added test for aDir add: aFile =============== Diff against File-Test-kph.5 =============== Item was added: + ----- 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). + !

1 0

Sake : Sake-Scheduler-kph.7.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 18 Dec '08

18 Dec '08

A new version of Sake-Scheduler was added to project Sake : http://www.squeaksource.com/Sake/Sake-Scheduler-kph.7.mcz ==================== Summary ==================== Name: Sake-Scheduler-kph.7 Author: kph Time: 18 December 2008, 1:38:38 am UUID: 5c9fab94-2fe3-4041-b600-1fd17fc52921 Ancestors: Sake-Scheduler-kph.6 rename taskRun to runTask =============== Diff against Sake-Scheduler-kph.6 =============== Item was added: + ----- Method: ScheduledTask>>runTask (in category 'accessing') ----- + runTask + + task isSymbol ifTrue: [ ^ self perform: task ]. + + task value. ! Item was changed: ----- Method: ScheduledTask>>run (in category 'executing') ----- run + workerProcess := [[self runTaskLoggingErrors ] ensure: [ runHistory ifNotNil: [ runHistory add: DateAndTime now]]] fork. - workerProcess := [[self taskRunLoggingErrors ] ensure: [ runHistory ifNotNil: [ runHistory add: DateAndTime now]]] fork. self wasRun! Item was added: + ----- Method: ScheduledTask>>runTaskLoggingErrors (in category 'accessing') ----- + runTaskLoggingErrors + + [ self runTask ] on: Error do: [ :ex | self log scheduler task: self class name exception: ex printString ]! Item was removed: - ----- Method: ScheduledTask>>taskRun (in category 'accessing') ----- - taskRun - - task isSymbol ifTrue: [ ^ self perform: task ]. - - task value. ! Item was removed: - ----- Method: ScheduledTask>>taskRunLoggingErrors (in category 'accessing') ----- - taskRunLoggingErrors - - [ self taskRun ] on: Error do: [ :ex | self log scheduler task: self class name exception: ex printString ]!

1 0

Sake : Sake-Bob-kph.8.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 18 Dec '08

18 Dec '08

A new version of Sake-Bob was added to project Sake : http://www.squeaksource.com/Sake/Sake-Bob-kph.8.mcz ==================== Summary ==================== Name: Sake-Bob-kph.8 Author: kph Time: 18 December 2008, 1:38:13 am UUID: 637d98d0-467f-4c89-a334-51a70c54dc32 Ancestors: Sake-Bob-kph.7 . =============== Diff against Sake-Bob-kph.7 =============== Item was changed: ----- Method: BobBuild class>>taskBuildAll (in category 'as yet unclassified') ----- taskBuildAll + "we need to tell this task to sort its dependencies appropriately before it is run" + "there is a sorting algorithm in collection: , but this might not be exactly what we want." + ^ (self allSubclasses collect: [ self build ]) asTask; defined + ! - self define: [ :task | - - task dependsOn: (self allSubclasses collect: [ self build ]). - - "we need to tell this task to sort its dependencies appropriately before it is run" - ].! Item was changed: ----- Method: BobPeriodicallyReadMantis class>>initialize (in category 'as yet unclassified') ----- initialize "the squeak community only needs to run this process on a single computer whose name is given in configMantisMonitor" super initialize. + + self scheduler addTask: (self do: [ Mantis pullRecent ] every: 15 minutes). + ! - NetNameResolver localHostName = self configMantisMonitor ifTrue: [ - self scheduler addTask: (self do: [ Mantis doReadAll ] at: '1pm'). - ]!

1 0

Sake : Sake-Core-kph.91.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 17 Dec '08

17 Dec '08

A new version of Sake-Core was added to project Sake : http://www.squeaksource.com/Sake/Sake-Core-kph.91.mcz ==================== Summary ==================== Name: Sake-Core-kph.91 Author: kph Time: 17 December 2008, 10:42:27 pm UUID: eae06100-3e1e-4e0d-9d9c-5fe67cc36e34 Ancestors: Sake-Core-kph.90 SakeMeta is now an OrderedDictionary (fairly minimal implementation) =============== Diff against Sake-Core-kph.90 =============== Item was added: + ----- Method: SakeMeta>>order (in category 'as yet unclassified') ----- + order + + ^ order! Item was added: + ----- Method: SakeMeta>>initialize: (in category 'as yet unclassified') ----- + initialize: n + + super initialize: n. + order := OrderedCollection new.! Item was added: + ----- Method: SakeMeta>>removeKey: (in category 'as yet unclassified') ----- + removeKey: key + + super removeKey: key. + order remove: key.! Item was changed: Dictionary subclass: #SakeMeta + instanceVariableNames: 'order' - instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Sake-Core'! + !SakeMeta commentStamp: 'kph 12/17/2008 22:40' prior: 0! - !SakeMeta commentStamp: 'kph 10/26/2008 17:50' prior: 0! | s | s := ReadWriteStream on: String new. (self new a: 1; b: 2; yourself) storeOn: s. + s reset contents + + ! - s reset fileIn! Item was changed: ----- Method: SakeMeta>>storeOn: (in category 'as yet unclassified') ----- storeOn: aStream + "writes metadata in a user readable format" - "writes metadata in a user readable format - oh for an ordered dictionary" | noneYet | aStream nextPutAll: '('. aStream nextPutAll: self class name. aStream nextPutAll: ' new'; cr. noneYet := true. + self withIndexDo: [ :value :key | - self associationsDo: - [:each | noneYet ifTrue: [noneYet := false] ifFalse: [aStream nextPut: $;; cr]. aStream nextPutAll: ' at: '. + aStream store: key. - aStream store: each key. aStream nextPutAll: ' put: '. + aStream store: value. - aStream store: each value. ]. noneYet ifFalse: [aStream nextPut: $;; cr; nextPutAll: 'yourself']. aStream nextPut: $)! Item was added: + ----- Method: SakeMeta>>initialize (in category 'as yet unclassified') ----- + initialize + + super initialize. + order := OrderedCollection new.! Item was added: + ----- Method: SakeMeta>>at:put: (in category 'as yet unclassified') ----- + at: key put: value + + self at: key ifAbsent: [ order add: key ]. + super at: key put: value. + ! Item was added: + ----- Method: SakeMeta>>withIndexDo: (in category 'as yet unclassified') ----- + withIndexDo: aBlock + + "use the order for readable printing" + + order do: [ :key | aBlock value: (self at: key) value: key ]!

1 0

Installer: Installer-Core-kph.278.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 17 Dec '08

17 Dec '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.278.mcz ==================== Summary ==================== Name: Installer-Core-kph.278 Author: kph Time: 17 December 2008, 2:20:59 pm UUID: 80153c10-9192-4bf9-b4fe-d4a317efc857 Ancestors: Installer-Core-kph.277 remove html markup when reading mantis pages =============== Diff against Installer-Core-kph.277 =============== Item was changed: ----- Method: InstallerMantis>>maReadNotes: (in category 'mantis') ----- maReadNotes: page | notes note | notes := OrderedCollection new. [ page upToAll: 'tr class="bugnote"'; upTo: $>. page atEnd ] whileFalse: [ note := (self removeHtmlMarkupFrom: (page upToAll: '</tr>') readStream) contents. note := note withBlanksCondensed. - "note replaceAll: Character cr with: $ ." note replaceAll: Character lf with: Character cr. notes add: note ]. ^notes! Item was changed: ----- Method: InstallerMantis>>report (in category 'public interface') ----- report "Installer mantis viewBug: 5639." | page text | page := self maPage. text := String streamContents: [ :str | #('Bug ID' 'Category' 'Severity' 'Reproducibility' 'Date Submitted' 'Date Updated' 'Reporter' 'View Status' 'Handler' 'Priority' 'Resolution' 'Status' 'Product Version' 'Summary' 'Description' 'Additional Information' ) do: [ :field | | f | f := self maRead: page field: field. str nextPutAll: f key; nextPutAll: ': '; nextPutAll: f value; cr. ]. str nextPutAll: 'Notes: '; cr. (self maReadNotes: page) do: [ :note | str nextPutAll: note; cr; cr ]. str nextPutAll: 'Files: '; nextPutAll: self maFiles keys asArray printString. ]. ^ text ! Item was changed: ----- Method: InstallerMantis>>maRead:field: (in category 'mantis') ----- maRead: page field: fieldKey | value | value := page upToAll: ('!!-- ', fieldKey, ' -->'); upToAll: '<td'; upTo: $>; upToAll: '</td>'. page upTo: $<. page peek = $t ifTrue: [ value := page upToAll: 'td'; upTo: $>; upToAll: '</td>' ]. + ^Association key: fieldKey value: (self removeHtmlMarkupFrom: value withBlanksTrimmed readStream) contents! - ^Association key: fieldKey value: value withBlanksTrimmed!

1 0

Installer: Installer-Core-kph.277.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 17 Dec '08

17 Dec '08

A new version of Installer-Core was added to project Installer: http://www.squeaksource.com/Installer/Installer-Core-kph.277.mcz ==================== Summary ==================== Name: Installer-Core-kph.277 Author: kph Time: 17 December 2008, 12:22:29 pm UUID: f2a2f821-c219-4518-a54c-0a7b874106f9 Ancestors: Installer-Core-kph.276 fixes to Installer Mantis, cope with non ideal data =============== Diff against Installer-Core-kph.276 =============== Item was changed: ----- Method: InstallerMantis>>setArray: (in category 'public interface') ----- setArray: aCsvDataRow + array := aCsvDataRow asArray. + self bug.! - array := aCsvDataRow asArray! Item was added: + ----- Method: InstallerMantis>>in:row: (in category 'public interface') ----- + in: parent row: aCsvDataRow + + array := aCsvDataRow asArray. + self ma: parent ma. + self markers: parent markers. + self bug.! Item was changed: ----- Method: InstallerMantis>>csvGetData (in category 'public interface') ----- csvGetData | rs line first col row | rs := HTTPSocket httpGet: ma, '/csv_export.php'. first := true. ^ array := Array streamContents: [ :out | [ rs atEnd ] whileFalse: [ line := rs nextLine readStream. col := 1. + row := Array new: 24. - row := Array new: 23. [ line atEnd ] whileFalse: [ row at: col put: (line upTo: $,). col := col + 1 ]. + (#('private' 'public') includes: (row at: 17)) ifTrue: [ + self notify: 'Bug Report: ', (row at: 1), ' has a comma within a field - please correct/report asap'. + row at: 15 put: ((row at: 15), '.', (row at: 16)). + row := row copyWithoutIndex: 16. + ]. + + (row at: 23) ifNotNil: [ self error ]. rs next. first ifTrue: [ self csvFields: row. first := false ] + ifFalse: [ out nextPut: (self class new in: self row: row) ]. - ifFalse: [ out nextPut: (self class new setArray: row) ]. ] ]. " self reset. self getBugsList "! Item was changed: ----- Method: InstallerMantis>>bug: (in category 'public interface') ----- bug: aBugNo + self setBug: aBugNo. + ^ self report! - self setBug: aBugNo! Item was added: + ----- Method: InstallerMantis>>date (in category 'accessing') ----- + date + + ^ date ! Item was removed: - ----- Method: InstallerMantis>>select:thenDo: (in category 'public interface') ----- - select: aBlock thenDo: doBlock - - ^ (self select: aBlock) do: doBlock! Item was removed: - ----- Method: InstallerMantis>>updated (in category 'accessing') ----- - updated - - ^ self csvKey: 'Updated'! Item was removed: - ----- Method: InstallerMantis>>csvGetAll (in category 'search-private') ----- - csvGetAll - - | rs line first | - - rs := HTTPSocket httpGet: ma, '/csv_export.php'. - - first := true. - - ^ array := Array streamContents: [ :out | - - [ rs atEnd ] whileFalse: [ - - line := rs nextLine splitOn: ','. - rs next. - first ifTrue: [ self csvFields: line. first := false ] - ifFalse: [ out nextPut: (self class new setArray: line) ]. - ] - ]. - " - self reset. - self getBugsList - "!

1 0

Tasks: Tasks-Common-kph.51.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 16 Dec '08

16 Dec '08

A new version of Tasks-Common was added to project Tasks: http://www.squeaksource.com/Tasks/Tasks-Common-kph.51.mcz ==================== Summary ==================== Name: Tasks-Common-kph.51 Author: kph Time: 16 December 2008, 6:16:40 pm UUID: 62cf4d31-963b-465b-8cd7-811f84d92617 Ancestors: Tasks-Common-kph.50 update squeakmap before saving =============== Diff against Tasks-Common-kph.50 =============== Item was changed: ----- Method: TasksRelease class>>taskCleanUpAndSaveAs: (in category 'as yet unclassified') ----- taskCleanUpAndSaveAs: filename ^ self define: [ :task | task action: [ SmalltalkImage current cleanUpAllExcept: #(ChangeSet). task author: '' during: [ + + Smalltalk at: #SMSqueakMap ifPresent: [ :c | Installer squeakmap update ]. + SmalltalkImage current saveAs: filename. ]. ] ].!

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 December 2008