equal
deleted
inserted
replaced
27 "Created: #buildObjectCreationFor:on: / 19-12-2007 / 17:39:17 / haja" |
27 "Created: #buildObjectCreationFor:on: / 19-12-2007 / 17:39:17 / haja" |
28 "Deleted: #buildObjectCreationOn: / 19-12-2007 / 17:39:20 / haja" |
28 "Deleted: #buildObjectCreationOn: / 19-12-2007 / 17:39:20 / haja" |
29 "Created: #buildTypeDescriptionOn: / 20-12-2007 / 12:13:36 / haja" |
29 "Created: #buildTypeDescriptionOn: / 20-12-2007 / 12:13:36 / haja" |
30 ! ! |
30 ! ! |
31 |
31 |
|
32 !CArrayNode methodsFor:'accessing'! |
|
33 |
|
34 cByteSize |
|
35 "superclass Cface::CTypeNode says that I am responsible to implement this method" |
|
36 |
|
37 ^ self shouldImplement |
|
38 ! |
|
39 |
|
40 ffiTypeSymbol |
|
41 "superclass Cface::CTypeNode says that I am responsible to implement this method" |
|
42 |
|
43 ^ self shouldImplement |
|
44 ! |
|
45 |
|
46 size |
|
47 ^ size |
|
48 ! |
|
49 |
|
50 size:anInteger |
|
51 size := anInteger. |
|
52 ! |
|
53 |
|
54 type |
|
55 ^ type |
|
56 ! |
|
57 |
|
58 type:aCTypeNode |
|
59 type := aCTypeNode. |
|
60 ! ! |
|
61 |
|
62 !CArrayNode methodsFor:'visiting'! |
|
63 |
|
64 acceptVisitor:aVisitor |
|
65 "Double dispatch back to the visitor, passing my type encoded in |
|
66 the selector (visitor pattern)" |
|
67 |
|
68 "stub code automatically generated - please change if required" |
|
69 |
|
70 ^ aVisitor visitCArrayNode:self |
|
71 ! ! |
|
72 |
32 !CArrayNode class methodsFor:'documentation'! |
73 !CArrayNode class methodsFor:'documentation'! |
33 |
74 |
34 version_SVN |
75 version_SVN |
35 ^ '$Id$' |
76 ^ '$Id$' |
36 ! ! |
77 ! ! |