X-Git-Url: http://git.onelab.eu/?a=blobdiff_plain;f=conffile.ml;fp=conffile.ml;h=d7b8715f9c6b860b3e5ee8bf58c675f576333cca;hb=4ceb13b255ee9068bc070551b1abe1b293fdecc1;hp=0000000000000000000000000000000000000000;hpb=02c48a292844be161535d6aeb8c96b018d4b0ac9;p=vsys.git

diff --git a/conffile.ml b/conffile.ml
new file mode 100644
index 0000000..d7b8715
--- /dev/null
+++ b/conffile.ml
@@ -0,0 +1,17 @@
+open Printf
+open Scanf
+
+let split_conf_line s =
+  sscanf s "%s %s" (fun s1 s2->(s1,s2))
+
+let read_frontends f =
+  let f_file = try open_in f with e -> printf "Could not open config
+                                         file\n";flush Pervasives.stdout;raise e
+  in
+  let rec read_conf_file cur_list =
+    let next_line = try Some(input_line f_file) with _ -> None in
+      match next_line with
+        | Some(inp_line) -> read_conf_file (split_conf_line(inp_line)::cur_list)
+        | None -> cur_list
+  in
+    read_conf_file []