matitadep ported to the new baseuri free model

[helm.git] / components / grafite_parser / test_dep.ml

diff --git a/components/grafite_parser/test_dep.ml b/components/grafite_parser/test_dep.ml
index 2d0f7813f78f1bb70bccb738b1ffa6c3a14f8d40..b397df31b974eadc715df01b8199f2f84d22cf51 100644 (file)
--- a/components/grafite_parser/test_dep.ml
+++ b/components/grafite_parser/test_dep.ml
@@ -26,15 +26,10 @@
 (* $Id$ *)
 
 let _ =
-  let ic = ref stdin in
+  let ic = ref "/dev/fd/0" in
   let usage = "test_coarse_parser [ file ]" in
-  let open_file fname =
-    if !ic <> stdin then close_in !ic;
-    ic := open_in fname
-  in
+  let open_file fname = ic := fname in
   Arg.parse [] open_file usage;
-  let deps =
-    DependenciesParser.parse_dependencies (Ulexing.from_utf8_channel !ic)
-  in
+  let deps = DependenciesParser.deps_of_file !ic in
   List.iter (fun dep -> print_endline (DependenciesParser.pp_dependency dep)) deps