Cface__TypeMapper.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 06 Jul 2015 22:28:52 +0100
changeset 40 7d1e77b6115e
parent 39 5ff8fcdb5228
permissions -rw-r--r--
Renamed CUserDefinedTypeNode to CUnresolvedTypeNode. This is a preparation for new resolving code.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
32
d7464405cbda Package renamed from cvut:fel/cface to jv:cface
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 19
diff changeset
     1
"{ Package: 'jv:cface' }"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
"{ NameSpace: Cface }"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
CNodeVisitor subclass:#TypeMapper
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	instanceVariableNames:'mappings'
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	classVariableNames:''
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
	poolDictionaries:''
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	category:'Cface-Visitors'
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    12
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    13
!TypeMapper class methodsFor:'processing'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    14
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    15
process: cNode
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    16
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    17
    self error:'Use #process:using: instead'
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    18
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    19
    "Created: / 17-02-2008 / 20:56:59 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    20
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    21
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    22
process: cNode using: mappings
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    23
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    24
    self new  mappings: mappings process: cNode
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    25
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    26
    "Created: / 17-02-2008 / 20:57:22 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    27
    "Modified: / 18-02-2008 / 15:32:31 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    28
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    29
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    30
!TypeMapper methodsFor:'accessing'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    31
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    32
mappings
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    33
    ^ mappings
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    34
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    35
    "Created: / 17-02-2008 / 20:58:30 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    36
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    37
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    38
mappings:aTypeMapping
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    39
    mappings := aTypeMapping.
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    40
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    41
    "Created: / 17-02-2008 / 20:58:30 / janfrog"
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    42
    "Modified: / 10-07-2008 / 08:01:53 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
!TypeMapper methodsFor:'processing'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
process: definitions
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
    mappings ifNil:[^self error:'No mappings provided!!'].
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    50
    mappings definitions: definitions.
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
    super process: definitions
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
    "Created: / 18-02-2008 / 15:33:19 / janfrog"
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    54
    "Modified: / 22-02-2009 / 22:16:45 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    56
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    57
process: definitions using: givenMappings
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    58
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    59
    self mappings: givenMappings.
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    60
    self process: definitions
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    61
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    62
    "Created: / 18-02-2008 / 15:34:07 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    63
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    64
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    65
!TypeMapper methodsFor:'visiting'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    66
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    67
visitCEnumNode:cEnum
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    68
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    69
    cEnum shouldBeIgnored ifFalse:[
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    70
        cEnum
6
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    71
            smalltalkNamespace:(mappings smalltalkNamespaceForEnum: cEnum);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    72
            smalltalkPackage:(mappings smalltalkPackage);
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    73
            smalltalkClassName:(mappings smalltalkClassNameForEnum:cEnum);
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    74
            smalltalkCategory: (mappings smalltalkCategoryForEnum: cEnum)
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    75
    ].
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    76
    super visitCEnumNode:cEnum.
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    77
    cEnum shouldBeIgnored ifFalse:
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    78
        [cEnum ignore: (mappings shouldIgnoreEnum: cEnum)].
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    79
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    80
    "Created: / 17-02-2008 / 20:58:53 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    81
    "Modified: / 17-02-2008 / 22:24:58 / janfrog"
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    82
    "Modified: / 22-02-2009 / 22:14:09 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    83
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    84
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2
diff changeset
    85
