projects
/
tatoo.git
/ blobdiff
commit
grep
author
committer
pickaxe
?
search:
re
summary
|
shortlog
|
log
|
commit
|
commitdiff
|
tree
raw
|
inline
| side by side
Structure run + Print run
[tatoo.git]
/
src
/
test.ml
diff --git
a/src/test.ml
b/src/test.ml
index
e6cd725
..
935023d
100644
(file)
--- a/
src/test.ml
+++ b/
src/test.ml
@@
-33,10
+33,10
@@
let query () =
let arg2 = Sys.argv.(2) in
if arg2 = "-f"
then let fq = open_in Sys.argv.(3) in
let arg2 = Sys.argv.(2) in
if arg2 = "-f"
then let fq = open_in Sys.argv.(3) in
- let q = XPath.parse_file fq in
- close_in fq;
- fprintf err_formatter "Parse query OK ! ";
- q
+
let q = XPath.parse_file fq in
+
close_in fq;
+
fprintf err_formatter "Parse query OK ! ";
+
q
else let q = XPath.parse_string arg2 in
fprintf err_formatter "Parse query OK ! ";
q
else let q = XPath.parse_string arg2 in
fprintf err_formatter "Parse query OK ! ";
q
@@
-62,6
+62,5
@@
let () =
Tree.print_xml stderr doc (Tree.root doc);
output_string stderr "\n";
Asta.print err_formatter asta;
Tree.print_xml stderr doc (Tree.root doc);
output_string stderr "\n";
Asta.print err_formatter asta;
- fprintf err_formatter "@[<v 0>##### Run #####@. %a@]\n"
- Run.print run;
+ Run.print err_formatter run;
exit 0
exit 0