[Pkg] Installer: Installer-Core-kph.283.mcz

squeak-dev-noreply at lists.squeakfoundation.org squeak-dev-noreply at lists.squeakfoundation.org
Wed Jan 14 00:12:07 UTC 2009


A new version of Installer-Core was added to project Installer:
http://www.squeaksource.com/Installer/Installer-Core-kph.283.mcz

==================== Summary ====================

Name: Installer-Core-kph.283
Author: test
Time: 14 January 2009, 12:12:01 am
UUID: 0557b65d-2deb-4e23-8f4e-7678666125f8
Ancestors: Installer-Core-kph.282

New mantis querying feature using ken's custom exporter that does include custom status

=============== Diff against Installer-Core-kph.282 ===============

Item was changed:
  InstallerWebBased subclass: #InstallerMantis
+ 	instanceVariableNames: 'ma bug desc date array data status'
- 	instanceVariableNames: 'ma bug desc date array status'
  	classVariableNames: 'Fixes Status'
  	poolDictionaries: ''
  	category: 'Installer-Core'!
  
+ !InstallerMantis commentStamp: 'test 1/14/2009 00:11' prior: 0!
+ Search feature is based upon a custom mantis query ceveloped and maintained by Ken Causey <ken at kencausey.com>
- !InstallerMantis commentStamp: 'kph 12/10/2008 00:20' prior: 0!
- Search feature
- 
- A := Installer mantis. 
- 
- A searchCategory: 'Collections'
  
+ Installer mantis bugsAll select: [ :ea | ea status = 'testing' ].!
- self assert: (A searchStatusConfirmed size > 0).
- self assert: (A searchStatusAcknowledged size > 0).
- self assert: (A searchStatusConfirmed size > 0).
- self assert: (A searchStatusResolved size > 0).
- self assert: (A searchStatusAssigned size > 0).!

Item was added:
+ ----- Method: InstallerMantis>>array (in category 'accessing') -----
+ array
+ 
+ 	^ array!

Item was added:
+ ----- Method: InstallerMantis>>hash (in category 'accessing') -----
+ hash
+ 
+ 	^ array hash!

Item was added:
+ ----- Method: InstallerMantis>>bugsAll (in category 'action report') -----
+ bugsAll
+ 
+ 	^ array ifNil: [
+ 		
+ 		array := ( self bugsSqueak ,  (self dataGetFrom: '/installer_export.php') ) asSet asSortedCollection: [ :a :b | a date > b date ]
+ 		
+ 	].
+ 
+ "
+ 
+ Installer mantis bugsAll
+ 
+ "
+ 	
+ !

Item was added:
+ ----- Method: InstallerMantis>>statusInit (in category 'accessing') -----
+ statusInit
+ 
+ 	status ifNil: [ status := Status at: (self dataAtName: 'Status').
+ 		self dataAtName:'Status' put: status.
+ 	].
+ 
+ 	!

Item was added:
+ ----- Method: InstallerMantis>>dataClosed (in category 'search-private') -----
+ dataClosed
+ 
+ 	^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?closed' ]!

Item was added:
+ ----- Method: InstallerMantis>>= (in category 'accessing') -----
+ = other
+ 
+ 	^ array = other array!

Item was changed:
  ----- Method: InstallerMantis>>bug (in category 'accessing') -----
  bug
  	
  	^ bug ifNil: [ 
  		
  		date := ((self dataAtName: 'Updated') replaceAll: $  with: $T) asDateAndTime. 
  		desc := (self dataAtName: 'Summary').
  		bug := (self dataAtName: 'Id'). 
+ 		self statusInit.
- 		status := Status at: (self dataAtName: 'Status').
   	]!

Item was added:
+ ----- Method: InstallerMantis>>dataAtName:put: (in category 'search-private') -----
+ dataAtName: key put: v
+ 	
+ 	^ array at: (self dataNames indexOf: key) put: v!

Item was changed:
  ----- Method: InstallerMantis>>dataGetFrom: (in category 'public interface') -----
  dataGetFrom: aPath
  
+ 	| rs line first col row out |
- 	| rs line first col row |
  		
  	rs := HTTPSocket httpGet: ma, aPath.
  	
  	first := true.
  	
+ 	out := OrderedCollection new.
+ 	
+ 	[ rs atEnd ] whileFalse: [ 
- 	^ array := Array streamContents: [ :out |
- 		 
- 		[ rs atEnd ] whileFalse: [ 
  		
+ 		line := rs nextLine readStream.
+ 		col := 1.
+ 		row := Array new: 9.
+ 		[ (line atEnd or: [ col > 9 ]) ] whileFalse: [ row at: col put: (line upTo: $|). col := col + 1 ].	
- 			line := rs nextLine readStream.
- 			col := 1.
- 			row := Array new: 9.
- 			[ (line atEnd or: [ col > 9 ]) ] whileFalse: [ row at: col put: (line upTo: $|). col := col + 1 ].	
  
+ 		rs next.
+ 		out add: (self class new in: self row: row) ].
- 			rs next.
- 			out nextPut: (self class new in: self row: row) ].
  		
+ 	^ out
- 	].
  "
  self reset.
  self getBugsList 
  "!

Item was added:
+ ----- Method: InstallerMantis>>bugsClosed (in category 'search-private') -----
+ bugsClosed
+ 
+ 	^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?closed' ]!

Item was added:
+ ----- Method: InstallerMantis>>bugsSqueak (in category 'search-private') -----
+ bugsSqueak
+ 
+ 	^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?project=Squeak' ]
+ 	
+ "
+ Installer mantis bugsSqueak.
+ Installer mantis bugsAll.
+ Installer mantis bugsClosed.
+ 
+ "!

Item was removed:
- ----- Method: InstallerMantis>>select: (in category 'public interface') -----
- select: aBlock
- 
- 	^ self dataAll select: aBlock!

Item was removed:
- ----- Method: InstallerMantis>>selectAll (in category 'public interface') -----
- selectAll
- 
- 	^ self dataAll!

Item was removed:
- ----- Method: InstallerMantis>>dataAll (in category 'search-private') -----
- dataAll
- 
- 	^ array ifNil: [ array := self dataGetFrom: '/installer_export.php' ]!



More information about the Packages mailing list