Packages March 2009

packages@lists.squeakfoundation.org

1 participants
117 discussions

Packages: Sake-Packages-kph.31.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 05 Mar '09

05 Mar '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.31.mcz ==================== Summary ==================== Name: Sake-Packages-kph.31 Author: kph Time: 5 March 2009, 10:47:55 pm UUID: cde494ba-02a0-4de1-9e0c-8b1bb29417f8 Ancestors: Sake-Packages-kph.30 . =============== Diff against Sake-Packages-kph.30 =============== Item was changed: ----- Method: Packages class>>upgradeList (in category 'public') ----- upgradeList "the list of pacakges that would be loaded by an upgrade" + ^ (self upgradeTasks instVarNamed: 'actionBlock') select: [ :ea | ea isNeeded: #() ] thenCollect: [ :ea | (ea name, '(', (self provided at: ea name) version ,')') -> ea info ]. - ^ (self upgradeTasks instVarNamed: 'actionBlock') select: [ :ea | ea isNeeded: #() ] thenCollect: [ :ea | ea name -> ea info ]. " self upgradeList "!

1 0

Packages: Sake-Packages-kph.30.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 05 Mar '09

05 Mar '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.30.mcz ==================== Summary ==================== Name: Sake-Packages-kph.30 Author: kph Time: 5 March 2009, 10:44:53 pm UUID: b1bd218d-e58b-4162-8fde-b0c4423b00e5 Ancestors: Sake-Packages-kph.29 + fixing upgrade =============== Diff against Sake-Packages-kph.29 =============== Item was changed: ----- Method: Packages class>>upgradeList (in category 'public') ----- upgradeList "the list of pacakges that would be loaded by an upgrade" + ^ (self upgradeTasks instVarNamed: 'actionBlock') select: [ :ea | ea isNeeded: #() ] thenCollect: [ :ea | ea name -> ea info ]. - ^ (self upgradeTasks instVarNamed: 'actionBlock') select: [ :ea | ea isNeeded: #() ] thenCollect: [ :ea | ea name ]. " self upgradeList "!

1 0

Packages: Sake-Packages-kph.29.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 05 Mar '09

05 Mar '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.29.mcz ==================== Summary ==================== Name: Sake-Packages-kph.29 Author: kph Time: 5 March 2009, 10:40:43 pm UUID: f84e6f53-b1bf-4604-9caa-0c5a1c0572bd Ancestors: Sake-Packages-kph.28 + fixing upgrade =============== Diff against Sake-Packages-kph.28 =============== Item was changed: ----- Method: Packages class>>findNamed: (in category 'private') ----- findNamed: packageName | sel | sel := self asSelector: packageName. + ^ (self findPath detect: [ :ea | ea canPerform: sel ] ifNone: [ ^nil ]) basicNamed: packageName! - ^ (self findPath detect: [ :ea | ea canPerform: sel ] ifNone: [ self error: 'not found' ]) basicNamed: packageName! Item was changed: ----- Method: Packages class>>named: (in category 'public') ----- named: packageNameOrList + packageNameOrList isString ifTrue: [ ^ (self findNamed: packageNameOrList) ifNil: [ self error: 'not found: ', packageNameOrList ]]. - packageNameOrList isString ifTrue: [ ^ self findNamed: packageNameOrList ]. + ^ (packageNameOrList collect: [ :ea | (self findNamed: packageNameOrList) ifNil: [ self error: 'not found: ', packageNameOrList ]]) asTask + ! - ^ (packageNameOrList collect: [ :ea | self findNamed: packageNameOrList ]) asTask! Item was changed: ----- Method: Packages class>>upgradeTasks (in category 'public') ----- upgradeTasks | list | Packages update. list := Set new. + self provided keysAndValuesDo: [ :k :v | ((Smalltalk classNamed: (v at: #class)) findNamed: k) ifNotNil: [ :t | list add: t ] ]. - self provided keysAndValuesDo: [ :k :v | list add: ((Smalltalk classNamed: (v at: #class)) named: k) ]. ^ list asTask!

1 0

Packages: Sake-Packages-kph.28.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 05 Mar '09

05 Mar '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.28.mcz ==================== Summary ==================== Name: Sake-Packages-kph.28 Author: kph Time: 5 March 2009, 10:29:07 pm UUID: e6557879-2417-488f-83eb-ae91a88fb3c7 Ancestors: Sake-Packages-kph.27 + fixing upgrade =============== Diff against Sake-Packages-kph.27 =============== Item was changed: ----- Method: Packages class>>upgradeTasks (in category 'public') ----- upgradeTasks | list | Packages update. list := Set new. + self provided keysAndValuesDo: [ :k :v | list add: ((Smalltalk classNamed: (v at: #class)) named: k) ]. - self provided keysAndValuesDo: [ :k :v | list add: ((Smalltalk classNamed: v class) named: k) ]. ^ list asTask!

1 0

Packages: Sake-Packages-kph.27.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 05 Mar '09

