Skip to content
GitLab
Menu
Projects
Groups
Snippets
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
Menu
Open sidebar
grew
grew
Commits
692215b5
Commit
692215b5
authored
Aug 10, 2018
by
Bruno Guillaume
Browse files
Fix
#5
parent
5083b8db
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/grew_corpus.ml
View file @
692215b5
...
...
@@ -98,8 +98,8 @@ let transform () =
let
matchings
=
Graph
.
search_pattern
?
domain
pattern
graph
in
List
.
fold_left
(
fun
acc2
matching
->
let
node_matching
=
Graph
.
node_matching
pattern
graph
matching
in
let
graph_node_
id
s
=
List
.
map
snd
node_matching
in
let
assoc_nodes
=
Matching
.
nodes
pattern
graph
matching
in
let
graph_node_
name
s
=
List
.
map
snd
assoc_nodes
in
let
deco
=
Deco
.
build
pattern
matching
in
(* write the dep file if needed *)
...
...
@@ -109,7 +109,7 @@ let transform () =
|
Some
dir
->
let
id
=
sprintf
"%s__%s"
name
(
String
.
concat
"_"
(
List
.
map2
(
sprintf
"%s:%
g
"
)
pattern_ids
graph_node_
id
s
))
in
(
String
.
concat
"_"
(
List
.
map2
(
sprintf
"%s:%
s
"
)
pattern_ids
graph_node_
name
s
))
in
let
dep
=
Graph
.
to_dep
~
deco
graph
in
let
filename
=
Filename
.
concat
dir
(
sprintf
"%s.dep"
id
)
in
let
out_ch
=
open_out
filename
in
...
...
@@ -117,7 +117,7 @@ let transform () =
close_out
out_ch
;
Some
filename
in
let
json_matching
=
`Assoc
(
List
.
map2
(
fun
pid
g
id
->
(
pid
,
`String
(
sprintf
"%g"
gid
)
))
pattern_ids
graph_node_
id
s
)
in
let
json_matching
=
`Assoc
(
List
.
map2
(
fun
pid
g
_name
->
(
pid
,
`String
g_name
))
pattern_ids
graph_node_
name
s
)
in
let
opt_list
=
[
Some
(
"sent_id"
,
`String
name
);
Some
(
"matching"
,
json_matching
);
...
...
@@ -132,9 +132,8 @@ let transform () =
|
Some
f
->
Some
(
"dep_file"
,
`String
f
)
)
]
in
let
json
=
`Assoc
(
CCList
.
filter_map
(
fun
x
->
x
)
opt_list
)
in
json
::
acc2
(
CCList
.
filter_map
CCFun
.
id
opt_list
)
@
acc2
)
acc
matchings
)
[]
graph_array
in
Printf
.
printf
"%s
\n
"
(
Yojson
.
pretty_to_string
(
`
List
final_json
))
Printf
.
printf
"%s
\n
"
(
Yojson
.
Basic
.
pretty_to_string
(
`
Assoc
final_json
))
)
()
Write
Preview
Markdown
is supported
0%
Try again
or
attach a new file
.
Attach a file
Cancel
You are about to add
0
people
to the discussion. Proceed with caution.
Finish editing this message first!
Cancel
Please
register
or
sign in
to comment