[Pkg] Installer: Installer-Core-kph.270.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Wed Dec 10 14:38:42 UTC 2008
A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.270.mcz
==================== Summary ====================
Name: Installer-Core-kph.270
Author: kph
Time: 10 December 2008, 2:38:39 pm
UUID: 4e6466e2-b15f-410f-ad55-f2c0b7b2437f
Ancestors: Installer-Core-kph.269
refining mantis api.
Installer mantis select: [ :bug | bug isCategory: 'Collections' ].
=============== Diff against Installer-Core-kph.269 ===============
Item was added:
+ ----- Method: InstallerMantis>>select: (in category 'public interface') -----
+ select: aBlock
+
+ ^ self csvAll select: aBlock!
Item was added:
+ ----- Method: InstallerMantis>>viewFile: (in category 'public interface') -----
+ viewFile: aFileName
+ "Installer mantis bug: 6089 browse: 'TTFSpeedUp-dgd.1.cs'"
+
+ ^ self view: aFileName from: (self maThing: aFileName date: nil)!
Item was added:
+ ----- Method: InstallerMantis>>files (in category 'public interface') -----
+ files
+ "provide a list of files associated with the bug in id order"
+ "
+ Installer mantis bugFiles: 6660.
+ "
+ ^ (self maFiles associations asSortedCollection: [ :a :b | a value asInteger < b value asInteger ])
+ collect: [ :a | a key ]!
Item was added:
+ ----- Method: InstallerMantis>>isCategory: (in category 'public interface') -----
+ isCategory: c
+
+ ^ self csvCategory = c!
Item was changed:
----- Method: InstallerMantis>>bugFiles: (in category 'public interface') -----
bugFiles: aBugNo
"provide a list of files associated with the bug in id order"
"
Installer mantis bugFiles: 6660.
"
+ self setBug: aBugNo; files!
- self setBug: aBugNo.
- ^ (self maFiles associations asSortedCollection: [ :a :b | a value asInteger < b value asInteger ])
- collect: [ :a | a key ]!
Item was added:
+ ----- Method: InstallerMantis>>summary (in category 'public interface') -----
+ summary
+
+ ^ self csvSummary!
Item was changed:
----- Method: InstallerMantis>>viewBug: (in category 'public interface') -----
viewBug: aBugNo
+ self setBug: aBugNo; view!
- ^Workspace new contents: (self bug: aBugNo); openLabel: ('Mantis ', aBugNo printString).
- !
Item was added:
+ ----- 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 added:
+ ----- Method: InstallerMantis>>view (in category 'public interface') -----
+ view
+
+ ^ Workspace new contents: self report; openLabel: ('Mantis ', bug printString).
+ !
Item was added:
+ ----- Method: InstallerMantis>>browseFile: (in category 'public interface') -----
+ browseFile: aFileName
+
+ ^ self browse: aFileName from: (self maThing: aFileName date: nil)!
Item was added:
+ ----- Method: InstallerMantis>>isStatus: (in category 'public interface') -----
+ isStatus: c
+
+ ^ self csvStatus = c!
Item was changed:
----- Method: InstallerMantis>>bugFilesView: (in category 'public interface') -----
bugFilesView: aBugNo
+ "provide a list of files associated with the bug in id order"
+ "
+ Installer mantis bugFiles: 6660.
+ "
+ self setBug: aBugNo; viewFiles!
-
-
- (self bugFiles: aBugNo) do: [ :ea | self bug: aBugNo view: ea ].!
Item was added:
+ ----- 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
+ "!
Item was changed:
+ ----- Method: InstallerMantis>>bug: (in category 'public interface') -----
- ----- Method: InstallerMantis>>bug: (in category 'accessing') -----
bug: aBugNo
- "Installer mantis viewBug: 5639."
- | page text |
+ self setBug: aBugNo!
- self setBug: aBugNo.
-
- 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>>bugScript: (in category 'public interface') -----
bugScript: aBugNo
+ ^ (self setBug: aBugNo) script
- self setBug: aBugNo.
- ^ self maScript contents.
-
!
Item was changed:
----- Method: InstallerMantis>>bug:browse: (in category 'public interface') -----
bug: aBugNo browse: aFileName
self setBug: aBugNo.
+ ^ self browseFile: aFileName!
- ^ self browse: aFileName from: (self maThing: aFileName date: nil)!
Item was changed:
----- Method: InstallerMantis>>searchAll (in category 'public interface') -----
searchAll
+ ^ self select: [ :b | true ]!
- ^ array ifNil: [ array := self csvGetData ]!
Item was added:
+ ----- Method: InstallerMantis>>viewFiles (in category 'public interface') -----
+ viewFiles
+
+ ^ self files do: [ :ea | self viewFile: ea ].!
Item was added:
+ ----- Method: InstallerMantis>>csvAll (in category 'search-private') -----
+ csvAll
+
+ ^ array ifNil: [ array := self csvGetData ]!
Item was added:
+ ----- Method: InstallerMantis>>getView (in category 'accessing') -----
+ getView
+
+ "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 added:
+ ----- Method: InstallerMantis>>selectAll (in category 'public interface') -----
+ selectAll
+
+ ^ self search: [ :b | true ]!
Item was added:
+ ----- Method: InstallerMantis>>script (in category 'public interface') -----
+ script
+
+ ^ self maScript contents.
+
+
+
+ !
Item was removed:
- ----- Method: InstallerMantis>>searchStatusConfirmed (in category 'public interface') -----
- searchStatusConfirmed
-
- ^ self searchStatus: 'confirmed'.
- !
Item was removed:
- ----- Method: InstallerMantis>>statusConfirmed (in category 'public interface') -----
- statusConfirmed
-
- ^ self csvKey: 'Category'
-
- "
- s bugs collect: [ :ea | ea category ]
- "!
Item was removed:
- ----- Method: InstallerMantis>>searchStatusResolved (in category 'public interface') -----
- searchStatusResolved
-
- ^ self searchStatus: 'resolved'.
- !
Item was removed:
- ----- Method: InstallerMantis>>searchCategory: (in category 'public interface') -----
- searchCategory: c
-
- ^ self searchAll select: [ :ea | ea csvCategory = c ] !
Item was removed:
- ----- Method: InstallerMantis>>all (in category 'public interface') -----
- all
-
- array ifNil: [ array := self csvGetData ]!
Item was removed:
- ----- Method: InstallerMantis>>searchStatusAssigned (in category 'public interface') -----
- searchStatusAssigned
-
- ^ self searchStatus: 'assigned'.
- !
Item was removed:
- ----- Method: InstallerMantis>>getFullCSV (in category 'public interface') -----
- getFullCSV
-
- | 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
- "!
Item was removed:
- ----- Method: InstallerMantis>>searchUpdatedSince: (in category 'public interface') -----
- searchUpdatedSince: aDate
-
- "note this inlcudes items on the same day because only the date is available in csv"
-
- ^ self searchAll select: [ :ea | ea csvUpdated >= aDate ] !
Item was removed:
- ----- Method: InstallerMantis>>searchStatus: (in category 'public interface') -----
- searchStatus: s
-
- ^ self searchAll select: [ :ea | ea csvStatus = s ] !
Item was removed:
- ----- Method: InstallerMantis>>searchSummary: (in category 'public interface') -----
- searchSummary: match
-
- ^ self searchAll select: [ :ea | match match: ea csvSummary ] !
Item was removed:
- ----- Method: InstallerMantis>>searchStatusAcknowledged (in category 'public interface') -----
- searchStatusAcknowledged
-
- ^ self searchStatus: 'acknowledged'.
- !
More information about the Packages
mailing list