05 Mar '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.27.mcz ==================== Summary ==================== Name: Sake-Packages-kph.27 Author: kph Time: 5 March 2009, 10:26:38 pm UUID: 015e6739-0f1c-479e-a985-36e590e1077b Ancestors: Sake-Packages-kph.26 = fix to upgrade =============== Diff against Sake-Packages-kph.26 =============== Item was changed: ----- Method: Packages class>>upgradeTasks (in category 'public') ----- upgradeTasks | list | Packages update. list := Set new. + self provided keysAndValuesDo: [ :k :v | list add: ((Smalltalk classNamed: v class) named: k) ]. - self provided withIndexDo: [ :k :v | list add: ((Smalltalk classNamed: v class) named: k) ]. ^ list asTask!

1 0

Packages: Sake-Packages-kph.26.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 05 Mar '09

05 Mar '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.26.mcz ==================== Summary ==================== Name: Sake-Packages-kph.26 Author: kph Time: 5 March 2009, 10:25:13 pm UUID: cf43892e-461a-4956-ae27-c3f511decec7 Ancestors: Sake-Packages-kph.25 =============== Diff against Sake-Packages-kph.25 =============== Item was changed: ----- Method: Packages class>>upgradeList (in category 'public') ----- upgradeList "the list of pacakges that would be loaded by an upgrade" + - Packages beta load: 'Packages'. ^ (self upgradeTasks instVarNamed: 'actionBlock') select: [ :ea | ea isNeeded: #() ] thenCollect: [ :ea | ea name ]. " self upgradeList "!

1 0

Packages: Packages-Library-kph.41.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 05 Mar '09

05 Mar '09

