equal
deleted
inserted
replaced
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'Cface-C AST' |
9 category:'Cface-C AST' |
10 ! |
10 ! |
11 |
11 |
12 |
12 |
13 !CCharNode methodsFor:'accessing'! |
|
14 |
|
15 cByteSize |
|
16 |
|
17 " |
|
18 Cface::CCharNode new cByteSize |
|
19 " |
|
20 |
|
21 %{ |
|
22 return __MKSMALLINT(sizeof(char)); |
|
23 %}. |
|
24 ^1 |
|
25 |
|
26 "Created: / 09-07-2008 / 19:32:30 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
27 ! |
|
28 |
|
29 ffiTypeSymbol |
|
30 "Superclass Cface::CTypeNode says that I am responsible to implement this method" |
|
31 |
|
32 ^ #char |
|
33 |
|
34 "Created: / 03-07-2008 / 22:54:39 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
35 ! |
|
36 |
|
37 smalltalkName |
|
38 |
|
39 ^#Character |
|
40 |
|
41 "Created: / 12-02-2008 / 22:04:56 / janfrog" |
|
42 ! |
|
43 |
|
44 stxStructFieldGetterSelector |
|
45 ^ #at: |
|
46 |
|
47 "Created: / 09-09-2008 / 21:32:39 / Jan Vrany <vranyj1@fel.cvut.cz>" |
|
48 ! ! |
|
49 |
|
50 !CCharNode methodsFor:'printing'! |
|
51 |
|
52 printOn: stream indent: indent |
|
53 |
|
54 stream nextPutAll:'char' |
|
55 |
|
56 "Created: / 04-03-2008 / 10:57:11 / janfrog" |
|
57 ! ! |
|
58 |
|
59 !CCharNode methodsFor:'testing'! |
|
60 |
|
61 isCCharNode |
|
62 ^ true |
|
63 |
|
64 "Created: / 17-02-2008 / 21:50:25 / janfrog" |
|
65 ! ! |
|
66 |
|
67 !CCharNode methodsFor:'visiting'! |
|
68 |
|
69 acceptVisitor:aVisitor |
|
70 "Double dispatch back to the visitor, passing my type encoded in |
|
71 the selector (visitor pattern)" |
|
72 |
|
73 "stub code automatically generated - please change if required" |
|
74 |
|
75 ^ aVisitor visitCCharNode:self |
|
76 |
|
77 "Created: / 12-02-2008 / 23:03:58 / janfrog" |
|
78 ! ! |
|
79 |
|
80 !CCharNode class methodsFor:'documentation'! |
13 !CCharNode class methodsFor:'documentation'! |
81 |
14 |
82 version |
15 version_SVN |
83 ^ '$Header: /opt/data/cvs/cvut-fel/cface/Cface__CCharNode.st,v 1.1 2008/02/26 16:00:29 vranyj1 Exp $' |
16 ^ '$Id$' |
84 ! ! |
17 ! ! |