From: Goswin von Brederlow <goswin-v-b@web.de>
To: Andreas Rossberg <rossberg@mpi-sws.org>
Cc: Goswin von Brederlow <goswin-v-b@web.de>, caml-list@inria.fr
Subject: Re: [Caml-list] A shallow option type
Date: Sat, 05 May 2012 18:22:53 +0200 [thread overview]
Message-ID: <87havu4mxu.fsf@frosties.localnet> (raw)
In-Reply-To: <8A61AE0A-950A-4AE0-912F-2B7A233C7E8A@mpi-sws.org> (Andreas Rossberg's message of "Sat, 5 May 2012 16:48:46 +0200")
Andreas Rossberg <rossberg@mpi-sws.org> writes:
> On May 5, 2012, at 15.33 h, Goswin von Brederlow wrote:
>> What I want is a
>>
>> type 'a shallow = NULL | 'a (constraint 'a != 'b shallow)
>
> This is a form of negation, which cannot be expressed in conventional
> type systems. Just consider what it should mean in the presence of
> type abstraction: if you have
>
> M : sig
> type t
> ...
> end
>
> would `M.t shallow` be a legal type? You couldn't decide that properly
> without requiring that _every_ abstract type in every signature is
> annotated with a constraint saying that it is "not shallow".
True, so abstract types would have to be forbidden too becauseit can't
be decided wether they are save or not. Since 'a shallow is an abstract
type that would also forbid 'a shallow shallow.
So "constraint 'a != <abstract>" would be the right thing.
>> I have some ideas on how to implement this in a module as abstract
>> type
>> providing get/set/clear functions, which basically means I map None
>> to a
>> C NULL pointer and Some x to plain x. I know x can never be the NULL
>> pointer, except when someone creates a 'a shallow shallow and sets
>> Some
>> None. That would turn into simply None.
>
> And how do you know that nobody else implements a _different_ type,
> say shallow2, that does the same thing? And a third party then
> constructs a value of type `int shallow2 shallow`?
I don't and I can't. But such a type would be abstract so wouldn't be
allowed by the above (reject abstract types).
> It seems to me that what you want effectively is a special case of non-
> disjoint union. Unfortunately, those are known to come with all kinds
> of problems, such as not being compositional.
>
> /Andreas
What I want is to have an array of
type t ={ ... } (* Unit.t *)
and a matrix of
type tile = { ... mutable unit : Unit.t option; }
that I can safely access from a C thread in parallel with ocaml without
having to look the runtime system or individual tiles (the array and
matrix would both be created outside the ocaml heap).
The problem I have is that
tile.unit <- Some unit
will allocate an option block on the heap and accessing that from C
while the GC runs causes a race condition.
What I don't want to do is use
type tile = { ... mutable unit : Unit.t; }
tile.unit <- Obj.magic 0
since then trying things out in the toplevel causes segfaults when the
pretty printer prints the tile.unit and it would be easy to forget to
compare the tile.unit to Obj.magic 0 on every use. I know my shallow
type is basically nothing else but it adds a level of savety to it.
Idealy I would even love to write
match tile.unit with
| NULL -> ()
| unit -> do_something unit
I guess some camlp4 magic could be used to transform such a match into
match Shallow.as_option tile.unit with
| None -> ()
| Some unit -> do_something unit
or similar constructs.
MfG
Goswin
next prev parent reply other threads:[~2012-05-05 16:23 UTC|newest]
Thread overview: 16+ messages / expand[flat|nested] mbox.gz Atom feed top
2012-05-05 13:33 Goswin von Brederlow
2012-05-05 13:50 ` Gabriel Scherer
2012-05-05 14:48 ` Andreas Rossberg
2012-05-05 15:07 ` Andreas Rossberg
2012-05-05 16:22 ` Goswin von Brederlow [this message]
2012-05-05 17:11 ` Gabriel Scherer
2012-05-06 10:12 ` Goswin von Brederlow
2012-05-06 10:20 ` Goswin von Brederlow
2012-05-06 13:01 ` Jacques Garrigue
2012-05-06 15:34 ` Goswin von Brederlow
2012-05-07 0:29 ` Jacques Garrigue
2012-05-07 1:27 ` Jacques Garrigue
2012-05-07 2:34 ` Jacques Garrigue
2012-05-07 8:11 ` Jacques Garrigue
2012-05-07 17:07 ` Goswin von Brederlow
2012-05-08 0:07 ` Jacques Garrigue
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=87havu4mxu.fsf@frosties.localnet \
--to=goswin-v-b@web.de \
--cc=caml-list@inria.fr \
--cc=rossberg@mpi-sws.org \
/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).