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
libcaml-grew
Commits
b9e5ea66
Commit
b9e5ea66
authored
Mar 01, 2017
by
Bruno Guillaume
Browse files
add handle wrapper to new functions
parent
685c6d65
Changes
1
Hide whitespace changes
Inline
Side-by-side
src/libgrew.ml
View file @
b9e5ea66
...
...
@@ -199,10 +199,15 @@ type t = Grew_graph.G_graph.t
close_out
out_ch
)
()
let
search_pattern
?
domain
pattern
graph
=
Grew_rule
.
Rule
.
match_in_graph
?
domain
pattern
graph
let
node_matching
pattern
graph
matching
=
Grew_rule
.
Rule
.
node_matching
pattern
graph
matching
let
search_pattern
?
domain
pattern
graph
=
handle
~
name
:
"Graph.search_pattern"
(
fun
()
->
Grew_rule
.
Rule
.
match_in_graph
?
domain
pattern
graph
)
()
let
node_matching
pattern
graph
matching
=
handle
~
name
:
"Graph.node_matching"
(
fun
()
->
Grew_rule
.
Rule
.
node_matching
pattern
graph
matching
)
()
end
(* ==================================================================================================== *)
...
...
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