69 lines
1.1 KiB
Smalltalk
69 lines
1.1 KiB
Smalltalk
|
|
||
|
|
#include 'Stix.st'.
|
||
|
|
|
||
|
|
#################################################################
|
||
|
|
## MAIN
|
||
|
|
#################################################################
|
||
|
|
|
||
|
|
## TODO: use #define to define a class or use #class to define a class.
|
||
|
|
## use #extend to extend a class
|
||
|
|
## using #class for both feels confusing.
|
||
|
|
|
||
|
|
#extend Apex
|
||
|
|
{
|
||
|
|
|
||
|
|
}
|
||
|
|
|
||
|
|
#extend SmallInteger
|
||
|
|
{
|
||
|
|
#method getTrue: anInteger
|
||
|
|
{
|
||
|
|
^anInteger + 9999.
|
||
|
|
}
|
||
|
|
|
||
|
|
#method inc
|
||
|
|
{
|
||
|
|
^self + 1.
|
||
|
|
}
|
||
|
|
}
|
||
|
|
|
||
|
|
#class TestObject(Object)
|
||
|
|
{
|
||
|
|
#dcl(#class) Q R.
|
||
|
|
#dcl(#classinst) a1 a2.
|
||
|
|
}
|
||
|
|
|
||
|
|
|
||
|
|
#class MyObject(TestObject)
|
||
|
|
{
|
||
|
|
#declare(#classinst) t1 t2.
|
||
|
|
#method(#class) xxxx
|
||
|
|
{
|
||
|
|
| g1 g2 |
|
||
|
|
t1 dump.
|
||
|
|
t2 := [ g1 := 50. g2 := 100. ^g1 + g2 ].
|
||
|
|
(t1 < 100) ifFalse: [ ^self ].
|
||
|
|
t1 := t1 + 1.
|
||
|
|
^self xxxx.
|
||
|
|
}
|
||
|
|
|
||
|
|
#method(#class) zzz
|
||
|
|
{
|
||
|
|
'zzzzzzzzzzzzzzzzzz' dump.
|
||
|
|
^self.
|
||
|
|
}
|
||
|
|
#method(#class) yyy
|
||
|
|
{
|
||
|
|
^[123456789 dump. ^200].
|
||
|
|
}
|
||
|
|
|
||
|
|
#method(#class) main
|
||
|
|
{
|
||
|
|
'START OF MAIN' dump.
|
||
|
|
['1111111' dump. '111111111' dump. '22222222222' dump.
|
||
|
|
'3333333' dump. '444444444' dump. '55555555555' dump] newProcess resume.
|
||
|
|
'EDN OF MAIN' dump.
|
||
|
|
}
|
||
|
|
|
||
|
|
}
|