git/GitRemoteHeadStructure.st
author vranyj1@bd9d3459-6c23-4dd9-91de-98eeebb81177
Mon, 17 Sep 2012 20:28:12 +0000
changeset 5 57c20a77e549
child 8 4275f357d3e8
permissions -rw-r--r--
- Refactored to use handles

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

ExternalAddress subclass:#GitRemoteHeadStructure
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Git-Internal-Structures'
!


!GitRemoteHeadStructure class methodsFor:'accessing'!

libraryName

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

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

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

structSize
    "Returns size of undelaying structure in bytes"

    ^48
! !

!GitRemoteHeadStructure methodsFor:'accessing'!

local
    "Returns int32"

    ^self longAt:1 + 0
!

local: value

    self longAt:1 + 0 put:value
!

loid
    "Returns ;; Line: 1476
;; Class: GitOidStructure
"

    ^self at:1 + 21
!

loid: value

    self at:1 + 21 put:value
!

name
    "Returns (pointer-to char)"

    ^self pointerAt:1 + 44
!

name: value

    self pointerAt:1 + 44 put:value
!

oid
    "Returns ;; Line: 1476
;; Class: GitOidStructure
"

    ^self at:1 + 1
!

oid: value

    self at:1 + 1 put:value
! !

!GitRemoteHeadStructure class methodsFor:'documentation'!

version_SVN
    ^ '$Id::                                                                                                                        $'
! !