Skip to content
GitLab
Projects
Groups
Snippets
Help
Loading...
Help
Help
Support
Community forum
Keyboard shortcuts
?
Submit feedback
Contribute to GitLab
Sign in
Toggle navigation
G
grew
Project overview
Project overview
Details
Activity
Releases
Repository
Repository
Files
Commits
Branches
Tags
Contributors
Graph
Compare
Issues
5
Issues
5
List
Boards
Labels
Service Desk
Milestones
Merge Requests
0
Merge Requests
0
Operations
Operations
Incidents
Packages & Registries
Packages & Registries
Container Registry
Analytics
Analytics
Repository
Value Stream
Wiki
Wiki
Members
Members
Collapse sidebar
Close sidebar
Activity
Graph
Create a new issue
Commits
Issue Boards
Open sidebar
grew
grew
Commits
692215b5
Commit
692215b5
authored
Aug 10, 2018
by
Bruno Guillaume
Browse files
Options
Browse Files
Download
Email Patches
Plain Diff
Fix
#5
parent
5083b8db
Changes
1
Hide whitespace changes
Inline
Side-by-side
Showing
1 changed file
with
6 additions
and
7 deletions
+6
-7
src/grew_corpus.ml
src/grew_corpus.ml
+6
-7
No files found.
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_
ids
=
List
.
map
snd
node_matching
in
let
assoc_nodes
=
Matching
.
nodes
pattern
graph
matching
in
let
graph_node_
names
=
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