Packages February 2009

packages@lists.squeakfoundation.org

3 participants
146 discussions

Squeak3.11 Contributions: MethodAuthorship-kph.10.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Feb '09

07 Feb '09

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: 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: 'Agreement Missing in Etoys 3.0' explanationFileName: 'missingExplanation.txt'. f close. m writeDict: missing toFileName: 'missing.txt'.! Item was changed: OrderedCollection subclass: #MethodCollection instanceVariableNames: 'title' classVariableNames: '' poolDictionaries: '' + category: 'MethodAuthorship'! - category: 'Methodauthorship'! Item was removed: - SystemOrganization addCategory: #Methodauthorship!

1 0

Squeak3.11 Contributions: MethodAuthorship-kph.9.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Feb '09

07 Feb '09

A new version of Methodauthorship was added to project Squeak3.11 Contributions: http://www.squeaksource.com/311/MethodAuthorship-kph.9.mcz ==================== Summary ==================== Name: MethodAuthorship-kph.9 Author: kph Time: 7 February 2009, 6:04:59 pm UUID: f66c9943-76ba-4045-a13a-14aafc5a02bb Ancestors: MethodAuthorship-yo.8 moved author data class side, with some query methods ==================== Snapshot ==================== SystemOrganization addCategory: #Methodauthorship! ChangeRecord subclass: #MethodHistoryChangeRecord instanceVariableNames: 'text selector sourceFile' classVariableNames: '' poolDictionaries: '' category: 'Methodauthorship'! ----- Method: MethodHistoryChangeRecord>>author (in category 'all') ----- author ^ (stamp copyUpTo: $ ) copyWithout: Character lf. ! ----- Method: MethodHistoryChangeRecord>>class:selector:stamp:text:sourceFile: (in category 'all') ----- class: clsName selector: sel stamp: st text: t sourceFile: fileName class _ clsName copyUpTo: $ . "the non-meta part of a class name" meta _ clsName endsWith: ' class'. selector := sel. stamp := st. text := t. type := #method. sourceFile := fileName. ! ----- Method: MethodHistoryChangeRecord>>equals: (in category 'all') ----- equals: another "^ self methodClassName = another methodClassName and: [ self methodSelector = another methodSelector and: [ self text = another text and: [self stamp = another stamp]]]. " ^ self text = another text and: [self stamp = another stamp]! ----- Method: MethodHistoryChangeRecord>>fileName (in category 'all') ----- fileName ^ sourceFile ifNil: ['unknown']. ! ----- Method: MethodHistoryChangeRecord>>methodClass (in category 'all') ----- methodClass ^ class, (meta ifTrue: [' class'] ifFalse: ['']). ! ----- Method: MethodHistoryChangeRecord>>methodSelector (in category 'all') ----- methodSelector ^ selector! ----- Method: MethodHistoryChangeRecord>>shortPrintOn: (in category 'all') ----- shortPrintOn: aStream "Print the receiver on a stream" aStream nextPutAll: ' ', self methodClass name, ' >> ', self methodSelector, ' (', self stamp, ')'! ----- Method: MethodHistoryChangeRecord>>string (in category 'all') ----- string ^ text ! ----- Method: MethodHistoryChangeRecord>>text (in category 'all') ----- text ^ text ifNil: [text := super text]. ! ----- Method: Browser>>openHistoryEditing: (in category '*methodauthorship') ----- openHistoryEditing: editString "Create a pluggable version of all the views for a Browser, including views and controllers." | window hSepFrac switchHeight mySingletonList nextOffsets | window _ (SystemWindow labelled: 'later') model: self. hSepFrac _ 0.30. switchHeight _ 25. mySingletonList _ PluggableListMorph on: self list: #historySingleton selected: #indexIsOne changeSelected: #indexIsOne: menu: #systemCatSingletonMenu: keystroke: #systemCatSingletonKey:from:. mySingletonList enableDragNDrop: Preferences browseWithDragNDrop. mySingletonList hideScrollBarsIndefinitely. window addMorph: mySingletonList fullFrame: ( LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@switchHeight) ). self addClassAndSwitchesTo: window at: (0@0 corner: 0.5@hSepFrac) plus: switchHeight. nextOffsets _ 0@switchHeight corner: 0@0. window addMorph: self buildMorphicMessageList fullFrame: ( LayoutFrame fractions: (0.5@0 corner: 1@hSepFrac) offsets: nextOffsets ). self addLowerPanesTo: window at: (0@hSepFrac corner: 1@1) with: editString. window setUpdatablePanesFrom: #( classList messageCategoryList messageList). ^ window! ----- Method: Browser>>openHistoryString: (in category '*methodauthorship') ----- openHistoryString: aString "Create a pluggable version of all the views for a Browser, including views and controllers. The top list view is of the currently selected system class category--a single item list." | systemCategoryListView classListView messageCategoryListView messageListView browserCodeView topView switchView y annotationPane underPane optionalButtonsView | Smalltalk isMorphic ifTrue: [^ self openHistoryEditing: aString]. topView _ (StandardSystemView new) model: self. topView borderWidth: 1. "label and minSize taken care of by caller" systemCategoryListView _ PluggableListView on: self list: #systemCategorySingleton selected: #indexIsOne changeSelected: #indexIsOne: menu: #systemCatSingletonMenu: keystroke: #systemCatSingletonKey:from:. systemCategoryListView window: (0 @ 0 extent: 200 @ 12). topView addSubView: systemCategoryListView. classListView _ PluggableListView on: self list: #classList selected: #classListIndex changeSelected: #classListIndex: menu: #classListMenu:shifted: keystroke: #classListKey:from:. classListView window: (0 @ 0 extent: 67 @ 62). topView addSubView: classListView below: systemCategoryListView. messageCategoryListView _ PluggableListView on: self list: #messageCategoryList selected: #messageCategoryListIndex changeSelected: #messageCategoryListIndex: menu: #messageCategoryMenu:. messageCategoryListView controller terminateDuringSelect: true. messageCategoryListView window: (0 @ 0 extent: 66 @ 70). topView addSubView: messageCategoryListView toRightOf: classListView. switchView _ self buildInstanceClassSwitchView. switchView window: switchView window viewport: (classListView viewport bottomLeft corner: messageCategoryListView viewport bottomLeft). switchView borderWidth: 1. topView addSubView: switchView below: classListView. messageListView _ PluggableListView on: self list: #messageList selected: #messageListIndex changeSelected: #messageListIndex: menu: #messageListMenu:shifted: keystroke: #messageListKey:from:. messageListView menuTitleSelector: #messageListSelectorTitle. messageListView window: (0 @ 0 extent: 67 @ 70). topView addSubView: messageListView toRightOf: messageCategoryListView. self wantsAnnotationPane ifTrue: [annotationPane _ PluggableTextView on: self text: #annotation accept: nil readSelection: nil menu: nil. annotationPane window: (0@0 extent: 200@self optionalAnnotationHeight). topView addSubView: annotationPane below: switchView. y _ 110 - 12 - self optionalAnnotationHeight. underPane _ annotationPane] ifFalse: [y _ 110 - 12. underPane _ switchView]. self wantsOptionalButtons ifTrue: [optionalButtonsView _ self buildOptionalButtonsView. optionalButtonsView borderWidth: 1. topView addSubView: optionalButtonsView below: underPane. underPane _ optionalButtonsView. y _ y - self optionalButtonHeight]. browserCodeView _ MvcTextEditor default on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. browserCodeView window: (0@0 extent: 200@y). topView addSubView: browserCodeView below: underPane. aString ifNotNil: [browserCodeView editString: aString. browserCodeView hasUnacceptedEdits: true]. topView setUpdatablePanesFrom: #(classList messageCategoryList messageList). ^ topView! Browser subclass: #MethodHistoryBrowser instanceVariableNames: 'database' classVariableNames: '' poolDictionaries: '' category: 'Methodauthorship'! ----- Method: MethodHistoryBrowser class>>example1 (in category 'as yet unclassified') ----- example1 | m sV1 c11 c113 c117 c118 c119 c12 c122 c123 c131 sV2 c20 c21 c22 c23 c24 c25 c26 c27 c28 sV3 c30 c31 c32 c34 c35 c36 c37 c38 sq e23 ev3 e3l b | m := MethodHistoryDatabase new. sV1 := m processChangesFile: 'SqueakV1.sources' encoding: 'mac-roman'. c11 := m processChangesFile: 'Squeak1.1.changes' encoding: 'mac-roman'. c113 := m processChangesFile: 'Squeak1.13u.changes' encoding: 'mac-roman'. "1.16 is proper prefix of 1.17." c117 := m processChangesFile: 'Squeak1.17u.changes' encoding: 'mac-roman'. c118 := m processChangesFile: 'Squeak1.18.changes' encoding: 'mac-roman'. c119 := m processChangesFile: 'Squeak1.19d.changes' encoding: 'mac-roman'. c12 := m processChangesFile: 'Squeak1.2.changes' encoding: 'mac-roman'. c122 := m processChangesFile: 'Squeak1.22.changes' encoding: 'mac-roman'. c123 := m processChangesFile: 'Squeak1.23up.changes' encoding: 'mac-roman'. c131 := m processChangesFile: 'Squeak1.31.changes' encoding: 'mac-roman'. sV2 := m processChangesFile: 'SqueakV2.sources' encoding: 'mac-roman'. c20 := m processChangesFile: 'Squeak2.0.changes' encoding: 'mac-roman'. c21 := m processChangesFile: 'Squeak2.1.changes' encoding: 'mac-roman'. c22 := m processChangesFile: 'Squeak2.2.changes' encoding: 'mac-roman'. c23 := m processChangesFile: 'Squeak2.3.changes' encoding: 'mac-roman'. c24 := m processChangesFile: 'Squeak2.4b.changes' encoding: 'mac-roman'. c25 := m processChangesFile: 'Squeak2.5.changes' encoding: 'mac-roman'. c26 := m processChangesFile: 'Squeak2.6.changes' encoding: 'mac-roman'. c27 := m processChangesFile: 'Squeak2.7.changes' encoding: 'mac-roman'. c28 := m processChangesFile: 'Squeak2.8.changes' encoding: 'mac-roman'. sV3 := m processChangesFile: 'SqueakV3.sources' encoding: 'mac-roman'. c30 := m processChangesFile: 'Squeak3.0.changes' encoding: 'mac-roman'. c31 := m processChangesFile: 'Squeak3.1beta-4411.changes' encoding: 'mac-roman'. c32 := m processChangesFile: 'Squeak3.2-4956.changes' encoding: 'mac-roman'. c34 := m processChangesFile: 'Squeak3.4.changes' encoding: 'mac-roman'. c35 := m processChangesFile: 'Squeak3.5-5180.changes' encoding: 'mac-roman'. c36 := m processChangesFile: 'Squeak3.6-5429-full.changes' encoding: 'mac-roman'. c37 := m processChangesFile: 'Squeak3.7-5989-full.changes' encoding: 'mac-roman'. c38 := m processChangesFile: 'Squeak3.8-6665full.changes' encoding: 'utf-8'. sq := m processChangesFile: 'SqueakPlugin-dev.changes' encoding: 'utf-8'. e23 := m processChangesFile: 'etoys-dev-2.3-2.changes' encoding: 'utf-8'. ev3 := m processChangesFile: 'EtoysV3.sources' encoding: 'utf-8'. e3l := m processChangesFile: 'etoys-dev-3.0-2-2079.changes' encoding: 'utf-8'. m processChangesList: sV1. m processChangesList: c11. m processChangesList: c113. m processChangesList: c117. m processChangesList: c118. m processChangesList: c119. m processChangesList: c12. m processChangesList: c122. m processChangesList: c123. m processChangesList: c131. m processChangesList: sV2. m processChangesList: c20. m processChangesList: c21. m processChangesList: c22. m processChangesList: c23. m processChangesList: c24. m processChangesList: c25. m processChangesList: c26. m processChangesList: c27. m processChangesList: c28. m processChangesList: sV3. m processChangesList: c30. m processChangesList: c31. m processChangesList: c32. m processChangesList: c34. m processChangesList: c35. m processChangesList: c36. m processChangesList: c37. m processChangesList: c38. m processChangesList: sq. m processChangesList: e23. m processChangesList: ev3. m processChangesList: e3l. b := MethodHistoryBrowser new. b database: m. MethodHistoryBrowser openBrowserView: (b openEditString: nil) label: 'foo'.! ----- Method: MethodHistoryBrowser class>>example2 (in category 'as yet unclassified') ----- example2 | m d b | MethodHistoryChangeList ignoreNonExsiting: true. m := MethodHistoryDatabase new. 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') do: [:v | m readFilesIn: d updateFile: 'updates.list' versionName: v.]. b := MethodHistoryBrowser new. b database: m. MethodHistoryBrowser openBrowserView: (b openEditString: nil) label: 'foo'.! ----- Method: MethodHistoryBrowser>>annotation (in category 'all') ----- annotation ^ ''. ! ----- Method: MethodHistoryBrowser>>browseVersions (in category 'all') ----- browseVersions "Create and schedule a Versions Browser, showing all versions of the currently selected message. Answer the browser or nil." | selector class | self classCommentIndicated ifTrue: [ ClassCommentVersionsBrowser browseCommentOf: self selectedClass. ^nil ]. (selector _ self selectedMessageName) ifNil:[ self inform: 'Sorry, only actual methods have retrievable versions.'. ^nil ] ifNotNil: [ class _ self selectedClassOrMetaClass. ^MethodHistoryVersionBrowser browseVersionsOf: nil class: self selectedClass meta: class isMeta category: (class organization categoryOfElement: selector) selector: selector database: database]! ----- Method: MethodHistoryBrowser>>classList (in category 'all') ----- classList ^ ((database keys reject: [:e | e endsWith: ' class']) asSortedCollection: [:a :b | a < b])! ----- Method: MethodHistoryBrowser>>database: (in category 'all') ----- database: d database := d. ! ----- Method: MethodHistoryBrowser>>historySingleton (in category 'all') ----- historySingleton ^ Array with: 'Historical all classes'! ----- Method: MethodHistoryBrowser>>messageList (in category 'all') ----- messageList "Answer an Array of the message selectors of the currently selected message category, provided that the messageCategoryListIndex is in proper range. Otherwise, answer an empty Array If messageCategoryListIndex is found to be larger than the number of categories (it happens!!), it is reset to zero." | class | class := self selectedClass. ^ (database at: class name ) keys asSortedCollection ! ----- Method: MethodHistoryBrowser>>selectedClass (in category 'all') ----- selectedClass "Answer the class that is currently selected. Answer nil if no selection exists." | name pseudoClass | (name _ self selectedClassName) ifNil: [^ nil]. pseudoClass := PseudoClass new. pseudoClass name: name. ^pseudoClass.! ----- Method: MethodHistoryBrowser>>selectedMessage (in category 'all') ----- selectedMessage "Answer a copy of the source code for the selected message." | class selector | contents == nil ifFalse: [^ contents copy]. self showingDecompile ifTrue: [^ self decompiledSourceIntoContentsWithTempNames: Sensor leftShiftDown not ]. class _ self selectedClassOrMetaClass. selector _ self selectedMessageName. ^ (database sourceCodeAt: class name asSymbol at: selector). ! OrderedCollection subclass: #MethodCollection instanceVariableNames: 'title' classVariableNames: '' poolDictionaries: '' category: 'Methodauthorship'! ----- Method: MethodCollection class>>titled: (in category 'as yet unclassified') ----- titled: aName ^self new title: aName! ----- Method: MethodCollection>>printOn: (in category 'accessing') ----- printOn: aStream aStream nextPutAll: 'methods by '; nextPutAll: title; cr. self do: [:each | aStream tab. each shortPrintOn: aStream. aStream cr]! ----- Method: MethodCollection>>title (in category 'accessing') ----- title ^ title! ----- Method: MethodCollection>>title: (in category 'accessing') ----- title: aName title := aName! ----- Method: PseudoClass>>definitionST80: (in category '*methodauthorship') ----- definitionST80: aBoolean ^ ''. ! ChangeList subclass: #MethodHistoryChangeList instanceVariableNames: '' classVariableNames: 'IgnoreNonExsiting' poolDictionaries: '' category: 'Methodauthorship'! ----- Method: MethodHistoryChangeList class>>ignoreNonExsiting: (in category 'as yet unclassified') ----- ignoreNonExsiting: aBoolean IgnoreNonExsiting _ aBoolean. ! ----- Method: MethodHistoryChangeList>>annotation (in category 'all') ----- annotation ^ '------' ! ----- Method: MethodHistoryChangeList>>contentsDiffedFromCurrent (in category 'all') ----- contentsDiffedFromCurrent "Answer the contents diffed forward from current (in-memory) method version" | aChange aClass | listIndex = 0 ifTrue: [^ '']. aChange _ changeList at: listIndex. ^ (aChange type == #method and: [(aClass _ aChange methodClass) notNil]) ifTrue: [(changeList size >= (listIndex + 1)) ifTrue: [ TextDiffBuilder buildDisplayPatchFrom: (changeList at: listIndex + 1) text to: aChange text inClass: aClass prettyDiffs: self showingPrettyDiffs] ifFalse: [(changeList at: listIndex) text]] ifFalse: [(changeList at: listIndex) text]! ----- Method: MethodHistoryChangeList>>ignoreNonExisting (in category 'all') ----- ignoreNonExisting ^ IgnoreNonExsiting ifNil: [^ true]. ! ----- Method: MethodHistoryChangeList>>initializeForDatabase (in category 'all') ----- initializeForDatabase listSelections := Array new: list size withAll: false. ! ----- Method: MethodHistoryChangeList>>scanCategory (in category 'all') ----- scanCategory "Scan anything that involves more than one chunk; method name is historical only" | item tokens stamp isComment anIndex | item _ file nextChunk. isComment _ (item includesSubString: 'commentStamp:'). (isComment or: [item includesSubString: 'methodsFor:']) ifFalse: [^ self]. tokens _ Scanner new scanTokens: item. tokens size >= 3 ifTrue: [stamp _ ''. anIndex _ tokens indexOf: #stamp: ifAbsent: [nil]. anIndex ifNotNil: [stamp _ tokens at: (anIndex + 1)]. tokens second == #methodsFor: ifTrue: [^ self scanCategory: tokens third class: tokens first meta: false stamp: stamp]. tokens third == #methodsFor: ifTrue: [^ self scanCategory: tokens fourth class: tokens first meta: true stamp: stamp]]. tokens second == #commentStamp: ifTrue: [stamp _ tokens third. "self addItem: (ChangeRecord new file: file position: file position type: #classComment class: tokens first category: nil meta: false stamp: stamp) text: 'class comment for ' , tokens first, (stamp isEmpty ifTrue: [''] ifFalse: ['; ' , stamp])." file nextChunk. ^ file skipStyleChunk]! ----- Method: MethodHistoryChangeList>>scanCategory:class:meta:stamp: (in category 'all') ----- scanCategory: category class: class meta: meta stamp: stamp | method sel | self ignoreNonExisting ifTrue: [Smalltalk at: class ifAbsent: [^ self]]. [ method _ file nextChunk. file skipStyleChunk. method size > 0] "done when double terminators" whileTrue: [sel _ Parser new parseSelector: method. self addItem: (MethodHistoryChangeRecord new class: (class, (meta ifTrue: [' class'] ifFalse: [''])) asSymbol selector: sel stamp: stamp text: method asString sourceFile: file localName) text: 'method: ' , class , (meta ifTrue: [' class '] ifFalse: [' ']) , sel , (stamp isEmpty ifTrue: [''] ifFalse: ['; ' , stamp])]! ----- Method: MethodHistoryChangeList>>scanFile:from:to: (in category 'all') ----- scanFile: aFile from: startPosition to: stopPosition | itemPosition item prevChar | file _ aFile. changeList _ OrderedCollection new. list _ OrderedCollection new. listIndex _ 0. file position: startPosition. 'Scanning ', aFile localName, '...' displayProgressAt: Sensor cursorPoint from: startPosition to: stopPosition during: [:bar | [file position < stopPosition] whileTrue: [bar value: file position. [file atEnd not and: [file peek isSeparator]] whileTrue: [prevChar _ file next]. (file peekFor: $!!) ifTrue: [(prevChar = Character cr or: [prevChar = Character lf]) ifTrue: [self scanCategory]] ifFalse: [itemPosition _ file position. item _ file nextChunk. file skipStyleChunk. ]]]. listSelections _ Array new: list size withAll: false! Object subclass: #Authorship instanceVariableNames: 'missingDictionary authorDictionary notAccounted database historicalMissingDictionary historicalAuthorDictionary historicalNotAccounted' classVariableNames: 'AllMethods' poolDictionaries: '' 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: 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: 'Agreement Missing in Etoys 3.0' explanationFileName: 'missingExplanation.txt'. f close. m writeDict: missing toFileName: 'missing.txt'.! ----- Method: Authorship class>>agreedContributors (in category 'as yet unclassified') ----- agreedContributors "This is a list of all Squeak contributors whom Yoshiki Ohshima contacted and get the favorable words, but have not returned a signed distribution agreement yet. Nov 25th 2008 --- initials name" ^ #( 'ac' 'Andrew Catton' 'pad' 'Pierre-Andre Dreyfuss' )! ----- Method: Authorship class>>allContributors (in category 'as yet unclassified') ----- allContributors ^ self agreedContributors, self missingSignatories, self newContributors, self returnedSignatories! ----- Method: Authorship class>>example1 (in category 'as yet unclassified') ----- example1 | authors missing returned notAccounted | Authorship initialize. authors := Authorship new. missing := authors missingAuthorsWithMethods. returned := authors returnedAuthorsWithMethods. notAccounted := authors notAccounted. ^ authors. ! ----- Method: Authorship class>>example2 (in category 'as yet unclassified') ----- example2 | n i file | n := Metaclass allInstances size. i _ 0. file := FileStream newFileNamed: 'etoysv4.list'. 'generating the list of existing methods...' displayProgressAt: Sensor cursorPoint from: 1 to: n during: [:bar | Metaclass allInstancesDo: [:mc | bar value: (i := i + 1). mc theNonMetaClass selectors do: [:eachSelector | (#(DoIt DoItIn:) includes: eachSelector) ifFalse: [ file nextPutAll: mc theNonMetaClass name; space; nextPutAll: eachSelector; cr]]. mc selectors do: [:eachSelector | (#(DoIt DoItIn:) includes: eachSelector) ifFalse: [ file nextPutAll: mc name; space; nextPutAll: eachSelector; cr]]. ]]! ----- Method: Authorship class>>initialize (in category 'as yet unclassified') ----- initialize | n i eachClass | super initialize. n := Metaclass allInstances size. AllMethods := OrderedCollection new. i _ 0. 'Collecting method information...' displayProgressAt: Sensor cursorPoint from: 1 to: n during: [:bar | Metaclass allInstancesDo: [:mc | bar value: (i := i + 1). (eachClass := mc) selectors do: [:eachSelector | (#(DoIt DoItIn:) includes: eachSelector) ifFalse: [ AllMethods add: (MethodHistoryChangeRecord new class: eachClass name selector: eachSelector stamp: (eachClass compiledMethodAt: eachSelector) timeStamp text: '' sourceFile: '(current)')]]. (eachClass := mc theNonMetaClass) selectors do: [:eachSelector | (#(DoIt DoItIn:) includes: eachSelector) ifFalse: [ AllMethods add: (MethodHistoryChangeRecord new class: eachClass name selector: eachSelector stamp: (eachClass compiledMethodAt: eachSelector) timeStamp text: '' sourceFile: '(current)')]]]]. ! ----- Method: Authorship class>>isLicenceOK: (in category 'as yet unclassified') ----- isLicenceOK: initials self licensedContributors pairsDo: [ :i :n | i = initials ifTrue: [ ^ true ] ]. ^ false! ----- Method: Authorship class>>licensedContributors (in category 'as yet unclassified') ----- licensedContributors ^ self agreedContributors , self newContributors, self returnedSignatories ! ----- Method: Authorship class>>missingSignatories (in category 'as yet unclassified') ----- missingSignatories "This is a list of all Squeak contributors who have not returned a signed distribution agreement. Nov 25th 2008 --- initials name" ^ #( 'abc' '?' 'afr' 'Alejandro Reimondo' 'ag' 'Andreas Gerdes' 'AK' 'Anoulak Kictiraz' 'ak' 'Anoulak Kictiraz' 'AM' 'Aibek Musaev' 'am' 'Aibek Musaev' 'ASF' 'Adam Franco' 'bmk' 'Brian Keefer' 'cE' 'Christian Eitner' 'cm' 'Cesare Marilungo?' 'dik' 'Denis Kudriashov' 'djm' 'Douglas McPherson' 'dls' 'Darryl Smith' 'dns' 'David N. Smith' 'drs' 'Dean Swan' 'dwh' 'Dwight Hughes' 'edt' '?' 'eldeh' 'Lars Dornheim' 'EP' '?' 'EW' 'Etan Wexler' 'ff' 'Felix Franz' 'gg' 'Giovanni Giorgi' 'GL' 'Greg Lewin?' 'GVG' 'Greg Gritton' 'gwc' 'Geoff Corey' 'H.Hachisuka' 'Hitoshi Hachisuka' 'hg' 'Henrik Gedenryd' 'hh' 'Helge Horch' 'HJH' 'Hannes Hirzel' 'IT' 'Ian Trudel' 'jbc' 'Jay Casler' 'JDD' 'John David Duncan' 'jdl' 'Jose Laiolo' 'jet' 'John Tobler' 'jj' '?' 'JLM' 'Jason McVay' 'jlm' 'Jason McVay' 'JO' 'Jonas Oehrn' 'jwh' 'Jim Heyne' 'JZH' 'John (Zhijiang) Han' 'HK' 'Hunter Kelly' 'Kafka' 'Pablo Malavolta' 'los' 'Lothar Schenk' 'mkd' 'Michael Donegan' 'MM' 'Maarten Maartensz' 'mm' '?' 'mmo' 'Marica Odagaki' 'msk' 'Michael Klein' 'mtf' 'Matthew Fulmer' 'mx' 'Maximialiano Taborda' 'NDCC' '?' 'mn' 'Mats Nygren' 'nm' 'Nicolas Melin' 'PH' 'Phil Hudson' 'pmm' 'Philippe Marschall?' 'RAH' 'Richard A. Harmon' 'RB' 'Roland Bertuli' 'RCS' 'Russell Swan' 'rej' 'Ralph Johnson' 'RJ' 'Ranjan Bagchi' 'rjf' 'Ricardo J. Ferreira' 'rlf' 'Ricardo J. Ferreira' 'rmf' 'Robert Fure' 'RMF' 'Robert Fure' 'rop' 'Russell Penney' 'rp' '?' 'rpj' 'Robert P. Jarvis' 'RvL' 'Reinier van Loon' 'sac' 'Scott Crosby' 'SIM' 'Stewart MacLean' 'sjc' 'Sean Charles' 'sk' 'Stefan Kersten' 'slr' 'Steve Rees' 'squeak' 'Henrik Gedenryd' 'TBP' 'Brian Payne' 'Tbp' 'Brian Payne' 'TEM' 'Tom Morgan' 'tm' '?' 'to' '?' 'tp' '?' 'umur' 'Umur Ozkul' 'UO' 'Umur Ozkul' 'wb' 'Wayne Braun' 'wbk' 'Bryce Kampjes' 'wdc' 'Bill Cattey' 'YE' '?' 'zL' 'Lantz Rowland' 'mvl' 'Martin v. Lowis' 'pf' 'Petr Fischer' 'JPF' '?' 'ktt' '?' 'ndCollectionsTests-Unordered' '?' 'kb' 'Ken Bryant' 'ge' '?' 'ee' 'Evelyn Eastmond' 'EE' 'Evelyn Eastmond' 'tis' 'Tamara Stern' 'TIS' 'Tamara Stern' 'DaveF' 'Dave Feinburg' 'NB' 'Nick Bushak' 'DS' '?' 'bss' 'Brian Silverman' 'jens' 'Jens Monig' 'dh' 'Darris Hupp' 'avl' '?' 'JTN' '?' 'eo' '?' 'sc' '?' 'DSF' 'Dave Feinburg' 'LY' '?' 'qvl' '?' 'as' '?' 'RG' '?' 'AC' 'Andy Chung' 'swr' '?' 'e' '?' )! ----- Method: Authorship class>>nameFor: (in category 'as yet unclassified') ----- nameFor: initial self allContributors pairsDo: [ :init :n | init = initial ifTrue: [ ^ n ] ]. ^ nil! ----- 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' )! ----- Method: Authorship class>>returnedSignatories (in category 'as yet unclassified') ----- returnedSignatories "This is a list of all Squeak contributors who have returned a signed distribution agreement. Nov 25th 2008 --- initials name" ^ #( 'AB' 'Alexandre Bergel' 'ab' 'Avi Bryant or Alexandre Bergel' 'ACG' 'Andrew C. Greenberg' 'acg' 'Andrew C. Greenberg' 'ack' 'Alan Kay' 'ads' 'Adam Spitz' 'AFi' 'Alain Fischer' 'ajh' 'Anthony Hannan' 'aka' 'Mark Guzdial' 'al' 'Adrian Lienhard or Alexander Lazarevic' 'aoy' 'Andres Otaduy' 'apb' 'Andrew P. Black' 'apl' 'Alain Plantec' 'ar' 'Andreas Raab' '???' 'Andreas Raab' 'asm' 'Alejandro Magistrello' 'avi' 'Avi Bryant' 'ba' 'Bob Arning' 'bf' 'Bert Freudenberg' 'BEO' 'Bruce O''Neel ' 'beo' 'Bruce O''Neel ' 'BG' 'Boris Gaertner' 'bg' 'Boris Gaertner' 'bh' 'Bob Hartwig' 'BJP' 'Bijan Parsia' 'BJP 9/9/1998' 'Bijan Parsia' 'bk' 'Bolot Kerimbaev' 'bkv' 'Brent Vukmer' 'bob' 'Bob Arning' 'bolot' 'Bolot Kerimbaev' 'bootstrap' 'Pavel Krivanek' 'BP' 'Brent Pinkney' 'bp' 'Brent Pinkney or Bernhard Pieber' 'brp' 'Brent Pinkney' 'brp`' 'Brent Pinkney' 'btr' 'Brian Rice' 'bvs' 'Ben Schroeder' 'cbc' 'Chris Cunningham' 'ccn' 'Chris Norton' 'ccn+ceg' 'Chris Norton and Carl Gundel' 'ceg' 'Carl Gundel' 'CdG' 'Cees de Groot' 'cds' 'C. David Shaffer' 'chronograph' 'Tetsuya Hayashi' 'cmm' 'Chris Muller' 'crl' 'Craig Latta' 'cwp' 'Colin Putney' 'daf' 'Dave Faught' 'dao' 'danil osipchuk' 'das' 'David A Smith' 'DAS' 'David A Smith' 'dc' 'Damien Cassou' 'dd' 'Dominique Dutoit' 'de' 'Scott Wallace' 'dew' 'Doug Way' 'DF' 'Diego Fernandez' 'dgd' 'Diego Gomez Deck' 'dhhi' 'Dan Ingalls' 'di' 'Dan Ingalls' 'di ' 'Dan Ingalls' '6/5/97' 'Dan Ingalls' '6/6/97' 'Dan Ingalls' '6/7/97' 'Dan Ingalls' '6/8/97' 'Dan Ingalls' '6/9/97' 'Dan Ingalls' '6/10/97' 'Dan Ingalls' '6/11/97' 'Dan Ingalls' '6/13/97' 'Dan Ingalls' '6/18/97' 'Dan Ingalls' 'djp' 'David J. Pennell' 'DM' 'Duane Maxwell' 'dm' 'Duane Maxwell/EntryPoint' 'DSM' 'Duane Maxwell' 'DSM 10/15/1999' 'Duane Maxwell' 'drm' 'Delbert Murphy' 'dtl' 'Dave Lewis' 'dv' 'Daniel Vainsencher' 'dvf' 'Daniel Vainsencher' 'dvf 6/10/2000' 'Daniel Vainsencher' 'eat' 'Eric Arseneau Tremblay' 'edc' 'Edgar DeCleene or Marcus Denker' 'efc' 'Eddie Cottongim' 'efo' 'Emilio Oca' 'em' 'Ernest Micklei?' 'emm' 'Ernest Micklei' 'es' 'Enrico Spinielli' 'fbs' 'Frank Shearar' 'FBS' 'Frank Shearar' 'fbs' 'Frank Shearar' 'fc' 'Frank Caggiano' 'fcs' 'Frank Sergeant' 'fm' 'Florin Mateoc' 'gh' 'Goran Krampe (nee Hultgren)' 'gk' 'Goran Krampe (nee Hultgren)' 'gm' 'German Morales' 'go' 'Georg Gollmann' 'gsa' 'German Arduino' 'HEG' 'Henrik Ekenberg' 'HilaireFernandes' 'Hilaire Fernandes' 'hk' 'Herbert Konig' 'hmm' 'Hans-Martin Mosner' 'hpt' 'Hernan Tylim' 'huma' 'Lyndon Tremblay' 'ich.' 'Yuji Ichikawa' 'ikp' 'Ian Piumarta' 'jaf' 'Jan Fietz' 'jam' 'Javier Musa' 'jb' 'Jim Benson' 'jcg' 'Joshua Gargus' 'jdf' 'David Farber' 'jdr' 'Javier Diaz-Reinoso' 'je' 'Joern Eyrich' 'je77' 'Jochen Rick' 'JF' 'Julian Fitzell' 'jf' 'Julian Fitzell' 'jhm' 'John Maloney' 'jm' 'John Maloney' 'jm ' 'John Maloney' 'jla' 'Jerry Archibald' 'jlb' 'Jim Benson' 'jmb' 'Hans Baveco' 'JMM' 'John McIntosh' 'JMV' 'Juan Manuel Vuletich' 'jmv' 'Juan Manuel Vuletich' 'jon' 'Jon Hylands' 'JP' 'Joseph Pelrine' 'jp' 'Joseph Pelrine' 'jrm' 'John-Reed Maffeo' 'jrp' 'John Pierce' 'jsp' 'Jeff Pierce' 'JW' 'Jesse Welton' 'jws' 'John Sarkela' 'JWS' 'John Sarkela' 'ka' 'Kazuhiro Abe' 'kfr' 'Karl Ramberg' 'KLC' 'Ken Causey' 'klc' 'Ken Causey' 'KR' 'korakurider' 'KTT' 'Kurt Thams' 'kwl' 'Klaus D. Witzel' 'ky' 'Koji Yokokawa' 'laza' 'Alexander Lazarevic' 'LB' 'Leo Burd' 'LC' 'Leandro Caniglia' 'lc' 'Leandro Caniglia' 'LEG' 'Gerald Leeb' 'len' 'Luciano Esteban Notarfrancesco' 'lr' 'Lukas Renggli' 'lrs' 'Lorenzo Schiavina' 'ls' 'Lex Spoon' 'LS' 'Lex Spoon' 'm3r' 'Maurice Rabb' 'MAL' 'Michael Latta' 'mas' 'Mark Schwenk' 'm' 'Marcus Denker' 'MD' 'Marcus Denker' 'md' 'Marcus Denker' 'md\' 'Marcus Denker' 'mdr' 'Mike Rutenberg' 'mga' 'Markus Galli' 'miki' 'Mikael Kindborg' 'mikki' 'Mikael Kindborg' 'mir' 'Michael Rueger' 'mist' 'Michal Starke' 'MJG' 'Mark Guzdial' 'mjg' 'Mark Guzdial' 'mjg 8/31/1998' 'Mark Guzdial' 'mjg 9/9/1998' 'Mark Guzdial' 'mjg 9/23/1998' 'Mark Guzdial' 'mjr' 'Mike Roberts' 'mjt' 'Mike Thomas' 'mk' 'Matej Kosik' 'mlr' 'Michael Rueger' 'MPW' 'Marcel Weiher' 'mpw' 'Marcel Weiher' 'mrm' 'Martin McClure' 'MPH' 'Michael Hewner' 'MU' 'Masashi Umezawa' 'mu' 'Masashi Umezawa' 'mw' 'Martin Wirblat' 'nb' 'Naala Brewer' 'nice' 'Nicolas Cellier' 'nk' 'Ned Konz' 'nop' 'Jay Carlson' 'Noury' 'Noury Bouraqadi' 'NS' 'Nathanael Schaerli' 'panda' 'Michael Rueger' 'PHK' 'Peter Keeler' 'pk' 'Pavel Krivanek' 'pm' 'Patrick Mauritz' 'pnm' 'Paul McDonough' 'pnm 8/23/2000' 'Paul McDonough' 'RAA' 'Bob Arning' 'RAA 3/28/2000' 'Bob Arning' 'r++' 'Gerardo Richarte' 'raa' 'Bob Arning' 'raok' 'Richard A. O''Keefe' 'rbb' 'Brian Brown' 'rca' 'Russell Allen' 'reThink' 'Paul McDonough' 'rew' 'Roger Whitney' 'rhi' 'Robert Hirschfeld' 'rh' 'Robert Hirschfeld' 'Rik' 'Rik Fischer SmOOdy' 'rk' 'Ram Krishnan' 'rkris' 'Ram Krishnan' 'RJT' 'Ron Teitelbaum' 'RM' 'Rick McGeer' 'rr' 'Romain Robbes' 'rw' 'Roel Wuyts' 'rw' 'Robert Withers' 'rww' 'Robert Withers' 'sbw' 'Stephan B. Wessels' 'SD' 'Stephane Ducasse' 'sd' 'Stephane Ducasse' 'stephaneducassse' 'Stephane Ducasse' 'sge' 'Steve Elkins' 'shrink' 'Pavel Krivanek' 'slg' 'Steve Gilbert' 'sm' 'Simon Michael' 'sma' 'Stefan Matthias Aust' 'sn' 'Suslov Nikolay' 'spfa' 'Stephane Rollandin' 'sps' 'Steven Swerling' 'sqr' 'Andres Valloud' 'SqR' 'Andres Valloud' 'SqR!!!!' 'Andres Valloud' 'SqR!!!!!!!!' 'Andres Valloud' 'sr' 'Stephan Rudlof' 'ssa' 'Sam S. Adams' 'Sames' 'Samuel S. Shuster' 'SSS' 'Samuel S. Shuster' 'st' 'Samuel Tardieu' 'stephaneducasse' 'Stephane Ducasse' 'stp' 'Stephen Travis Pope' 'sumim' 'Masato Sumi' 'svp' 'Stephen Vincent Pair' 'sw' 'Scott Wallace' 'sws' 'Scott Wallace' 'T2' 'Toshiyuki Takeda' 'tak' 'Takashi Yamamiya' 'tao' 'Tim Olson' 'tb' 'Todd Blanchard or Torsten Bergman' 'TBn' 'Torsten Bergmann' 'tbn' 'Torsten Bergmann' 'tetha' 'Tetsuya Hayashi' 'tfei' 'The Fourth Estate, Inc.' 'th' 'Torge Husfeldt' 'ti' 'Tobias Isenberg' 'TJ' 'TJ Leone' 'tk' 'Ted Kaehler' 'tk 9/13/97' 'Ted Kaehler' 'tk 12/6/2004' 'Ted Kaehler' 'tk 11/29/2004' 'Ted Kaehler' 'tk 11/26/2004' 'Ted Kaehler' 'tk' 'Thomas Kowark' 'tlk' 'Tom Koenig' 'TN' 'korakurider' 'tonyg' 'Tony Garnock-Jones' 'TPR' 'Tim Rowledge' 'tpr' 'Tim Rowledge' 'TAG' 'Travis Griggs' 'TRee' 'Trygve Reenskaug' 'ts' 'Shortsleeved' 'Tsutomu' 'Tsutomu Hiroshima' 'tween' 'Andy Tween' 'vb' 'Vassili Bykov' 'vbdew' 'Vassili Bykov and Doug Way' 'vj' 'Vladimir Janousek' 'wiz' 'Jerome Peace' 'wod' 'Bill Dargel' 'ykoubo' 'Koji Yokokawa' 'yo' 'Yoshiki Ohshima' 'ward' 'Ward Cunningham' 'zz' 'Serge Stinckwich' )! ----- Method: Authorship>>addToHistoricalListIfAuthorHasReturnedSignatory: (in category 'private') ----- addToHistoricalListIfAuthorHasReturnedSignatory: each (historicalAuthorDictionary at: each author ifAbsent: [^nil]) addLast: each! ----- Method: Authorship>>addToHistoricalListIfAuthorIsMissingSignatory: (in category 'private') ----- addToHistoricalListIfAuthorIsMissingSignatory: each (historicalMissingDictionary at: each author ifAbsent: [^nil]) addLast: each! ----- Method: Authorship>>addToListIfAuthorHasReturnedSignatory: (in category 'private') ----- addToListIfAuthorHasReturnedSignatory: each (authorDictionary at: each author ifAbsent: [^nil]) addLast: each! ----- Method: Authorship>>addToListIfAuthorIsMissingSignatory: (in category 'private') ----- addToListIfAuthorIsMissingSignatory: each "author dictionary's value at key k is an OrderedCollection containing the methods written by k" (missingDictionary at: each author ifAbsent: [^nil]) addLast: each! ----- Method: Authorship>>database: (in category 'initialize-release') ----- database: db | count eachClass ret1 ret2 | database _ db. self class missingSignatories pairsDo: [:initials :name | historicalMissingDictionary at: initials put: (MethodCollection titled: name)]. self class licensedContributors pairsDo: [:initials :name | historicalAuthorDictionary at: initials put: (MethodCollection titled: name)]. count _ 0. 'collecting information (historical)...' displayProgressAt: Sensor cursorPoint from: 1 to: database size // 100 during: [:bar | database keys do: [:k | count := count + 1. count \\ 100 = 0 ifTrue: [bar value: count//100]. eachClass := database at: k. eachClass do: [:recs | recs do: [:rec | ret1 := self addToHistoricalListIfAuthorIsMissingSignatory: rec. ret2 := self addToHistoricalListIfAuthorHasReturnedSignatory: rec. (ret1 == nil and: [ret2 == nil and: [rec author isEmpty not]]) ifTrue: [historicalNotAccounted add: rec]]]]].! ----- Method: Authorship>>historicalMissingAuthorsWithMethods (in category 'filtering') ----- historicalMissingAuthorsWithMethods ^ historicalMissingDictionary select: [ :eachAssoc | eachAssoc value notEmpty ]! ----- Method: Authorship>>historicalNotAccounted (in category 'filtering') ----- historicalNotAccounted ^ historicalNotAccounted ! ----- Method: Authorship>>initialize (in category 'initialize-release') ----- initialize | ret1 ret2 each | missingDictionary := Dictionary new. authorDictionary := Dictionary new. notAccounted := OrderedCollection new. historicalMissingDictionary := Dictionary new. historicalAuthorDictionary := Dictionary new. historicalNotAccounted := OrderedCollection new. self class missingSignatories pairsDo: [:initials :name | missingDictionary at: initials put: (MethodCollection titled: name)]. self class licensedContributors pairsDo: [:initials :name | authorDictionary at: initials put: (MethodCollection titled: name)]. 'collecting information...' displayProgressAt: Sensor cursorPoint from: 1 to: AllMethods size // 100 during: [:bar | 1 to: AllMethods size do: [:i | i \\ 100 = 0 ifTrue: [bar value: i//100]. each := AllMethods at: i. "each methodSymbol = #testTwoArgumentEvent ifTrue: [self halt]." ret1 := self addToListIfAuthorIsMissingSignatory: each. ret2 := self addToListIfAuthorHasReturnedSignatory: each. (ret1 == nil and: [ret2 == nil and: [each author isEmpty not]]) ifTrue: [notAccounted add: each]]]. ! ----- Method: Authorship>>missingAuthorsWithMethods (in category 'filtering') ----- missingAuthorsWithMethods ^ missingDictionary select: [ :eachAssoc | eachAssoc value notEmpty ]! ----- Method: Authorship>>notAccounted (in category 'filtering') ----- notAccounted ^ notAccounted ! ----- Method: Authorship>>overlap (in category 'filtering') ----- overlap | returned missing | returned := OrderedCollection new: 100. ( self class licensedContributors) pairsDo: [:initials :name | returned add: initials. ]. missing := OrderedCollection new: 100. self class missingSignatories pairsDo: [:initials :name | missing add: initials. ]. ^ missing asSet intersection: returned asSet! ----- Method: Authorship>>returnedAuthorsWithMethods (in category 'filtering') ----- returnedAuthorsWithMethods ^ authorDictionary select: [ :eachAssoc | eachAssoc value notEmpty ]! Object subclass: #MethodHistoryDatabase instanceVariableNames: 'dictionary' classVariableNames: 'LiveLists Databases' poolDictionaries: '' category: 'Methodauthorship'! ----- Method: MethodHistoryDatabase class>>at:put: (in category 'all') ----- at: aVersionName put: aDatabase ^ self databases at: aVersionName put: aDatabase. ! ----- Method: MethodHistoryDatabase class>>databases (in category 'all') ----- databases ^ Databases ifNil: [Databases := Dictionary new]. ! ----- Method: MethodHistoryDatabase class>>liveListAt:putFromFileName: (in category 'all') ----- liveListAt: dataName putFromFileName: fileName | file strs meta cls meth dic | dic := IdentityDictionary new. file := FileStream readOnlyFileNamed: fileName. file wantsLineEndConversion: true. file contentsOfEntireFile linesDo: [:line | strs := line substrings. meta := strs size = 3. cls := strs first, (meta ifTrue: [' class'] ifFalse: ['']). meth := strs last. (dic at: cls asSymbol ifAbsentPut: [IdentitySet new]) add: meth asSymbol. ]. file close. self liveLists at: dataName put: dic. ! ----- Method: MethodHistoryDatabase class>>liveLists (in category 'all') ----- liveLists ^ LiveLists ifNil: [LiveLists := Dictionary new]. ! ----- Method: MethodHistoryDatabase class>>named: (in category 'all') ----- named: aVersionName ^ self databases at: aVersionName ifAbsent: [nil]. ! ----- Method: MethodHistoryDatabase class>>remove: (in category 'all') ----- remove: aVersionName ^ self databases removeKey: aVersionName ifAbsent: [nil].! ----- Method: MethodHistoryDatabase>>at: (in category 'all') ----- at: className ^ dictionary at: className ifAbsent: [^ Dictionary new]. ! ----- Method: MethodHistoryDatabase>>at:at: (in category 'all') ----- at: className at: sel dictionary at: className ifPresent: [:dict | dict at: sel ifPresent: [:col | ^ col]]. ^ Array new. ! ----- Method: MethodHistoryDatabase>>initialize (in category 'all') ----- initialize super initialize. dictionary := IdentityDictionary new. ! ----- Method: MethodHistoryDatabase>>keys (in category 'all') ----- keys ^ dictionary keys ! ----- Method: MethodHistoryDatabase>>processChangesFile:encoding: (in category 'all') ----- processChangesFile: aFilename encoding: encodingString | aStream c | aStream := FileStream readOnlyFileNamed: aFilename. aStream converter: (TextConverter newForEncoding: encodingString). c := MethodHistoryChangeList new. c scanFile: aStream from: 0 to: aStream size. c removeDoIts. aStream close. ^ c. ! ----- Method: MethodHistoryDatabase>>processChangesList: (in category 'all') ----- processChangesList: aCollection " 'Processing...' displayProgressAt: Display center from: 1 to: aCollection changeList size during: [:bar | aCollection changeList withIndexDo: [:record :ind | bar value: ind. self processRecord: record. ]. ]." aCollection changeList do: [:record | self processRecord: record] ! ----- Method: MethodHistoryDatabase>>processLiveListNamed: (in category 'all') ----- processLiveListNamed: aFileName | file | file := FileStream readOnlyFileNamed: aFileName. file wantsLineEndConversion: true. file linesDo: [:line | self processLiveMethod: line ]. file close. ! ----- Method: MethodHistoryDatabase>>processLiveMethod: (in category 'all') ----- processLiveMethod: aString | strs meta cls meth | strs := aString substrings. meta := strs size = 3. cls := strs first, (meta ifTrue: [' class'] ifFalse: ['']). meth := strs last. (self live at: cls asSymbol ifAbsentPut: [IdentitySet new]) add: meth asSymbol. ! ----- Method: MethodHistoryDatabase>>processRecord: (in category 'all') ----- processRecord: rec | col clsName sel cls | cls := rec methodClass. cls ifNil: [^ self]. clsName := cls asSymbol. sel := rec methodSelector. sel ifNil: [^ self]. dictionary at: clsName ifAbsent: [ dictionary at: clsName put: IdentityDictionary new]. (dictionary at: clsName) at: sel ifAbsent: [(dictionary at: clsName) at: sel put: OrderedCollection new]. col := (dictionary at: clsName) at: sel. col ifEmpty: [col addFirst: rec] ifNotEmpty: [(col first equals: rec) ifFalse: [col addFirst: rec]]. "col detect: [:old | old equals: rec] ifNone: [ col addFirst: rec ]." ! ----- Method: MethodHistoryDatabase>>readFile:encodingName: (in category 'all') ----- readFile: aFilename encodingName: encodingName | c | "Transcript show: 'reading... ', aFilename; cr." c := self processChangesFile: aFilename encoding: encodingName. self processChangesList: c. ! ----- Method: MethodHistoryDatabase>>readFilesIn:updateFile:versionName: (in category 'all') ----- readFilesIn: dir updateFile: updateFileName versionName: versionName | updates more line file encoding | updates := dir readOnlyFileNamed: updateFileName. more := true. [more] whileTrue: [ updates atEnd ifTrue: [updates close. ^ self]. line := updates upTo: Character cr. line ifNil: [updates close. ^ self]. line size > 0 ifTrue: [ line first = $# ifTrue: [ (line copyFrom: 2 to: line size) = versionName ifTrue: [more := false]]. ]. ]. more := true. [more] whileTrue: [ updates atEnd ifTrue: [updates close. ^ self]. line := updates upTo: Character cr. line ifNil: [^ self]. (line first = $#) ifTrue: [^ self]. file := dir readOnlyFileNamed: line. file binary. encoding := ((file next: 3) = (ByteArray with: 16rEF with: 16rBB with: 16rBF)) ifTrue: ['utf-8'] ifFalse: ['mac-roman']. self readFile: file fullName encodingName: encoding. ]. ! ----- Method: MethodHistoryDatabase>>size (in category 'all') ----- size ^ dictionary size. ! ----- Method: MethodHistoryDatabase>>sourceCodeAt:at: (in category 'all') ----- sourceCodeAt: className at: sel dictionary at: className ifPresent: [:dict | dict at: sel ifPresent: [:col | ^ col first text]]. ^ '' ! ----- Method: MethodHistoryDatabase>>writeDict:toFileName: (in category 'all') ----- writeDict: aDict toFileName: aFileName | f | f := FileStream newFileNamed: aFileName. aDict keys asSortedCollection do: [:k | f nextPutAll: (aDict at: k) printString; cr. ]. f close. ! ----- Method: MethodHistoryDatabase>>writeDictWithVersion:toHTMLFileNameOn:title: (in category 'all') ----- writeDictWithVersion: aDict toHTMLFileNameOn: aStream title: aString self writeDictWithVersion: aDict toHTMLFileNameOn: aStream title: aString explanationFileName: nil. ! ----- Method: MethodHistoryDatabase>>writeDictWithVersion:toHTMLFileNameOn:title:explanationFileName: (in category 'all') ----- writeDictWithVersion: aDict toHTMLFileNameOn: aStream title: aString explanationFileName: explanation | entries current prev history firstPart secondPart diffString oldStamp newStamp | firstPart _ WriteStream on: (String new: 10). secondPart _ WriteStream on: (String new: 10). aStream nextPutAll: '<html><head>'. aStream nextPutAll: '<title>'. aStream nextPutAll: aString. aStream nextPutAll: '</title></head><body>'. aStream cr. aStream nextPutAll: '<H2>'. aStream nextPutAll: aString. aStream nextPutAll: '</H2>'. aStream cr. explanation ifNotNil: [ aStream nextPutAll: (FileStream readOnlyFileNamed: explanation) contentsOfEntireFile]. aDict keys asSortedCollection do: [:k | entries _ aDict at: k. entries do: [:m | history := self at: m methodClass asSymbol at: m methodSelector. current _ history size > 0 ifTrue: [history first text] ifFalse: ['']. prev _ history size > 1 ifTrue: [history second text] ifFalse: ['']. firstPart nextPutAll: '<A HREF="#'. firstPart nextPutAll: m methodClass asString, '-', m methodSelector asString. firstPart nextPutAll: '">'. firstPart nextPutAll: m methodClass, '>>', m methodSelector. firstPart nextPutAll: '</A><BR>'. firstPart nextPut: Character cr. secondPart nextPutAll: '<A NAME="'. secondPart nextPutAll: m methodClass asString, '-', m methodSelector asString. secondPart nextPutAll: '">'. secondPart nextPutAll: '<table border=1 vspace=5px width=90%>'. secondPart nextPutAll: '<tr><td>'. secondPart nextPutAll: m methodClass asString, '>>', m methodSelector asString. oldStamp := history size > 1 ifTrue: [history second stamp] ifFalse: ['']. oldStamp ifEmpty: [oldStamp := 'no stamp']. newStamp := history size > 0 ifTrue: [history first stamp] ifFalse: ['']. newStamp ifEmpty: [newStamp := 'no stamp']. secondPart nextPutAll: ': ('. secondPart nextPutAll: oldStamp. secondPart nextPutAll: ' -> '. secondPart nextPutAll: newStamp. secondPart nextPutAll: ')'. secondPart nextPutAll: '<tr><td><pre>'. secondPart nextPutAll: (prev ifEmpty: ['no previous history'] ifNotEmpty: [TextDiffBuilder buildHTMLPatchFrom: prev asHtmlNOBR to: prev asHtmlNOBR]). secondPart nextPutAll: '</pre></td></tr>'. secondPart nextPut: Character cr. secondPart nextPutAll: '<tr><td><pre>'. secondPart nextPutAll: (current ifEmpty: ['not found'] ifNotEmpty: [TextDiffBuilder buildHTMLPatchFrom: current asHtmlNOBR to: current asHtmlNOBR]). secondPart nextPutAll: '</pre></td></tr>'. (prev size > 0 and: [current size > 0]) ifTrue: [ diffString := TextDiffBuilder buildHTMLPatchFrom: prev asHtmlNOBR to: current asHtmlNOBR. secondPart nextPutAll: '<tr><td><pre>'. secondPart nextPutAll: diffString. secondPart nextPutAll: '</pre></td></tr>'. ]. secondPart nextPutAll: '</table>'. secondPart nextPut: Character cr. secondPart cr. ]. ]. aStream nextPutAll: firstPart contents. aStream cr. aStream nextPutAll: secondPart contents. aStream nextPutAll: '</body></html>'. ! ----- Method: String>>asHtmlNOBR (in category '*methodauthorship') ----- asHtmlNOBR "Do the basic character conversion for HTML. Leave all original return and tabs in place, so can conver back by simply removing bracked things. 4/4/96 tk" | temp | temp _ self copyReplaceAll: '&' with: '&'. HtmlEntities keysAndValuesDo: [:entity :char | char = $& ifFalse: [temp _ temp copyReplaceAll: char asString with: '&' , entity , ';']]. temp _ temp copyReplaceAll: ' ' with: '    '. ^ temp " 'A<&>B' asHtml "! VersionsBrowser subclass: #MethodHistoryVersionBrowser instanceVariableNames: 'database' classVariableNames: '' poolDictionaries: '' category: 'Methodauthorship'! ----- Method: MethodHistoryVersionBrowser class>>browseVersionsOf:class:meta:category:selector:database: (in category 'as yet unclassified') ----- browseVersionsOf: method class: class meta: meta category: msgCategory selector: selector database: database ^ self new class: class meta: meta selector: selector database: database ! ----- Method: MethodHistoryVersionBrowser>>class:meta:selector:database: (in category 'all') ----- class: cls meta: isMeta selector: sel database: db | c | database := db. classOfMethod _ cls. selectorOfMethod _ sel. list _ database at: (classOfMethod name, (isMeta ifTrue: [' class'] ifFalse: [''])) asSymbol at: selectorOfMethod. c := MethodHistoryChangeList new. list do: [:l | c addItem: l text: (l stamp ifNotEmpty: [l stamp] ifEmpty: ['no stamp']), ' (', l fileName, ')']. c initializeForDatabase. MethodHistoryChangeList open: c name: 'Recent versions of ' , sel multiSelect: false. ! ----- Method: MethodHistoryVersionBrowser>>reformulateList (in category 'all') ----- reformulateList | col | col := database at: classOfMethod asSymbol at: selectorOfMethod. col ifEmpty: [^ self]. list _ col. listIndex _ 1. self changed: #listIndex. self contentsChanged ! ----- Method: TextDiffBuilder class>>buildHTMLPatchFrom:to: (in category '*methodauthorship') ----- buildHTMLPatchFrom: srcString to: dstString ^(self from: srcString to: dstString) buildHTMLDisplayPatch! ----- Method: TextDiffBuilder>>buildHTMLDisplayPatch (in category '*methodauthorship') ----- buildHTMLDisplayPatch ^String streamContents:[:stream| self printPatchHTMLSequence: self buildPatchSequence on: stream. ]! ----- Method: TextDiffBuilder>>printPatchHTMLSequence:on: (in category '*methodauthorship') ----- printPatchHTMLSequence: seq on: aStream | attrs | seq do: [:assoc | attrs _ self attributesOf: assoc key. attrs do: [:attribute | (attribute isMemberOf: TextColor) ifTrue: [ aStream nextPutAll: '<span style="color: '; nextPutAll: attribute color asHTMLColor; nextPutAll: '">' ]. ((attribute isMemberOf: TextEmphasis) and: [attribute emphasisCode = 16]) ifTrue: [ aStream nextPutAll: '<STRIKE>' ]. ]. aStream nextPutAll: assoc value; cr. attrs reverseDo: [:attribute | (attribute isMemberOf: TextColor) ifTrue: [ aStream nextPutAll: '</span>' ]. ((attribute isMemberOf: TextEmphasis) and: [attribute emphasisCode = 16]) ifTrue: [ aStream nextPutAll: '</STRIKE>' ]. ]. ].!

