Commit 2586b466 authored by Bruno Guillaume's avatar Bruno Guillaume

version 0.31.1: adapt to new libraries

parent 4920b479
S src
B _build/src
PKG yojson log conll dep2pict libgrew_dev lablgtk2 lablwebkit
PKG yojson log svg conll dep2pict libgrew_dev lablgtk2 lablwebkit
true: package(str, ANSITerminal, camomile, cairo2, log, conll, dep2pict, lablgtk2, lablgtk2.rsvg, lablgtk2.glade, lablwebkit)
true: package(containers, str, ANSITerminal, camomile, cairo2, log, svg, conll, dep2pict, lablgtk2, lablgtk2.rsvg, lablgtk2.glade, lablwebkit)
true: bin_annot
\ No newline at end of file
......@@ -285,15 +285,15 @@ let full () =
let pattern = Pattern.load ?domain pattern_file in
if not (List.mem node_id (Pattern.pid_list pattern))
then (Log.fmessage "The requester node_id \"%s\" is not defined in the pattern" node_id; exit 1)
if not (List.mem node_id (Pattern.pid_name_list pattern))
then (Log.fmessage "The requested node_id \"%s\" is not defined in the pattern" node_id; exit 1)
else
(* get the array of graphs to explore *)
let graph_array = Corpus.get_graphs ?domain data_file in
match !Grew_args.output_dir with
| None ->
| None ->
Array.iter
(fun (name,graph) ->
let matchings = Graph.search_pattern ?domain pattern graph in
......@@ -321,7 +321,7 @@ let full () =
let filename = Filename.concat dir (sprintf "%s__%d.svg" name graph_node_id) in
if Sys.file_exists filename
then (Log.message "Try to erase a previous file"; exit 1)
else
else
begin
let deco = Deco.build pattern matching in
let dep = Graph.to_dep ?domain ~deco graph in
......
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