1 "{ Package: 'jv:tea' }"

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 RBProgramNode subclass:#TTypeNode

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Languages-Tea-AST'

    10 !

    11 

    12 !TTypeNode class methodsFor:'accessing'!

    13 

    14 formatterClass

    15     ^ FormatterClass isNil ifTrue: [TFormatter] ifFalse: [FormatterClass]

    16 

    17     "Created: / 21-08-2015 / 22:16:21 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    18 ! !

    19 

    20 !TTypeNode class methodsFor:'queries'!

    21 

    22 isAbstract

    23     "Return if this class is an abstract class.

    24      True is returned here for myself only; false for subclasses.

    25      Abstract subclasses must redefine again."

    26 

    27     ^ self == TTypeNode.

    28 ! !

    29