Cface__CStructFieldNode.st
changeset 5 c110eef5b9ef
parent 1 b6c0180314d1
child 9 03c7a764d2be
--- a/Cface__CStructFieldNode.st	Fri Jul 04 12:05:15 2008 +0000
+++ b/Cface__CStructFieldNode.st	Thu Jul 10 07:31:14 2008 +0000
@@ -3,7 +3,7 @@
 "{ NameSpace: Cface }"
 
 CDefinitionNode subclass:#CStructFieldNode
-	instanceVariableNames:'type'
+	instanceVariableNames:'type offset owner'
 	classVariableNames:''
 	poolDictionaries:''
 	category:'Cface-C AST'
@@ -39,6 +39,44 @@
 
 !CStructFieldNode methodsFor:'accessing'!
 
+offset
+    ^ offset
+
+    "Created: / 09-07-2008 / 21:15:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+offset:something
+    offset := something.
+
+    "Created: / 09-07-2008 / 21:15:11 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+owner
+    ^ owner
+
+    "Created: / 09-07-2008 / 21:28:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+owner:something
+    owner := something.
+
+    "Created: / 09-07-2008 / 21:28:36 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+smalltalkxValueExtractionSelector
+
+    ^type smalltalkxValueExtractionSelector
+
+    "Created: / 09-07-2008 / 21:39:21 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
+smalltalkxValueSettingSelector
+
+    ^type smalltalkxValueSettingSelector
+
+    "Created: / 09-07-2008 / 22:21:09 / Jan Vrany <vranyj1@fel.cvut.cz>"
+!
+
 type
     ^ type