[squeak-dev] The Trunk: Installer-Core-pre.441.mcz
commits at source.squeak.org
commits at source.squeak.org
Wed Nov 10 14:07:40 UTC 2021
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, '/'].!
More information about the Squeak-dev
mailing list
|