Commit e32f07d1 authored by bguillaum's avatar bguillaum

add Domain.empty in library

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@8873 7838e531-6607-4d57-9587-6c381814729c
parent e3f9eb6b
...@@ -52,6 +52,8 @@ let handle ?(name="") ?(file="No file defined") fct () = ...@@ -52,6 +52,8 @@ let handle ?(name="") ?(file="No file defined") fct () =
module Domain = struct module Domain = struct
type t = Grew_types.Domain.t type t = Grew_types.Domain.t
let empty = Grew_types.Domain.empty
let load filename = let load filename =
let ast = Grew_loader.Loader.domain filename in let ast = Grew_loader.Loader.domain filename in
Grew_grs.Grs.domain_build ast Grew_grs.Grs.domain_build ast
......
...@@ -37,6 +37,7 @@ exception Bug of string * Loc.t option ...@@ -37,6 +37,7 @@ exception Bug of string * Loc.t option
(* ==================================================================================================== *) (* ==================================================================================================== *)
module Domain : sig module Domain : sig
type t type t
val empty: t
val load: string -> t val load: string -> t
val feature_names: t -> string list option val feature_names: t -> string list option
end end
......
Markdown is supported
0% or
You are about to add 0 people to the discussion. Proceed with caution.
Finish editing this message first!
Please register or to comment