From: Jacques Garrigue <garrigue@kurims.kyoto-u.ac.jp>
To: shoh@duonix.com
Cc: caml-list@inria.fr
Subject: Re: [Caml-list] Weak type, Open type
Date: Mon, 05 Aug 2002 18:30:43 +0900 [thread overview]
Message-ID: <20020805183043B.garrigue@kurims.kyoto-u.ac.jp> (raw)
In-Reply-To: <000501c23c4f$2b781c50$fe00a8c0@hama>
From: "SooHyoung Oh" <shoh@duonix.com>
> While I've studying design pattern with ocaml,
> I made the followding 3 classes (PART1):
> (1) class virtual entry: base class
> (2) class file: subclass of "entry" class
> (3) class dir: subclass of "entry" class
>
> I made some code using these classes on top level and it's ok. (PART 2).
> While I translate the top level code into new class definition (PART3), it
> makes some error.
> The error message is on (PART 4).
>
> It seems that (PART2) is weak type and (PART 3) is open type.
Not weak: file_list has a weak type variable, but it gets immediatly
instanciated to entry; and add is really polymorphic.
> [Q 1] Is (PART2) is correct? I don't know why it doesn't make type error.
Yes. What's wrong?
Note that your #entry is meaningless, since it is immediatly
instanciated to entry. You could as well write entry list from the
beginning, or nothing at all.
> [Q 2] (depend on Q 1)
> Can I translate (PART2) into new class definition like (PART 3) without type
> error?
The problem is witht the polymorphism of add.
Implicit polymorphism is not allowed in methods.
You can either remove the polymorphism, or make it explicit.
No polymorphism:
class dir2 name =
object(self)
inherit entry ()
val file_list = ref ([]: entry list)
method name () = name
method add e = file_list := e :: !file_list
end;;
Explicit polymorphism (3.05 only):
class dir2 name =
object(self)
inherit entry ()
val file_list = ref []
method name () = name
method add : 'a. (#entry as 'a) -> unit =
fun e -> file_list := (e:>entry) :: !file_list
end;;
Jacques Garrigue
> ============ (PART 1) class definition ===============
> class virtual entry () =
> object
> method virtual name: unit -> string
> end;;
>
> class file name =
> object(self)
> inherit entry ()
> method name () = name
> method file_size () = 100
> end;;
>
> class dir name =
> object(self)
> inherit entry ()
> method name () = name
> method dir_size () = 3000
> end;;
>
> =============== (PART 2) NO ERROR with weak type (?) ===================
> let file_list = ref ([]: #entry list);;
> let add e = file_list := (e:>entry) :: !file_list;;
> let _ = add (new dir "root");;
> let _ = add (new file "hello.txt");;
>
> ================ (PART 3) ERROR with open type (?) ================
> class dir2 name =
> object(self)
> inherit entry ()
>
> val file_list = ref ([]: #entry list)
>
> method name () = name
> method add e = file_list := (e:>entry) :: !file_list
> end;;
>
> ================ (PART 4) error message ================
> Some type variables are unbound in this type:
> class dir2 :
> string ->
> object
> val file_list : entry list ref
> method add : #entry -> unit
> method name : unit -> string
> end
> The method add has type #entry -> unit where .. is unbound
>
> ---
> SooHyoung Oh
> tel: 02)583-8709, 042)861-8649
> cell. phone: 011-453-4303
> web: http://www.duonix.com
>
>
> -------------------
> To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
> Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
> Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
-------------------
To unsubscribe, mail caml-list-request@inria.fr Archives: http://caml.inria.fr
Bug reports: http://caml.inria.fr/bin/caml-bugs FAQ: http://caml.inria.fr/FAQ/
Beginner's list: http://groups.yahoo.com/group/ocaml_beginners
next prev parent reply other threads:[~2002-08-05 9:30 UTC|newest]
Thread overview: 3+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-08-05 7:10 SooHyoung Oh
2002-08-05 9:30 ` Jacques Garrigue [this message]
2002-08-06 1:04 ` SooHyoung Oh
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=20020805183043B.garrigue@kurims.kyoto-u.ac.jp \
--to=garrigue@kurims.kyoto-u.ac.jp \
--cc=caml-list@inria.fr \
--cc=shoh@duonix.com \
/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).