1 0

Squeak3.11 Contributions: MethodAuthorship-mtf.9.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Feb '09

07 Feb '09

A new version of Methodauthorship was added to project Squeak3.11 Contributions: http://www.squeaksource.com/311/MethodAuthorship-mtf.9.mcz ==================== Summary ==================== Name: MethodAuthorship-mtf.9 Author: mtf Time: 7 February 2009, 1:01:11 pm UUID: 4e71e981-4485-4f0f-921d-720c20ae61f8 Ancestors: MethodAuthorship-yo.8 saved a version with corrected class category names ==================== Snapshot ==================== SystemOrganization addCategory: #MethodAuthorship! ChangeRecord subclass: #MethodHistoryChangeRecord instanceVariableNames: 'text selector sourceFile' classVariableNames: '' poolDictionaries: '' category: 'MethodAuthorship'! ----- Method: MethodHistoryChangeRecord>>author (in category 'all') ----- author ^ (stamp copyUpTo: $ ) copyWithout: Character lf. ! ----- Method: MethodHistoryChangeRecord>>class:selector:stamp:text:sourceFile: (in category 'all') ----- class: clsName selector: sel stamp: st text: t sourceFile: fileName class _ clsName copyUpTo: $ . "the non-meta part of a class name" meta _ clsName endsWith: ' class'. selector := sel. stamp := st. text := t. type := #method. sourceFile := fileName. ! ----- Method: MethodHistoryChangeRecord>>equals: (in category 'all') ----- equals: another "^ self methodClassName = another methodClassName and: [ self methodSelector = another methodSelector and: [ self text = another text and: [self stamp = another stamp]]]. " ^ self text = another text and: [self stamp = another stamp]! ----- Method: MethodHistoryChangeRecord>>fileName (in category 'all') ----- fileName ^ sourceFile ifNil: ['unknown']. ! ----- Method: MethodHistoryChangeRecord>>methodClass (in category 'all') ----- methodClass ^ class, (meta ifTrue: [' class'] ifFalse: ['']). ! ----- Method: MethodHistoryChangeRecord>>methodSelector (in category 'all') ----- methodSelector ^ selector! ----- Method: MethodHistoryChangeRecord>>shortPrintOn: (in category 'all') ----- shortPrintOn: aStream "Print the receiver on a stream" aStream nextPutAll: ' ', self methodClass name, ' >> ', self methodSelector, ' (', self stamp, ')'! ----- Method: MethodHistoryChangeRecord>>string (in category 'all') ----- string ^ text ! ----- Method: MethodHistoryChangeRecord>>text (in category 'all') ----- text ^ text ifNil: [text := super text]. ! ----- Method: Browser>>openHistoryEditing: (in category '*methodauthorship') ----- openHistoryEditing: editString "Create a pluggable version of all the views for a Browser, including views and controllers." | window hSepFrac switchHeight mySingletonList nextOffsets | window _ (SystemWindow labelled: 'later') model: self. hSepFrac _ 0.30. switchHeight _ 25. mySingletonList _ PluggableListMorph on: self list: #historySingleton selected: #indexIsOne changeSelected: #indexIsOne: menu: #systemCatSingletonMenu: keystroke: #systemCatSingletonKey:from:. mySingletonList enableDragNDrop: Preferences browseWithDragNDrop. mySingletonList hideScrollBarsIndefinitely. window addMorph: mySingletonList fullFrame: ( LayoutFrame fractions: (0@0 corner: 1@0) offsets: (0@0 corner: 0@switchHeight) ). self addClassAndSwitchesTo: window at: (0@0 corner: 0.5@hSepFrac) plus: switchHeight. nextOffsets _ 0@switchHeight corner: 0@0. window addMorph: self buildMorphicMessageList fullFrame: ( LayoutFrame fractions: (0.5@0 corner: 1@hSepFrac) offsets: nextOffsets ). self addLowerPanesTo: window at: (0@hSepFrac corner: 1@1) with: editString. window setUpdatablePanesFrom: #( classList messageCategoryList messageList). ^ window! ----- Method: Browser>>openHistoryString: (in category '*methodauthorship') ----- openHistoryString: aString "Create a pluggable version of all the views for a Browser, including views and controllers. The top list view is of the currently selected system class category--a single item list." | systemCategoryListView classListView messageCategoryListView messageListView browserCodeView topView switchView y annotationPane underPane optionalButtonsView | Smalltalk isMorphic ifTrue: [^ self openHistoryEditing: aString]. topView _ (StandardSystemView new) model: self. topView borderWidth: 1. "label and minSize taken care of by caller" systemCategoryListView _ PluggableListView on: self list: #systemCategorySingleton selected: #indexIsOne changeSelected: #indexIsOne: menu: #systemCatSingletonMenu: keystroke: #systemCatSingletonKey:from:. systemCategoryListView window: (0 @ 0 extent: 200 @ 12). topView addSubView: systemCategoryListView. classListView _ PluggableListView on: self list: #classList selected: #classListIndex changeSelected: #classListIndex: menu: #classListMenu:shifted: keystroke: #classListKey:from:. classListView window: (0 @ 0 extent: 67 @ 62). topView addSubView: classListView below: systemCategoryListView. messageCategoryListView _ PluggableListView on: self list: #messageCategoryList selected: #messageCategoryListIndex changeSelected: #messageCategoryListIndex: menu: #messageCategoryMenu:. messageCategoryListView controller terminateDuringSelect: true. messageCategoryListView window: (0 @ 0 extent: 66 @ 70). topView addSubView: messageCategoryListView toRightOf: classListView. switchView _ self buildInstanceClassSwitchView. switchView window: switchView window viewport: (classListView viewport bottomLeft corner: messageCategoryListView viewport bottomLeft). switchView borderWidth: 1. topView addSubView: switchView below: classListView. messageListView _ PluggableListView on: self list: #messageList selected: #messageListIndex changeSelected: #messageListIndex: menu: #messageListMenu:shifted: keystroke: #messageListKey:from:. messageListView menuTitleSelector: #messageListSelectorTitle. messageListView window: (0 @ 0 extent: 67 @ 70). topView addSubView: messageListView toRightOf: messageCategoryListView. self wantsAnnotationPane ifTrue: [annotationPane _ PluggableTextView on: self text: #annotation accept: nil readSelection: nil menu: nil. annotationPane window: (0@0 extent: 200@self optionalAnnotationHeight). topView addSubView: annotationPane below: switchView. y _ 110 - 12 - self optionalAnnotationHeight. underPane _ annotationPane] ifFalse: [y _ 110 - 12. underPane _ switchView]. self wantsOptionalButtons ifTrue: [optionalButtonsView _ self buildOptionalButtonsView. optionalButtonsView borderWidth: 1. topView addSubView: optionalButtonsView below: underPane. underPane _ optionalButtonsView. y _ y - self optionalButtonHeight]. browserCodeView _ MvcTextEditor default on: self text: #contents accept: #contents:notifying: readSelection: #contentsSelection menu: #codePaneMenu:shifted:. browserCodeView window: (0@0 extent: 200@y). topView addSubView: browserCodeView below: underPane. aString ifNotNil: [browserCodeView editString: aString. browserCodeView hasUnacceptedEdits: true]. topView setUpdatablePanesFrom: #(classList messageCategoryList messageList). ^ topView! Browser subclass: #MethodHistoryBrowser instanceVariableNames: 'database' classVariableNames: '' poolDictionaries: '' category: 'MethodAuthorship'! ----- Method: MethodHistoryBrowser class>>example1 (in category 'as yet unclassified') ----- example1 | m sV1 c11 c113 c117 c118 c119 c12 c122 c123 c131 sV2 c20 c21 c22 c23 c24 c25 c26 c27 c28 sV3 c30 c31 c32 c34 c35 c36 c37 c38 sq e23 ev3 e3l b | m := MethodHistoryDatabase new. sV1 := m processChangesFile: 'SqueakV1.sources' encoding: 'mac-roman'. c11 := m processChangesFile: 'Squeak1.1.changes' encoding: 'mac-roman'. c113 := m processChangesFile: 'Squeak1.13u.changes' encoding: 'mac-roman'. "1.16 is proper prefix of 1.17." c117 := m processChangesFile: 'Squeak1.17u.changes' encoding: 'mac-roman'. c118 := m processChangesFile: 'Squeak1.18.changes' encoding: 'mac-roman'. c119 := m processChangesFile: 'Squeak1.19d.changes' encoding: 'mac-roman'. c12 := m processChangesFile: 'Squeak1.2.changes' encoding: 'mac-roman'. c122 := m processChangesFile: 'Squeak1.22.changes' encoding: 'mac-roman'. c123 := m processChangesFile: 'Squeak1.23up.changes' encoding: 'mac-roman'. c131 := m processChangesFile: 'Squeak1.31.changes' encoding: 'mac-roman'. sV2 := m processChangesFile: 'SqueakV2.sources' encoding: 'mac-roman'. c20 := m processChangesFile: 'Squeak2.0.changes' encoding: 'mac-roman'. c21 := m processChangesFile: 'Squeak2.1.changes' encoding: 'mac-roman'. c22 := m processChangesFile: 'Squeak2.2.changes' encoding: 'mac-roman'. c23 := m processChangesFile: 'Squeak2.3.changes' encoding: 'mac-roman'. c24 := m processChangesFile: 'Squeak2.4b.changes' encoding: 'mac-roman'. c25 := m processChangesFile: 'Squeak2.5.changes' encoding: 'mac-roman'. c26 := m processChangesFile: 'Squeak2.6.changes' encoding: 'mac-roman'. c27 := m processChangesFile: 'Squeak2.7.changes' encoding: 'mac-roman'. c28 := m processChangesFile: 'Squeak2.8.changes' encoding: 'mac-roman'. sV3 := m processChangesFile: 'SqueakV3.sources' encoding: 'mac-roman'. c30 := m processChangesFile: 'Squeak3.0.changes' encoding: 'mac-roman'. c31 := m processChangesFile: 'Squeak3.1beta-4411.changes' encoding: 'mac-roman'. c32 := m processChangesFile: 'Squeak3.2-4956.changes' encoding: 'mac-roman'. c34 := m processChangesFile: 'Squeak3.4.changes' encoding: 'mac-roman'. c35 := m processChangesFile: 'Squeak3.5-5180.changes' encoding: 'mac-roman'. c36 := m processChangesFile: 'Squeak3.6-5429-full.changes' encoding: 'mac-roman'. c37 := m processChangesFile: 'Squeak3.7-5989-full.changes' encoding: 'mac-roman'. c38 := m processChangesFile: 'Squeak3.8-6665full.changes' encoding: 'utf-8'. sq := m processChangesFile: 'SqueakPlugin-dev.changes' encoding: 'utf-8'. e23 := m processChangesFile: 'etoys-dev-2.3-2.changes' encoding: 'utf-8'. ev3 := m processChangesFile: 'EtoysV3.sources' encoding: 'utf-8'. e3l := m processChangesFile: 'etoys-dev-3.0-2-2079.changes' encoding: 'utf-8'. m processChangesList: sV1. m processChangesList: c11. m processChangesList: c113. m processChangesList: c117. m processChangesList: c118. m processChangesList: c119. m processChangesList: c12. m processChangesList: c122. m processChangesList: c123. m processChangesList: c131. m processChangesList: sV2. m processChangesList: c20. m processChangesList: c21. m processChangesList: c22. m processChangesList: c23. m processChangesList: c24. m processChangesList: c25. m processChangesList: c26. m processChangesList: c27. m processChangesList: c28. m processChangesList: sV3. m processChangesList: c30. m processChangesList: c31. m processChangesList: c32. m processChangesList: c34. m processChangesList: c35. m processChangesList: c36. m processChangesList: c37. m processChangesList: c38. m processChangesList: sq. m processChangesList: e23. m processChangesList: ev3. m processChangesList: e3l. b := MethodHistoryBrowser new. b database: m. MethodHistoryBrowser openBrowserView: (b openEditString: nil) label: 'foo'.! ----- Method: MethodHistoryBrowser class>>example2 (in category 'as yet unclassified') ----- example2 | m d b | MethodHistoryChangeList ignoreNonExsiting: true. m := MethodHistoryDatabase new. 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') do: [:v | m readFilesIn: d updateFile: 'updates.list' versionName: v.]. b := MethodHistoryBrowser new. b database: m. MethodHistoryBrowser openBrowserView: (b openEditString: nil) label: 'foo'.! ----- Method: MethodHistoryBrowser>>annotation (in category 'all') ----- annotation ^ ''. ! ----- Method: MethodHistoryBrowser>>browseVersions (in category 'all') ----- browseVersions "Create and schedule a Versions Browser, showing all versions of the currently selected message. Answer the browser or nil." | selector class | self classCommentIndicated ifTrue: [ ClassCommentVersionsBrowser browseCommentOf: self selectedClass. ^nil ]. (selector _ self selectedMessageName) ifNil:[ self inform: 'Sorry, only actual methods have retrievable versions.'. ^nil ] ifNotNil: [ class _ self selectedClassOrMetaClass. ^MethodHistoryVersionBrowser browseVersionsOf: nil class: self selectedClass meta: class isMeta category: (class organization categoryOfElement: selector) selector: selector database: database]! ----- Method: MethodHistoryBrowser>>classList (in category 'all') ----- classList ^ ((database keys reject: [:e | e endsWith: ' class']) asSortedCollection: [:a :b | a < b])! ----- Method: MethodHistoryBrowser>>database: (in category 'all') ----- database: d database := d. ! ----- Method: MethodHistoryBrowser>>historySingleton (in category 'all') ----- historySingleton ^ Array with: 'Historical all classes'! ----- Method: MethodHistoryBrowser>>messageList (in category 'all') ----- messageList "Answer an Array of the message selectors of the currently selected message category, provided that the messageCategoryListIndex is in proper range. Otherwise, answer an empty Array If messageCategoryListIndex is found to be larger than the number of categories (it happens!!), it is reset to zero." | class | class := self selectedClass. ^ (database at: class name ) keys asSortedCollection ! ----- Method: MethodHistoryBrowser>>selectedClass (in category 'all') ----- selectedClass "Answer the class that is currently selected. Answer nil if no selection exists." | name pseudoClass | (name _ self selectedClassName) ifNil: [^ nil]. pseudoClass := PseudoClass new. pseudoClass name: name. ^pseudoClass.! ----- Method: MethodHistoryBrowser>>selectedMessage (in category 'all') ----- selectedMessage "Answer a copy of the source code for the selected message." | class selector | contents == nil ifFalse: [^ contents copy]. self showingDecompile ifTrue: [^ self decompiledSourceIntoContentsWithTempNames: Sensor leftShiftDown not ]. class _ self selectedClassOrMetaClass. selector _ self selectedMessageName. ^ (database sourceCodeAt: class name asSymbol at: selector). ! OrderedCollection subclass: #MethodCollection instanceVariableNames: 'title' classVariableNames: '' poolDictionaries: '' category: 'MethodAuthorship'! ----- Method: MethodCollection class>>titled: (in category 'as yet unclassified') ----- titled: aName ^self new title: aName! ----- Method: MethodCollection>>printOn: (in category 'accessing') ----- printOn: aStream aStream nextPutAll: 'methods by '; nextPutAll: title; cr. self do: [:each | aStream tab. each shortPrintOn: aStream. aStream cr]! ----- Method: MethodCollection>>title (in category 'accessing') ----- title ^ title! ----- Method: MethodCollection>>title: (in category 'accessing') ----- title: aName title := aName! ----- Method: PseudoClass>>definitionST80: (in category '*methodauthorship') ----- definitionST80: aBoolean ^ ''. ! ChangeList subclass: #MethodHistoryChangeList instanceVariableNames: '' classVariableNames: 'IgnoreNonExsiting' poolDictionaries: '' category: 'MethodAuthorship'! ----- Method: MethodHistoryChangeList class>>ignoreNonExsiting: (in category 'as yet unclassified') ----- ignoreNonExsiting: aBoolean IgnoreNonExsiting _ aBoolean. ! ----- Method: MethodHistoryChangeList>>annotation (in category 'all') ----- annotation ^ '------' ! ----- Method: MethodHistoryChangeList>>contentsDiffedFromCurrent (in category 'all') ----- contentsDiffedFromCurrent "Answer the contents diffed forward from current (in-memory) method version" | aChange aClass | listIndex = 0 ifTrue: [^ '']. aChange _ changeList at: listIndex. ^ (aChange type == #method and: [(aClass _ aChange methodClass) notNil]) ifTrue: [(changeList size >= (listIndex + 1)) ifTrue: [ TextDiffBuilder buildDisplayPatchFrom: (changeList at: listIndex + 1) text to: aChange text inClass: aClass prettyDiffs: self showingPrettyDiffs] ifFalse: [(changeList at: listIndex) text]] ifFalse: [(changeList at: listIndex) text]! ----- Method: MethodHistoryChangeList>>ignoreNonExisting (in category 'all') ----- ignoreNonExisting ^ IgnoreNonExsiting ifNil: [^ true]. ! ----- Method: MethodHistoryChangeList>>initializeForDatabase (in category 'all') ----- initializeForDatabase listSelections := Array new: list size withAll: false. ! ----- Method: MethodHistoryChangeList>>scanCategory (in category 'all') ----- scanCategory "Scan anything that involves more than one chunk; method name is historical only" | item tokens stamp isComment anIndex | item _ file nextChunk. isComment _ (item includesSubString: 'commentStamp:'). (isComment or: [item includesSubString: 'methodsFor:']) ifFalse: [^ self]. tokens _ Scanner new scanTokens: item. tokens size >= 3 ifTrue: [stamp _ ''. anIndex _ tokens indexOf: #stamp: ifAbsent: [nil]. anIndex ifNotNil: [stamp _ tokens at: (anIndex + 1)]. tokens second == #methodsFor: ifTrue: [^ self scanCategory: tokens third class: tokens first meta: false stamp: stamp]. tokens third == #methodsFor: ifTrue: [^ self scanCategory: tokens fourth class: tokens first meta: true stamp: stamp]]. tokens second == #commentStamp: ifTrue: [stamp _ tokens third. "self addItem: (ChangeRecord new file: file position: file position type: #classComment class: tokens first category: nil meta: false stamp: stamp) text: 'class comment for ' , tokens first, (stamp isEmpty ifTrue: [''] ifFalse: ['; ' , stamp])." file nextChunk. ^ file skipStyleChunk]! ----- Method: MethodHistoryChangeList>>scanCategory:class:meta:stamp: (in category 'all') ----- scanCategory: category class: class meta: meta stamp: stamp | method sel | self ignoreNonExisting ifTrue: [Smalltalk at: class ifAbsent: [^ self]]. [ method _ file nextChunk. file skipStyleChunk. method size > 0] "done when double terminators" whileTrue: [sel _ Parser new parseSelector: method. self addItem: (MethodHistoryChangeRecord new class: (class, (meta ifTrue: [' class'] ifFalse: [''])) asSymbol selector: sel stamp: stamp text: method asString sourceFile: file localName) text: 'method: ' , class , (meta ifTrue: [' class '] ifFalse: [' ']) , sel , (stamp isEmpty ifTrue: [''] ifFalse: ['; ' , stamp])]! ----- Method: MethodHistoryChangeList>>scanFile:from:to: (in category 'all') ----- scanFile: aFile from: startPosition to: stopPosition | itemPosition item prevChar | file _ aFile. changeList _ OrderedCollection new. list _ OrderedCollection new. listIndex _ 0. file position: startPosition. 'Scanning ', aFile localName, '...' displayProgressAt: Sensor cursorPoint from: startPosition to: stopPosition during: [:bar | [file position < stopPosition] whileTrue: [bar value: file position. [file atEnd not and: [file peek isSeparator]] whileTrue: [prevChar _ file next]. (file peekFor: $!!) ifTrue: [(prevChar = Character cr or: [prevChar = Character lf]) ifTrue: [self scanCategory]] ifFalse: [itemPosition _ file position. item _ file nextChunk. file skipStyleChunk. ]]]. listSelections _ Array new: list size withAll: false! Object subclass: #Authorship instanceVariableNames: 'missingDictionary authorDictionary notAccounted database historicalMissingDictionary historicalAuthorDictionary historicalNotAccounted' classVariableNames: 'AllMethods' poolDictionaries: '' 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: 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: 'Agreement Missing in Etoys 3.0' explanationFileName: 'missingExplanation.txt'. f close. m writeDict: missing toFileName: 'missing.txt'.! ----- Method: Authorship class>>example1 (in category 'as yet unclassified') ----- example1 | authors missing returned notAccounted | Authorship initialize. authors := Authorship new. missing := authors missingAuthorsWithMethods. returned := authors returnedAuthorsWithMethods. notAccounted := authors notAccounted. ^ authors. ! ----- Method: Authorship class>>example2 (in category 'as yet unclassified') ----- example2 | n i file | n := Metaclass allInstances size. i _ 0. file := FileStream newFileNamed: 'etoysv4.list'. 'generating the list of existing methods...' displayProgressAt: Sensor cursorPoint from: 1 to: n during: [:bar | Metaclass allInstancesDo: [:mc | bar value: (i := i + 1). mc theNonMetaClass selectors do: [:eachSelector | (#(DoIt DoItIn:) includes: eachSelector) ifFalse: [ file nextPutAll: mc theNonMetaClass name; space; nextPutAll: eachSelector; cr]]. mc selectors do: [:eachSelector | (#(DoIt DoItIn:) includes: eachSelector) ifFalse: [ file nextPutAll: mc name; space; nextPutAll: eachSelector; cr]]. ]]! ----- Method: Authorship class>>initialize (in category 'as yet unclassified') ----- initialize | n i eachClass | super initialize. n := Metaclass allInstances size. AllMethods := OrderedCollection new. i _ 0. 'Collecting method information...' displayProgressAt: Sensor cursorPoint from: 1 to: n during: [:bar | Metaclass allInstancesDo: [:mc | bar value: (i := i + 1). (eachClass := mc) selectors do: [:eachSelector | (#(DoIt DoItIn:) includes: eachSelector) ifFalse: [ AllMethods add: (MethodHistoryChangeRecord new class: eachClass name selector: eachSelector stamp: (eachClass compiledMethodAt: eachSelector) timeStamp text: '' sourceFile: '(current)')]]. (eachClass := mc theNonMetaClass) selectors do: [:eachSelector | (#(DoIt DoItIn:) includes: eachSelector) ifFalse: [ AllMethods add: (MethodHistoryChangeRecord new class: eachClass name selector: eachSelector stamp: (eachClass compiledMethodAt: eachSelector) timeStamp text: '' sourceFile: '(current)')]]]]. ! ----- Method: Authorship>>addToHistoricalListIfAuthorHasReturnedSignatory: (in category 'private') ----- addToHistoricalListIfAuthorHasReturnedSignatory: each (historicalAuthorDictionary at: each author ifAbsent: [^nil]) addLast: each! ----- Method: Authorship>>addToHistoricalListIfAuthorIsMissingSignatory: (in category 'private') ----- addToHistoricalListIfAuthorIsMissingSignatory: each (historicalMissingDictionary at: each author ifAbsent: [^nil]) addLast: each! ----- Method: Authorship>>addToListIfAuthorHasReturnedSignatory: (in category 'private') ----- addToListIfAuthorHasReturnedSignatory: each (authorDictionary at: each author ifAbsent: [^nil]) addLast: each! ----- Method: Authorship>>addToListIfAuthorIsMissingSignatory: (in category 'private') ----- addToListIfAuthorIsMissingSignatory: each "author dictionary's value at key k is an OrderedCollection containing the methods written by k" (missingDictionary at: each author ifAbsent: [^nil]) addLast: each! ----- Method: Authorship>>agreedContributors (in category 'data') ----- agreedContributors "This is a list of all Squeak contributors whom Yoshiki Ohshima contacted and get the favorable words, but have not returned a signed distribution agreement yet. Nov 25th 2008 --- initials name" ^ #( 'ac' 'Andrew Catton' 'pad' 'Pierre-Andre Dreyfuss' )! ----- Method: Authorship>>database: (in category 'initialize-release') ----- database: db | count eachClass ret1 ret2 | database _ db. self missingSignatories pairsDo: [:initials :name | historicalMissingDictionary at: initials put: (MethodCollection titled: name)]. self returnedSignatories, self newContributors, self agreedContributors pairsDo: [:initials :name | historicalAuthorDictionary at: initials put: (MethodCollection titled: name)]. count _ 0. 'collecting information (historical)...' displayProgressAt: Sensor cursorPoint from: 1 to: database size // 100 during: [:bar | database keys do: [:k | count := count + 1. count \\ 100 = 0 ifTrue: [bar value: count//100]. eachClass := database at: k. eachClass do: [:recs | recs do: [:rec | ret1 := self addToHistoricalListIfAuthorIsMissingSignatory: rec. ret2 := self addToHistoricalListIfAuthorHasReturnedSignatory: rec. (ret1 == nil and: [ret2 == nil and: [rec author isEmpty not]]) ifTrue: [historicalNotAccounted add: rec]]]]].! ----- Method: Authorship>>historicalMissingAuthorsWithMethods (in category 'filtering') ----- historicalMissingAuthorsWithMethods ^ historicalMissingDictionary select: [ :eachAssoc | eachAssoc value notEmpty ]! ----- Method: Authorship>>historicalNotAccounted (in category 'filtering') ----- historicalNotAccounted ^ historicalNotAccounted ! ----- Method: Authorship>>initialize (in category 'initialize-release') ----- initialize | ret1 ret2 each | missingDictionary := Dictionary new. authorDictionary := Dictionary new. notAccounted := OrderedCollection new. historicalMissingDictionary := Dictionary new. historicalAuthorDictionary := Dictionary new. historicalNotAccounted := OrderedCollection new. self missingSignatories pairsDo: [:initials :name | missingDictionary at: initials put: (MethodCollection titled: name)]. self returnedSignatories, self newContributors, self agreedContributors pairsDo: [:initials :name | authorDictionary at: initials put: (MethodCollection titled: name)]. 'collecting information...' displayProgressAt: Sensor cursorPoint from: 1 to: AllMethods size // 100 during: [:bar | 1 to: AllMethods size do: [:i | i \\ 100 = 0 ifTrue: [bar value: i//100]. each := AllMethods at: i. "each methodSymbol = #testTwoArgumentEvent ifTrue: [self halt]." ret1 := self addToListIfAuthorIsMissingSignatory: each. ret2 := self addToListIfAuthorHasReturnedSignatory: each. (ret1 == nil and: [ret2 == nil and: [each author isEmpty not]]) ifTrue: [notAccounted add: each]]]. ! ----- Method: Authorship>>missingAuthorsWithMethods (in category 'filtering') ----- missingAuthorsWithMethods ^ missingDictionary select: [ :eachAssoc | eachAssoc value notEmpty ]! ----- Method: Authorship>>missingSignatories (in category 'data') ----- missingSignatories "This is a list of all Squeak contributors who have not returned a signed distribution agreement. Nov 25th 2008 --- initials name" ^ #( 'abc' '?' 'afr' 'Alejandro Reimondo' 'ag' 'Andreas Gerdes' 'AK' 'Anoulak Kictiraz' 'ak' 'Anoulak Kictiraz' 'AM' 'Aibek Musaev' 'am' 'Aibek Musaev' 'ASF' 'Adam Franco' 'bmk' 'Brian Keefer' 'cE' 'Christian Eitner' 'cm' 'Cesare Marilungo?' 'dik' 'Denis Kudriashov' 'djm' 'Douglas McPherson' 'dls' 'Darryl Smith' 'dns' 'David N. Smith' 'drs' 'Dean Swan' 'dwh' 'Dwight Hughes' 'edt' '?' 'eldeh' 'Lars Dornheim' 'EP' '?' 'EW' 'Etan Wexler' 'ff' 'Felix Franz' 'gg' 'Giovanni Giorgi' 'GL' 'Greg Lewin?' 'GVG' 'Greg Gritton' 'gwc' 'Geoff Corey' 'H.Hachisuka' 'Hitoshi Hachisuka' 'hg' 'Henrik Gedenryd' 'hh' 'Helge Horch' 'HJH' 'Hannes Hirzel' 'IT' 'Ian Trudel' 'jbc' 'Jay Casler' 'JDD' 'John David Duncan' 'jdl' 'Jose Laiolo' 'jet' 'John Tobler' 'jj' '?' 'JLM' 'Jason McVay' 'jlm' 'Jason McVay' 'JO' 'Jonas Oehrn' 'jwh' 'Jim Heyne' 'JZH' 'John (Zhijiang) Han' 'HK' 'Hunter Kelly' 'Kafka' 'Pablo Malavolta' 'los' 'Lothar Schenk' 'mkd' 'Michael Donegan' 'MM' 'Maarten Maartensz' 'mm' '?' 'mmo' 'Marica Odagaki' 'msk' 'Michael Klein' 'mtf' 'Matthew Fulmer' 'mx' 'Maximialiano Taborda' 'NDCC' '?' 'mn' 'Mats Nygren' 'nm' 'Nicolas Melin' 'PH' 'Phil Hudson' 'pmm' 'Philippe Marschall?' 'RAH' 'Richard A. Harmon' 'RB' 'Roland Bertuli' 'RCS' 'Russell Swan' 'rej' 'Ralph Johnson' 'RJ' 'Ranjan Bagchi' 'rjf' 'Ricardo J. Ferreira' 'rlf' 'Ricardo J. Ferreira' 'rmf' 'Robert Fure' 'RMF' 'Robert Fure' 'rop' 'Russell Penney' 'rp' '?' 'rpj' 'Robert P. Jarvis' 'RvL' 'Reinier van Loon' 'sac' 'Scott Crosby' 'SIM' 'Stewart MacLean' 'sjc' 'Sean Charles' 'sk' 'Stefan Kersten' 'slr' 'Steve Rees' 'squeak' 'Henrik Gedenryd' 'TBP' 'Brian Payne' 'Tbp' 'Brian Payne' 'TEM' 'Tom Morgan' 'tm' '?' 'to' '?' 'tp' '?' 'umur' 'Umur Ozkul' 'UO' 'Umur Ozkul' 'wb' 'Wayne Braun' 'wbk' 'Bryce Kampjes' 'wdc' 'Bill Cattey' 'YE' '?' 'zL' 'Lantz Rowland' 'mvl' 'Martin v. Lowis' 'pf' 'Petr Fischer' 'JPF' '?' 'ktt' '?' 'ndCollectionsTests-Unordered' '?' 'kb' 'Ken Bryant' 'ge' '?' 'ee' 'Evelyn Eastmond' 'EE' 'Evelyn Eastmond' 'tis' 'Tamara Stern' 'TIS' 'Tamara Stern' 'DaveF' 'Dave Feinburg' 'NB' 'Nick Bushak' 'DS' '?' 'bss' 'Brian Silverman' 'jens' 'Jens Monig' 'dh' 'Darris Hupp' 'avl' '?' 'JTN' '?' 'eo' '?' 'sc' '?' 'DSF' 'Dave Feinburg' 'LY' '?' 'qvl' '?' 'as' '?' 'RG' '?' 'AC' 'Andy Chung' 'swr' '?' 'e' '?' )! ----- Method: Authorship>>newContributors (in category 'data') ----- 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' )! ----- Method: Authorship>>notAccounted (in category 'filtering') ----- notAccounted ^ notAccounted ! ----- Method: Authorship>>overlap (in category 'filtering') ----- overlap | returned missing | returned := OrderedCollection new: 100. (self returnedSignatories, self newContributors, self agreedContributors) pairsDo: [:initials :name | returned add: initials. ]. missing := OrderedCollection new: 100. self missingSignatories pairsDo: [:initials :name | missing add: initials. ]. ^ missing asSet intersection: returned asSet! ----- Method: Authorship>>returnedAuthorsWithMethods (in category 'filtering') ----- returnedAuthorsWithMethods ^ authorDictionary select: [ :eachAssoc | eachAssoc value notEmpty ]! ----- Method: Authorship>>returnedSignatories (in category 'data') ----- returnedSignatories "This is a list of all Squeak contributors who have returned a signed distribution agreement. Nov 25th 2008 --- initials name" ^ #( 'AB' 'Alexandre Bergel' 'ab' 'Avi Bryant or Alexandre Bergel' 'ACG' 'Andrew C. Greenberg' 'acg' 'Andrew C. Greenberg' 'ack' 'Alan Kay' 'ads' 'Adam Spitz' 'AFi' 'Alain Fischer' 'ajh' 'Anthony Hannan' 'aka' 'Mark Guzdial' 'al' 'Adrian Lienhard or Alexander Lazarevic' 'aoy' 'Andres Otaduy' 'apb' 'Andrew P. Black' 'apl' 'Alain Plantec' 'ar' 'Andreas Raab' '???' 'Andreas Raab' 'asm' 'Alejandro Magistrello' 'avi' 'Avi Bryant' 'ba' 'Bob Arning' 'bf' 'Bert Freudenberg' 'BEO' 'Bruce O''Neel ' 'beo' 'Bruce O''Neel ' 'BG' 'Boris Gaertner' 'bg' 'Boris Gaertner' 'bh' 'Bob Hartwig' 'BJP' 'Bijan Parsia' 'BJP 9/9/1998' 'Bijan Parsia' 'bk' 'Bolot Kerimbaev' 'bkv' 'Brent Vukmer' 'bob' 'Bob Arning' 'bolot' 'Bolot Kerimbaev' 'bootstrap' 'Pavel Krivanek' 'BP' 'Brent Pinkney' 'bp' 'Brent Pinkney or Bernhard Pieber' 'brp' 'Brent Pinkney' 'brp`' 'Brent Pinkney' 'btr' 'Brian Rice' 'bvs' 'Ben Schroeder' 'cbc' 'Chris Cunningham' 'ccn' 'Chris Norton' 'ccn+ceg' 'Chris Norton and Carl Gundel' 'ceg' 'Carl Gundel' 'CdG' 'Cees de Groot' 'cds' 'C. David Shaffer' 'chronograph' 'Tetsuya Hayashi' 'cmm' 'Chris Muller' 'crl' 'Craig Latta' 'cwp' 'Colin Putney' 'daf' 'Dave Faught' 'dao' 'danil osipchuk' 'das' 'David A Smith' 'DAS' 'David A Smith' 'dc' 'Damien Cassou' 'dd' 'Dominique Dutoit' 'de' 'Scott Wallace' 'dew' 'Doug Way' 'DF' 'Diego Fernandez' 'dgd' 'Diego Gomez Deck' 'dhhi' 'Dan Ingalls' 'di' 'Dan Ingalls' 'di ' 'Dan Ingalls' '6/5/97' 'Dan Ingalls' '6/6/97' 'Dan Ingalls' '6/7/97' 'Dan Ingalls' '6/8/97' 'Dan Ingalls' '6/9/97' 'Dan Ingalls' '6/10/97' 'Dan Ingalls' '6/11/97' 'Dan Ingalls' '6/13/97' 'Dan Ingalls' '6/18/97' 'Dan Ingalls' 'djp' 'David J. Pennell' 'DM' 'Duane Maxwell' 'dm' 'Duane Maxwell/EntryPoint' 'DSM' 'Duane Maxwell' 'DSM 10/15/1999' 'Duane Maxwell' 'drm' 'Delbert Murphy' 'dtl' 'Dave Lewis' 'dv' 'Daniel Vainsencher' 'dvf' 'Daniel Vainsencher' 'dvf 6/10/2000' 'Daniel Vainsencher' 'eat' 'Eric Arseneau Tremblay' 'edc' 'Edgar DeCleene or Marcus Denker' 'efc' 'Eddie Cottongim' 'efo' 'Emilio Oca' 'em' 'Ernest Micklei?' 'emm' 'Ernest Micklei' 'es' 'Enrico Spinielli' 'fbs' 'Frank Shearar' 'FBS' 'Frank Shearar' 'fbs' 'Frank Shearar' 'fc' 'Frank Caggiano' 'fcs' 'Frank Sergeant' 'fm' 'Florin Mateoc' 'gh' 'Goran Krampe (nee Hultgren)' 'gk' 'Goran Krampe (nee Hultgren)' 'gm' 'German Morales' 'go' 'Georg Gollmann' 'gsa' 'German Arduino' 'HEG' 'Henrik Ekenberg' 'HilaireFernandes' 'Hilaire Fernandes' 'hk' 'Herbert Konig' 'hmm' 'Hans-Martin Mosner' 'hpt' 'Hernan Tylim' 'huma' 'Lyndon Tremblay' 'ich.' 'Yuji Ichikawa' 'ikp' 'Ian Piumarta' 'jaf' 'Jan Fietz' 'jam' 'Javier Musa' 'jb' 'Jim Benson' 'jcg' 'Joshua Gargus' 'jdf' 'David Farber' 'jdr' 'Javier Diaz-Reinoso' 'je' 'Joern Eyrich' 'je77' 'Jochen Rick' 'JF' 'Julian Fitzell' 'jf' 'Julian Fitzell' 'jhm' 'John Maloney' 'jm' 'John Maloney' 'jm ' 'John Maloney' 'jla' 'Jerry Archibald' 'jlb' 'Jim Benson' 'jmb' 'Hans Baveco' 'JMM' 'John McIntosh' 'JMV' 'Juan Manuel Vuletich' 'jmv' 'Juan Manuel Vuletich' 'jon' 'Jon Hylands' 'JP' 'Joseph Pelrine' 'jp' 'Joseph Pelrine' 'jrm' 'John-Reed Maffeo' 'jrp' 'John Pierce' 'jsp' 'Jeff Pierce' 'JW' 'Jesse Welton' 'jws' 'John Sarkela' 'JWS' 'John Sarkela' 'ka' 'Kazuhiro Abe' 'kfr' 'Karl Ramberg' 'KLC' 'Ken Causey' 'klc' 'Ken Causey' 'KR' 'korakurider' 'KTT' 'Kurt Thams' 'kwl' 'Klaus D. Witzel' 'ky' 'Koji Yokokawa' 'laza' 'Alexander Lazarevic' 'LB' 'Leo Burd' 'LC' 'Leandro Caniglia' 'lc' 'Leandro Caniglia' 'LEG' 'Gerald Leeb' 'len' 'Luciano Esteban Notarfrancesco' 'lr' 'Lukas Renggli' 'lrs' 'Lorenzo Schiavina' 'ls' 'Lex Spoon' 'LS' 'Lex Spoon' 'm3r' 'Maurice Rabb' 'MAL' 'Michael Latta' 'mas' 'Mark Schwenk' 'm' 'Marcus Denker' 'MD' 'Marcus Denker' 'md' 'Marcus Denker' 'md\' 'Marcus Denker' 'mdr' 'Mike Rutenberg' 'mga' 'Markus Galli' 'miki' 'Mikael Kindborg' 'mikki' 'Mikael Kindborg' 'mir' 'Michael Rueger' 'mist' 'Michal Starke' 'MJG' 'Mark Guzdial' 'mjg' 'Mark Guzdial' 'mjg 8/31/1998' 'Mark Guzdial' 'mjg 9/9/1998' 'Mark Guzdial' 'mjg 9/23/1998' 'Mark Guzdial' 'mjr' 'Mike Roberts' 'mjt' 'Mike Thomas' 'mk' 'Matej Kosik' 'mlr' 'Michael Rueger' 'MPW' 'Marcel Weiher' 'mpw' 'Marcel Weiher' 'mrm' 'Martin McClure' 'MPH' 'Michael Hewner' 'MU' 'Masashi Umezawa' 'mu' 'Masashi Umezawa' 'mw' 'Martin Wirblat' 'nb' 'Naala Brewer' 'nice' 'Nicolas Cellier' 'nk' 'Ned Konz' 'nop' 'Jay Carlson' 'Noury' 'Noury Bouraqadi' 'NS' 'Nathanael Schaerli' 'panda' 'Michael Rueger' 'PHK' 'Peter Keeler' 'pk' 'Pavel Krivanek' 'pm' 'Patrick Mauritz' 'pnm' 'Paul McDonough' 'pnm 8/23/2000' 'Paul McDonough' 'RAA' 'Bob Arning' 'RAA 3/28/2000' 'Bob Arning' 'r++' 'Gerardo Richarte' 'raa' 'Bob Arning' 'raok' 'Richard A. O''Keefe' 'rbb' 'Brian Brown' 'rca' 'Russell Allen' 'reThink' 'Paul McDonough' 'rew' 'Roger Whitney' 'rhi' 'Robert Hirschfeld' 'rh' 'Robert Hirschfeld' 'Rik' 'Rik Fischer SmOOdy' 'rk' 'Ram Krishnan' 'rkris' 'Ram Krishnan' 'RJT' 'Ron Teitelbaum' 'RM' 'Rick McGeer' 'rr' 'Romain Robbes' 'rw' 'Roel Wuyts' 'rw' 'Robert Withers' 'rww' 'Robert Withers' 'sbw' 'Stephan B. Wessels' 'SD' 'Stephane Ducasse' 'sd' 'Stephane Ducasse' 'stephaneducassse' 'Stephane Ducasse' 'sge' 'Steve Elkins' 'shrink' 'Pavel Krivanek' 'slg' 'Steve Gilbert' 'sm' 'Simon Michael' 'sma' 'Stefan Matthias Aust' 'sn' 'Suslov Nikolay' 'spfa' 'Stephane Rollandin' 'sps' 'Steven Swerling' 'sqr' 'Andres Valloud' 'SqR' 'Andres Valloud' 'SqR!!!!' 'Andres Valloud' 'SqR!!!!!!!!' 'Andres Valloud' 'sr' 'Stephan Rudlof' 'ssa' 'Sam S. Adams' 'Sames' 'Samuel S. Shuster' 'SSS' 'Samuel S. Shuster' 'st' 'Samuel Tardieu' 'stephaneducasse' 'Stephane Ducasse' 'stp' 'Stephen Travis Pope' 'sumim' 'Masato Sumi' 'svp' 'Stephen Vincent Pair' 'sw' 'Scott Wallace' 'sws' 'Scott Wallace' 'T2' 'Toshiyuki Takeda' 'tak' 'Takashi Yamamiya' 'tao' 'Tim Olson' 'tb' 'Todd Blanchard or Torsten Bergman' 'TBn' 'Torsten Bergmann' 'tbn' 'Torsten Bergmann' 'tetha' 'Tetsuya Hayashi' 'tfei' 'The Fourth Estate, Inc.' 'th' 'Torge Husfeldt' 'ti' 'Tobias Isenberg' 'TJ' 'TJ Leone' 'tk' 'Ted Kaehler' 'tk 9/13/97' 'Ted Kaehler' 'tk 12/6/2004' 'Ted Kaehler' 'tk 11/29/2004' 'Ted Kaehler' 'tk 11/26/2004' 'Ted Kaehler' 'tk' 'Thomas Kowark' 'tlk' 'Tom Koenig' 'TN' 'korakurider' 'tonyg' 'Tony Garnock-Jones' 'TPR' 'Tim Rowledge' 'tpr' 'Tim Rowledge' 'TAG' 'Travis Griggs' 'TRee' 'Trygve Reenskaug' 'ts' 'Shortsleeved' 'Tsutomu' 'Tsutomu Hiroshima' 'tween' 'Andy Tween' 'vb' 'Vassili Bykov' 'vbdew' 'Vassili Bykov and Doug Way' 'vj' 'Vladimir Janousek' 'wiz' 'Jerome Peace' 'wod' 'Bill Dargel' 'ykoubo' 'Koji Yokokawa' 'yo' 'Yoshiki Ohshima' 'ward' 'Ward Cunningham' 'zz' 'Serge Stinckwich' )! Object subclass: #MethodHistoryDatabase instanceVariableNames: 'dictionary' classVariableNames: 'LiveLists Databases' poolDictionaries: '' category: 'MethodAuthorship'! ----- Method: MethodHistoryDatabase class>>at:put: (in category 'all') ----- at: aVersionName put: aDatabase ^ self databases at: aVersionName put: aDatabase. ! ----- Method: MethodHistoryDatabase class>>databases (in category 'all') ----- databases ^ Databases ifNil: [Databases := Dictionary new]. ! ----- Method: MethodHistoryDatabase class>>liveListAt:putFromFileName: (in category 'all') ----- liveListAt: dataName putFromFileName: fileName | file strs meta cls meth dic | dic := IdentityDictionary new. file := FileStream readOnlyFileNamed: fileName. file wantsLineEndConversion: true. file contentsOfEntireFile linesDo: [:line | strs := line substrings. meta := strs size = 3. cls := strs first, (meta ifTrue: [' class'] ifFalse: ['']). meth := strs last. (dic at: cls asSymbol ifAbsentPut: [IdentitySet new]) add: meth asSymbol. ]. file close. self liveLists at: dataName put: dic. ! ----- Method: MethodHistoryDatabase class>>liveLists (in category 'all') ----- liveLists ^ LiveLists ifNil: [LiveLists := Dictionary new]. ! ----- Method: MethodHistoryDatabase class>>named: (in category 'all') ----- named: aVersionName ^ self databases at: aVersionName ifAbsent: [nil]. ! ----- Method: MethodHistoryDatabase class>>remove: (in category 'all') ----- remove: aVersionName ^ self databases removeKey: aVersionName ifAbsent: [nil].! ----- Method: MethodHistoryDatabase>>at: (in category 'all') ----- at: className ^ dictionary at: className ifAbsent: [^ Dictionary new]. ! ----- Method: MethodHistoryDatabase>>at:at: (in category 'all') ----- at: className at: sel dictionary at: className ifPresent: [:dict | dict at: sel ifPresent: [:col | ^ col]]. ^ Array new. ! ----- Method: MethodHistoryDatabase>>initialize (in category 'all') ----- initialize super initialize. dictionary := IdentityDictionary new. ! ----- Method: MethodHistoryDatabase>>keys (in category 'all') ----- keys ^ dictionary keys ! ----- Method: MethodHistoryDatabase>>processChangesFile:encoding: (in category 'all') ----- processChangesFile: aFilename encoding: encodingString | aStream c | aStream := FileStream readOnlyFileNamed: aFilename. aStream converter: (TextConverter newForEncoding: encodingString). c := MethodHistoryChangeList new. c scanFile: aStream from: 0 to: aStream size. c removeDoIts. aStream close. ^ c. ! ----- Method: MethodHistoryDatabase>>processChangesList: (in category 'all') ----- processChangesList: aCollection " 'Processing...' displayProgressAt: Display center from: 1 to: aCollection changeList size during: [:bar | aCollection changeList withIndexDo: [:record :ind | bar value: ind. self processRecord: record. ]. ]." aCollection changeList do: [:record | self processRecord: record] ! ----- Method: MethodHistoryDatabase>>processLiveListNamed: (in category 'all') ----- processLiveListNamed: aFileName | file | file := FileStream readOnlyFileNamed: aFileName. file wantsLineEndConversion: true. file linesDo: [:line | self processLiveMethod: line ]. file close. ! ----- Method: MethodHistoryDatabase>>processLiveMethod: (in category 'all') ----- processLiveMethod: aString | strs meta cls meth | strs := aString substrings. meta := strs size = 3. cls := strs first, (meta ifTrue: [' class'] ifFalse: ['']). meth := strs last. (self live at: cls asSymbol ifAbsentPut: [IdentitySet new]) add: meth asSymbol. ! ----- Method: MethodHistoryDatabase>>processRecord: (in category 'all') ----- processRecord: rec | col clsName sel cls | cls := rec methodClass. cls ifNil: [^ self]. clsName := cls asSymbol. sel := rec methodSelector. sel ifNil: [^ self]. dictionary at: clsName ifAbsent: [ dictionary at: clsName put: IdentityDictionary new]. (dictionary at: clsName) at: sel ifAbsent: [(dictionary at: clsName) at: sel put: OrderedCollection new]. col := (dictionary at: clsName) at: sel. col ifEmpty: [col addFirst: rec] ifNotEmpty: [(col first equals: rec) ifFalse: [col addFirst: rec]]. "col detect: [:old | old equals: rec] ifNone: [ col addFirst: rec ]." ! ----- Method: MethodHistoryDatabase>>readFile:encodingName: (in category 'all') ----- readFile: aFilename encodingName: encodingName | c | "Transcript show: 'reading... ', aFilename; cr." c := self processChangesFile: aFilename encoding: encodingName. self processChangesList: c. ! ----- Method: MethodHistoryDatabase>>readFilesIn:updateFile:versionName: (in category 'all') ----- readFilesIn: dir updateFile: updateFileName versionName: versionName | updates more line file encoding | updates := dir readOnlyFileNamed: updateFileName. more := true. [more] whileTrue: [ updates atEnd ifTrue: [updates close. ^ self]. line := updates upTo: Character cr. line ifNil: [updates close. ^ self]. line size > 0 ifTrue: [ line first = $# ifTrue: [ (line copyFrom: 2 to: line size) = versionName ifTrue: [more := false]]. ]. ]. more := true. [more] whileTrue: [ updates atEnd ifTrue: [updates close. ^ self]. line := updates upTo: Character cr. line ifNil: [^ self]. (line first = $#) ifTrue: [^ self]. file := dir readOnlyFileNamed: line. file binary. encoding := ((file next: 3) = (ByteArray with: 16rEF with: 16rBB with: 16rBF)) ifTrue: ['utf-8'] ifFalse: ['mac-roman']. self readFile: file fullName encodingName: encoding. ]. ! ----- Method: MethodHistoryDatabase>>size (in category 'all') ----- size ^ dictionary size. ! ----- Method: MethodHistoryDatabase>>sourceCodeAt:at: (in category 'all') ----- sourceCodeAt: className at: sel dictionary at: className ifPresent: [:dict | dict at: sel ifPresent: [:col | ^ col first text]]. ^ '' ! ----- Method: MethodHistoryDatabase>>writeDict:toFileName: (in category 'all') ----- writeDict: aDict toFileName: aFileName | f | f := FileStream newFileNamed: aFileName. aDict keys asSortedCollection do: [:k | f nextPutAll: (aDict at: k) printString; cr. ]. f close. ! ----- Method: MethodHistoryDatabase>>writeDictWithVersion:toHTMLFileNameOn:title: (in category 'all') ----- writeDictWithVersion: aDict toHTMLFileNameOn: aStream title: aString self writeDictWithVersion: aDict toHTMLFileNameOn: aStream title: aString explanationFileName: nil. ! ----- Method: MethodHistoryDatabase>>writeDictWithVersion:toHTMLFileNameOn:title:explanationFileName: (in category 'all') ----- writeDictWithVersion: aDict toHTMLFileNameOn: aStream title: aString explanationFileName: explanation | entries current prev history firstPart secondPart diffString oldStamp newStamp | firstPart _ WriteStream on: (String new: 10). secondPart _ WriteStream on: (String new: 10). aStream nextPutAll: '<html><head>'. aStream nextPutAll: '<title>'. aStream nextPutAll: aString. aStream nextPutAll: '</title></head><body>'. aStream cr. aStream nextPutAll: '<H2>'. aStream nextPutAll: aString. aStream nextPutAll: '</H2>'. aStream cr. explanation ifNotNil: [ aStream nextPutAll: (FileStream readOnlyFileNamed: explanation) contentsOfEntireFile]. aDict keys asSortedCollection do: [:k | entries _ aDict at: k. entries do: [:m | history := self at: m methodClass asSymbol at: m methodSelector. current _ history size > 0 ifTrue: [history first text] ifFalse: ['']. prev _ history size > 1 ifTrue: [history second text] ifFalse: ['']. firstPart nextPutAll: '<A HREF="#'. firstPart nextPutAll: m methodClass asString, '-', m methodSelector asString. firstPart nextPutAll: '">'. firstPart nextPutAll: m methodClass, '>>', m methodSelector. firstPart nextPutAll: '</A><BR>'. firstPart nextPut: Character cr. secondPart nextPutAll: '<A NAME="'. secondPart nextPutAll: m methodClass asString, '-', m methodSelector asString. secondPart nextPutAll: '">'. secondPart nextPutAll: '<table border=1 vspace=5px width=90%>'. secondPart nextPutAll: '<tr><td>'. secondPart nextPutAll: m methodClass asString, '>>', m methodSelector asString. oldStamp := history size > 1 ifTrue: [history second stamp] ifFalse: ['']. oldStamp ifEmpty: [oldStamp := 'no stamp']. newStamp := history size > 0 ifTrue: [history first stamp] ifFalse: ['']. newStamp ifEmpty: [newStamp := 'no stamp']. secondPart nextPutAll: ': ('. secondPart nextPutAll: oldStamp. secondPart nextPutAll: ' -> '. secondPart nextPutAll: newStamp. secondPart nextPutAll: ')'. secondPart nextPutAll: '<tr><td><pre>'. secondPart nextPutAll: (prev ifEmpty: ['no previous history'] ifNotEmpty: [TextDiffBuilder buildHTMLPatchFrom: prev asHtmlNOBR to: prev asHtmlNOBR]). secondPart nextPutAll: '</pre></td></tr>'. secondPart nextPut: Character cr. secondPart nextPutAll: '<tr><td><pre>'. secondPart nextPutAll: (current ifEmpty: ['not found'] ifNotEmpty: [TextDiffBuilder buildHTMLPatchFrom: current asHtmlNOBR to: current asHtmlNOBR]). secondPart nextPutAll: '</pre></td></tr>'. (prev size > 0 and: [current size > 0]) ifTrue: [ diffString := TextDiffBuilder buildHTMLPatchFrom: prev asHtmlNOBR to: current asHtmlNOBR. secondPart nextPutAll: '<tr><td><pre>'. secondPart nextPutAll: diffString. secondPart nextPutAll: '</pre></td></tr>'. ]. secondPart nextPutAll: '</table>'. secondPart nextPut: Character cr. secondPart cr. ]. ]. aStream nextPutAll: firstPart contents. aStream cr. aStream nextPutAll: secondPart contents. aStream nextPutAll: '</body></html>'. ! ----- Method: String>>asHtmlNOBR (in category '*methodauthorship') ----- asHtmlNOBR "Do the basic character conversion for HTML. Leave all original return and tabs in place, so can conver back by simply removing bracked things. 4/4/96 tk" | temp | temp _ self copyReplaceAll: '&' with: '&'. HtmlEntities keysAndValuesDo: [:entity :char | char = $& ifFalse: [temp _ temp copyReplaceAll: char asString with: '&' , entity , ';']]. temp _ temp copyReplaceAll: ' ' with: '    '. ^ temp " 'A<&>B' asHtml "! VersionsBrowser subclass: #MethodHistoryVersionBrowser instanceVariableNames: 'database' classVariableNames: '' poolDictionaries: '' category: 'MethodAuthorship'! ----- Method: MethodHistoryVersionBrowser class>>browseVersionsOf:class:meta:category:selector:database: (in category 'as yet unclassified') ----- browseVersionsOf: method class: class meta: meta category: msgCategory selector: selector database: database ^ self new class: class meta: meta selector: selector database: database ! ----- Method: MethodHistoryVersionBrowser>>class:meta:selector:database: (in category 'all') ----- class: cls meta: isMeta selector: sel database: db | c | database := db. classOfMethod _ cls. selectorOfMethod _ sel. list _ database at: (classOfMethod name, (isMeta ifTrue: [' class'] ifFalse: [''])) asSymbol at: selectorOfMethod. c := MethodHistoryChangeList new. list do: [:l | c addItem: l text: (l stamp ifNotEmpty: [l stamp] ifEmpty: ['no stamp']), ' (', l fileName, ')']. c initializeForDatabase. MethodHistoryChangeList open: c name: 'Recent versions of ' , sel multiSelect: false. ! ----- Method: MethodHistoryVersionBrowser>>reformulateList (in category 'all') ----- reformulateList | col | col := database at: classOfMethod asSymbol at: selectorOfMethod. col ifEmpty: [^ self]. list _ col. listIndex _ 1. self changed: #listIndex. self contentsChanged ! ----- Method: TextDiffBuilder class>>buildHTMLPatchFrom:to: (in category '*methodauthorship') ----- buildHTMLPatchFrom: srcString to: dstString ^(self from: srcString to: dstString) buildHTMLDisplayPatch! ----- Method: TextDiffBuilder>>buildHTMLDisplayPatch (in category '*methodauthorship') ----- buildHTMLDisplayPatch ^String streamContents:[:stream| self printPatchHTMLSequence: self buildPatchSequence on: stream. ]! ----- Method: TextDiffBuilder>>printPatchHTMLSequence:on: (in category '*methodauthorship') ----- printPatchHTMLSequence: seq on: aStream | attrs | seq do: [:assoc | attrs _ self attributesOf: assoc key. attrs do: [:attribute | (attribute isMemberOf: TextColor) ifTrue: [ aStream nextPutAll: '<span style="color: '; nextPutAll: attribute color asHTMLColor; nextPutAll: '">' ]. ((attribute isMemberOf: TextEmphasis) and: [attribute emphasisCode = 16]) ifTrue: [ aStream nextPutAll: '<STRIKE>' ]. ]. aStream nextPutAll: assoc value; cr. attrs reverseDo: [:attribute | (attribute isMemberOf: TextColor) ifTrue: [ aStream nextPutAll: '</span>' ]. ((attribute isMemberOf: TextEmphasis) and: [attribute emphasisCode = 16]) ifTrue: [ aStream nextPutAll: '</STRIKE>' ]. ]. ].!

