open Printf
 
(* Filled with any cpp-like defines seen on argv.                                           
                                                                                            
   FIXME: Add something like `-D__ACTION_SCRIPT_2__' to it so we can                        
   differentiate when we're compiling action script, and when c *)
let defines = ref ([] : string list)
 
(* Filled with the rest of command-line arguments *)
let args = ref ([] : string list)
 
(* List of command-options we'd like to process *)
let options = ref ([] : (string * Arg.spec * string) list)
 
(* One option just for the test *)
let verbose = ref false
 
let begins_with_D str =
 String.length str >= 2 && str.[0] = '-' && str.[1] = 'D';;
 
let split_argv str =
  let files = ref ([] : string list) in
  let usage = "usage string\n Options :" in
  let file = "some_file" in
 
  let defines, args =
    List.partition begins_with_D (List.tl (Array.to_list Sys.argv)) in
 
  let args_spec = [
    ("-v", Arg.Unit (fun () -> verbose := true), "turn on verbose mode");
  ] @ !options in
  Arg.parse_argv !args args_spec
    (fun file -> files := file :: !files) usage;
 
  (* Debug defines *)
  List.iter (printf "'%s' ") !defines;
  printf "\n";
 
  (* Debug args *)
  Array.iter (printf "'%s' ") (Array.of_list (List.rev !args));
  printf "\n";
;;
 
split_argv Sys.argv;;
 

b3BlbiBQcmludGYKCigqIEZpbGxlZCB3aXRoIGFueSBjcHAtbGlrZSBkZWZpbmVzIHNlZW4gb24gYXJndi4gICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgICAgCiAgIEZJWE1FOiBBZGQgc29tZXRoaW5nIGxpa2UgYC1EX19BQ1RJT05fU0NSSVBUXzJfXycgdG8gaXQgc28gd2UgY2FuICAgICAgICAgICAgICAgICAgICAgICAgCiAgIGRpZmZlcmVudGlhdGUgd2hlbiB3ZSdyZSBjb21waWxpbmcgYWN0aW9uIHNjcmlwdCwgYW5kIHdoZW4gYyAqKQpsZXQgZGVmaW5lcyA9IHJlZiAoW10gOiBzdHJpbmcgbGlzdCkKCigqIEZpbGxlZCB3aXRoIHRoZSByZXN0IG9mIGNvbW1hbmQtbGluZSBhcmd1bWVudHMgKikKbGV0IGFyZ3MgPSByZWYgKFtdIDogc3RyaW5nIGxpc3QpCgooKiBMaXN0IG9mIGNvbW1hbmQtb3B0aW9ucyB3ZSdkIGxpa2UgdG8gcHJvY2VzcyAqKQpsZXQgb3B0aW9ucyA9IHJlZiAoW10gOiAoc3RyaW5nICogQXJnLnNwZWMgKiBzdHJpbmcpIGxpc3QpCgooKiBPbmUgb3B0aW9uIGp1c3QgZm9yIHRoZSB0ZXN0ICopCmxldCB2ZXJib3NlID0gcmVmIGZhbHNlCgpsZXQgYmVnaW5zX3dpdGhfRCBzdHIgPQogU3RyaW5nLmxlbmd0aCBzdHIgPj0gMiAmJiBzdHIuWzBdID0gJy0nICYmIHN0ci5bMV0gPSAnRCc7OwoKbGV0IHNwbGl0X2FyZ3Ygc3RyID0KICBsZXQgZmlsZXMgPSByZWYgKFtdIDogc3RyaW5nIGxpc3QpIGluCiAgbGV0IHVzYWdlID0gInVzYWdlIHN0cmluZ1xuIE9wdGlvbnMgOiIgaW4KICBsZXQgZmlsZSA9ICJzb21lX2ZpbGUiIGluCgogIGxldCBkZWZpbmVzLCBhcmdzID0KICAgIExpc3QucGFydGl0aW9uIGJlZ2luc193aXRoX0QgKExpc3QudGwgKEFycmF5LnRvX2xpc3QgU3lzLmFyZ3YpKSBpbgoKICBsZXQgYXJnc19zcGVjID0gWwogICAgKCItdiIsIEFyZy5Vbml0IChmdW4gKCkgLT4gdmVyYm9zZSA6PSB0cnVlKSwgInR1cm4gb24gdmVyYm9zZSBtb2RlIik7CiAgXSBAICFvcHRpb25zIGluCiAgQXJnLnBhcnNlX2FyZ3YgIWFyZ3MgYXJnc19zcGVjCiAgICAoZnVuIGZpbGUgLT4gZmlsZXMgOj0gZmlsZSA6OiAhZmlsZXMpIHVzYWdlOwoKICAoKiBEZWJ1ZyBkZWZpbmVzICopCiAgTGlzdC5pdGVyIChwcmludGYgIiclcycgIikgIWRlZmluZXM7CiAgcHJpbnRmICJcbiI7CgogICgqIERlYnVnIGFyZ3MgKikKICBBcnJheS5pdGVyIChwcmludGYgIiclcycgIikgKEFycmF5Lm9mX2xpc3QgKExpc3QucmV2ICFhcmdzKSk7CiAgcHJpbnRmICJcbiI7Cjs7CgpzcGxpdF9hcmd2IFN5cy5hcmd2OzsK