82 lines
1.9 KiB
OCaml
82 lines
1.9 KiB
OCaml
(* vim: set ts=2 sw=2 et: *)
|
|
exception ParseError
|
|
;;
|
|
|
|
type t = {
|
|
mutable config_dir : string ;
|
|
mutable video_width : int ;
|
|
mutable video_height : int ;
|
|
mutable show_fps : bool
|
|
}
|
|
|
|
let create () =
|
|
let config_dir = Printf.sprintf "%s/.justnukeit" ( Unix.getenv "HOME" )
|
|
in
|
|
{ (* default configuration *)
|
|
config_dir = config_dir ;
|
|
video_width = 640 ;
|
|
video_height = 480 ;
|
|
show_fps = false
|
|
}
|
|
;;
|
|
|
|
let parse_cmdline config =
|
|
let usagemsg = ( "Usage: " ^ Sys.argv.(0) ^ " <options>\n" ) in
|
|
Arg.parse
|
|
(
|
|
Arg.align [
|
|
("-config", Arg.String (fun x -> config.config_dir <- x ) , "<dir> Load configuration from given directory");
|
|
]
|
|
) (fun x -> ignore x ) usagemsg
|
|
;;
|
|
|
|
|
|
let parse_file_load config config_file =
|
|
ignore config ;
|
|
ignore config_file
|
|
;;
|
|
|
|
let parse_file_test config config_file =
|
|
let config_perms = [Unix.R_OK; Unix.W_OK; Unix.F_OK]
|
|
in
|
|
|
|
let dir_exist =
|
|
print_string ( "Testing configuration dir '" ^ config.config_dir ^ "'\n" ) ;
|
|
try Unix.access config.config_dir config_perms ; true
|
|
with _ -> false
|
|
in
|
|
|
|
let file_exist =
|
|
print_string ( "Testing configuration file '" ^ config_file ^ "'\n" ) ;
|
|
try Unix.access config_file config_perms ; true
|
|
with _ -> false
|
|
in
|
|
|
|
print_string ( "Dir = " ^ ( string_of_bool dir_exist ) ^ " / File = "
|
|
^ ( string_of_bool file_exist ) ^ "\n" ) ;
|
|
|
|
match ( dir_exist, file_exist ) with
|
|
| ( false, false ) ->
|
|
(* create missing directory *)
|
|
Unix.mkdir config.config_dir 0o750
|
|
(* dump default config *)
|
|
| ( false, true ) -> (* problem! *)
|
|
raise ParseError
|
|
| ( true, false ) ->
|
|
(* dump default config *)
|
|
()
|
|
| ( true, true ) ->
|
|
(* load file *)
|
|
()
|
|
;;
|
|
|
|
let parse_file config =
|
|
let config_file =
|
|
Printf.sprintf "%s/config" config.config_dir ;
|
|
in
|
|
|
|
parse_file_test config config_file;
|
|
parse_file_load config config_file
|
|
;;
|
|
|