Cface__Libgit2Mapping.st
changeset 26 bd4d0544a609
parent 24 e7afa531abcf
child 27 5a58064b5921
equal deleted inserted replaced
25:9718bd0f1028 26:bd4d0544a609
    29 
    29 
    30     "Created: / 04-07-2008 / 11:32:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
    30     "Created: / 04-07-2008 / 11:32:01 / Jan Vrany <vranyj1@fel.cvut.cz>"
    31     "Modified: / 04-09-2012 / 16:02:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    31     "Modified: / 04-09-2012 / 16:02:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    32 !
    32 !
    33 
    33 
    34 smalltalkNamespace
       
    35 
       
    36     ^#Smalltalk
       
    37 
       
    38     "Created: / 17-02-2008 / 20:51:26 / janfrog"
       
    39     "Modified: / 04-09-2012 / 16:01:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    40 !
       
    41 
       
    42 smalltalkPackage
    34 smalltalkPackage
    43 
    35 
    44     ^#'stx:libgit'
    36     ^#'stx:libgit'
    45 
    37 
    46     "Created: / 03-07-2008 / 21:14:47 / Jan Vrany <vranyj1@fel.cvut.cz>"
    38     "Created: / 03-07-2008 / 21:14:47 / Jan Vrany <vranyj1@fel.cvut.cz>"
    47     "Modified: / 04-09-2012 / 16:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    39     "Modified: / 04-09-2012 / 16:01:36 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    48 ! !
    40 ! !
    49 
    41 
    50 !Libgit2Mapping methodsFor:'mapping - categories'!
    42 !Libgit2Mapping methodsFor:'mapping - categories'!
    51 
    43 
    52 smalltalkCategoryForDerivedType:cType 
    44 smalltalkCategoryForDerivedType:cType
       
    45     | className class |
    53 
    46 
    54     ^'Git-C Types'
    47     className := cType smalltalkName asSymbol.
       
    48     (className notNil and:[(class := Smalltalk at: className) notNil]) ifTrue:[
       
    49         ^class category
       
    50     ].
       
    51     ^'Git-Support-libgit2'
    55 
    52 
    56     "Created: / 05-09-2012 / 11:15:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    53     "Created: / 05-09-2012 / 11:15:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
       
    54 ! !
       
    55 
       
    56 !Libgit2Mapping methodsFor:'mapping - class names'!
       
    57 
       
    58 smalltalkClassNameForFunction:cFunction 
       
    59     "Answers class which should contain function call"
       
    60 
       
    61     ^#GitPrimitives
       
    62 
       
    63     "Created: / 07-09-2012 / 15:04:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
    57 ! !
    64 ! !
    58 
    65 
    59 !Libgit2Mapping class methodsFor:'documentation'!
    66 !Libgit2Mapping class methodsFor:'documentation'!
    60 
    67 
    61 version_SVN
    68 version_SVN