76 lines
1.2 KiB
Smalltalk
76 lines
1.2 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.
|
|||
|
|
|
|||
|
|
#method test999
|
|||
|
|
{
|
|||
|
|
^self.Q
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#class B.TestObject(Object)
|
|||
|
|
{
|
|||
|
|
#dcl(#class) Q R.
|
|||
|
|
#dcl(#classinst) a1 a2.
|
|||
|
|
|
|||
|
|
#method test000
|
|||
|
|
{
|
|||
|
|
^self.Q
|
|||
|
|
}
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
#pooldic ABC
|
|||
|
|
{
|
|||
|
|
#KKK := 20.
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
|
|||
|
|
#class MyObject(TestObject)
|
|||
|
|
{
|
|||
|
|
#method(#class) main
|
|||
|
|
{
|
|||
|
|
| v1 v2 |
|
|||
|
|
System logNl: 'START OF MAIN'.
|
|||
|
|
|
|||
|
|
v1 := Console output.
|
|||
|
|
|
|||
|
|
v1 write: S'hello, 월드 이거 좋지 않니\n'.
|
|||
|
|
v1 write: S'하하하하하하하하 좋아좋아 可愛くってしょうがない(^o^) ほのかちゃん、しおりちゃん元気そうだね！ 久しぶりに見た。しおりちゃんどうしたのかな？좋아 하라하하\n'.
|
|||
|
|
v1 close.
|
|||
|
|
|
|||
|
|
System logNl: S'\0\0\0END OF MAIN\0AB\0\0\0C\0\0\0'.
|
|||
|
|
}
|
|||
|
|
|
|||
|
|
}
|
|||
|
|
|