1 0

Monticello Public: Monticello.impl-mtf.616.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 07 Feb '09

07 Feb '09

A new version of Monticello.impl was added to project Monticello Public: http://www.squeaksource.com/mc/Monticello.impl-mtf.616.mcz ==================== Summary ==================== Name: Monticello.impl-mtf.616 Author: mtf Time: 7 February 2009, 12:29:08 pm UUID: e96f2f1c-c92e-4768-a950-b03d76aa59c7 Ancestors: Monticello.impl-kph.615 fixed two small issues with the cache repository: - it was showing up second in the list, rather than first. - loading stuff from it would trigger an error due to attempting to reorder it in the list =============== Diff against Monticello.impl-kph.615 =============== Item was changed: ----- Method: MCRepositoryGroup>>addRepository: (in category 'as yet unclassified') ----- addRepository: aRepository aRepository ifNil: [ ^ self ]. lastAdded := aRepository. + aRepository == MCCacheRepository default ifTrue: [ ^ self ]. + (repositories includes: aRepository) - ((repositories includes: aRepository) or: [aRepository == MCCacheRepository default]) ifFalse: [repositories add: aRepository. self class default addRepository: aRepository] ifTrue: [ repositories remove: aRepository. repositories add: aRepository. ]. self changed: #repositories! Item was changed: ----- Method: MCRepositoryGroup>>repositories (in category 'as yet unclassified') ----- repositories | r | r := repositories select: [ :ea | ea isValid ]. self useCache ifFalse: [ ^ r ]. r size > 0 + ifTrue: [ r addFirst: MCCacheRepository default ] - ifTrue: [ r add: MCCacheRepository default afterIndex: 1 ] ifFalse: [ r := Array with: MCCacheRepository default ]. ^ r !

