Ok I thought that you took the
http://ftp.squeak.org/4.0alpha/squeak4.0-relicensingTools.zip
then put there the latest pharo image and run
Stef
|m d f|
m := MethodHistoryDatabase new.
MethodHistoryChangeList ignoreNonExsiting: false.
m readFile: 'SqueakV1.sources' encodingName: 'mac-roman'.
d := FileDirectory default directoryNamed: 'history-updates'.
#('PreBeta' 'Sqk20Beta') do: [:v |
m readFilesIn: d updateFile: 'updates.list' versionName: v.].
m readFile: 'SqueakV2.sources' encodingName: 'mac-roman'.
#('Squeak2.0' 'Squeak2.1' 'Squeak2.2beta' 'Squeak2.2' 'Squeak2.3'
'Squeak2.4' 'Squeak2.5test' 'Squeak2.5' 'Squeak2.6alpha' 'Squeak2.6'
'Squeak2.7alpha' 'Squeak2.7' 'Squeak2.8alpha' 'Squeak2.8'
'Squeak2.9alpha') do: [:v |
m readFilesIn: d updateFile: 'updates.list' versionName: v.].
m readFile: 'SqueakV3.sources' encodingName: 'mac-roman'.
#('Squeak3.0' 'Squeak3.1alpha' 'Squeak3.1beta' 'Squeak3.2alpha'
'Squeak3.2gamma' 'Squeak3.2' 'Squeak3.2.1' 'Squeak3.4alpha'
'Squeak3.4beta' 'Squeak3.4gamma' 'Squeak3.5alpha' 'Squeak3.5beta'
'Squeak3.5gamma' 'Squeak3.6alpha' 'Squeak3.6beta' 'Squeak3.6gamma'
'Squeak3.6') do: [:v |
m readFilesIn: d updateFile: 'updates.list' versionName: v.].
d := FileDirectory default directoryNamed: 'squeak.org-updates'.
#('Squeak3.7alpha' 'Squeak3.7beta' 'Squeak3.7gamma' 'Squeak3.7'
'Squeak3.8alpha' 'Squeak3.8beta' 'Squeak3.8gamma') do: [:v |
m readFilesIn: d updateFile: 'SqCupdates.list' versionName: v.].
m readFile: 'Squeak3.9b-7053.changes' encodingName: 'utf-8'.
m readFile: 'SqueakV39.sources' encodingName: 'utf-8'.
m readFile: 'Squeak39g-7056+3102-7179.changes' encodingName: 'utf-8'.
b := MethodHistoryBrowser new.
b database: m.
MethodHistoryBrowser openBrowserView: (b openEditString: nil) label:
'foo'.
Authorship initialize.
authors := Authorship new.
authors database: m.
missing := authors missingAuthorsWithMethods.
returned := authors returnedAuthorsWithMethods.
notAccounted := authors notAccounted.
historicalMissing := authors historicalMissingAuthorsWithMethods.
historicalNotAccounted := authors historicalNotAccounted.
f _ FileStream newFileNamed: 'currentMissing.html'.
m writeDictWithVersion: missing toHTMLFileNameOn: f title:
'AgreementMissingPharo' explanationFileName: nil.
f close.
m writeDict: missing toFileName: 'missingPharo.txt'.
missing at: ((m at: #Debugger at: #buildMorphicNotifierLabelled:message:)
at: 3) author
missing
_______________________________________________
Pharo-project mailing list
[email protected]
http://lists.gforge.inria.fr/cgi-bin/mailman/listinfo/pharo-project
