equal
deleted
inserted
replaced
1 "{ Package: 'jv:tea/compiler' }" |
1 "{ Package: 'jv:tea/compiler' }" |
2 |
2 |
3 "{ NameSpace: Smalltalk }" |
3 "{ NameSpace: Smalltalk }" |
4 |
4 |
5 Object subclass:#TType |
5 TObjectWithProperties subclass:#TType |
6 instanceVariableNames:'' |
6 instanceVariableNames:'' |
7 classVariableNames:'' |
7 classVariableNames:'' |
8 poolDictionaries:'' |
8 poolDictionaries:'' |
9 category:'Languages-Tea-Compiler-Types' |
9 category:'Languages-Tea-Compiler-Types' |
10 ! |
10 ! |
35 !TType methodsFor:'printing & storing'! |
35 !TType methodsFor:'printing & storing'! |
36 |
36 |
37 printOn:aStream |
37 printOn:aStream |
38 aStream nextPut: $<; space. |
38 aStream nextPut: $<; space. |
39 self printWithoutAnglesOn:aStream. |
39 self printWithoutAnglesOn:aStream. |
40 aStream nextPut: $>; space. |
40 aStream space; nextPut: $>. |
41 |
41 |
42 "Modified: / 21-08-2015 / 13:46:25 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
42 "Modified: / 23-09-2015 / 16:32:02 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
43 ! |
43 ! |
44 |
44 |
45 printWithoutAnglesOn:aStream |
45 printWithoutAnglesOn:aStream |
46 self subclassResponsibility |
46 self subclassResponsibility |
47 |
47 |
48 "Created: / 21-08-2015 / 13:46:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
48 "Created: / 21-08-2015 / 13:46:43 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
49 ! ! |
49 ! ! |
50 |
50 |
51 !TType methodsFor:'testing'! |
51 !TType methodsFor:'testing'! |
|
52 |
|
53 isAutomaticType |
|
54 ^ false |
|
55 |
|
56 "Created: / 23-09-2015 / 16:32:28 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
|
57 ! |
52 |
58 |
53 isBlockType |
59 isBlockType |
54 ^ false |
60 ^ false |
55 |
61 |
56 "Created: / 02-09-2015 / 17:09:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
62 "Created: / 02-09-2015 / 17:09:30 / Jan Vrany <jan.vrany@fit.cvut.cz>" |
71 version |
77 version |
72 ^ 'Path: jv/tea/compiler/TType.st, Version: 1.0, User: jv, Time: 2015-08-26T07:46:38.380+01' |
78 ^ 'Path: jv/tea/compiler/TType.st, Version: 1.0, User: jv, Time: 2015-08-26T07:46:38.380+01' |
73 ! |
79 ! |
74 |
80 |
75 version_HG |
81 version_HG |
76 ^ 'Path: jv/tea/compiler/TType.st, Version: 1.0, User: jv, Time: 2015-08-26T07:46:38.380+01' |
82 ^ '$Path: jv/tea/compiler/TType.st, Version: 1.0, User: jv, Time: 2015-08-26T07:46:38.380+01$' |
77 ! ! |
83 ! ! |
78 |
84 |