A new version of Packages-Library was added to project Packages: http://www.squeaksource.com/Packages/Packages-Library-kph.41.mcz ==================== Summary ==================== Name: Packages-Library-kph.41 Author: kph Time: 5 March 2009, 3:35:01 pm UUID: 3127578b-099b-11de-9863-000a95edb42a Ancestors: Packages-Library-kph.40 regen =============== Diff against Packages-Library-kph.40 =============== Item was changed: ----- Method: PackagesDevU>>RefactoringSpelling (in category 'Development') ----- RefactoringSpelling self name: 'Refactoring Spelling'. + self version: '4'. - self version: '1'. info category: 'Development'. info description: 'A lint extension that does spell check your code: argument variables, class category names, class comments, class names, class variable names, literal values (strings, symbols), method protocols, method selectors, pool variable names, method comments, temporary variable names'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: ''. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/RefactoringEngine/Refactoring-Spelling-lr.4.mcz'. - info url: 'http://www.squeaksource.com/RefactoringEngine/Refactoring-Spelling-lr.1.mcz'. self provides: #(). self dependsOn: #('Refactoring Core'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserStandard (in category 'Code Browsing') ----- OmniBrowserStandard self name: 'OmniBrowser-Standard'. + self version: '0.400'. - self version: '0.389'. 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.400.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Standard-dr.389.mcz'. self provides: #(). self dependsOn: #('OmniBrowser'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowser (in category 'Code Browsing') ----- OmniBrowser self name: 'OmniBrowser'. + self version: '0.442'. - self version: '0.436'. 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.442.mcz'. - info url: 'http://source.wiresong.ca/ob/OmniBrowser-dr.436.mcz'. self provides: #(). self dependsOn: #(). ! Item was added: + ----- Method: PackagesDevU>>InstallerFormats (in category 'Group Development') ----- + InstallerFormats + + self name: 'Installer-Formats'. + self version: '4.3.3'. + info category: 'Group Development'. + info description: + 'MczInstaller and SARInstaller now brought in to the maintenance fold of Installer + '. + info maintainer: 'kph'. + info homepage: 'http://wiki.squeak.org/squeak/Installer'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Installer/Installer-Formats-kph.3.mcz'. + self provides: #('Installer-Formats'). + + self dependsOn: #('Installer-Core'). + + ! 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 added: + ----- Method: PackagesDevU>>InstallerScripts (in category 'Group Development') ----- + InstallerScripts + + self name: 'Installer-Scripts'. + self version: '4.3.8'. + info category: 'Group Development'. + info description: + 'The new LevelPlayingField'. + info maintainer: 'kph'. + info homepage: 'http://wiki.squeak.org/squeak/Installer'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Installer/Installer-Scripts-kph.8.mcz'. + self provides: #('Installer-Scripts'). + + self dependsOn: #('Installer-Core'). + + ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserRegex (in category 'Development') ----- OmniBrowserRegex self name: 'OmniBrowser-Regex'. + self version: '0.15'. - self version: '0.9.1'. 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.lukas-renggli.ch/omnibrowser/OB-Regex-lr.15.mcz'. - info url: 'http://source.lukas-renggli.ch/omnibrowser/OB-Regex-lr.9.mcz'. self provides: #(). self dependsOn: #('OmniBrowser-Refactory' 'OmniBrowser-Standard' 'Refactoring Core' 'VBRegex'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserMorphic (in category 'Code Browsing') ----- OmniBrowserMorphic self name: 'OmniBrowser-Morphic'. + self version: '0.83'. - self version: '0.74'. 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.83.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Morphic-dr.74.mcz'. self provides: #(). self dependsOn: #('OmniBrowser' 'OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserRefactory (in category 'Development') ----- OmniBrowserRefactory self name: 'OmniBrowser-Refactory'. + self version: '130'. - self version: '129'. 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.lukas-renggli.ch/omnibrowser/OB-Refactory-lr.141.mcz'. - info url: 'http://source.lukas-renggli.ch/omnibrowser/OB-Refactory-lr.129.mcz'. self provides: #(). self dependsOn: #('OmniBrowser-Morphic' 'OmniBrowser-Standard' 'Refactoring Core' 'Refactoring Spelling'). ! Item was changed: ----- Method: PackagesDevU>>OmniBrowserTools (in category 'Development') ----- OmniBrowserTools self name: 'OmniBrowser-Tools'. + self version: '0.65.1'. - self version: '0.62'. 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 homepage: ''. info squeakMapID: ''. + info url: 'http://source.lukas-renggli.ch/omnibrowser/OB-Tools-dkh.65.mcz'. - info url: 'http://source.lukas-renggli.ch/omnibrowser/OB-Tools-dkh.62.mcz'. self provides: #(). + self dependsOn: #('OmniBrowser' 'OmniBrowser-Morphic' 'OmniBrowser-Standard'). - self dependsOn: #('OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesDevU>>FixedDecimal (in category 'Data Structures') ----- FixedDecimal self name: 'FixedDecimal'. + self version: '16'. - self version: '13'. info category: 'Data Structures'. info description: 'An implementation of FixedDecimal. Should be like Scaled Decimal, except that it actually does math correctly (i.e., two FixedDecimal that the printed version of them look like they are equal are, in fact, equal - unlike Scaled Decimal). '. info maintainer: 'kph'. info homepage: ''. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/FixedDecimal/FixedDecimal-kph.16.mcz'. - info url: 'http://www.squeaksource.com/FixedDecimal/FixedDecimal-cbc.13.mcz'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>RefactoringCore (in category 'Development') ----- RefactoringCore self name: 'Refactoring Core'. + self version: '40'. - self version: '26'. info category: 'Development'. info description: 'The refactoring engine of the old RefactoringBrowser. It does not include any browser and needs at least Squeak 3.9.'. info maintainer: 'Damien Cassou <damien.cassou(a)gmail.com>'. info homepage: 'http://www.squeaksource.com/RefactoringEngine.html'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/RefactoringEngine/Refactoring-Core-lr.40.mcz'. - info url: 'http://www.squeaksource.com/RefactoringEngine/Refactoring-Core-lr.26.mcz'. self provides: #(). self dependsOn: #('AST'). ! Item was changed: ----- Method: PackagesDevU>>OBEnhancements (in category 'Code Browsing') ----- OBEnhancements self name: 'OB-Enhancements'. + self version: '0.311'. - self version: '0.292'. 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-damiencassou.311.mcz'. - info url: 'http://source.wiresong.ca/ob/OB-Enhancements-dr.292.mcz'. self provides: #(). self dependsOn: #('OmniBrowser' 'OmniBrowser-Morphic' 'OmniBrowser-Standard'). ! Item was changed: ----- Method: PackagesDevU>>AST (in category 'Model Extension') ----- AST self name: 'AST'. + self version: '164'. - self version: '161'. info category: 'Model Extension'. info description: 'The Abstract Syntax Tree of Squeak code. Used by the Refactoring Engine and NewCompiler.'. info maintainer: 'Mathieu Suen <mathieusuen(a)yahoo.fr>'. info homepage: 'http://www.squeaksource.com/AST'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/AST/AST-lr.164.mcz'. - info url: 'http://www.squeaksource.com/AST/AST-lr.161.mcz'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>ProcessSpecific (in category 'System') ----- ProcessSpecific self name: 'ProcessSpecific'. + self version: '1.0.19'. - self version: '1.0.18'. info category: 'System'. info description: 'My subclasses (not instances of them) keep state specific to the current process. There are two kinds of process-specific variables: process-local (state available for read and write in all methods inside the process), and dynamic variables (implementing dynamic scope). Includes tests and example: DateAndTimeWarp Includes extension (if not loaded ignore) for seaside for debugging.'. info maintainer: 'keith_hodges(a)yahoo.co.uk'. info homepage: ''. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Logging/ProcessSpecific-kph.19.mcz'. - info url: 'http://www.squeaksource.com/Logging/ProcessSpecific-kph.18.mcz'. self provides: #('ProcessSpecific'). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>Exupery (in category 'System') ----- Exupery self name: 'Exupery'. + self version: '0.15.1'. - self version: '0.14'. info category: 'System'. info description: 'Exupery is a byte code compiler written in Squeak. It has been written fully test first with both customer and acceptance tests. The project is a personal master work, it is meant to both be useful in itself and help me improve my personal programming skills. It is going to be a compiler for leaf methods first, providing an alternative to writing plugins as a performance improvement. The programming exersize is complexity control. Compilers are much harder to write than interpreters yet in theory they should be intermediate generation (equivilent to the interpreter) plus a back-end. Both parts are individually well understood.'. info maintainer: 'Bryce Kampjes <bryce(a)kampjes.demon.co.uk>'. info homepage: ''. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Exupery/Exupery-wbk.336.mcz'. - info url: 'http://www.squeaksource.com/Exupery/Exupery-wbk.321.mcz'. self provides: #(). self dependsOn: #(). ! Item was changed: ----- Method: PackagesDevU>>Installer (in category 'Group Development') ----- Installer self name: 'Installer'. + self version: '4.3'. - self version: '4.3.284'. info category: 'Group Development'. info description: + 'nstaller-Core provides a simple Domain Specific Language for installing packages from monticello and squeakmap of various version. - 'Installer provides a simple Domain Specific Language for installing packages from monticello and squeakmap of various version. One design decision is to be able to paste scripts a workspace and run and tested from there without any special editing. + Includes support for Monticello, SqueakMap, Sake/Packages and Package Universes'. - Includes support for Package Universes - '. info maintainer: 'kph'. info homepage: 'http://wiki.squeak.org/squeak/Installer'. info squeakMapID: ''. + info url: nil. + self provides: #(). - info url: 'http://www.squeaksource.com/Installer/Installer-Core-kph.284.mcz'. - self provides: #('Installer'). + self dependsOn: #('Installer-Core' 'Installer-Formats' 'Installer-Scripts'). - self dependsOn: #(). ! Item was added: + ----- Method: PackagesDevU>>InstallerCore (in category 'Group Development') ----- + InstallerCore + + self name: 'Installer-Core'. + self version: '4.3.313'. + info category: 'Group Development'. + info description: + 'To load load: ''Installer'' + + Installer-Core provides a simple Domain Specific Language for installing packages from monticello and squeakmap of various version. + + One design decision is to be able to paste scripts a workspace and run and tested from there without any special editing. + + Includes support for Monticello, SqueakMap, Sake/Packages and Package Universes + '. + info maintainer: 'kph'. + info homepage: 'http://wiki.squeak.org/squeak/Installer'. + info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Installer/Installer-Core-kph.313.mcz'. + self provides: #('Installer-Core'). + + self dependsOn: #(). + + ! Item was changed: ----- Method: PackagesDevU>>ExuperyDevelopment (in category 'System') ----- ExuperyDevelopment self name: 'Exupery Development'. + self version: '0.15'. - self version: '0.14.3'. info category: 'System'. info description: 'Provides a development image with the usual tools for Exupery.'. info maintainer: 'wbk'. info homepage: ''. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Exupery/VMMaker-wbk.117.mcz'. - info url: 'http://www.squeaksource.com/Exupery/VMMaker-wbk.80.mcz'. self provides: #('VMMaker'). self dependsOn: #('CommandShell' 'Connectors' 'Exupery' 'FFI' 'FreeType Plus-plugins source' 'GraphViz' 'OSProcessPlugin' 'Refactoring Tests' 'Speech'). ! Item was changed: ----- Method: PackagesDevU>>Scripter (in category 'IDE') ----- Scripter self name: 'Scripter'. + self version: '0.7'. - self version: '0.5.5'. info category: 'IDE'. info description: 'Scripter is an interface for scripting Squeak UI Tools. Windows: Collapsing, minimizing, maximizing, tidying, moving, closing. Tools: Open and use. Menus: select menu items Buttons: click buttons Lists: select list items To Do: Track action which spawns opening a new window. Trees: select tree items'. info maintainer: 'keith_hodges(a)yahoo.co.uk'. info homepage: 'http://www.squeaksource.com/Scripter.html'. info squeakMapID: ''. + info url: 'http://www.squeaksource.com/Scripter/Scripter-Core-kph.7.mcz'. - info url: 'http://www.squeaksource.com/Scripter/Scripter-Core-kph.5.mcz'. self provides: #(). self dependsOn: #(). !

