"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2013 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

"{ Package: 'stx:libscm/mercurial' }"

Object subclass:#HGRevisionInfo

	instanceVariableNames:'changesetId className'

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Mercurial-StX'

!

!HGRevisionInfo class methodsFor:'documentation'!

copyright

"

stx:libscm - a new source code management library for Smalltalk/X

Copyright (C) 2012-2013 Jan Vrany

This library is free software; you can redistribute it and/or

modify it under the terms of the GNU Lesser General Public

License as published by the Free Software Foundation; either

version 2.1 of the License. 

This library is distributed in the hope that it will be useful,

but WITHOUT ANY WARRANTY; without even the implied warranty of

MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

Lesser General Public License for more details.

You should have received a copy of the GNU Lesser General Public

License along with this library; if not, write to the Free Software

Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA  02110-1301  USA

"

!

documentation

"

    A Mercurial-specific VersionInfo.

    [author:]

        Jan Vrany <jan.vrany@fit.cvut.cz>

    [see also:]

        VersionInfo

        CVSVersionInfo

"

! !

!HGRevisionInfo class methodsFor:'instance creation'!

readFrom: aStringOrStream onError: aBlock

    | s id |

    s := aStringOrStream readStream.

    s skipSeparators.

    s peek ~~ $$ ifTrue:[^aBlock value].

    s next.

    s skipSeparators.

    s peek == $H ifTrue:[

        "Some rubbish $Header: /cvs/stx/stx/libscm/mercurial/HGRevisionInfo.st.orig,v 1.1 2015-01-16 14:42:08 vrany Exp $?"

        (s next: 6) ~= 'Header' ifTrue:[^aBlock value].

        id := HGChangesetId null.

    ] ifFalse:[

        (s next: 10) ~= 'Changeset:' ifTrue:[^aBlock value].

        s skipSeparators.

        s peek == $< ifTrue:[

            "/Not expanded...

            id := HGChangesetId null.

        ] ifFalse:[

            id := HGChangesetId fromHexString: (s next: 40).    

        ].

    ].

    ^self new changesetId: id

    "Created: / 20-11-2012 / 00:33:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    "Modified: / 04-12-2012 / 13:17:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGRevisionInfo methodsFor:'accessing'!

at:aKey

    "backward compatible dictionary-like accessing"

    (self respondsTo:aKey) ifTrue:[

        ^ self perform:aKey

    ].

    ^ self errorKeyNotFound:aKey

    "

     self new at:#binaryRevision

     self new at:#foo

    "

    "Modified: / 22-10-2008 / 20:23:31 / cg"

!

at:aKey ifAbsent:replacement

    "backward compatible dictionary-like accessing"

    (self respondsTo:aKey) ifTrue:[

        ^ (self perform:aKey) ? replacement

    ].

    ^ replacement

    "

     self new at:#binaryRevision

     self new at:#foo ifAbsent:#bar

    "

    "Created: / 22-10-2008 / 20:19:42 / cg"

!

at:aKey put:value

    "backward compatible dictionary-like accessing"

    (self respondsTo:aKey) ifTrue:[

        self perform:(aKey asMutator) with:value.

        ^ value "/ sigh

    ].

    ^ self errorKeyNotFound:aKey

    "

     self new at:#binaryRevision put:#bar

     self new at:#foo put:#bar

    "

    "Created: / 22-10-2008 / 20:20:54 / cg"

!

changesetId

    ^ changesetId

!

changesetId:anHGNodeId

    changesetId := anHGNodeId.

!

className

    ^ className

!

className:something

    className := something.

! !

!HGRevisionInfo methodsFor:'accessing-properties'!

author

    ^ self user

    "Created: / 21-12-2011 / 23:09:54 / cg"

!

binaryRevision

    ^ changesetId printString

    "Modified: / 20-11-2012 / 10:26:19 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

binaryRevision: aString

    "Created: / 20-11-2012 / 10:15:05 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

date

    ^ nil

    "Modified: / 20-11-2012 / 10:26:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

fileName

    | cls fn |

    className isNil ifTrue:[ ^ nil ].

    cls := Smalltalk at: className.

    cls notNil ifTrue:[

        fn := className , '.' , (cls programmingLanguage sourceFileSuffix)

    ] ifFalse:[

        fn := className , '.st'

    ].

    (fn includes: $:) ifTrue:[fn replaceAll:$: with:$_].

    ^fn.

    "Modified: / 04-12-2012 / 12:03:03 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

repositoryPathName

    ^ self fileName

    "Modified: / 20-11-2012 / 10:03:54 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

revision

    ^ changesetId printString

    "Modified: / 20-11-2012 / 10:15:31 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

time

    ^ nil

    "Modified: / 20-11-2012 / 10:15:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

timezone

    "raise an error: must be redefined in concrete subclass(es)"

    ^ nil "Not known"

    "Modified: / 23-11-2011 / 13:54:56 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

user

    ^ nil

    "Modified: / 20-11-2012 / 10:15:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGRevisionInfo methodsFor:'enumerating'!

keysAndValuesDo:aBlock

    self class instVarNames do:[:nm |

        aBlock value:(nm asSymbol) value:(self perform:nm asSymbol)

    ].

    "Created: / 22-10-2008 / 20:48:08 / cg"

! !

!HGRevisionInfo methodsFor:'printing & storing'!

printOn:aStream

    "append a printed representation if the receiver to the argument, aStream"

    super printOn:aStream.

    aStream nextPutAll:'['.

    className printOn:aStream.

    aStream space.

    changesetId printOn:aStream.

    aStream nextPutAll:']'.

    "Modified: / 30-11-2012 / 22:13:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGRevisionInfo methodsFor:'private'!

properties

    #(

        revision

        binaryRevision

        user

        date

        time

        fileName

        repositoryPathName

    )

    "Created: / 20-11-2012 / 10:01:02 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!HGRevisionInfo class methodsFor:'documentation'!

version_HG

    ^ '$Changeset: <not expanded> $'

! !