1 "{ Package: 'cvut:fel/cface' }"

     2 

     3 "{ NameSpace: Cface }"

     4 

     5 CDerivedTypeNode subclass:#CStructuredNode

     6 	instanceVariableNames:'fields'

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Cface-C AST'

    10 !

    11 

    12 !CStructuredNode methodsFor:'accessing'!

    13 

    14 fields

    15     ^ fields

    16 

    17     "Created: / 10-07-2008 / 08:43:26 / Jan Vrany <vranyj1@fel.cvut.cz>"

    18 !

    19 

    20 fields:aCollection

    21     fields := aCollection.

    22     fields do:[:f|f owner: self].

    23 

    24     "Created: / 10-07-2008 / 08:43:26 / Jan Vrany <vranyj1@fel.cvut.cz>"

    25 !

    26 

    27 smalltalkxValueExtractionSelector

    28 

    29     ^#at:

    30 

    31     "Created: / 10-07-2008 / 08:43:58 / Jan Vrany <vranyj1@fel.cvut.cz>"

    32 ! !

    33