1 0

Packages: Sake-Packages-kph.25.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 05 Mar '09

05 Mar '09

A new version of Sake-Packages was added to project Packages: http://www.squeaksource.com/Packages/Sake-Packages-kph.25.mcz ==================== Summary ==================== Name: Sake-Packages-kph.25 Author: kph Time: 5 March 2009, 3:34:13 pm UUID: 143d9640-099b-11de-9863-000a95edb42a Ancestors: Sake-Packages-kph.24 Changed the way stepping works, now the debugger is closer to the action =============== Diff against Sake-Packages-kph.24 =============== Item was added: + ----- Method: Packages>>doActionStep: (in category 'as yet unclassified') ----- + doActionStep: priorTasks + + super doActionStep: priorTasks. + + name ifNil: [ ^ self ]. + + self isUnloading + ifTrue: [ self step: 'Confirm unload: ', self name printString ] + ifFalse: [ self step: 'Confirm load: ', self name printString ]! Item was removed: - ----- Method: Packages>>doActionStep (in category 'as yet unclassified') ----- - doActionStep - - name ifNil: [ ^ self ]. - - self isUnloading - ifTrue: [ self step: 'Confirm unload: ', self name printString ] - ifFalse: [ self step: 'Confirm load: ', self name printString ]!

1 0

