Sync

Task/Inheritance-Single/COBOL/inheritance-single-1.cobol

@@ -0,0 +1,39 @@
+       CLASS-ID. Animal.
+           *> ...
+       END CLASS Animal.
+
+       CLASS-ID. Dog INHERITS Animal.
+       ENVIRONMENT DIVISION.
+       CONFIGURATION SECTION.
+       REPOSITORY.
+           CLASS Animal.
+
+           *> ...
+       END CLASS Dog.
+
+       CLASS-ID. Cat INHERITS Animal.
+       ENVIRONMENT DIVISION.
+       CONFIGURATION SECTION.
+       REPOSITORY.
+           CLASS Animal.
+
+           *> ...
+       END CLASS Cat.
+
+       CLASS-ID. Lab INHERITS Dog.
+       ENVIRONMENT DIVISION.
+       CONFIGURATION SECTION.
+       REPOSITORY.
+           CLASS Dog.
+
+           *> ...
+       END CLASS Lab.
+
+       CLASS-ID. Collie INHERITS Dog.
+       ENVIRONMENT DIVISION.
+       CONFIGURATION SECTION.
+       REPOSITORY.
+           CLASS Dog.
+
+           *> ...
+       END CLASS Collie.

Task/Inheritance-Single/COBOL/inheritance-single-2.cobol

@@ -0,0 +1,5 @@
+(defclass animal ()       ())
+(defclass dog    (animal) ())
+(defclass lab    (dog)    ())
+(defclass collie (dog)    ())
+(defclass cat    (animal) ())

Task/Inheritance-Single/COBOL/inheritance-single-3.cobol

@@ -0,0 +1,5 @@
+(defstruct animal)
+(defstruct (dog    (:include animal)))
+(defstruct (lab    (:include dog)))
+(defstruct (collie (:include dog)))
+(defstruct (cat    (:include animal)))

Task/Inheritance-Single/COBOL/inheritance-single-4.cobol

@@ -0,0 +1,9 @@
+;;; ASN.1 serialization logic specialized for animal class
+(defmethod serialize-to-asn-1 ((a animal))
+  #| ... |#
+  )
+
+ ;;; casually introduce the method over strings too; no relation to animal
+(defmethod serialize-to-asn-1 ((s string))
+  #| ... #|
+  )

Task/Inheritance-Single/COBOL/inheritance-single-5.cobol

@@ -0,0 +1,6 @@
+	TYPE
+		Animal = ABSTRACT RECORD (*  *) END;
+		Cat = RECORD (Animal)  (*  *) END; (* final record (cannot be extended) - by default *)
+		Dog = EXTENSIBLE RECORD (Animal)  (*  *) END; (* extensible record *)
+		Lab = RECORD (Dog)  (*  *) END;
+		Collie = RECORD (Dog)  (*  *) END;