visitCEnumValueNode:cEnum 
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    86
    cEnum
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2
diff changeset
    87
        smalltalkName:(mappings smalltalkNameForEnumValue:cEnum).
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2
diff changeset
    88
    super visitCEnumValueNode:cEnum
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    89
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    90
    "Created: / 17-02-2008 / 21:02:21 / janfrog"
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 2
diff changeset
    91
    "Modified: / 04-07-2008 / 11:33:06 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    92
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    93
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    94
visitCFunctionNode:cFunction
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    95
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    96
    cFunction
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    97
            kind:(mappings kindForFunction:cFunction);
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    98
            smalltalkNamespace:(mappings smalltalkNamespaceForFunction: cFunction);
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
    99
            smalltalkClassName:(mappings smalltalkClassNameForFunction:cFunction);
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   100
            smalltalkSelector:(mappings smalltalkSelectorForFunction:cFunction).
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   101
    super visitCFunctionNode:cFunction
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   102
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   103
    "Created: / 17-02-2008 / 22:10:44 / janfrog"
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   104
    "Modified: / 22-02-2009 / 22:14:23 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   105
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   106
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   107
visitCStructFieldNode: cEnum
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   108
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   109
    cEnum
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   110
        smalltalkName: (mappings smalltalkNameForStructField: cEnum).
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   111
    super visitCStructFieldNode: cEnum
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   112
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   113
    "Created: / 17-02-2008 / 21:22:53 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   114
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   115
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   116
visitCStructNode:cStruct
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   117
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   118
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   119
    cStruct shouldBeIgnored ifFalse:[
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   120
        cStruct
6
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   121
            smalltalkNamespace:(mappings smalltalkNamespaceForStruct: cStruct);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   122
            smalltalkPackage:(mappings smalltalkPackage);
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   123
            smalltalkClassName:(mappings smalltalkClassNameForStruct:cStruct);
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   124
            smalltalkCategory: (mappings smalltalkCategoryForStruct: cStruct)
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   125
    ].
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   126
    super visitCStructNode:cStruct.
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   127
    cStruct shouldBeIgnored ifFalse:
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   128
        [cStruct ignore: (mappings shouldIgnoreStruct: cStruct)].
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   129
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   130
    "Created: / 17-02-2008 / 21:12:55 / janfrog"
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   131
    "Modified: / 17-02-2008 / 22:24:51 / janfrog"
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   132
    "Modified: / 22-02-2009 / 22:14:40 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   133
!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   134
39
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   135
visitCTypedefNode:cTypedefNode
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   136
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   137
    cTypedefNode shouldBeIgnored ifFalse:[
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   138
        cTypedefNode
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   139
            smalltalkNamespace:(mappings smalltalkNamespaceForTypedef: cTypedefNode);
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   140
            smalltalkPackage:(mappings smalltalkPackage);
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   141
            smalltalkClassName:(mappings smalltalkClassNameForTypedef:cTypedefNode);
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   142
            smalltalkCategory: (mappings smalltalkCategoryForTypedef: cTypedefNode)
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   143
    ].
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   144
    super visitCTypedefNode:cTypedefNode.
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   145
    cTypedefNode shouldBeIgnored ifFalse:
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   146
        [cTypedefNode ignore: (mappings shouldIgnoreTypedef: cTypedefNode)].
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   147
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   148
    "Created: / 06-07-2015 / 11:35:00 / Jan Vrany <jan.vrany@fit.cvut.cz>"
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   149
!
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   150
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   151
visitCUnionNode:cUnion
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   152
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   153
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   154
    cUnion shouldBeIgnored ifFalse:[
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   155
        cUnion
6
ae25dce94003 Added SVNMapping. Now it is able to parse libsvn.def
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
   156
            smalltalkNamespace:(mappings smalltalkNamespaceForUnion: cUnion);
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   157
            smalltalkPackage:  (mappings smalltalkPackage);
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   158
            smalltalkClassName:(mappings smalltalkClassNameForUnion:cUnion);
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   159
            smalltalkCategory: (mappings smalltalkCategoryForUnion: cUnion)
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
   160
    ].
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   161
    super visitCUnionNode:cUnion.
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   162
    cUnion shouldBeIgnored ifFalse:
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   163
        [cUnion ignore: (mappings shouldIgnoreUnion: cUnion)].
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   164
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   165
    "Created: / 17-02-2008 / 22:25:27 / janfrog"
11
a77f44d45a27 Initial support for GTK
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 9
diff changeset
   166
    "Modified: / 22-02-2009 / 22:14:52 / Jan Vrany <vranyj1@fel.cvut.cz>"
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   167
! !
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   168
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   169
!TypeMapper class methodsFor:'documentation'!
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   170
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   171
version
19
1297bf936bfb Some fixes for modern GCC XML
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
   172
    ^ '$Id$'
14
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 11
diff changeset
   173
!
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 11
diff changeset
   174
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 11
diff changeset
   175
version_SVN
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 11
diff changeset
   176
    ^ '$Id$'
1
b6c0180314d1 Initial import
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
   177
! !
39
5ff8fcdb5228 Added support for generating classes for typedef'd types.
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 32
diff changeset
   178