A-M baby

Task/Abstract-type/Fantom/abstract-type.fantom

@@ -0,0 +1,28 @@
+abstract class X
+{
+  Void method1 ()
+  {
+    echo ("Method 1 in X")
+  }
+
+  abstract Void method2 ()
+}
+
+class Y : X
+{
+  // Y must override the abstract method in X
+  override Void method2 ()
+  {
+    echo ("Method 2 in Y")
+  }
+}
+
+class Main
+{
+  public static Void main ()
+  {
+    y := Y()
+    y.method1
+    y.method2
+  }
+}

Task/Abstract-type/Genyris/abstract-type-1.genyris

@@ -0,0 +1,4 @@
+class AbstractStack()
+   def .valid?(object) nil
+
+tag AbstractStack some-object # always fails

Task/Abstract-type/Genyris/abstract-type-2.genyris

@@ -0,0 +1,8 @@
+class StackInterface()
+   def .valid?(object)
+      object
+         and
+            bound? .enstack
+            is-instance? .enstack Closure
+            bound? .destack
+            is-instance? .destack Closure

Task/Abstract-type/Genyris/abstract-type-3.genyris

@@ -0,0 +1,9 @@
+class XYZstack(Object)
+    def .init()
+        var .items ()
+    def .enstack(object)
+        setq .items (cons object .items)
+    def .destack()
+        var tmp  (car .items)
+        setq .items (cdr .items)
+        tmp

Task/Abstract-type/Genyris/abstract-type-4.genyris

@@ -0,0 +1 @@
+tag StackInterface (XYZstack(.new))

Task/Abstract-type/Groovy/abstract-type-1.groovy

@@ -0,0 +1,5 @@
+public interface Interface {
+    int method1(double value)
+    int method2(String name)
+    int add(int a, int b)
+}

Task/Abstract-type/Groovy/abstract-type-2.groovy

@@ -0,0 +1,5 @@
+public abstract class Abstract1 {
+    abstract public int methodA(Date value)
+    abstract protected int methodB(String name)
+    int add(int a, int b) { a + b }
+}

Task/Abstract-type/Groovy/abstract-type-3.groovy

@@ -0,0 +1,3 @@
+public abstract class Abstract2 implements Interface {
+    int add(int a, int b) { a + b }
+}

Task/Abstract-type/Groovy/abstract-type-4.groovy

@@ -0,0 +1,15 @@
+public class Concrete1 implements Interface {
+    public int method1(double value) { value as int }
+    public int method2(String name) { (! name) ? 0 : name.toList().collect { it as char }.sum() }
+    public int add(int a, int b) { a + b }
+}
+
+public class Concrete2 extends Abstract1 {
+    public int methodA(Date value) { value.toCalendar()[Calendar.DAY_OF_YEAR] }
+    protected int methodB(String name) { (! name) ? 0 : name.toList().collect { it as char }.sum() }
+}
+
+public class Concrete3 extends Abstract2 {
+    public int method1(double value) { value as int }
+    public int method2(String name) { (! name) ? 0 : name.toList().collect { it as char }.sum() }
+}

Task/Abstract-type/Groovy/abstract-type-5.groovy

@@ -0,0 +1,12 @@
+def c1 = new Concrete1()
+assert c1 instanceof Interface
+println (new Concrete1().method2("Superman"))
+
+def c2 = new Concrete2()
+assert c2 instanceof Abstract1
+println (new Concrete2().methodB("Spiderman"))
+
+def c3 = new Concrete3()
+assert c3 instanceof Interface
+assert c3 instanceof Abstract2
+println (new Concrete3().method2("Hellboy"))

Task/Abstract-type/Julia/abstract-type.julia

@@ -0,0 +1,2 @@
+abstract «name»
+abstract «name» <: «supertype»

Task/Abstract-type/Logtalk/abstract-type.logtalk

@@ -0,0 +1,9 @@
+:- protocol(datep).
+
+    :- public(today/3).
+    :- public(leap_year/1).
+    :- public(name_of_day/3).
+    :- public(name_of_month/3).
+    :- public(days_in_month/3).
+
+:- end_protocol.