mirror of
https://github.com/libguestfs/libguestfs.git
synced 2026-03-21 22:53:37 +00:00
ec438b7b85
Instead of returning directly a Getopt.t handle, now Tools_utils.create_standard_options returns a struct, which at the moment contains only the Getopt.t handle. This way, it will be easy to add more data needed for handling standard command line options. This is mostly refactoring, with no functional changes.
86 lines
2.6 KiB
OCaml
86 lines
2.6 KiB
OCaml
(* mllib
|
|
* Copyright (C) 2016 Red Hat Inc.
|
|
*
|
|
* This program is free software; you can redistribute it and/or modify
|
|
* it under the terms of the GNU General Public License as published by
|
|
* the Free Software Foundation; either version 2 of the License, or
|
|
* (at your option) any later version.
|
|
*
|
|
* This program is distributed in the hope that it will be useful,
|
|
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
* GNU General Public License for more details.
|
|
*
|
|
* You should have received a copy of the GNU General Public License along
|
|
* with this program; if not, write to the Free Software Foundation, Inc.,
|
|
* 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
|
|
*)
|
|
|
|
(* Test the Getopt module. The tests are controlled by the
|
|
* test-getopt.sh script.
|
|
*)
|
|
|
|
open Printf
|
|
|
|
open Std_utils
|
|
open Tools_utils
|
|
open Getopt.OptionName
|
|
|
|
let adds = ref []
|
|
let add_string = List.push_back adds
|
|
|
|
let anons = ref []
|
|
let anon_fun = List.push_back anons
|
|
|
|
let ints = ref []
|
|
let add_int = List.push_back ints
|
|
|
|
let clear_flag = ref true
|
|
let set_flag = ref false
|
|
let si = ref 42
|
|
let ss = ref "not set"
|
|
|
|
type optstring_value =
|
|
| Unset
|
|
| NoValue
|
|
| Value of string
|
|
let optstr = ref Unset
|
|
let set_optstr = function
|
|
| None -> optstr := NoValue
|
|
| Some s -> optstr := Value s
|
|
|
|
let argspec = [
|
|
[ S 'a'; L"add" ], Getopt.String ("string", add_string), "Add string";
|
|
[ S 'c'; L"clear" ], Getopt.Clear clear_flag, "Clear flag";
|
|
[ S 'i'; L"int" ], Getopt.Int ("int", add_int), "Add int";
|
|
[ M"ii"; L"set-int" ], Getopt.Set_int ("int", si), "Set int";
|
|
[ M"is"; L"set-string"], Getopt.Set_string ("string", ss), "Set string";
|
|
[ S 't'; L"set" ], Getopt.Set set_flag, "Set flag";
|
|
[ S 'o'; L"optstr" ], Getopt.OptString ("string", set_optstr), "Set optional string";
|
|
]
|
|
|
|
let usage_msg = sprintf "%s: test the Getopt parser" prog
|
|
|
|
let print_optstring_value = function
|
|
| Unset -> "not set"
|
|
| NoValue -> "<none>"
|
|
| Value s -> s
|
|
|
|
let opthandle = create_standard_options argspec ~anon_fun usage_msg
|
|
let () =
|
|
Getopt.parse opthandle.getopt;
|
|
|
|
(* Implicit settings. *)
|
|
printf "trace = %b\n" (trace ());
|
|
printf "verbose = %b\n" (verbose ());
|
|
|
|
(* Print the results. *)
|
|
printf "adds = [%s]\n" (String.concat ", " !adds);
|
|
printf "anons = [%s]\n" (String.concat ", " !anons);
|
|
printf "ints = [%s]\n" (String.concat ", " (List.map string_of_int !ints));
|
|
printf "clear_flag = %b\n" !clear_flag;
|
|
printf "set_flag = %b\n" !set_flag;
|
|
printf "set_int = %d\n" !si;
|
|
printf "set_string = %s\n" !ss;
|
|
printf "set_optstring = %s\n" (print_optstring_value !optstr)
|