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

ExternalStructure subclass:#GitStructure

	instanceVariableNames:''

	classVariableNames:''

	poolDictionaries:''

	category:'SCM-Git-Core-Internal-Structures'

!

!GitStructure class methodsFor:'instance creation'!

address: address

    ^self address: address size: self structSize.

    "Created: / 19-09-2012 / 14:04:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

fromExternalAddress:anExternalAddress

    ^ self basicNew fromExternalAddress:anExternalAddress

    "Created: / 01-10-2012 / 14:26:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

new

    ^self new: self structSize

    "Created: / 30-09-2012 / 20:21:27 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

new: size

    size == self structSize ifFalse:[

        self error:'Invalid size for git_checkout_opts'.

        ^nil.

    ].

    ^(super new: size) initialize.

    "Created: / 19-09-2012 / 18:13:42 / Jan Vrany <jan.vrany@fit.cvut.cz>"

!

newAddress: address

    ^self address: address size: self structSize.

    "Created: / 25-09-2012 / 15:07:35 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitStructure class methodsFor:'accessing'!

structSize

    ^0

    "Created: / 19-09-2012 / 01:53:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitStructure methodsFor:'initialization'!

initialize

    1 to: self size do:[:i|self at: i put: 0]

    "Created: / 03-10-2012 / 20:31:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitStructure methodsFor:'private'!

fromExternalAddress:anExternalAddress

    self setAddress:(anExternalAddress address) size: self class structSize

    "Created: / 19-09-2012 / 01:53:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"

! !

!GitStructure class methodsFor:'documentation'!

version_GIT

    "Never, ever change this method. Ask JV or CG why"

    ^thisContext method mclass theNonMetaclass instVarNamed: #revision

!

version_SVN

    ^ '$Id$'

! !