]> matita.cs.unibo.it Git - helm.git/commitdiff
better parsing of the root file
authorEnrico Tassi <enrico.tassi@inria.fr>
Mon, 14 Jan 2008 09:03:01 +0000 (09:03 +0000)
committerEnrico Tassi <enrico.tassi@inria.fr>
Mon, 14 Jan 2008 09:03:01 +0000 (09:03 +0000)
helm/software/components/library/librarian.ml

index da51369348d16ccb71c4894a477841f12fbe7b57..b765f64b65c37b4c4607ce66db06d5dd4c8e7524 100644 (file)
@@ -40,7 +40,10 @@ let remove_trailing_slash s =
 let load_root_file rootpath =
   let data = HExtlib.input_file rootpath in
   let lines = Str.split (Str.regexp "\n") data in
-  let clean s = Pcre.replace ~pat:"^ *" (Pcre.replace ~pat:" *$" s) in
+  let clean s = 
+    Pcre.replace ~pat:"[ \t]+" ~templ:" "
+      (Pcre.replace ~pat:"^ *" (Pcre.replace ~pat:" *$" s))
+  in
   List.map 
     (fun l -> 
       match Str.split (Str.regexp "=") l with