[Caml-list] Looking up exceptions in a dictionary

["Marcin 'Qrczak' Kowalczyk" <qrczak@knm.org.pl>]

I want to set up a framework for registering exception constructors and
specific exception values, and later translate exceptions arrived using
registered translation functions. The problem boils down to having
a dictionary indexed by exception constructors and exception values.

I haven't found the exception representation described. Is the
following description accurate?

An exception is a block whose first field is a pointer used to
distinguish among exception constructors, and the rest are arguments.
The constructor pointer points to a one-field block which contains
a string pointer containing the constructor name.

I think the dictionary can be constructed as I say below. Can it be
done in a better way?

Since the real thing to be looked up is a pointer, and pointers don't
have a stable hash, the first step is a Hashtbl.t indexed by string
values - names of constructors, to quickly narrow the search. Names
are insufficient to reliably distinguish exceptions, so under each
name there is an association list holding actual constructor pointers
for all exceptions having a given name, looked up using List.assq. Now
we have found the constructor. A regular Hashtbl.t here can be used
to find specific exception values if needed, which can be done by
exn value assuming that the constructors match.

-- 
 __("<  Marcin Kowalczyk * qrczak@knm.org.pl http://qrczak.ids.net.pl/
 \__/
  ^^
QRCZAK

-------------------
Bug reports: http://caml.inria.fr/bin/caml-bugs  FAQ: http://caml.inria.fr/FAQ/
To unsubscribe, mail caml-list-request@inria.fr  Archives: http://caml.inria.fr