Sake : Sake-Bob-kph.16.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 05 Mar '09

05 Mar '09

A new version of Sake-Bob was added to project Sake : http://www.squeaksource.com/Sake/Sake-Bob-kph.16.mcz ==================== Summary ==================== Name: Sake-Bob-kph.16 Author: kph Time: 5 March 2009, 3:32:13 pm UUID: cd080087-099a-11de-9863-000a95edb42a Ancestors: Sake-Bob-kph.15 getting uploads working =============== Diff against Sake-Bob-kph.15 =============== Item was changed: ----- Method: BobBuild>>uploadUsingLink (in category 'as yet unclassified') ----- uploadUsingLink "we link the completed files to a different local directory" | cmd path | path := (info upload allButFirst: 7) asDirectory. (path / self stamp) mkpath. cmd := 'cd ', path full, '; rm latest; ln -s ', self stamp, ' latest'. self info linkRelease = true ifTrue:[ cmd := cmd , '; rm release; ln -s ', self stamp, ' release' ]. self uploadFiles do: [ :outFile | cmd := cmd , '; ln ', outFile , ' ', self stamp, '/',outFile fileName. ]. self exec: cmd. + self log notice UPLOADING: self publishDir LINKED: true ! Item was changed: ----- Method: BobBuildImage class>>taskBuild: (in category 'as yet unclassified') ----- taskBuild: metaSelector | isNeeded | ^ self define: [ :task | "obtain latest meta-data from instance side" (task infoFor: metaSelector) ifNil: [ ^ self noop ]. task if: [ task timeStart. isNeeded := task isBuildNeeded. + self log info build: task info name isNeeded: isNeeded first because: isNeeded third. . + task info reason: isNeeded third. + + "if we are building because an upstream image has changed we grab the same build time + this helps us to see which images were built together" + + task info timeStart: task latest timeStart. + - self log info build: task info name isNeeded: isNeeded first because: isNeeded second. . isNeeded first ]. task action: [ task stepAction. task perform: task info action. ] ] ! Item was added: + ----- Method: BobBuild class>>configStepUpload (in category 'as yet unclassified') ----- + configStepUpload + + ^ false! Item was added: + ----- Method: BobConfig>>defaultUpload (in category 'as yet unclassified') ----- + defaultUpload + + " info upload: 'ssh://updates@squeakfoundation.org/var/www/files/3.11/' , info name." + + info upload: 'link:///bob/3.11/' , info name. + + "http not yet supported" + info download: 'ftp://squeak@bob.warwick.st/bob/3.11/' , info name. + ! Item was changed: ----- Method: BobBuild>>uploadUsingFile (in category 'as yet unclassified') ----- uploadUsingFile "we copy the completed files to a different local directory" | cmd path | path := info upload. (path / self stamp) mkpath. cmd := 'cd ', path full, '; rm latest; ln -s ', self stamp, ' latest'. self info linkRelease = true ifTrue:[ cmd := cmd , '; rm release; ln -s ', self stamp, ' release' ]. self exec: cmd. (path / self stamp) addAll: self uploadFiles. + + self log notice UPLOADING: self publishDir COPIED: true ! Item was added: + ----- Method: BobBuildParallelReleases class>>taskUpload (in category 'as yet unclassified') ----- + taskUpload + + ^((self selectorsPrefixed: #build) collect: [ :sel | self taskUpload: sel ]) asTask. + + ! Item was changed: ----- Method: BobBuild>>uploadUsingList (in category 'as yet unclassified') ----- uploadUsingList "we append the paths of the result files to the given list file, the list file can be used by some external process" self class configUploadListFile asFile append: [ :str | self uploadFiles do: [ :ea | str << (ea relativeTo: self outputDir) asString ; cr ] + ]. + + self log notice UPLOADING: self publishDir DELEGATED: true + ! - ]! Item was changed: ----- Method: BobBuild class>>taskUploadAll (in category 'as yet unclassified') ----- taskUploadAll " self taskUploadAll run " "we need to tell this task to sort its dependencies appropriately before it is run" + "there is a sorting algorithm in collection:" - "there is a sorting algorithm in collection: , but this might not be exactly what we want." ^ (BobBuild allSubclasses select: [ :c | c isUploader ] thenCollect: [ :c | c taskUpload ]) asTask defined ! Item was changed: ----- Method: BobBuildImage>>actionBuild (in category 'as yet unclassified') ----- actionBuild + self log notice BUILDING: info name. + self stepAction. self expand: zipFile to: (self workingDir mkpath clean). self startImage: (self workingDir all fileMatching: '*.image'). self linkPackageCache. self theScript scriptFileWrite. self launchVm: self class configVm image: self startImage with: self scriptFile. self isSuccessfulBuild ifFalse: [ ^ self ]. info timeComplete: DateAndTime now. info timeDuration: ((info timeComplete - info timeStart) roundTo: 1 second). self publish. self package. self tidy. self publishLinks. + self log notice BUILDING: info name COMPLETE: true. + + (self class taskUpload: info build) run. + + ! - self uploadImmediate. - ! Item was added: + ----- Method: BobUtilities>>latest (in category 'as yet unclassified') ----- + latest + + ^ latest! Item was changed: ----- Method: BobBuildImage>>packageOneClick (in category 'as yet unclassified') ----- packageOneClick | appZip appDir resources plist bundleName imageName template filename | info oneClick = true ifFalse: [ ^ self ]. + template := info oneClickTemplate ifNil: [ self class configOneClickTemplate ]. - template := info oneClickTemplate ifNil: [ self configOneClickTemplate ]. "use the match string given to find the template" appZip := self resolveFile: template ifNone: [ :msg | self error: msg ]. "download to images cache, and decompress to the output area" self expand: appZip to: self workingDirOneClickOut mkpath clean. "the result should have a .app dir, find it" appDir := self workingDirOneClickOut directories detect: [ :ea | ea asString endsWith: '.app' ] ifNone: [ self error: '*.app not found' ]. "get our plist contribution" plist := self configPlist. bundleName := plist at: 'CFBundleName'. imageName := bundleName asLowercase. plist at: 'SqueakImageName' put: (imageName, '.image'). "rename the .app dir to the desired name" appDir beRenaming fileName: (bundleName , '.app'). "top level directory" (appDir filesMatching: #('*.exe' '*.ini' '*.sh')) do: [ :ea | ea rename base: bundleName ]. (appDir / bundleName + '.ini' ) delete contents: ((self configOneClickIni: imageName) copyReplaceAll: String cr with: String crlf). (appDir / bundleName + '.sh' ) delete contents: (self configOneClickSh: imageName). (appDir / 'COPYRIGHT') delete contents: (info oneClickCopyrightStatement ifNil: [ self configOneClickCopyrightStatement ] ). "Contents Directory" appDir / 'Contents' / 'PkgInfo' contents: ((plist at: 'CFBundlePackageType') , (plist at: 'CFBundleSignature')). self oneClickUpdatePlist: (appDir / 'Contents' / 'Info.plist') fromDictionary: plist. "Resources Directory" resources := (appDir / 'Contents' / 'Resources') all delete mkpath. resources addTree: self imageDir entries. (resources filesMatching: #('*.image' '*.changes')) do: [ :ea | ea rename base: imageName ]. resources add: self configOneClickIcns asFile. resources add: (info oneClickSources ifNil: [ self configOneClickSources ]) asFile. self halt. filename := appDir fileName. self packageDirectory: filename intoZip: (self stamp,'_', filename) from: appDir parent. ! Item was changed: ----- Method: BobBuild>>uploadUsingSsh (in category 'as yet unclassified') ----- uploadUsingSsh "we upload the result files to the given ssh url location" | ssh cmd dest files | ssh := SshUrl absoluteFromText: self info upload. cmd := 'mkdir -p ', ssh pathString, '/', self stamp, '; cd ', ssh pathString,'; rm latest; ln -s ', self stamp, ' latest'. dest := ssh username, '@', ssh authority, ':', ssh pathString, '/', self stamp. files := self uploadFiles joinUsing: ' ', dest , ' '. self info linkRelease = true ifTrue:[ cmd := cmd , '; rm release; ln -s ', self stamp, ' release' ]. + self execForking: 'ssh -ax -l ', ssh username , ' ' , ssh authority, ' "', cmd,'" ; scp -Bpq ', files,' ',dest. + + self log notice UPLOADING: self publishDir INPROGRESS: true - self exec: 'ssh -ax -l ', ssh username , ' ' , ssh authority, ' "', cmd,'"'. - self exec: 'scp -Bpq ', files,' ',dest ! Item was changed: ----- Method: BobBuildImage>>isBuildNeeded (in category 'as yet unclassified') ----- isBuildNeeded | wait dependentFile | "if the output directory doesnt exist then - dont build" self outputDir asDirectory exists ifFalse: [ 'no - ', self outputDir, ' not found' ]. "if we have the don't flag - dont build" + info when = #dont ifTrue: [ ^ #(false #dont 'dont flag set') ]. + info when = false ifTrue: [ ^ #(false #dont 'dont flag false') ]. - info when = #dont ifTrue: [ ^ #(false 'dont flag set') ]. - info when = false ifTrue: [ ^ #(false 'dont flag false') ]. self stepNeeded. "if an explicit build time has been set and not yet reached - dont build" ((info when isKindOf: DateAndTime) and: [ info when > info timeStart ]) + ifTrue: [ ^ { false. #notYet. ('time is not yet ', info when asString). } ]. - ifTrue: [ ^ { false. ('time is not yet ', info when asString). } ]. latest := self infoFileReadLatest. "if 'when' is set to a file obtain creation time, if not use info image" + info when isFileOrDirectory ifTrue: [ + dependentFile := self resolveFile: info when ifNone: [:msg | ^ { false. #notFound. msg.}]. - (info when isKindOf: FileKernel) ifTrue: [ - dependentFile := self resolveFile: info when ifNone: [:msg | ^ { false. msg.}]. self info dependentCreationTime: dependentFile creationTime. zipFile := self resolveFile: info image ifNone: [:msg | ^ { false. msg.} ]. ] ifFalse: [ + dependentFile := zipFile := self resolveFile: info image asFile ifNone: [:msg | ^ { false. #notFound. msg.} ]. - dependentFile := zipFile := self resolveFile: info image asFile ifNone: [:msg | ^ { false. msg.} ]. self info dependentCreationTime: zipFile creationTime. + ]. - ]. "has our starting image changed? if so" + (latest dependentCreationTime notNil and: [ latest dependentCreationTime ~= self info dependentCreationTime ]) + ifTrue: [ ^ { true. #dependentChanged. (dependentFile asString , ' has changed').} ] + ifFalse: [ info when = true ifTrue: [ ^ { false. ('waiting for ', dependentFile asString , ' to change').} ]]. + + - (latest dependentCreationTime notNil and: [ latest dependentCreationTime ~= self info dependentCreationTime ]) ifTrue: [ ^ { true. (dependentFile asString , ' has changed').} ]. - "we have a new build id, so we build" + latest build ~= info build ifTrue: [ ^ { true. #newBuildNumber. ('new build number ',info build).} ]. - latest build ~= info build ifTrue: [ ^ { true. ('new build number ',info build).} ]. (info when isKindOf: Duration) ifTrue: [ wait := latest startTime + info when - TimeStamp now + wait > 0 ifTrue: [ ^ { false. #waiting. (wait seconds asString, ' seconds to go').} ]. - wait > 0 ifTrue: [ ^ { false. (wait seconds asString, ' seconds to go').} ]. ]. "an explicit build time has been given, and this is present existing latest" ((info when isKindOf: DateAndTime) and: [ info when <= latest timeStart ]) + ifTrue: [ ^ { false. #done. ((latest package ifNil: [ latest name ]) , ' already built'). } ]. + + ^ { true. #itsTime. ('building ', self info name). } - ifTrue: [ ^ { false. ((latest package ifNil: [ latest name ]) , ' already built'). } ]. - - ^ { true. ('building ', self info name). } ! Item was added: + ----- Method: BobBuild>>execForking: (in category 'as yet unclassified') ----- + execForking: aCmdString + + self log info fork: aCmdString. + + ^ self OSProcess command: aCmdString! Item was changed: ----- Method: BobBuild class>>taskUpload: (in category 'as yet unclassified') ----- taskUpload: metaSelector "the task of uploading is defined as a top level task, because it is more generic than image building, and may be applied to any result." | newInfo lock ul dl yes | ^ self define: [ :task | + - metaSelector = #build310 ifTrue: [ self halt ]. (task infoFor: metaSelector) ifNil: [ ^ self noop ]. task dependsOn: #(). newInfo := task info. "obtain and use the latest meta-data from the most recent build activity" task info: task infoFileReadLatest. "some fields in the metadata we prefer new values over the older" task info upload: newInfo upload. task info download: newInfo download. task info linkRelease: newInfo linkRelease. task info comment: newInfo comment. task info uploadLatest: newInfo uploadLatest. task if: [ lock := ul := dl := nil. yes := task name notNil and: [ (ul := task isUploadRequested) and: [ dl := task isUploadedFileAvailableForDownload. dl ifTrue: [ task uploadDirLock delete ]. dl not and: [ (lock := task uploadDirLock exists) not ] ] ]. task name ifNotNil:[ self log info name: task name uploadRequested: ul done: dl inProgress: lock. ]. "if we decide that we shall upload, we lock the upload dir to inform others" yes ifTrue: [ task uploadDirLock touch ]. yes. ]. task action: [ self log info UPLOADING: task publishDir. + self configStepUpload ifTrue: [ self halt ]. + - task infoFilePublishAlongside: task publishDir. task linkRelease. + task info oneClick = true ifTrue: [ BobOneClickPackageGenerator taskMakeOneClickfor: self build: task info build ]. - task info oneClick = true ifTrue: [ task packageOneClick ]. task perform: ('uploadUsing', (task info upload upTo: $:) capitalized) asSymbol. task isUploadedFileAvailableForDownload ifTrue: [ task uploadDirLock delete ]. ] ] ! Item was added: + ----- Method: BobBuildImage class>>taskBuildNow: (in category 'as yet unclassified') ----- + taskBuildNow: metaSelector + + | | + ^ self define: [ :task | + + "obtain latest meta-data from instance side" + (task infoFor: metaSelector) ifNil: [ ^ self noop ]. + + task if: [ + task timeStart. + + self log info build: task info name isNeeded: #true because: 'Direct order'. . + task info reason: 'Direct order'. + + true ]. + + task action: [ + task stepAction. + task perform: task info action. + ] + ] + + + ! Item was added: + ----- Method: BobBuild>>doNeededStep: (in category 'as yet unclassified') ----- + doNeededStep: runPriorTasks + + self step: self context printString, ' is Needed for: ', String cr, String cr, self info printString . + + ^ ifBlock valueWithPossibleArgument: runPriorTasks! Item was removed: - ----- Method: BobPeriodicUploads>>taskUploadAll (in category 'as yet unclassified') ----- - taskUploadAll - - ^ BobBuild taskUploadAll! Item was removed: - ----- Method: BobPeriodicUploads class>>initialize (in category 'as yet unclassified') ----- - initialize - super initialize. - - BobConfig isUploader ifFalse: [ ^ self ]. - - self scheduler addTask: ((self do: #doAllTasks every: 300 seconds) - noRunHistory; - description: 'uploader'; - yourself) - ! Item was removed: - ----- Method: BobConfig class>>configUploadImmediate (in category 'as yet unclassified') ----- - configUploadImmediate - "if the upload: is any of these options then do the upload immediately on completing the build" - ^ #( 'list' 'link' 'file')! Item was removed: - ----- Method: BobBuild>>uploadImmediate (in category 'as yet unclassified') ----- - uploadImmediate - - | type | - - type := self info upload upTo: $:. - - (self class configUploadImmediate includes: type) ifFalse: [ ^ self ]. - - (self class taskUpload: info build) run.! Item was removed: - ScheduledLoggedTask subclass: #BobPeriodicUploads - instanceVariableNames: '' - classVariableNames: '' - poolDictionaries: '' - category: 'Sake-Bob'!

