Commit 8a38da57 authored by bguillaum's avatar bguillaum

reorganize HTML production

git-svn-id: svn+ssh://scm.gforge.inria.fr/svn/semagramme/libcaml-grew/trunk@7456 7838e531-6607-4d57-9587-6c381814729c
parent 8b4de53c
FILES_DEP = grew_utils grew_ast grew_html grew_fs grew_edge grew_node grew_graph grew_types grew_command grew_rule grew_grs
FILES_DEP = grew_utils grew_ast grew_fs grew_edge grew_node grew_graph grew_types grew_command grew_rule grew_grs grew_html
FILES_ML = $(FILES_DEP:%=%.ml)
FILES_MLI = $(FILES_DEP:%=%.mli)
FILES_CMI = $(FILES_DEP:%=%.cmi)
......@@ -139,7 +139,7 @@ grew_ast.cmx: $(GREW_AST_CMX) grew_ast.cmi grew_ast.ml
###### grew_html.ml ##############################################################
GREW_HTML_DEP = grew_utils grew_ast
GREW_HTML_DEP = grew_utils grew_ast grew_rule grew_grs
GREW_HTML_CMI = $(GREW_HTML_DEP:%=%.cmi)
GREW_HTML_CMO = $(GREW_HTML_DEP:%=%.cmo)
GREW_HTML_CMX = $(GREW_HTML_DEP:%=%.cmx)
......
This diff is collapsed.
......@@ -3,7 +3,6 @@ open Grew_graph
open Grew_rule
open Grew_ast
module Rewrite_history: sig
type t = {
instance: Instance.t;
......@@ -40,15 +39,26 @@ module Rewrite_history: sig
val save_gr: string -> t -> unit
end
module Sequence: sig
type t
module Modul: sig
type t = {
name: string;
local_labels: (string * string option) array;
rules: Rule.t list;
filters: Rule.t list;
confluent: bool;
loc: Loc.t;
}
end
module Grs: sig
type t
val empty:t
val get_modules: t -> Modul.t list
val sequence_names: t -> string list
val build: Ast.grs -> t
......@@ -60,33 +70,6 @@ module Grs: sig
val rule_iter: (string -> Rule.t -> unit) -> t -> unit
val filter_iter: (string -> Rule.t -> unit) -> t -> unit
end
module Gr_stat: sig
type t
val from_rew_history: Rewrite_history.t -> t
val save: string -> t -> unit
val load: string -> t
end
module Corpus_stat: sig
type t
val empty: grs:Grs.t -> seq:string -> t
val add_gr_stat: string -> Gr_stat.t -> t -> t
val save_html:
title: string ->
grs_file: string ->
input_dir:string ->
output_dir:string ->
t -> unit
val modules_of_sequence: t -> string -> Modul.t list
end
This diff is collapsed.
open Grew_ast
open Grew_grs
module Html :
module Html_doc :
sig
val proceed: dep:bool -> string -> string -> Ast.grs -> unit
val build: dep:bool -> string -> string -> Ast.grs -> unit
end
val html_sentences: string -> (string option * int * string) list -> unit
module Html_sentences :
sig
val build: string -> (string option * int * string) list -> unit
end
module Gr_stat: sig
type t
val from_rew_history: Rewrite_history.t -> t
val save: string -> t -> unit
val load: string -> t
end
module Corpus_stat: sig
type t
val empty: grs:Grs.t -> seq:string -> t
val add_gr_stat: string -> Gr_stat.t -> t -> t
val save_html:
title: string ->
grs_file: string ->
input_dir:string ->
output_dir:string ->
t -> unit
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