Initial revision

[helm.git] / helm / DEVEL / pxp / pxp / tools / ucs2_to_utf8 / types.ml

diff --git a/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/types.ml b/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/types.ml
new file mode 100644 (file)
index 0000000..e2da7dc
--- /dev/null
+++ b/helm/DEVEL/pxp/pxp/tools/ucs2_to_utf8/types.ml
@@ -0,0 +1,13 @@
+(******************************************************)
+(*    Claudio Sacerdoti Coen <sacerdot@cs.unibo.it>   *)
+(*                   14/05/2000                       *)
+(******************************************************)
+
+type regexp =
+   Char of int
+ | Interval of int * int      (* lower bound, upper bound *)
+ | Identifier of string
+ | Concat of regexp list list (* concatenation of disjunctions *)
+;;
+
+type definition = { id : string ; rel : regexp list } ;;