[Pkg] DeltaStreams: DeltaStreams-Converting-mtf.1.mcz

[squeak-dev-noreply at lists.squeakfoundation.org]

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/'.!