5 let split_conf_line s =
6 sscanf s "%s %s" (fun s1 s2->(s1,s2))
8 let rec in_list elt lst =
11 if (elt = car) then true else in_list elt cdr
14 let read_frontends f =
15 let f_file = try open_in f with e -> fprintf logfd "Could not open config file\n";flush logfd;raise e
17 let rec read_conf_file cur_list =
18 let next_line = try Some(input_line f_file) with _ -> None in
21 let fe = split_conf_line inp_line in
22 let new_list = if (not (in_list fe cur_list)) then (fe::cur_list) else cur_list
24 read_conf_file new_list