From: Mike McClurg <mike.mcclurg@citrix.com>
Date: Wed, 26 Jan 2011 17:39:04 +0000 (+0000)
Subject: Deleted parse_commandline and renamed parse_commandline_2 to parse_commandline.
X-Git-Url: http://xenbits.xensource.com/gitweb?a=commitdiff_plain;h=d7a91f462c9829537d31ec8b6b84650ba3a656ab;p=xcp%2Fxen-api.git

Deleted parse_commandline and renamed parse_commandline_2 to parse_commandline.

parse_commandline was only used for compat-mode, which we just removed.

Signed-off-by: Mike McClurg <mike.mcclurg@citrix.com>
---

diff --git a/ocaml/xapi/cli_frontend.ml b/ocaml/xapi/cli_frontend.ml
index 84fe5937..2624732a 100644
--- a/ocaml/xapi/cli_frontend.ml
+++ b/ocaml/xapi/cli_frontend.ml
@@ -2423,9 +2423,6 @@ let parse tokens =
 	 params = (parse_params ts) }
     | _ -> raise (ParseError ("No arguments given"))
 
-let parse_commandline arg_array =
-  parse (tokens_of_argv arg_array)
-
 let rec parse_params_2 xs =
   match xs with
       p::ps ->
@@ -2448,7 +2445,7 @@ let rec parse_params_2 xs =
 	  end
     | [] -> []
 
-let parse_commandline_2 arg_list =
+let parse_commandline arg_list =
   try
     let argv0 = List.hd arg_list in
     let cmdname = List.hd (List.tl arg_list) in
diff --git a/ocaml/xapi/xapi_cli.ml b/ocaml/xapi/xapi_cli.ml
index 5d160400..a5ff5cd3 100644
--- a/ocaml/xapi/xapi_cli.ml
+++ b/ocaml/xapi/xapi_cli.ml
@@ -204,7 +204,7 @@ let do_handle (req:Http.request) str (s:Unix.file_descr) =
 			then (Some (Ref.of_string (String.sub line 11 (String.length line - 11))), List.tl args)
 			else (None,args)
 		with _ -> (None,args) in
-	let cmd = parse_commandline_2 ("xe"::args) in
+	let cmd = parse_commandline ("xe"::args) in
 	ignore(exec_command req cmd s session args)
 
 let exception_handler s e =
diff --git a/ocaml/xe-cli/cli.ml b/ocaml/xe-cli/cli.ml
index bd1bbcd9..e1e4b993 100644
--- a/ocaml/xe-cli/cli.ml
+++ b/ocaml/xe-cli/cli.ml
@@ -119,9 +119,11 @@ let param_error t s =
   exit exit_error)
 
 let main() =
-(*  try*)
-    let cmd = Cli_frontend.parse_commandline (Array.to_list Sys.argv) in
-    exec_command cmd
+	(* try*)
+	let parse_commandline arg_array =
+		parse (tokens_of_argv arg_array) in
+	let cmd = parse_commandline (Array.to_list Sys.argv) in
+	exec_command cmd
 (*  with
       Cli_frontend.ParseError s ->
 	param_error "Syntax error" s;