removed the containing subdir

2023-10-02 21:04:28 +09:00
parent 5b2953c9c7
commit ea73f9f8d2
163 changed files with 0 additions and 0 deletions
--- a/kernel/test-007.moo
+++ b/kernel/test-007.moo
@ -0,0 +1,98 @@
+
+#include 'Moo.moo'.
+
+////////////////////////////////////////////////////////////////#
+// 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)
+{
+	var(#class) Q, R.
+	var(#classinst) t1, t2.
+}
+
+
+class MyObject(TestObject)
+{
+	var(#class) C, B, A.
+
+	method getTrue
+	{
+		^true.
+	}
+
+	method getTrue: anInteger
+	{
+		^ anInteger
+	}
+	method getFalse
+	{
+		^false
+	}
+
+	method a { ^ 10 }
+	method b { ^ 20 }
+	method c { ^ 30 }
+
+	method(#class) a: a b: b c: c
+	{
+		^ a + b + c.
+	}
+
+	method(#class) main
+	{
+		| p p2 |
+                'START OF MAIN' dump.
+ 		//p := [ :a :b :c :d | a dump. b dump. (c + d) dump. ^10. ] newProcessWith: #(#abc #def 10 20).
+ 		p := [ :a :b :c :d | a dump. b dump. (c + d) dump. ] newProcessWith: #(#abc #def 10 20).
+ 		p2 := [ :a :b :c :d | a dump. b dump. a dump. b dump. (c + d) dump. ^10000 ] newProcessWith: #(
+			#AAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAAA
+			#BBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBBB 
+			1000000000000000
+			299999999999999999999999999999999999999999
+		).
+
+                p resume.
+		p2 resume.
+
+                'MIDDLE OF MAIN' dump.
+		Processor activeProcess terminate.
+
+		//p terminate.
+                '999999999999999999' dump.
+                '999999999999999999' dump.
+                '999999999999999999' dump.
+                '999999999999999999' dump.
+                '999999999999999999' dump.
+                '999999999999999999' dump.
+                '999999999999999999' dump.
+//		p resume.
+                '999999999999999999' dump.
+                '999999999999999999' dump.
+                '999999999999999999' dump.
+		'END OF MAIN' dump.
+	}
+
+}