- Cface::TypeMapping
authorJan Vrany <jan.vrany@fit.cvut.cz>
Fri, 07 Sep 2012 14:28:18 +0000
changeset 26 bd4d0544a609
parent 25 9718bd0f1028
child 27 5a58064b5921
- Cface::TypeMapping changed: #smalltalkNamespace - Cface::Libgit2Mapping added: #smalltalkClassNameForFunction: changed: #smalltalkCategoryForDerivedType: - extensions ...
Cface__Libgit2Mapping.st
Cface__TypeMapping.st
cface.rc
--- a/Cface__Libgit2Mapping.st	Wed Sep 05 11:13:11 2012 +0000
+++ b/Cface__Libgit2Mapping.st	Fri Sep 07 14:28:18 2012 +0000
@@ -31,14 +31,6 @@
     "Modified: / 04-09-2012 / 16:02:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
-smalltalkNamespace
-
-    ^#Smalltalk
-
-    "Created: / 17-02-2008 / 20:51:26 / janfrog"
-    "Modified: / 04-09-2012 / 16:01:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"
-!
-
 smalltalkPackage
 
     ^#'stx:libgit'
@@ -49,13 +41,28 @@
 
 !Libgit2Mapping methodsFor:'mapping - categories'!
 
-smalltalkCategoryForDerivedType:cType 
+smalltalkCategoryForDerivedType:cType
+    | className class |
 
-    ^'Git-C Types'
+    className := cType smalltalkName asSymbol.
+    (className notNil and:[(class := Smalltalk at: className) notNil]) ifTrue:[
+        ^class category
+    ].
+    ^'Git-Support-libgit2'
 
     "Created: / 05-09-2012 / 11:15:13 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 ! !
 
+!Libgit2Mapping methodsFor:'mapping - class names'!
+
+smalltalkClassNameForFunction:cFunction 
+    "Answers class which should contain function call"
+
+    ^#GitPrimitives
+
+    "Created: / 07-09-2012 / 15:04:47 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+! !
+
 !Libgit2Mapping class methodsFor:'documentation'!
 
 version_SVN
--- a/Cface__TypeMapping.st	Wed Sep 05 11:13:11 2012 +0000
+++ b/Cface__TypeMapping.st	Fri Sep 07 14:28:18 2012 +0000
@@ -26,10 +26,11 @@
 
 smalltalkNamespace
 
-    ^smalltalkNamespace ? #Smalltalk
+    ^nil
 
     "Created: / 17-02-2008 / 20:51:05 / janfrog"
     "Modified: / 10-07-2008 / 20:34:14 / Jan Vrany <vranyj1@fel.cvut.cz>"
+    "Modified: / 07-09-2012 / 15:15:44 / Jan Vrany <jan.vrany@fit.cvut.cz>"
 !
 
 smalltalkNamespace:something
--- a/cface.rc	Wed Sep 05 11:13:11 2012 +0000
+++ b/cface.rc	Fri Sep 07 14:28:18 2012 +0000
@@ -3,7 +3,7 @@
 // automagically generated from the projectDefinition: cvut_fel_cface.
 //
 VS_VERSION_INFO VERSIONINFO
-  FILEVERSION     6,2,23,23
+  FILEVERSION     6,2,25,25
   PRODUCTVERSION  6,2,3,1
 #if (__BORLANDC__)
   FILEFLAGSMASK   VS_FF_DEBUG | VS_FF_PRERELEASE
@@ -20,12 +20,12 @@
     BEGIN
       VALUE "CompanyName", "CVUT FEL\0"
       VALUE "FileDescription", "Cairo graphics binding (LIB)\0"
-      VALUE "FileVersion", "6.2.23.23\0"
+      VALUE "FileVersion", "6.2.25.25\0"
       VALUE "InternalName", "cvut:fel/cface\0"
       VALUE "LegalCopyright", "Copyright 2008 Jan Vrany\0"
       VALUE "ProductName", "CairoGraphics\0"
       VALUE "ProductVersion", "6.2.3.1\0"
-      VALUE "ProductDate", "Wed, 05 Sep 2012 11:12:53 GMT\0"
+      VALUE "ProductDate", "Fri, 07 Sep 2012 14:28:48 GMT\0"
     END
 
   END