From 9fe033ea88c2f705ec18c232873d056e0c229d72 Mon Sep 17 00:00:00 2001 From: Gaspard Coulet Date: Wed, 28 Apr 2021 23:05:53 +0200 Subject: Initial commit --- sem_6/HLIN603/ocaml/TP2/test.caml | 21 +++++++++++++++++++++ 1 file changed, 21 insertions(+) create mode 100644 sem_6/HLIN603/ocaml/TP2/test.caml (limited to 'sem_6/HLIN603/ocaml/TP2/test.caml') diff --git a/sem_6/HLIN603/ocaml/TP2/test.caml b/sem_6/HLIN603/ocaml/TP2/test.caml new file mode 100644 index 0000000..a454ab3 --- /dev/null +++ b/sem_6/HLIN603/ocaml/TP2/test.caml @@ -0,0 +1,21 @@ +class aa = +object + method print = print_endline("Je suis A") +end;; +class bb = +object + inherit aa + method print = print_endline("Je suis B") +end;; +class cc = +object + inherit bb as superb +end;; +class dd = +object (self) + inherit cc as super + method print = print_endline("Je suis D") + method m = super#print +end;; +let a = new dd;; +a#m;; -- cgit v1.2.3