From: Jacques Garrigue <garrigue@kurims.kyoto-u.ac.jp>
To: damien.doligez@inria.fr
Cc: caml-list@inria.fr
Subject: Re: [Caml-list] Unix.file_descr -> int ???
Date: Wed, 12 Jun 2002 20:04:02 +0900 [thread overview]
Message-ID: <20020612200402C.garrigue@kurims.kyoto-u.ac.jp> (raw)
In-Reply-To: <20020612185729P.garrigue@kurims.kyoto-u.ac.jp>
From: Jacques Garrigue <garrigue@kurims.kyoto-u.ac.jp>
> From: Damien Doligez <damien.doligez@inria.fr>
> > >Windows version:
> > >
> > >let dump_handle (h : Unix.file_descr) =
> > > let obj = Obj.repr h in
> > > if Obj.is_block obj && Obj.tag obj = Obj.custom_tag then
> > > Nativeint.format "%x" (Obj.obj obj)
> > > else invalid_arg "dump_handle"
> >
> > This does not work. You are printing the address of the custom block
> > that contains the handle, but this address can change during program
> > execution.
>
> Indeed, this is buggy. But you could have given the right answer :-)
What are you making me write!
This code was correct. I have been using it for months in ocamlbrowser
for windows.
nativeint itself is a boxed custom datatype, so outputing it will
correctly output the handle, not the pointer to it. I'm just using the
fact they share the same representation. Actually file_descr has
another field, but we don't need it.
Jacques Garrigue
-------------------
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-06-12 11:04 UTC|newest]
Thread overview: 26+ messages / expand[flat|nested] mbox.gz Atom feed top
2002-06-12 9:53 Damien Doligez
2002-06-12 9:57 ` Jacques Garrigue
2002-06-12 11:04 ` Jacques Garrigue [this message]
-- strict thread matches above, loose matches on Subject: below --
2002-06-20 12:24 Ohad Rodeh
2002-06-18 13:38 Alessandro Baretta
[not found] ` <000101c21705$d9f23640$0501a8c0@lexifi01>
2002-06-18 22:41 ` Alessandro Baretta
2002-06-19 16:22 ` John Max Skaller
2002-06-20 11:23 ` Xavier Leroy
2002-06-20 11:52 ` Markus Mottl
2002-06-20 13:14 ` Alessandro Baretta
2002-06-20 13:23 ` Stefano Lanzavecchia
2002-06-20 16:22 ` Alessandro Baretta
2002-06-20 14:42 ` YAMAGATA yoriyuki
2002-06-11 14:31 Max Kirillov
2002-06-11 15:40 ` Bruno.Verlyck
2002-06-11 15:45 ` Xavier Leroy
2002-06-11 19:26 ` Max Kirillov
2002-06-11 23:12 ` Berke Durak
2002-06-12 0:10 ` Jacques Garrigue
2002-06-12 8:08 ` Xavier Leroy
2002-06-12 7:42 ` Basile STARYNKEVITCH
2002-06-12 8:21 ` Xavier Leroy
2002-06-12 16:06 ` Max Kirillov
2002-06-13 10:24 ` Jean-Marc Eber
2002-06-12 13:09 ` Bruno.Verlyck
2002-06-12 15:44 ` John Max Skaller
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=20020612200402C.garrigue@kurims.kyoto-u.ac.jp \
--to=garrigue@kurims.kyoto-u.ac.jp \
--cc=caml-list@inria.fr \
--cc=damien.doligez@inria.fr \
/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).