1 (***********************************************************************)
5 (* Jerome Vouillon, projet Cristal, INRIA Rocquencourt *)
6 (* Objective Caml port by John Malecki and Xavier Leroy *)
8 (* Copyright 1996 Institut National de Recherche en Informatique et *)
9 (* en Automatique. All rights reserved. This file is distributed *)
10 (* under the terms of the Q Public License version 1.0. *)
12 (***********************************************************************)
16 (************************ Simple pattern matching **********************)
20 val pattern_matching
:
21 pattern
-> Debugcom.remote_value
-> Typedtree.type_expr
-> (string * Debugcom.remote_value
* Typedtree.type_expr
) list
;;