1 0

Packages: Packages-Library-damiencassou.32.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 05 Feb '09

05 Feb '09

Damien Cassou uploaded a new version of Packages-Library to project Packages: http://www.squeaksource.com/Packages/Packages-Library-damiencassou.32.mcz ==================== Summary ==================== Name: Packages-Library-damiencassou.32 Author: damiencassou Time: 5 February 2009, 4:17:15 pm UUID: a6a5ffdc-3840-4557-8bab-197cf6151d7c Ancestors: Packages-Library-damiencassou.31 - Packages taskGenerateAllUniverses run. =============== Diff against Packages-Library-damiencassou.31 =============== Item was changed: ----- Method: PackagesDevU>>PierSecurity (in category 'Web Development') ----- PierSecurity self name: 'Pier-Security'. + self version: '1.1.119'. - self version: '1.1.117'. info category: 'Web Development'. info description: 'Pier Unix security plugin.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-Security-lr.119.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-Security-lr.117.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside' 'Pier-Tests'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserStandard (in category 'Code Browsing') ----- OmniBrowserStandard self name: 'OmniBrowser-Standard'. + self version: '0.389'. - self version: '0.388'. info category: 'Code Browsing'. info description: 'OB-Standard represents the classical system browser implemented with the OmniBrowser framework.'. info maintainer: 'Colin Putney'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Standard-dr.389.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Standard-dr.388.mcz'. self provides: #(). self dependsOn: #('OmniBrowser'). ! Item was changed: ----- Method: PackagesDevU>>PierTests (in category 'Development') ----- PierTests self name: 'Pier-Tests'. + self version: '1.1.116'. - self version: '1.1.113'. info category: 'Development'. info description: 'Pier SUnit tests.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-Tests-lr.116.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-Tests-lr.113.mcz'. self provides: #(). self dependsOn: #('Magritte-Tests' 'Pier-Model'). ! Item was changed: ----- Method: PackagesDevU>>PolymorphWidgets (in category 'User Interface') ----- PolymorphWidgets self name: 'Polymorph Widgets'. + self version: '1.3'. - self version: '1.2'. info category: 'User Interface'. info description: 'Modifies Morphic to provide for selectable theming of controls and provides a framework and extra Morphs for creating consistent user interfaces. Improves both look and feel. Fixes a few problems too (corner grips, window titlebar sizing wrt fonts...). Noteable changes since last release: + Changed browser button rows to use a theme row. + Balloon help now themed. + Cosmetic changes to DropListMorphs and ExpanderTitleMorphs. + ImageFillStyles support offset into form to allow clipping to part of form. + Fix for Morph>>layoutChanged to clear caches. + #taskbarLabel supported for windows and models. + Fix for y/n keys on proceed dialogs. + '. - Improved Watery2 theme. - Fix for loading over earlier version. - Fix for high CPU when using StandardSqueak theme.'. info maintainer: 'Gary Chambers'. info homepage: 'http://wiki.squeak.org/squeak/6005'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-Widgets-gvc.39.mcz'. - info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-Widgets-gvc.29.mcz'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>PierSeaside (in category 'Web Development') ----- PierSeaside self name: 'Pier-Seaside'. + self version: '1.1.331'. - self version: '1.1.324'. info category: 'Web Development'. info description: 'Pier bindings for Seaside.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-Seaside-lr.331.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-Seaside-lr.324.mcz'. self provides: #(). self dependsOn: #('Magritte-Seaside' 'Pier-Model' 'Scriptaculous' 'Seaside'). ! Item was changed: ----- Method: PackagesDevU>>PolymorphToolsDiff (in category 'User Interface') ----- PolymorphToolsDiff self name: 'Polymorph Tools Diff'. + self version: '1.3'. - self version: '1.2'. info category: 'User Interface'. info description: 'Provides side-by-side code comaprison with cross-links indicating changes between lines of text. Highlight "intra-line" changes also. Integrated with "compare with current version" of standard versions browser. Integrated with Monticello replacing changes and merge browsers.'. info maintainer: 'Gary Chambers'. info homepage: 'http://wiki.squeak.org/squeak/6005'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-Tools-Diff-gvc.11.mcz'. - info url: 'http://www.squeaksource.com/UIEnhancements/Polymorph-Tools-Diff-gvc.8.mcz'. self provides: #(). self dependsOn: #('Polymorph EventEnhancements' 'Polymorph Geometry' 'Polymorph Widgets'). ! Item was changed: ----- Method: PackagesDevU>>MagritteSeaside (in category 'Web Development') ----- MagritteSeaside self name: 'Magritte-Seaside'. + self version: '1.1.283'. - self version: '1.1.282'. info category: 'Web Development'. info description: 'Magritte bindings for Seaside.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.lukas-renggli.ch/smalltalk/magritte'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/magritte/Magritte-Seaside-pmm.283.mcz'. - info url: 'http://source.lukas-renggli.ch/magritte/Magritte-Seaside-lr.282.mcz'. self provides: #(). self dependsOn: #('Magritte-Model' 'Scriptaculous' 'Seaside'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserRefactory (in category 'Development') ----- OmniBrowserRefactory self name: 'OmniBrowser-Refactory'. + self version: '117'. - self version: '115'. info category: 'Development'. info description: 'Brings refactorings to OmniBrowser'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: ''. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Refactory-lr.117.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Refactory-lr.115.mcz'. self provides: #(). self dependsOn: #('OmniBrowser-Morphic' 'OmniBrowser-Standard' 'Refactoring Core'). ! Item was changed: ----- Method: PackagesDevU>>PierSqueakPersistency (in category 'Development') ----- PierSqueakPersistency self name: 'Pier-Squeak-Persistency'. + self version: '1.1.11'. - self version: '1.1.9'. info category: 'Development'. info description: 'Pier persistency mechanisms for Squeak.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-Squeak-Persistency-lr.11.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-Squeak-Persistency-lr.9.mcz'. self provides: #(). self dependsOn: #('Pier-Model' 'Pier-Tests'). ! Item was changed: ----- Method: PackagesDevU>>PierModel (in category 'Development') ----- PierModel self name: 'Pier-Model'. + self version: '1.1.263'. - self version: '1.1.257'. info category: 'Development'. info description: 'Pier is a powerful and extensible implementation of a meta-described content management and Wiki system, written with objects from top to bottom: (1) Object-Oriented Design: Pier features a fully object oriented and meta-described domain model. As an example, the content of the pages is parsed and stored as a tree of different entities representing text, links, tables, lists, etc. (2) Extensibility: Everything in Pier can be extended: page types, storage mechanism, actions, security mechanism, web-server, etc. Plug-ins can be shared within the community and loaded independently of each other into the system. (3) Open Source: Pier is released under the MIT license which grants unrestricted rights to copy, modify, and redistribute as long as the original copyright and license terms are retained. (4) Test Suites: Pier is heavily tested. There are more than 1200 unit tests included with the core of Pier. This makes it easy to change and verify the code and comes in extremely useful when porting Pier to other Smalltalk dialects or when writing extensions.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-Model-lr.263.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-Model-lr.257.mcz'. self provides: #(). self dependsOn: #('Magritte-Model'). ! Item was changed: ----- Method: PackagesDevU>>PierSetup (in category 'Web Development') ----- PierSetup self name: 'Pier-Setup'. + self version: '1.1.35'. - self version: '1.1.33'. info category: 'Web Development'. info description: 'Metapackage that loads a common collection of Pier plugins, and a helper class to instantiate the one-click experience.'. info maintainer: 'Tudor Girba <tudor.girba(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Setup-tg.35.mcz'. - info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Setup-damiencassou.33.mcz'. self provides: #(). self dependsOn: #('Pier-Blog' 'Pier-Design' 'Pier-Documents' 'Pier-EditorEnh' 'Pier-Google' 'Pier-Links' 'Pier-Randomizer' 'Pier-Security' 'Pier-Shout' 'Pier-Sitemap' 'Pier-TagCloud' 'Pier-Titles'). !

