[Pleac-commits] CVS: pleac/pleac pleac_ocaml.data,1.185,1.186

[Dave B. <ram...@us...>]

Update of /cvsroot/pleac/pleac/pleac
In directory sc8-pr-cvs1.sourceforge.net:/tmp/cvs-serv19411

Modified Files:
	pleac_ocaml.data 
Log Message:
13.12: Solving the data inheritance problem


Index: pleac_ocaml.data
===================================================================
RCS file: /cvsroot/pleac/pleac/pleac/pleac_ocaml.data,v
retrieving revision 1.185
retrieving revision 1.186
diff -u -r1.185 -r1.186
--- pleac_ocaml.data	8 Aug 2008 15:20:34 -0000	1.185
+++ pleac_ocaml.data	8 Aug 2008 21:06:15 -0000	1.186
@@ -10674,6 +10674,24 @@
        | Some parent -> parent#name
        | None -> "unknown")
 
+(* @@PLEAC@@_13.12 *)
+(* Use prefixes in instance variable names so we can tell them apart. *)
+class person () = object
+  val mutable person_age = 0
+  method age = person_age
+  method set_age age' = person_age <- age'
+end
+
+(* Now we can access both instance variables as needed. *)
+class employee () = object
+  inherit person ()
+  val mutable employee_age = 0
+  method age = employee_age
+  method set_age age' = employee_age <- age'
+  method person_age = person_age
+  method set_person_age age' = person_age <- age'
+end
+
 
 (* @@PLEAC@@_14.0 *)
 (* OCaml's standard library includes bindings to the NDBM database.