"{ Package: 'stx:goodies/monticello' }"

MCReader subclass:#MCVersionReader

	instanceVariableNames:'package info definitions dependencies stepChildren'

	classVariableNames:''

	poolDictionaries:''

	category:'Monticello-Storing'

!

!MCVersionReader class methodsFor:'*monticello-file services'!

loadVersionStream: stream fromDirectory: directory

	| version |

	version _ self versionFromStream: stream.

	directory isRemoteDirectory ifFalse: [

	version workingCopy repositoryGroup addRepository:

		(MCDirectoryRepository new directory: directory). ].

	version load.

!

mergeVersionStream: stream

	(self versionFromStream: stream) merge

!

openVersionFromStream: stream

	(self versionFromStream: stream) open

! !

!MCVersionReader class methodsFor:'*monticello-file services-override-override'!

serviceLoadVersion

	^ (SimpleServiceEntry

		provider: self

		label: 'load version'

		selector: #loadVersionStream:fromDirectory:

		description: 'load a package version'

		buttonLabel: 'load')

		argumentGetter: [ :fileList | { fileList readOnlyStream . fileList directory } ]

!

serviceMergeVersion

	^ (SimpleServiceEntry

		provider: self

		label: 'merge version'

		selector: #mergeVersionStream:

		description: 'merge a package version into the image'

		buttonLabel: 'merge')

		argumentGetter: [ :fileList | fileList readOnlyStream ]

!

serviceOpenVersion

	^ (SimpleServiceEntry

		provider: self

		label: 'open version'

		selector: #openVersionFromStream:

		description: 'open a package version'

		buttonLabel: 'open')

		argumentGetter: [ :fileList | fileList readOnlyStream ]

! !

!MCVersionReader class methodsFor:'file services'!

fileReaderServicesForFile: fullName suffix: suffix

	self isAbstract ifTrue: [^ #()].

	^ ((suffix = self extension) or: [ suffix = '*' ])

		ifTrue: [self services]

		ifFalse: [Array new: 0]

!

initialize

!

loadVersionFile: fileName

	| version |

	version _ self versionFromFile: fileName.

	version workingCopy repositoryGroup addRepository:

		(MCDirectoryRepository new directory:

			(FileDirectory on: (FileDirectory dirPathFor: fileName))).

	version load.

!

mergeVersionFile: fileName

	(self versionFromFile: fileName) merge

!

openVersionFile: fileName

	(self versionFromFile: fileName) open

!

services

	^ Array 

		with: self serviceLoadVersion

		with: self serviceMergeVersion

		with: self serviceOpenVersion

!

unload

	FileList unregisterFileReader: self 

! !

!MCVersionReader class methodsFor:'reading'!

file: fileName streamDo: aBlock

	| file |

	^ 	[file _ FileStream readOnlyFileNamed: fileName.

		aBlock value: file]

			ensure: [file close]

!

on: s fileName: f

	^ self on: s

!

versionFromFile: fileName

	^ self file: fileName streamDo: [:stream | self versionFromStream: stream]

!

versionFromStream: aStream

	^ (self on: aStream) version

!

versionInfoFromStream: aStream

	^ (self on: aStream) info

! !

!MCVersionReader class methodsFor:'testing'!

canReadFileNamed: fileName

	^ (fileName endsWith: self extension)

! !

!MCVersionReader methodsFor:'accessing'!

basicVersion

	^ MCVersion

		package: self package

		info: self info

		snapshot: self snapshot

		dependencies: self dependencies

!

definitions

	definitions ifNil: [self loadDefinitions].

	^ definitions

!

dependencies

	dependencies ifNil: [self loadDependencies].

	^ dependencies

!

info

	info ifNil: [self loadVersionInfo].

	^ info

!

package

	package ifNil: [self loadPackage].

	^ package

!

snapshot

	^ MCSnapshot fromDefinitions: self definitions

!

version

	^ self basicVersion

! !

!MCVersionReader methodsFor:'lifecycle'!

initialize

! !

!MCVersionReader methodsFor:'loading'!

loadDefinitions

	self subclassResponsibility 

!

loadDependencies

	self subclassResponsibility 

!

loadPackage

	self subclassResponsibility 

!

loadVersionInfo

	self subclassResponsibility

! !

!MCVersionReader class methodsFor:'documentation'!

version

! !

MCVersionReader initialize!