--- a/Cface__TypeMapper.st	Tue May 27 18:55:24 2008 +0000
+++ b/Cface__TypeMapper.st	Thu Jul 03 22:00:07 2008 +0000
@@ -66,11 +66,14 @@
     cEnum isAnonymous ifFalse:
         [cEnum                       
             smalltalkNamespace: mappings smalltalkNamespace;
+            smalltalkPackage: (mappings smalltalkPackage);
             smalltalkClass: (mappings smalltalkClassForEnum: cEnum)].
+
     super visitCEnumNode: cEnum
 
     "Created: / 17-02-2008 / 20:58:53 / janfrog"
     "Modified: / 17-02-2008 / 22:24:58 / janfrog"
+    "Modified: / 03-07-2008 / 21:16:08 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 visitCEnumValueNode: cEnum
@@ -86,12 +89,15 @@
 visitCFunctionNode: cFunction
 
     cFunction
+        kind: (mappings kindForFunction:cFunction);
+
         smalltalkNamespace: mappings smalltalkNamespace;
         smalltalkClass: (mappings smalltalkClassForFunction: cFunction);
         smalltalkSelector: (mappings smalltalkSelectorForFunction: cFunction).
     super visitCFunctionNode: cFunction
 
     "Created: / 17-02-2008 / 22:10:44 / janfrog"
+    "Modified: / 03-07-2008 / 22:10:24 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 visitCStructFieldNode: cEnum
@@ -108,11 +114,13 @@
     cStruct isAnonymous ifFalse:
         [cStruct
             smalltalkNamespace: mappings smalltalkNamespace;
+            smalltalkPackage: (mappings smalltalkPackage);
             smalltalkClass: (mappings smalltalkClassForStruct: cStruct)].
     super visitCStructNode: cStruct
 
     "Created: / 17-02-2008 / 21:12:55 / janfrog"
     "Modified: / 17-02-2008 / 22:24:51 / janfrog"
+    "Modified: / 03-07-2008 / 21:43:58 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
 visitCUnionNode: cUnion
@@ -120,10 +128,12 @@
     cUnion isAnonymous ifFalse:
         [cUnion
             smalltalkNamespace: mappings smalltalkNamespace;
+            smalltalkPackage: (mappings smalltalkPackage);
             smalltalkClass: (mappings smalltalkClassForStruct: cUnion)].
     super visitCUnionNode: cUnion
 
     "Created: / 17-02-2008 / 22:25:27 / janfrog"
+    "Modified: / 03-07-2008 / 21:16:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
 ! !
 
 !TypeMapper class methodsFor:'documentation'!