Patrick Rein uploaded a new version of Installer-Core to project The Trunk: http://source.squeak.org/trunk/Installer-Core-pre.441.mcz
==================== Summary ====================
Name: Installer-Core-pre.441 Author: pre Time: 10 November 2021, 3:06:48.579616 pm UUID: ff3a2aa9-efc5-9943-ba73-1eebfb6dc5c8 Ancestors: Installer-Core-mt.440
Recategorizes uncategorized or miscategorized messages in the Installer package.
=============== Diff against Installer-Core-mt.440 ===============
Item was changed: + ----- Method: InstallerInternetBased>>extractFromHtml:option: (in category 'private') ----- - ----- Method: InstallerInternetBased>>extractFromHtml:option: (in category 'as yet unclassified') ----- extractFromHtml: html option: allOrLast
| start stop test in |
start := self markersBegin. stop := self markersEnd. test := self markersTest. in := WriteStream with: String new. [ html upToAll: start; atEnd ] whileFalse: [ | chunk | (allOrLast == #last) ifTrue: [ in resetToStart ]. chunk := html upToAll: stop. self isSkipLoadingTestsSet ifTrue: [ chunk := chunk readStream upToAll: test ]. in nextPutAll: chunk. ].
^self removeHtmlMarkupFrom: in readStream !
Item was changed: + ----- Method: InstallerInternetBased>>markers (in category 'private - accessing') ----- - ----- Method: InstallerInternetBased>>markers (in category 'as yet unclassified') ----- markers
^ markers ifNil: [ '<code st>..."test ...</code st>' ]!
Item was changed: + ----- Method: InstallerInternetBased>>markers: (in category 'private - accessing') ----- - ----- Method: InstallerInternetBased>>markers: (in category 'as yet unclassified') ----- markers: anObject
markers := anObject!
Item was changed: + ----- Method: InstallerInternetBased>>markersBegin (in category 'private') ----- - ----- Method: InstallerInternetBased>>markersBegin (in category 'as yet unclassified') ----- markersBegin ^ self markers copyUpTo: $.!
Item was changed: + ----- Method: InstallerInternetBased>>markersEnd (in category 'private') ----- - ----- Method: InstallerInternetBased>>markersEnd (in category 'as yet unclassified') ----- markersEnd "return the third marker or the second if there are only two" | str a | str := self markers readStream. a := str upToAll: '...'; upToAll: '...'. str atEnd ifTrue: [ ^a ] ifFalse: [ ^str upToEnd ] !
Item was changed: + ----- Method: InstallerInternetBased>>markersTest (in category 'private') ----- - ----- Method: InstallerInternetBased>>markersTest (in category 'as yet unclassified') ----- markersTest ^ self markers readStream upToAll: '...'; upToAll: '...'!
Item was changed: + ----- Method: InstallerInternetBased>>removeHtmlMarkupFrom: (in category 'private') ----- - ----- Method: InstallerInternetBased>>removeHtmlMarkupFrom: (in category 'as yet unclassified') ----- removeHtmlMarkupFrom: in
| out | out := WriteStream on: (String new: 100). [ in atEnd ] whileFalse: [ out nextPutAll: (in upTo: $<). (((in upTo: $>) asLowercase beginsWith: 'br') and: [ (in peek = Character cr) ]) ifTrue: [ in next ]. ]. ^self replaceEntitiesIn: out readStream. !
Item was changed: + ----- Method: InstallerMantis class>>host: (in category 'instanciation') ----- - ----- Method: InstallerMantis class>>host: (in category 'instance creation') ----- host: host
^self new ma: host; markers: '"fix begin"..."fix test"..."fix end"'; yourself. !
Item was changed: + ----- Method: InstallerMantis class>>initialize (in category 'instanciation') ----- - ----- Method: InstallerMantis class>>initialize (in category 'instance creation') ----- initialize
Status := Dictionary new at: '10' put: 'new'; at: '20' put: 'feedback'; at: '30' put: 'acknowledged'; at: '40' put: 'confirmed'; at: '50' put: 'assigned'; at: '60' put: 'pending'; at: '70' put: 'testing'; at: '80' put: 'resolved'; at: '90' put: 'closed'; yourself !
Item was changed: + ----- Method: InstallerMantis>>bugsClosed (in category 'searching') ----- - ----- Method: InstallerMantis>>bugsClosed (in category 'search') ----- bugsClosed
^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?closed' ]!
Item was changed: + ----- Method: InstallerMantis>>bugsRelease: (in category 'searching') ----- - ----- Method: InstallerMantis>>bugsRelease: (in category 'search') ----- bugsRelease: version
^self bugsAll select: [ :ea | (ea status = 'resolved') and: [ ea fixedIn = version ]]!
Item was changed: + ----- Method: InstallerMantis>>bugsSqueak (in category 'searching') ----- - ----- Method: InstallerMantis>>bugsSqueak (in category 'search') ----- bugsSqueak
^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?project=Squeak' ] " Installer mantis bugsSqueak. Installer mantis bugsAll. Installer mantis bugsClosed.
"!
Item was changed: + ----- Method: InstallerMantis>>bugsTesting: (in category 'searching') ----- - ----- Method: InstallerMantis>>bugsTesting: (in category 'search') ----- bugsTesting: version
^self bugsAll select: [ :ea | ea status = 'testing' and: [ ea fixedIn = version ]]!
Item was changed: + ----- Method: InstallerMantis>>category (in category 'searching') ----- - ----- Method: InstallerMantis>>category (in category 'search') ----- category
^ self dataAtName: 'Category' " s bugs collect: [ :ea | ea category ] "!
Item was changed: + ----- Method: InstallerMantis>>dataAtName: (in category 'searching') ----- - ----- Method: InstallerMantis>>dataAtName: (in category 'search') ----- dataAtName: key ^ array at: (self dataNames indexOf: key)!
Item was changed: + ----- Method: InstallerMantis>>dataAtName:put: (in category 'searching') ----- - ----- Method: InstallerMantis>>dataAtName:put: (in category 'search') ----- dataAtName: key put: v ^ array at: (self dataNames indexOf: key) put: v!
Item was changed: + ----- Method: InstallerMantis>>dataClosed (in category 'searching') ----- - ----- Method: InstallerMantis>>dataClosed (in category 'search') ----- dataClosed
^ array ifNil: [ array := self dataGetFrom: '/installer_export.php?closed' ]!
Item was changed: + ----- Method: InstallerMantis>>fixedIn (in category 'searching') ----- - ----- Method: InstallerMantis>>fixedIn (in category 'search') ----- fixedIn
^ self dataAtName: 'FixedIn' !
Item was changed: + ----- Method: InstallerMantis>>project (in category 'searching') ----- - ----- Method: InstallerMantis>>project (in category 'search') ----- project
^ self dataAtName: 'Project' !
Item was changed: + ----- Method: InstallerMantis>>summary (in category 'searching') ----- - ----- Method: InstallerMantis>>summary (in category 'search') ----- summary
^ self dataAtName: 'Summary'!
Item was changed: + ----- Method: InstallerUrl>>addPackage: (in category 'public interface') ----- - ----- Method: InstallerUrl>>addPackage: (in category 'as yet unclassified') ----- addPackage: aPackageName super addPackage: aPackageName. (self url endsWith: '/') ifFalse: [self url: self url, '/'].!
packages@lists.squeakfoundation.org