Cface__GTKMapping.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Thu, 17 Sep 2015 07:36:40 +0100
changeset 49 307d55f736ec
parent 43 9327987437ae
permissions -rw-r--r--
LLVM bindings: allow to specify path to llvm-config ..by setting LLVM_CONFIG variable when generating definitions for LLVM bindings. Example: make LVM_CONFIG=~/Projects/LLVM/sources1/build/Debug+Asserts/bin/llvm-config

"{ Package: 'jv:cface' }"

"{ NameSpace: Cface }"

TypeMapping subclass:#GTKMapping
	instanceVariableNames:''
	classVariableNames:''
	poolDictionaries:''
	category:'Cface-Mappings'
!


!GTKMapping methodsFor:'filtering'!

shouldIgnoreStruct: cStructNode

    ^cStructNode cName endsWith: 'Class'.

    "Created: / 22-02-2009 / 22:15:19 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!GTKMapping methodsFor:'mapping - class names'!

smalltalkClassNameForDerivedType:cType 

    ((cType cName startsWith:'Gtk') or: [cType cName startsWith:'_Gtk'])
        ifTrue:[^cType cName copyFrom: 5].
    ((cType cName startsWith:'Gtk') or: [cType cName startsWith:'_Gtk'])
        ifTrue:[^cType cName copyFrom: 5].
    ^super smalltalkClassNameForDerivedType:cType

    "Created: / 22-02-2009 / 22:33:55 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!GTKMapping methodsFor:'mapping - namespaces'!

smalltalkNamespaceForDerivedType: cType

    ((cType cName startsWith:'Gtk') or: [cType cName startsWith:'_Gtk'])
        ifTrue:[^'GTK'].
    ((cType cName startsWith:'Gdk') or: [cType cName startsWith:'_Gdk'])
        ifTrue:[^'GdK'].
    ^super smalltalkNamespaceForDerivedType: cType

    "Created: / 22-02-2009 / 22:32:41 / Jan Vrany <vranyj1@fel.cvut.cz>"
! !

!GTKMapping class methodsFor:'documentation'!

version
    ^'$Id$'
!

version_SVN
    ^ '$Id$'
! !