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

     2 

     3 "{ NameSpace: Smalltalk }"

     4 

     5 TType subclass:#TAutomaticType

     6 	instanceVariableNames:''

     7 	classVariableNames:''

     8 	poolDictionaries:''

     9 	category:'Languages-Tea-Compiler-Types'

    10 !

    11 

    12 !TAutomaticType methodsFor:'comparing'!

    13 

    14 = anotherType

    15     ^ anotherType class == self class

    16 

    17     "Created: / 23-09-2015 / 16:26:46 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    18 !

    19 

    20 hash

    21     ^ self class hash

    22 

    23     "Created: / 23-09-2015 / 16:26:33 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    24 ! !

    25 

    26 !TAutomaticType methodsFor:'printing & storing'!

    27 

    28 printWithoutAnglesOn:aStream

    29     aStream nextPutAll: '#auto'

    30 

    31     "Created: / 23-09-2015 / 16:27:04 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    32 ! !

    33 

    34 !TAutomaticType methodsFor:'testing'!

    35 

    36 isAutomaticType

    37     ^ true

    38 

    39     "Created: / 23-09-2015 / 16:32:41 / Jan Vrany <jan.vrany@fit.cvut.cz>"

    40 ! !

    41