Cface__CWCharNode.st
author Jan Vrany <jan.vrany@fit.cvut.cz>
Mon, 06 Jul 2015 07:18:24 +0100
changeset 36 4e586238a9f7
parent 32 d7464405cbda
child 37 1ad7fb72801a
permissions -rw-r--r--
Fix in class generator (MethofDefinitionChange>>classVariableNames: now takes collection, not string)
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: 16
diff changeset
     1
"{ Package: 'jv:cface' }"
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     2
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     3
"{ NameSpace: Cface }"
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     5
CBuiltinNode subclass:#CWCharNode
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     6
	instanceVariableNames:''
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     7
	classVariableNames:''
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     8
	poolDictionaries:''
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
     9
	category:'Cface-C AST'
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    10
!
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    11
10
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    12
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    13
!CWCharNode methodsFor:'accessing'!
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    14
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    15
cByteSize
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    16
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    17
    "
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    18
        Cface::CWCharNode new cByteSize       
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    19
    "
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    20
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    21
"    %{
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    22
        return __MKSMALLINT(sizeof(wchar_t));
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    23
    %}."
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    24
    ^4
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    25
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    26
    "Created: / 09-07-2008 / 19:35:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
16
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    27
!
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    28
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    29
ffiTypeSymbol
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    30
    "superclass Cface::CTypeNode says that I am responsible to implement this method"
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    31
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    32
    ^ #wchar
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    33
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    34
    "Modified: / 12-07-2011 / 16:29:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    35
!
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    36
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    37
smalltalkName
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    38
    "superclass Cface::CBuiltinNode says that I am responsible to implement this method"
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    39
ffcbe7184a53 Fixes...
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 14
diff changeset
    40
    ^ self shouldImplement
5
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    41
! !
c110eef5b9ef - externalization of libraryName (now supports unix & win32 simultaneously)
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 4
diff changeset
    42
4
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    43
!CWCharNode methodsFor:'visiting'!
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    44
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    45
acceptVisitor:aVisitor 
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    46
    "Double dispatch back to the visitor, passing my type encoded in
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    47
     the selector (visitor pattern)"
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    48
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    49
    "stub code automatically generated - please change if required"
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    50
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    51
    ^ aVisitor visitCWCharNode:self
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    52
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    53
    "Created: / 04-07-2008 / 12:37:31 / Jan Vrany <vranyj1@fel.cvut.cz>"
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    54
! !
fc74bd43a3eb Minor parser fixes to parse Cairo Xlib stuff
Jan Vrany <jan.vrany@fit.cvut.cz>
parents:
diff changeset
    55
10
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    56
!CWCharNode class methodsFor:'documentation'!
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    57
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    58
version
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    59
    ^'$Id$'
14
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    60
!
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    61
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    62
version_SVN
1f730d82496e Added version_SVN methods
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 10
diff changeset
    63
    ^ '$Id$'
10
8087158409e4 Fixed namespace and class generation
Jan Vrany <jan.vrany@fit.cvut.cz>
parents: 5
diff changeset
    64
! !