1 0

Sake : Sake-Core-kph.105.mcz
by squeak-dev-noreply＠lists.squeakfoundation.org 05 Mar '09

05 Mar '09

A new version of Sake-Core was added to project Sake : http://www.squeaksource.com/Sake/Sake-Core-kph.105.mcz ==================== Summary ==================== Name: Sake-Core-kph.105 Author: kph Time: 5 March 2009, 3:31:38 pm UUID: b7dcccfc-099a-11de-9863-000a95edb42a Ancestors: Sake-Core-kph.104 Changed the way stepping works, now the debugger is closer to the action =============== Diff against Sake-Core-kph.104 =============== Item was added: + ----- Method: SakeTask>>doNeededStep: (in category 'as yet unclassified') ----- + doNeededStep: runPriorTasks + + self step: 'Is Needed for task: ', self context printString . + + ^ ifBlock valueWithPossibleArgument: runPriorTasks! Item was changed: ----- Method: SakeTask>>isNeeded: (in category 'as yet unclassified') ----- isNeeded: runPriorTasks ifBlock ifNil: [ ^true ]. + ifBlock isBlock ifTrue: [ ^ self doNeededStep: runPriorTasks ]. - ifBlock isBlock ifTrue: [ ^ ifBlock valueWithPossibleArgument: runPriorTasks ]. "actionBlock can be a list of tasks, if they all complete, then yes its needed" [ self doTasks: ifBlock ] on: SakeStop do: [ :ex | ^ false ]. ^ true ! Item was changed: ----- Method: SakeTask>>runStepping (in category 'running') ----- runStepping runLevel ifNil: [ runLevel := #runStepping ]. + ^ [ self run ] on: SakeStep do: [ :ex | ex resume: true ]! - ^ self withAnswersDo: [ self runInteractively ]! Item was added: + ----- Method: SakeStep>>defaultAction (in category 'as yet unclassified') ----- + defaultAction + + self resume: false. + ! Item was changed: ----- Method: SakeTask>>doAction: (in category 'as yet unclassified') ----- doAction: priorTasks Count := 0. "reset loop trap" - self doActionStep. - result := nil. self action isBlock ifTrue: [ + result := self author: author during: [ self doActionStep: priorTasks ]. - result := self author: author during: [ self action valueWithPossibleArgument: priorTasks ]. ]. (self action isKindOf: Collection) ifTrue: [ self doTasks: self action ]. self doActionEnd. ! Item was changed: ----- Method: SakeTask>>run (in category 'running') ----- run runLevel ifNil: [ runLevel := #run ]. + ^ self withAnswersDo: [ self runInteractively ]! - ^ [ self runStepping ] on: SakeStep do: [ :ex | ex resume: true ]! Item was added: + ----- Method: SakeTask>>doActionStep: (in category 'as yet unclassified') ----- + doActionStep: priorTasks + + self step: 'Action for task: ', self name printString . + + ^ self action valueWithPossibleArgument: priorTasks ! Item was changed: + Notification subclass: #SakeStep - Warning subclass: #SakeStep instanceVariableNames: '' classVariableNames: '' poolDictionaries: '' category: 'Sake-Core'! Item was changed: ----- Method: SakeTask>>step: (in category 'signals') ----- step: aString "Create and schedule a Notifier with the argument as the message in order to request confirmation before a process can proceed." + SakeStep signal ifFalse: [ ^ self ]. + + "I wish I could set the size of the debugger window" + + ToolSet + debugContext: thisContext sender + label: 'Warning' + contents: aString, '\\Select Proceed to continue, or close this window to cancel the task.' withCRs ! - SakeStep signal: aString - !

1 0

2024

2023

2022

2021

2020

2019

2018

2017

2016

2015

2014

2013

2012

2011

2010

2009

2008

2007

2006

2005

Packages March 2009