[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