started adding console primitives

stix/kernel/test-014.st

@@ -0,0 +1,75 @@
+
+#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'.
+	}
+
+}
+