Cface__TypeMapper.st
changeset 39 5ff8fcdb5228
parent 32 d7464405cbda
--- a/Cface__TypeMapper.st	Mon Jul 06 08:03:53 2015 +0100
+++ b/Cface__TypeMapper.st	Mon Jul 06 22:21:35 2015 +0100
@@ -132,6 +132,22 @@
     "Modified: / 22-02-2009 / 22:14:40 / Jan Vrany <vranyj1@fel.cvut.cz>"
 !
 
+visitCTypedefNode:cTypedefNode
+
+    cTypedefNode shouldBeIgnored ifFalse:[
+        cTypedefNode
+            smalltalkNamespace:(mappings smalltalkNamespaceForTypedef: cTypedefNode);
+            smalltalkPackage:(mappings smalltalkPackage);
+            smalltalkClassName:(mappings smalltalkClassNameForTypedef:cTypedefNode);
+            smalltalkCategory: (mappings smalltalkCategoryForTypedef: cTypedefNode)
+    ].
+    super visitCTypedefNode:cTypedefNode.
+    cTypedefNode shouldBeIgnored ifFalse:
+        [cTypedefNode ignore: (mappings shouldIgnoreTypedef: cTypedefNode)].
+
+    "Created: / 06-07-2015 / 11:35:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
+!
+
 visitCUnionNode:cUnion
 
 
@@ -159,3 +175,4 @@
 version_SVN
     ^ '$Id$'
 ! !
+