From: Christophe TROESTLER <Christophe.Troestler+ocaml@umons.ac.be>
To: steph@glondu.net
Cc: darioteixeira@yahoo.com, caml-list@yquem.inria.fr
Subject: Re: [Caml-list] Structural subtyping problem
Date: Sun, 28 Mar 2010 21:20:35 +0200 (CEST) [thread overview]
Message-ID: <20100328.212035.735321043546824606.Christophe.Troestler+ocaml@umons.ac.be> (raw)
In-Reply-To: <4BAF92B5.1060502@glondu.net>
Hi,
On Sun, 28 Mar 2010 19:32:37 +0200, Stéphane Glondu wrote:
>
> type steps = {
> step1 : 'a. ?story:(<title : string; ..> as 'a) -> unit -> bool;
> step2 : string -> bool;
> step3 : 'a. story:(<title : string; count : int; ..> as 'a) -> bool
> }
>
> let rec steps = { [...]
IMHO, recursive modules are also a nice way to achieve the same
effect :
module rec X :
sig
val step1 : ?story:<title : string; ..> -> unit -> bool
val step2 : string -> bool
val step3 : story:<title : string; count : int; ..> -> bool
end = struct
let rec step1 ?story () = match story with
| Some s -> X.step2 s#title
| None -> X.step2 "title1"
and step2 title =
let story = object
method title = title
method count = 0
end in
X.step3 story
and step3 ~story = match story#count with
| 0 -> X.step1 ~story ()
| 1 ->
let story = object
method title = "title2"
end in
X.step1 ~story ()
| _ -> true
end
My 0.02€,
C.
next prev parent reply other threads:[~2010-03-28 19:20 UTC|newest]
Thread overview: 6+ messages / expand[flat|nested] mbox.gz Atom feed top
2010-03-28 16:38 Dario Teixeira
2010-03-28 17:03 ` [Caml-list] " Vincent Aravantinos
2010-03-28 17:07 ` Andreas Rossberg
2010-03-28 17:32 ` Stéphane Glondu
2010-03-28 19:20 ` Christophe TROESTLER [this message]
2010-03-28 20:17 ` Dario Teixeira
Reply instructions:
You may reply publicly to this message via plain-text email
using any one of the following methods:
* Save the following mbox file, import it into your mail client,
and reply-to-all from there: mbox
Avoid top-posting and favor interleaved quoting:
https://en.wikipedia.org/wiki/Posting_style#Interleaved_style
* Reply using the --to, --cc, and --in-reply-to
switches of git-send-email(1):
git send-email \
--in-reply-to=20100328.212035.735321043546824606.Christophe.Troestler+ocaml@umons.ac.be \
--to=christophe.troestler+ocaml@umons.ac.be \
--cc=caml-list@yquem.inria.fr \
--cc=darioteixeira@yahoo.com \
--cc=steph@glondu.net \
/path/to/YOUR_REPLY
https://kernel.org/pub/software/scm/git/docs/git-send-email.html
* If your mail client supports setting the In-Reply-To header
via mailto: links, try the mailto: link
Be sure your reply has a Subject: header at the top and a blank line
before the message body.
This is a public inbox, see mirroring instructions
for how to clone and mirror all data and code used for this inbox;
as well as URLs for NNTP newsgroup(s).