[Pkg] Squeak3.11 Contributions: MethodAuthorship-kph.10.mcz

Sat Feb 7 18:16:11 UTC 2009

A new version of Methodauthorship was added to project Squeak3.11 Contributions:
http://www.squeaksource.com/311/MethodAuthorship-kph.10.mcz

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

Name: MethodAuthorship-kph.10
Author: kph
Time: 7 February 2009, 6:16:09 pm
UUID: b5f25168-fcea-43db-b783-67079d21a349
Ancestors: MethodAuthorship-kph.9, MethodAuthorship-mtf.9

Merged mtf.9 and added pharoContributors

=============== Diff against MethodAuthorship-kph.9 ===============

Item was changed:
  Object subclass: #MethodHistoryDatabase
  	instanceVariableNames: 'dictionary'
  	classVariableNames: 'LiveLists Databases'
  	poolDictionaries: ''
+ 	category: 'MethodAuthorship'!
- 	category: 'Methodauthorship'!

Item was added:
+ SystemOrganization addCategory: #Methodauthorship!
+ SystemOrganization addCategory: #MethodAuthorship!

Item was changed:
  ChangeRecord subclass: #MethodHistoryChangeRecord
  	instanceVariableNames: 'text selector sourceFile'
  	classVariableNames: ''
  	poolDictionaries: ''
+ 	category: 'MethodAuthorship'!
- 	category: 'Methodauthorship'!

Item was changed:
  Browser subclass: #MethodHistoryBrowser
  	instanceVariableNames: 'database'
  	classVariableNames: ''
  	poolDictionaries: ''
+ 	category: 'MethodAuthorship'!
- 	category: 'Methodauthorship'!

Item was added:
+ ----- Method: Authorship class>>pharoContributors (in category 'as yet unclassified') -----
+ pharoContributors
+ 
+ "This is a list of all Squeak contributors who started after the relicensing effort was started and therefore know that the license is under MIT.
+ 
+ Nov 26th  2008
+ ---
+ 
+ initials         name"
+ ^ #(
+ 'Alexandre Bergel'               'AlexandreBergel'
+ 'NorbertHartl'			'Norbert Hartl'
+ )!

Item was changed:
  VersionsBrowser subclass: #MethodHistoryVersionBrowser
  	instanceVariableNames: 'database'
  	classVariableNames: ''
  	poolDictionaries: ''
+ 	category: 'MethodAuthorship'!
- 	category: 'Methodauthorship'!

Item was changed:
  ----- Method: Authorship class>>allContributors (in category 'as yet unclassified') -----
  allContributors

+ 	^  self missingSignatories , self licensedContributors!
- 	^ self agreedContributors, self missingSignatories, self newContributors, self returnedSignatories!

Item was changed:
  ----- Method: Authorship class>>newContributors (in category 'as yet unclassified') -----
  newContributors

  "This is a list of all Squeak contributors who started after the relicensing effort was started and therefore know that the license is under MIT.

  Nov 26th  2008
  ---

  initials         name"
  ^ #(
  'aw'               'Alessandro Warth'
  'be'			'Bernd Eckardt'
  'cjs'			'(from trac)'
  'eem'		'Eliot Emilio Miranda'
  'jf'			'Jan Fietz'
  'lg'               'Luke Gorrie'
  'jl'			'Jens Linke'
  'JSM'	   'John S Mcintosh'
  'thf'			'an Impara employee'
  'sjg'			'Simon Guest'
  'kph'		'Keith Hodges'
  'kks'            'kks'
  'meta-auto'	'generated code'
  'programmatic'     'generated code'
  'wbk'		'Bryce Kampjes'
+ 'mtf'         'Matthew Fulmer'
  )!

Item was changed:
  ChangeList subclass: #MethodHistoryChangeList
  	instanceVariableNames: ''
  	classVariableNames: 'IgnoreNonExsiting'
  	poolDictionaries: ''
+ 	category: 'MethodAuthorship'!
- 	category: 'Methodauthorship'!

Item was changed:
  ----- Method: Authorship class>>licensedContributors (in category 'as yet unclassified') -----
  licensedContributors
+ 	^ self agreedContributors , self newContributors, self returnedSignatories , self pharoContributors!
- 	^ self agreedContributors , self newContributors, self returnedSignatories !

Item was changed:
  Object subclass: #Authorship
  	instanceVariableNames: 'missingDictionary authorDictionary notAccounted database historicalMissingDictionary historicalAuthorDictionary historicalNotAccounted'
  	classVariableNames: 'AllMethods'
  	poolDictionaries: ''
+ 	category: 'MethodAuthorship'!
- 	category: 'Methodauthorship'!

  !Authorship commentStamp: 'yo 10/13/2008 21:37' prior: 0!
  To use this class along with the MethodHistoryDatabase, get the necessary files and put them some directories under the image directory, and evaluate the following in a workspace:

  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.].

  d := FileDirectory default directoryNamed: 'squeakland.org-updates'.
  #('Squeakland 3.1.3905' 'Squeakland 3.1.4295' 'Squeakland 3.2.4913' 'Squeakland 3.8.5976' 'Squeakland05' 'Squeakland 3.8-05') do: [:v |
  	m readFilesIn: d updateFile: 'updates.list' versionName: v.].

  d := FileDirectory default directoryNamed: 'olpc-updates'.
  #('OLPC1.0' 'OLPC2.0') do: [:v |
  	m readFilesIn: d updateFile: 'updates.list' versionName: v.].

  d := FileDirectory default directoryNamed: 'etoys-updates'.
  #('etoys2.1' 'etoys2.2' 'etoys2.3') do: [:v |
  	m readFilesIn: d updateFile: 'updates.list' versionName: v.].

  m readFile: 'EtoysV3.sources' encodingName: 'utf-8'.
  #('etoys3.0' 'etoys3.1' 'etoys3.2') do: [:v |
  	m readFilesIn: d updateFile: 'updates.list' versionName: v.].

  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: 'Agreement Missing in Etoys 3.0' explanationFileName: 'missingExplanation.txt'.
  f close.

  Or for the mainstream image, create appropriate .changes files by doing updates and then: