equal
deleted
inserted
replaced
|
1 "{ Encoding: utf8 }" |
|
2 |
1 " |
3 " |
2 COPYRIGHT (c) 1989 by Claus Gittinger |
4 COPYRIGHT (c) 1989 by Claus Gittinger |
3 All Rights Reserved |
5 All Rights Reserved |
4 |
6 |
5 This software is furnished under a license and may be used |
7 This software is furnished under a license and may be used |
8 be provided or otherwise made available to, or used by, any |
10 be provided or otherwise made available to, or used by, any |
9 other person. No title to or ownership of the software is |
11 other person. No title to or ownership of the software is |
10 hereby transferred. |
12 hereby transferred. |
11 " |
13 " |
12 "{ Package: 'stx:libcomp' }" |
14 "{ Package: 'stx:libcomp' }" |
|
15 |
|
16 "{ NameSpace: Smalltalk }" |
13 |
17 |
14 Object subclass:#Variable |
18 Object subclass:#Variable |
15 instanceVariableNames:'value name used type domain classHint' |
19 instanceVariableNames:'value name used type domain classHint' |
16 classVariableNames:'' |
20 classVariableNames:'' |
17 poolDictionaries:'' |
21 poolDictionaries:'' |
69 "return the name of the variable" |
73 "return the name of the variable" |
70 |
74 |
71 ^ name |
75 ^ name |
72 ! |
76 ! |
73 |
77 |
74 name:aString |
78 name:nameString |
75 "set the name of the variable" |
79 "set the name of the variable" |
76 |
80 |
77 "/ self assert:(aString isString). |
81 "/ self assert:(aString isString). |
78 name := aString |
82 "/ self assert:nameString notNil. |
|
83 name := nameString |
79 |
84 |
80 "Modified: / 07-08-2006 / 12:18:12 / cg" |
85 "Modified: / 07-08-2006 / 12:18:12 / cg" |
|
86 "Modified: / 27-08-2018 / 13:40:33 / Claus Gittinger" |
81 ! |
87 ! |
82 |
88 |
83 type:typeSymbol name:aString |
89 type:typeSymbol name:nameString |
|
90 "/ self assert:nameString notNil. |
84 "/ self assert:(aString isString). |
91 "/ self assert:(aString isString). |
85 type := typeSymbol. |
92 type := typeSymbol. |
86 name := aString |
93 name := nameString |
87 |
94 |
88 "Modified: / 07-08-2006 / 12:18:08 / cg" |
95 "Modified: / 07-08-2006 / 12:18:08 / cg" |
|
96 "Modified: / 27-08-2018 / 13:40:37 / Claus Gittinger" |
89 ! |
97 ! |
90 |
98 |
91 used |
99 used |
92 "return the flag marking that this variable has been used" |
100 "return the flag marking that this variable has been used" |
93 |
101 |
170 ! ! |
178 ! ! |
171 |
179 |
172 !Variable class methodsFor:'documentation'! |
180 !Variable class methodsFor:'documentation'! |
173 |
181 |
174 version |
182 version |
175 ^ '$Header: /cvs/stx/stx/libcomp/Variable.st,v 1.23 2011-09-29 11:20:00 cg Exp $' |
183 ^ '$Header$' |
176 ! ! |
184 ! ! |
|
185 |