sysprep: Move skip_dashes function into Utils module.

This is mostly code motion, but I also changed the function to use
String.unsafe_get and raise Invalid_argument on failure.

1 files changed, 2 insertions, 12 deletions

diff --git a/sysprep/sysprep_operation.ml b/sysprep/sysprep_operation.ml
index fedf9a04..a77b66d2 100644
--- a/sysprep/sysprep_operation.ml
+++ b/sysprep/sysprep_operation.ml
@@ -16,6 +16,8 @@
  * 51 Franklin Street, Fifth Floor, Boston, MA 02110-1301 USA.
  *)
 
+open Utils
+
 open Printf
 
 type flag = [ `Created_files ]
@@ -106,18 +108,6 @@ let dump_pod () =
       printf "%s\n\n" op.pod_description
   ) !ops
 
-(* Skip any leading '-' characters when comparing command line args. *)
-let skip_dashes str =
-  let n = String.length str in
-  let rec loop i =
-    if i >= n then assert false
-    else if str.[i] = '-' then loop (i+1)
-    else i
-  in
-  let i = loop 0 in
-  if i = 0 then str
-  else String.sub str i (n-i)
-
 let dump_pod_options () =
   assert !baked;