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

     2 

     3 ExternalStructure subclass:#GitOid

     4 	instanceVariableNames:''

     5 	classVariableNames:''

     6 	poolDictionaries:''

     7 	category:'Git-Support-libgit2'

     8 !

     9 

    10 

    11 !GitOid class methodsFor:'accessing'!

    12 

    13 libraryName

    14 

    15     OperatingSystem isUNIXlike ifTrue:[^'libgit2.so'].

    16 

    17     OperatingSystem isMSWINDOWSlike ifTrue:[^'git2.dll'].

    18 

    19     self error:'Library name for host OS is not known'

    20 !

    21 

    22 structSize

    23 

    24     ^160

    25 ! !

    26 

    27 !GitOid methodsFor:'accessing'!

    28 

    29 id

    30     "Returns a Cface::CArrayNode"

    31 

    32     ^self at:1 + 0

    33 !

    34 

    35 id: value

    36 

    37     self at:1 + 0 put:value

    38 ! !

    39 

    40 !GitOid class methodsFor:'documentation'!

    41 

    42 version_SVN

    43     ^ '$Id::                                                                                                                        $'

    44 ! !