1 0

Packages: Packages-Library-damiencassou.31.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 04 Feb '09

04 Feb '09

Damien Cassou uploaded a new version of Packages-Library to project Packages: http://www.squeaksource.com/Packages/Packages-Library-damiencassou.31.mcz ==================== Summary ==================== Name: Packages-Library-damiencassou.31 Author: damiencassou Time: 4 February 2009, 4:59:27 pm UUID: 4dd3284c-c0f8-4a6e-ae67-21d145442d31 Ancestors: Packages-Library-kph.30 - Packages taskGenerateAllUniverses run. =============== Diff against Packages-Library-kph.30 =============== Item was changed: ----- Method: PackagesDevU>>OmniBrowserSUnitGUI (in category 'Development') ----- OmniBrowserSUnitGUI self name: 'OmniBrowser-SUnit-GUI'. + self version: '0.52'. - self version: '0.47'. info category: 'Development'. info description: 'OmniBrowser-based implementation of TestRunner. Expects SUnit to be already loaded'. info maintainer: 'Dale Henrichs'. info homepage: 'http://seaside.gemstone.com/ss/obsunit.html'. info squeakMapID: ''. + info url: 'http://seaside.gemstone.com/ss/obsunit/OB-SUnitGUI-dkh.52.mcz'. - info url: 'http://seaside.gemstone.com/ss/obsunit/OB-SUnitGUI-dkh.47.mcz'. self provides: #('OmniBrowser-SUnit-GUI'). self dependsOn: #('OmniBrowser' 'OmniBrowser-Morphic' 'OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesDevU>>PierSecurity (in category 'Web Development') ----- PierSecurity self name: 'Pier-Security'. + self version: '1.1.117'. - self version: '1.0.17.113'. info category: 'Web Development'. info description: 'Pier Unix security plugin.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-Security-lr.117.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-Security-lr.113.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside' 'Pier-Tests'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserStandard (in category 'Code Browsing') ----- OmniBrowserStandard self name: 'OmniBrowser-Standard'. + self version: '0.388'. - self version: '0.384'. info category: 'Code Browsing'. info description: 'OB-Standard represents the classical system browser implemented with the OmniBrowser framework.'. info maintainer: 'Colin Putney'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Standard-dr.388.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Standard-dr.384.mcz'. self provides: #(). self dependsOn: #('OmniBrowser'). ! Item was changed: ----- Method: PackagesDevU>>PierMath (in category 'Web Development') ----- PierMath self name: 'Pier-Math'. + self version: '1.1.6'. - self version: '1.0.17.6'. info category: 'Web Development'. info description: 'Pier LaTeX math mode plugin.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Math-lr.6.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowser (in category 'Code Browsing') ----- OmniBrowser self name: 'OmniBrowser'. + self version: '0.436'. - self version: '0.434'. info category: 'Code Browsing'. info description: 'OmniBrowser is a ground up rewrite of the classical system browsers provided in Smalltalk. It''s designed to be flexible and extensible, so as to encourage experimentation with new types of development tools, language extensions, and runtime environments. In fact it''s a framework to build browsers. Install OmniBrowser-Standard to get the new browser using this framework.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: '81451b19-7df8-4fc7-8652-b26cc55dd291'. + info url: 'http://source.wiresong.ca/ob/OmniBrowser-dr.436.mcz'. - info url: 'http://source.wiresong.ca/ob/OmniBrowser-dr.434.mcz'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>DependencyBrowser (in category 'Code Browsing') ----- DependencyBrowser self name: 'DependencyBrowser'. + self version: '0.3'. - self version: '0.1'. info category: 'Code Browsing'. info description: + 'This utility contains an OmniBrowser that could be useful to whom it needs to arm a production release or just perform an early exploration of a package. The browser will display the dependencies (class, inheritance references and loose methods) from classes and packages in your image in a convienient way. - 'This utility contains an OmniBrowser that could be useful to whom it needs to arm a production release or just perform an early exploration of a package. The browser will display the dependencies (class and inheritance references) from classes and packages in your image. '. info maintainer: 'Hernán Morales Durand (hernan.morales(a)gmail.com)'. info homepage: 'http://cs.hernanmorales.com.ar/projects/dependencyBrowser/DBrowser-en.php'. info squeakMapID: ''. info url: 'http://www.squeaksource.com/DependencyWalker/OBDependencyWalker-hfm.2.mcz'. self provides: #(). self dependsOn: #('OmniBrowser - RefactoringEngine OmniBrowser-Standard DependencyWalker PackageInfo'). ! Item was changed: ----- Method: PackagesDevU>>Monticello15 (in category 'Group Development') ----- Monticello15 self name: 'Monticello15'. self version: '1.5+'. info category: 'Group Development'. info description: 'Monticello - evolution - Improvements over 1.0 - Method/Class Orphanage which enables out-of-order loading of packages, and maintenance of packages whose dependencies have not been loaded. - Method Overrides (if properly categorized) are fully supported preserving the integrity of a package even if it has overridden methods - Refactored UI/repository classes so that one UI heirachy serves all. - Dual Changes Browser - In memory cache repository - Support for configurations (Please name them using the MC conventions) - Support for more complex version numbering conventions i.e. Package-kph-1.0.3.mcz known problems: methods have been known to loose their categories future: Atomic Loading loader using System Editor is already coded and contained in this release. See #theChosenLoaderClass. '. info maintainer: 'kph <keith_hodges(a)yahoo.co.uk>'. info homepage: ''. info squeakMapID: ''. info url: 'http://installer.pbwiki.com/f/mc15.st'. + self provides: #('Monticello15' 'Installer' 'MonticelloConfigurations' 'PackageInfo-Base'). - self provides: #('PackageInfo-Base' 'Installer' 'MonticelloConfigurations' 'Monticello15'). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>PierLightBox (in category 'Web Development') ----- PierLightBox self name: 'Pier-LightBox'. + self version: '1.1.6'. - self version: '1.0.17.6'. info category: 'Web Development'. info description: 'Pier lightbox plugin.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-LightBox-dc.6.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside'). ! Item was changed: ----- Method: PackagesSqueak37U>>KomPackaging (in category 'Uncategorized') ----- KomPackaging self name: 'KomPackaging'. self version: '1.0'. info category: 'Uncategorized'. info description: + ' + This package adds support for two types of urls, package and squeakmap...they take the forms: - 'This package adds support for two types of urls, package and squeakmap...they take the forms: sqpkg://httpserver.kom:6.1 sqmap://Named Process:1.1 You can to interesting things with these URLs, such as install them: ''sqpkg://httpserver.kom:6.1'' asUrl install or, query whether or not a version of the package is currently installed: ''sqpkg://httpserver.kom:6.1'' asUrl isPresent Version 1.0: - initial version'. info maintainer: ''. info homepage: ''. info squeakMapID: ''. info url: 'http://universes.dnsalias.net:8888/universes/repositories/stable-3.7/KomPac…'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>PierTests (in category 'Development') ----- PierTests self name: 'Pier-Tests'. + self version: '1.1.113'. - self version: '1.0.17.104'. info category: 'Development'. info description: 'Pier SUnit tests.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-Tests-lr.113.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-Tests-lr.104.mcz'. self provides: #(). self dependsOn: #('Magritte-Tests' 'Pier-Model'). ! Item was changed: ----- Method: PackagesDevU>>MagritteMse (in category 'Development') ----- MagritteMse self name: 'Magritte-Mse'. + self version: '1.1.2'. - self version: '1.0.17.2'. info category: 'Development'. info description: 'MSE file format integration to Magritte.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://smallwiki.unibe.ch/fame/mse/'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/mse/Magritte-Mse-lr.2.mcz'. self provides: #(). self dependsOn: #('Magritte-Model' 'Mse'). ! Item was changed: ----- Method: PackagesSqueak37U>>KomServices (in category 'Uncategorized') ----- KomServices self name: 'KomServices'. self version: '1.0'. info category: 'Uncategorized'. info description: + ' + ===== Release Notes ===== - '===== Release Notes ===== KomServices provides a framework for the creation and management of background processes. A generic Service class is provided for this purpose. Additionally, TcpService is provided for creating services that respond to inbound TCP connections. ===== Release History ===== Version 1.0: - initial version, this package is bourne out of KomHttpServer and renames a few classes: - ComancheService -> Service - ComancheNetService -> TcpService - the old ConnectionHandler is dropped in favor of a cleaner TcpListener.'. info maintainer: ''. info homepage: ''. info squeakMapID: ''. info url: 'http://universes.dnsalias.net:8888/universes/repositories/stable-3.7/KomSer…'. self provides: #(). self dependsOn: #('DynamicBindings' 'KomPackaging'). ! Item was changed: ----- Method: PackagesDevU>>GemToolsClient (in category 'Network') ----- GemToolsClient self name: 'GemTools-Client'. + self version: '0.355'. - self version: '0.345'. info category: 'Network'. info description: 'Installs GLASS client software. Provides development environment UI for OmniBrowser-based tools running in a GemStone server. This new version depends upon OSTestRunner, an OmniBrowser-based version of TestRunner Note that this package is not only dependent upon certain packages, but it is dependent upon specific versions of those packages in the client image. Here is the list of versions that the client has been tested with: OmniBrowser version 0.432 ShoutOmniBrowser version tween.6 FFI version 3.9.1 + OmniBrowser-Morphic version 0.68 - OmniBrowser-Morphic version 0.62 If you experience problems, you should make sure that you have the above versions loaded. This version is also dependent upon GLASS.230-dkh.182 (or later) on the GemStone side.'. info maintainer: 'Dale Henrichs'. info homepage: 'http://seaside.gemstone.com/'. info squeakMapID: ''. + info url: 'http://seaside.gemstone.com/ss/GLASSClient/GemStone-dkh.355.mcz'. - info url: 'http://seaside.gemstone.com/ss/GLASSClient/GemStone-obi.345.mcz'. self provides: #('GemTools-Client'). self dependsOn: #('FFI' 'OmniBrowser' 'OmniBrowser-Morphic' 'OmniBrowser-SUnit-GUI' 'ShoutOmniBrowser'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserMorphic (in category 'Code Browsing') ----- OmniBrowserMorphic self name: 'OmniBrowser-Morphic'. + self version: '0.74'. - self version: '0.68'. info category: 'Code Browsing'. info description: 'OB-Standard represents the classical system browser implemented with the OmniBrowser framework.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Morphic-dr.74.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Morphic-dkh.68.mcz'. self provides: #(). self dependsOn: #('OmniBrowser' 'OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesDevU>>PierSeaside (in category 'Web Development') ----- PierSeaside self name: 'Pier-Seaside'. + self version: '1.1.324'. - self version: '1.0.17.311'. info category: 'Web Development'. info description: 'Pier bindings for Seaside.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-Seaside-lr.324.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-Seaside-lr.311.mcz'. self provides: #(). self dependsOn: #('Magritte-Seaside' 'Pier-Model' 'Scriptaculous' 'Seaside'). ! Item was changed: ----- Method: PackagesDevU>>Mse (in category 'Development') ----- Mse self name: 'Mse'. + self version: '1.1.10'. - self version: '1.0.17.10'. info category: 'Development'. info description: 'MSE file format to exchange data of meta-metamodels, metamodels and models.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://smallwiki.unibe.ch/fame/mse'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/mse/Mse-lr.10.mcz'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>PierDocuments (in category 'Web Development') ----- PierDocuments self name: 'Pier-Documents'. + self version: '1.1.7'. - self version: '1.0.17.7'. info category: 'Web Development'. info description: 'Provide additional documents on a praticular structure, for example to add a side-bar. Custom documents can inherit from the parent and/or provide a default document.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Documents-lr.7.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside'). ! Item was changed: ----- Method: PackagesDevU>>MagritteTests (in category 'Development') ----- MagritteTests self name: 'Magritte-Tests'. + self version: '1.1.148'. - self version: '1.0.17.148'. info category: 'Development'. info description: 'Magritte SUnit tests.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.lukas-renggli.ch/smalltalk/magritte'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/magritte/Magritte-Tests-lr.148.mcz'. self provides: #(). self dependsOn: #('Magritte-Model'). ! Item was changed: ----- Method: PackagesDevU>>MagritteSeaside (in category 'Web Development') ----- MagritteSeaside self name: 'Magritte-Seaside'. + self version: '1.1.282'. - self version: '1.0.17.278'. info category: 'Web Development'. info description: 'Magritte bindings for Seaside.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.lukas-renggli.ch/smalltalk/magritte'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/magritte/Magritte-Seaside-lr.282.mcz'. - info url: 'http://source.lukas-renggli.ch/magritte/Magritte-Seaside-lr.278.mcz'. self provides: #(). self dependsOn: #('Magritte-Model' 'Scriptaculous' 'Seaside'). ! Item was changed: ----- Method: PackagesDevU>>PierTagCloud (in category 'Web Development') ----- PierTagCloud self name: 'Pier-TagCloud'. + self version: '1.1.11'. - self version: '1.0.17.11'. info category: 'Web Development'. info description: 'Pier tag cloud plugin.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-TagCloud-lr.11.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside'). ! Item was changed: ----- Method: PackagesDevU>>MagritteMorph (in category 'Morphs') ----- MagritteMorph self name: 'Magritte-Morph'. + self version: '1.1.42'. - self version: '1.0.17.42'. info category: 'Morphs'. info description: 'Magritte bindings for Morphic.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.lukas-renggli.ch/smalltalk/magritte'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/magritte/Magritte-Morph-lr.42.mcz'. self provides: #(). self dependsOn: #('Magritte-Model'). ! Item was changed: ----- Method: PackagesDevU>>MagritteModel (in category 'Development') ----- MagritteModel self name: 'Magritte-Model'. + self version: '1.1.331'. - self version: '1.0.17.331'. info category: 'Development'. info description: 'Most applications consist of a big number of model- or so called domain-objects. Building different views, editors, and reports; querying, validating and storing those objects is very repetitive and error-prone, if an object changes its shape frequently. Magritte is a fully dynamic meta-description framework that helps to solve those problems, while keeping the full power to the programmer in all aspects. Moreover since Magritte is described in itself, you can let your users modify the meta-world and add their own fields and forms without writing a single line of code.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.lukas-renggli.ch/smalltalk/magritte'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/magritte/Magritte-Model-lr.331.mcz'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>PierShout (in category 'Web Development') ----- PierShout self name: 'Pier-Shout'. + self version: '1.1.10'. - self version: '1.0.17.8'. info category: 'Web Development'. info description: 'Pier Smalltalk syntax highlighting plugin.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pieraddons/ShoutPier-lr.10.mcz'. - info url: 'http://source.lukas-renggli.ch/pieraddons/ShoutPier-lr.8.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside' 'Shout'). ! Item was changed: ----- Method: PackagesDevU>>PierDesign (in category 'Web Development') ----- PierDesign self name: 'Pier-Design'. + self version: '1.1.5'. - self version: '1.0.17.5'. info category: 'Web Development'. info description: 'Enabled design editing tools in the context of the applied page.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Design-tg.5.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserTools (in category 'Development') ----- OmniBrowserTools self name: 'OmniBrowser-Tools'. + self version: '0.60'. - self version: '0.53'. info category: 'Development'. info description: 'Set of tools (debugger, inspector...) rewritten on top of the OmniBrowser framework.'. + info maintainer: 'Dale Henrichs <dale.henrichs(a)gemstone.com>'. - info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: ''. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/omnibrowser/OB-Tools-EL.60.mcz'. - info url: 'http://source.lukas-renggli.ch/omnibrowser/OB-Tools-dkh.53.mcz'. self provides: #(). self dependsOn: #('OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesSqueak37U>>KomHttpServer (in category 'Uncategorized') ----- KomHttpServer self name: 'KomHttpServer'. self version: '6.2'. info category: 'Uncategorized'. info description: + ' + KomHttpServer is the Comanche web server package. To get a simple web server running, install this package and evaluate the code below. A simple file serving web server will be started and will serve the files in your default directory. - 'KomHttpServer is the Comanche web server package. To get a simple web server running, install this package and evaluate the code below. A simple file serving web server will be started and will serve the files in your default directory. | ma | ma := ModuleAssembly core. ma serverRoot: FileDirectory default fullName. ma documentRoot: FileDirectory default fullName. ma directoryIndex: ''index.html index.htm''. ma serveFiles. (HttpService startOn: 8080 named: ''httpd'') plug: ma rootModule After starting the server, point your web browser to http://localhost:8080/ If you have loaded Seaside, you can start a web server that serves Seaside based applications using the following configuration: | ma seaside | seaside := WAKom default. ma := ModuleAssembly core. ma serverRoot: FileDirectory default fullName. ma alias: ''/seaside'' to: [ma addPlug: [:request | seaside process: request]]. ma documentRoot: FileDirectory default fullName. ma directoryIndex: ''index.html index.htm''. ma serveFiles. (HttpService startOn: 8080 named: ''httpd'') plug: ma rootModule See the class comments of the various subclasses of ComancheModule for documentation and usage examples. ===== Release History ===== Version 6.2: - Added support for Squeak 3.6 - Now uses SocketStream from the network rewrite Version 6.1: - (build #41) Fixes various issues for running on Mac OSX - Packaged using KomPackaging (Squeak version only) - Separated the services framework into a separate package called KomServices - Added a module framework - The following modules have been added (see the individual classes for details): - ModCore - this is the core module and designed to be the root of a module assembly, it extracts basic information from the request and makes it available to sub-modules, it also handles http TRACE and OPTIONS methods - ModMulti - this is a module designed only to wrap submodules into a single entity - ModAlias - for mapping url prefixes to sub modules - ModAuth - for authentication - KomAuthDb - a very basic user and password database - ModAutoIndex - for generating directory listings - ModDir - for directory processing (including redirects to fix the trailing slash problem) - ModDoc - for file location processing in a file server - ModVhost - for name based virtual hosting - ModVhostDoc - for document serving based on virtual host name - ModVhostAlias - for module routing based on the virtual host name - ModFile - for serving files - ModLog - for logging http requests (not yet usable) - KomLogger - writes out a log in CLF format - KomTracer - writes out a detailed trace of http request/response pairs - ModNotFound - if reached will generate a not found response - ModSession - for client session handling - KomSession - the session class used by ModSession (by default) - Added ModuleAssembly to help in creating module assemblies - Renamed classes: - ComancheHttpService -> HttpService - Removed classes - BoundedStream - HttpBadRequest - HttpParser - NetworkProtocolAdaptor - NetworkRequest Version 6.0.1: - Adds pluggability to ComancheHttpService (see class comments). Version 6.0: - Initial ComancheNG release ===== Future Enhancement Plans ===== - add WebDAV server capability (in a separate package) - synchronize with the network rewrite project - separate some of the http protocol support into a separate package and provide an Http/WebDAV client implementation (separate package) - rework the handling of chunked responses (using the SharedStreams package) - rework the handling of document uploads (via multipart/form-data) using the SharedStreams package - support chunked transfer encoding for incoming requests - Reify cookies and make them easier to work with - Slim down HttpRequest and HttpResponse such that they are only responsible for constructing requests and responses (currently, these classes are heavily overloaded) '. info maintainer: ''. info homepage: ''. info squeakMapID: ''. info url: 'http://universes.dnsalias.net:8888/universes/repositories/stable-3.7/KomHtt…'. self provides: #(). self dependsOn: #('KomServices'). ! Item was changed: ----- Method: PackagesDevU>>PierEditorEnh (in category 'Web Development') ----- PierEditorEnh self name: 'Pier-EditorEnh'. + self version: '1.1.17'. - self version: '1.0.17.16'. info category: 'Web Development'. info description: 'Pier editor enhancement plugin.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-EditorEnh-damiencassou.17.mcz'. - info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-EditorEnh-lr.16.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside'). ! Item was added: + ----- Method: PackagesDevU>>PierLinks (in category 'Web Development') ----- + PierLinks + + self name: 'Pier-Links'. + self version: '1.1.2'. + info category: 'Web Development'. + info description: + 'Pier links for YouTube, Vimeo and SlideShare'. + info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. + info homepage: 'http://www.piercms.com/'. + info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Links-damiencassou.2.mcz'. + self provides: #(). + + self dependsOn: #('Pier-Seaside'). + + ! Item was changed: ----- Method: PackagesDevU>>PierBlog (in category 'Web Development') ----- PierBlog self name: 'Pier-Blog'. + self version: '1.1.103'. - self version: '1.0.17.90'. info category: 'Web Development'. info description: 'Pier blog plugin.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-Blog-lr.103.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-Blog-lr.90.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside' 'RSRSS2'). ! Item was changed: ----- Method: PackagesDevU>>PierSqueakPersistency (in category 'Development') ----- PierSqueakPersistency self name: 'Pier-Squeak-Persistency'. + self version: '1.1.9'. - self version: '1.0.17.6'. info category: 'Development'. info description: 'Pier persistency mechanisms for Squeak.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-Squeak-Persistency-lr.9.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-Squeak-Persistency-lr.6.mcz'. self provides: #(). self dependsOn: #('Pier-Model' 'Pier-Tests'). ! Item was changed: ----- Method: PackagesDevU>>OBEnhancements (in category 'Code Browsing') ----- OBEnhancements self name: 'OB-Enhancements'. + self version: '0.292'. - self version: '0.288'. info category: 'Code Browsing'. info description: 'OB-Enhancements extend the OmniBrowser framework with new features such as multiple selection of elements in columns, a package-based view on the image instead of using just class categories, or smart groups to categorize source artifacts. This package requires the latest version of the OmniBrowser framework.'. info maintainer: 'David Röthlisberger'. info homepage: 'http://source.wiresong.ca/ob/'. info squeakMapID: ''. + info url: 'http://source.wiresong.ca/ob/OB-Enhancements-dr.292.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Enhancements-dr.288.mcz'. self provides: #(). self dependsOn: #('OmniBrowser' 'OmniBrowser-Morphic' 'OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesDevU>>PierModel (in category 'Development') ----- PierModel self name: 'Pier-Model'. + self version: '1.1.257'. - self version: '1.0.17.238'. info category: 'Development'. info description: 'Pier is a powerful and extensible implementation of a meta-described content management and Wiki system, written with objects from top to bottom: (1) Object-Oriented Design: Pier features a fully object oriented and meta-described domain model. As an example, the content of the pages is parsed and stored as a tree of different entities representing text, links, tables, lists, etc. (2) Extensibility: Everything in Pier can be extended: page types, storage mechanism, actions, security mechanism, web-server, etc. Plug-ins can be shared within the community and loaded independently of each other into the system. (3) Open Source: Pier is released under the MIT license which grants unrestricted rights to copy, modify, and redistribute as long as the original copyright and license terms are retained. (4) Test Suites: Pier is heavily tested. There are more than 1200 unit tests included with the core of Pier. This makes it easy to change and verify the code and comes in extremely useful when porting Pier to other Smalltalk dialects or when writing extensions.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-Model-lr.257.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-Model-lr.238.mcz'. self provides: #(). self dependsOn: #('Magritte-Model'). ! Item was changed: ----- Method: PackagesDevU>>PierTitles (in category 'Web Development') ----- PierTitles self name: 'Pier-Titles'. + self version: '1.1.1'. - self version: '1.0.17.1'. info category: 'Web Development'. info description: 'A set of widgets to control the title of a page.'. info maintainer: 'Tudor Girba <tudor.girba(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Titles-tg.1.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside'). ! Item was changed: ----- Method: PackagesDevU>>PierSitemap (in category 'Web Development') ----- PierSitemap self name: 'Pier-Sitemap'. + self version: '1.1.20'. - self version: '1.0.17.20'. info category: 'Web Development'. info description: 'Creates a Google and Yahoo Sitemap definitions.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/pieraddons/Sitemap-pmm.20.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside' 'YAXO'). ! Item was changed: ----- Method: PackagesDevU>>PierGoogle (in category 'Web Development') ----- PierGoogle self name: 'Pier-Google'. + self version: '1.1.6'. - self version: '1.0.17.5'. info category: 'Web Development'. info description: 'Integration of Google services into Pier.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Google-lr.6.mcz'. - info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Google-lr.5.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside'). ! Item was changed: ----- Method: PackagesDevU>>PierSetup (in category 'Web Development') ----- PierSetup self name: 'Pier-Setup'. + self version: '1.1.33'. - self version: '1.0.17.30'. info category: 'Web Development'. info description: 'Metapackage that loads a common collection of Pier plugins, and a helper class to instantiate the one-click experience.'. info maintainer: 'Tudor Girba <tudor.girba(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Setup-damiencassou.33.mcz'. - info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Setup-tg.30.mcz'. self provides: #(). + self dependsOn: #('Pier-Blog' 'Pier-Design' 'Pier-Documents' 'Pier-EditorEnh' 'Pier-Google' 'Pier-Links' 'Pier-Randomizer' 'Pier-Security' 'Pier-Shout' 'Pier-Sitemap' 'Pier-TagCloud' 'Pier-Titles'). - self dependsOn: #('Pier-Blog' 'Pier-Design' 'Pier-Documents' 'Pier-EditorEnh' 'Pier-Google' 'Pier-Media' 'Pier-Randomizer' 'Pier-Security' 'Pier-Shout' 'Pier-Sitemap' 'Pier-TagCloud' 'Pier-Titles'). ! Item was changed: ----- Method: PackagesDevU>>PierRandomizer (in category 'Web Development') ----- PierRandomizer self name: 'Pier-Randomizer'. + self version: '1.1.4'. - self version: '1.0.17.4'. info category: 'Web Development'. info description: 'Pier randomizer plugin.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Randomizer-lr.4.mcz'. self provides: #(). self dependsOn: #('Pier-Seaside'). ! Item was changed: ----- Method: PackagesDevU>>DependencyWalker (in category 'Development') ----- DependencyWalker self name: 'DependencyWalker'. + self version: '0.3'. - self version: '0.1'. info category: 'Development'. info description: 'This is the DependencyBrowser package that do the real job. '. info maintainer: 'Hernán Morales Durand (hernan.morales(a)gmail.com)'. info homepage: 'http://cs.hernanmorales.com.ar/projects/dependencyBrowser/DBrowser-en.php'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/DependencyWalker/DependencyWalker-hfm.11.mcz'. - info url: 'http://www.squeaksource.com/DependencyWalker/DependencyWalker-hfm.8.mcz'. self provides: #('DependencyWalker'). self dependsOn: #('AST RefactoringEngine'). ! Item was changed: ----- Method: PackagesDevU>>Pier (in category 'Web Development') ----- Pier self name: 'Pier'. + self version: 'current'. - self version: 'currentnew'. info category: 'Web Development'. info description: 'Pier with some common plugins. A good package to get started with Pier development or deployment.'. info maintainer: 'lr'. info homepage: 'http://www.lukas-renggli.ch/smalltalk/pier'. info squeakMapID: ''. info url: nil. self provides: #(). self dependsOn: #('Magritte-Tests' 'Pier-Blog' 'Pier-Documents' 'Pier-EditorEnh' 'Pier-Seaside' 'Pier-Security' 'Pier-Tests'). ! Item was changed: ----- Method: PackagesDevU>>PierOmniBrowser (in category 'Development') ----- PierOmniBrowser self name: 'Pier-OmniBrowser'. + self version: '1.1.35'. - self version: '1.0.17.34'. info category: 'Development'. info description: 'Pier bindings for OmniBrowser.'. info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. info homepage: 'http://www.piercms.com/'. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/pier/Pier-OmniBrowser-lr.35.mcz'. - info url: 'http://source.lukas-renggli.ch/pier/Pier-OmniBrowser-lr.34.mcz'. self provides: #(). self dependsOn: #('Magritte-Morph' 'OmniBrowser-Full' 'Pier-Model'). ! Item was removed: - ----- Method: PackagesDevU>>PierMedia (in category 'Web Development') ----- - PierMedia - - self name: 'Pier-Media'. - self version: '1.0.17.1'. - info category: 'Web Development'. - info description: - 'Pier links for YouTube, Vimeo and SlideShare'. - info maintainer: 'Lukas Renggli <renggli(a)gmail.com>'. - info homepage: 'http://www.piercms.com/'. - info squeakMapID: ''. - info url: 'http://source.lukas-renggli.ch/pieraddons/Pier-Media-lr.1.mcz'. - self provides: #(). - - self dependsOn: #('Pier-Seaside'). - - !

1 0

Jump to page:

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages February 2009