[Pkg] DeltaStreams: DeltaStreams-Converting-mtf.1.mcz
squeak-dev-noreply at lists.squeakfoundation.org
squeak-dev-noreply at lists.squeakfoundation.org
Wed Aug 12 19:05:38 UTC 2009
A new version of DeltaStreams-Converting was added to project DeltaStreams:
http://www.squeaksource.com/DeltaStreams/DeltaStreams-Converting-mtf.1.mcz
==================== Summary ====================
Name: DeltaStreams-Converting-mtf.1
Author: mtf
Time: 12 August 2009, 3:05:35 pm
UUID: c1f1e327-2ebf-4a1c-83de-ab97aede69fc
Ancestors:
Started writing a utility to read the Pharo update stream
==================== Snapshot ====================
SystemOrganization addCategory: #'DeltaStreams-Converting'!
Object subclass: #DSUpdateStreamConverter
instanceVariableNames: ''
classVariableNames: ''
poolDictionaries: ''
category: 'DeltaStreams-Converting'!
!DSUpdateStreamConverter commentStamp: 'mtf 8/12/2009 13:32' prior: 0!
I convert update streams to delta streams!
----- Method: DSUpdateStreamConverter>>convertPharoUpdates (in category 'as yet unclassified') -----
convertPharoUpdates
self readSapphireRepoAsPharoRepo.
Utilities updateFromServer!
----- Method: DSUpdateStreamConverter>>readSapphireRepoAsPharoRepo (in category 'as yet unclassified') -----
readSapphireRepoAsPharoRepo
"Hack the compiler to compile 'http://www.squeaksource.com/Sapphire' as 'http://www.squeaksource.com/Pharo'. Very evil. Allows us to file in changesets that reference the old Sapphire repository, which was renamed to Pharo"
"LeafNode sourceCodeAt: #key:"
LeafNode compile: 'key: object
object = ''http://www.squeaksource.com/Sapphire''
ifTrue: [key := ''http://www.squeaksource.com/Pharo''. ^ self].
object = ''http://www.squeaksource.com/Sapphire/''
ifTrue: [key := ''http://www.squeaksource.com/Pharo/''. ^ self].
key := object
' classified: #'initialize-release'.
LeafNode >> #key: literalAt: 2 put: 'http://', 'www.squeaksource.com/Sapphire'.
LeafNode >> #key: literalAt: 4 put: 'http://', 'www.squeaksource.com/Sapphire/'.!
More information about the Packages
mailing list