MCGemstoneRepository.st
author Claus Gittinger <cg@exept.de>
Sat, 01 Sep 2018 17:35:45 +0200
changeset 1094 55a945c18a3e
parent 1052 462a029cfa80
permissions -rw-r--r--
#FEATURE by cg class: MCFileTreeRepository changed: #repositoryBranchName #repositoryProperties #repositoryVersionString class: MCFileTreeRepository class comment/format in: #parseName:extension:

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

"{ NameSpace: Smalltalk }"

MCHttpRepository subclass:#MCGemstoneRepository
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'SCM-Monticello-RemoteRepositories'
!

!MCGemstoneRepository class methodsFor:'documentation'!

documentation
"
    An explicit subclass of MCHttpRepository to provide a template for gemstone repositories.
"
! !

!MCGemstoneRepository class methodsFor:'accessing'!

baseURL
	^ 'http://ss3.gemtalksystems.com/ss/'
!

description
	^ 'ss3.gemstone.com'
! !

!MCGemstoneRepository class methodsFor:'testing'!

isResponsibleFor: aUrl
	^ (aUrl includesSubstring: 'ss3.gemstone.com/') or: [  aUrl includesSubstring: 'ss3.gemtalksystems.com/' ]
! !

!MCGemstoneRepository methodsFor:'*Komitter-Models'!

koRemote

	^ KomitGemstoneRemote new
		remote: self;
		yourself
! !

!MCGemstoneRepository methodsFor:'interface'!

includesVersionNamed: aString
	"directly do a filename check since squeaksource only stores mcz"
	^ self includesFileNamed: aString, '.mcz'
! !

!MCGemstoneRepository class methodsFor:'documentation'!

version
    ^ '$Header$'
!

version_CVS
    ^ '$Header$'
! !