langs a-z

Task/Inheritance-Multiple/OCaml/inheritance-multiple-1.ocaml

@@ -0,0 +1,4 @@
+class camera =
+  object (self)
+    (*functions go here...*)
+  end

Task/Inheritance-Multiple/OCaml/inheritance-multiple-2.ocaml

@@ -0,0 +1,4 @@
+class mobile_phone =
+  object (self)
+    (*functions go here...*)
+  end

Task/Inheritance-Multiple/OCaml/inheritance-multiple-3.ocaml

@@ -0,0 +1,6 @@
+class camera_phone =
+  object (self)
+    inherit camera
+    inherit mobile_phone
+    (*functions go here...*)
+  end

Task/Inheritance-Multiple/Objective-C/inheritance-multiple.m

@@ -0,0 +1,53 @@
+@interface Camera : NSObject {
+}
+@end
+
+@implementation Camera
+@end
+
+@interface MobilePhone : NSObject {
+}
+@end
+
+@implementation MobilePhone
+@end
+
+@interface CameraPhone : NSObject {
+  Camera *camera;
+  MobilePhone *phone;
+}
+@end
+
+@implementation CameraPhone
+
+-(id)init {
+  if ((self = [super init])) {
+    camera = [[Camera alloc] init];
+    phone = [[MobilePhone alloc] init];
+  }
+  return self;
+}
+
+-(void)dealloc {
+  [camera release];
+  [phone release];
+  [super dealloc];
+}
+
+-(void)forwardInvocation:(NSInvocation *)anInvocation {
+  SEL aSelector = [anInvocation selector];
+  if ([camera respondsToSelector:aSelector])
+    [anInvocation invokeWithTarget:camera];
+  else if ([phone respondsToSelector:aSelector])
+    [anInvocation invokeWithTarget:phone];
+  else
+    [self doesNotRecognizeSelector:aSelector];
+}
+
+-(BOOL)respondsToSelector:(SEL)aSelector {
+  return [camera respondsToSelector:aSelector]
+  || [phone respondsToSelector:aSelector]
+  || [super respondsToSelector:aSelector];
+}
+
+@end

Task/Inheritance-Multiple/OxygenBasic/inheritance-multiple.oxy

@@ -0,0 +1,24 @@
+class Camera
+  string cbuf
+  method TakePhoto()
+  end method
+  method ViewPhoto()
+  end method
+end class
+
+class MobilePhone
+  string pbuf
+  method MakeCall()
+  end method
+  method TakeCall()
+  end method
+end class
+
+class CameraPhone
+  has Camera,MobilePhone
+end class
+
+CameraPhone cp
+
+cp.ViewPhoto
+cp.MakeCall

Task/Inheritance-Multiple/Oz/inheritance-multiple.oz

@@ -0,0 +1,5 @@
+class Camera end
+
+class MobilePhone end
+
+class CameraPhone from Camera MobilePhone end

Task/Inheritance-Multiple/Perl-6/inheritance-multiple.pl6

@@ -0,0 +1,6 @@
+class Camera {}
+class MobilePhone {}
+class CameraPhone is Camera is MobilePhone {}
+
+say CameraPhone.^mro;     # undefined type object
+say CameraPhone.new.^mro; # instantiated object

Task/Inheritance-Multiple/Pop11/inheritance-multiple.pop11

@@ -0,0 +1,16 @@
+;;; load object support
+lib objectclass;
+
+define :class Camera;
+   ;;; slots go here
+enddefine;
+
+define :class MobilePhone;
+   ;;; slots go here
+enddefine;
+
+define :class CameraPhone is Camera, MobilePhone;
+   ;;; extra slots go here
+enddefine;
+
+;;; methods go here

Task/Inheritance-Multiple/PureBasic/inheritance-multiple.purebasic

@@ -0,0 +1,8 @@
+Class Camera
+EndClass
+
+Class Mobil
+EndClass
+
+Class CameraMobile Extends Camera Extends Mobil
+EndClass

Task/Inheritance-Multiple/Slate/inheritance-multiple.slate

@@ -0,0 +1,3 @@
+define: #Camera.
+define: #MobilePhone.
+define: #CameraPhone &parents: {Camera. MobilePhone}.