comparison vext.sml @ 1716:e64981b88943 vext

Update vext

     Particular Programs Ltd shall not be used in advertising or
     otherwise to promote the sale, use or other dealings in this
     Software without prior written authorization.
 *)
 
-val vext_version = "0.0.1"
+val vext_version = "0.9.0"
 
 
 datatype vcs =
          HG |
          GIT

         end
 
     val tick_cycle = ref 0
     val tick_chars = Vector.fromList (map String.str (explode "|/-\\"))
 
-    fun tick name =
+    fun tick libname cmdlist =
         let val n = Vector.length tick_chars
             fun pad_to n str =
-              if n <= String.size str then str
-              else pad_to n (str ^ " ")
-        in
-            print ("\r " ^
+                if n <= String.size str then str
+                else pad_to n (str ^ " ")
+            val name = if libname <> "" then libname
+                       else if cmdlist = nil then ""
+                       else hd (rev cmdlist)
+        in
+            print ("  " ^
                    Vector.sub(tick_chars, !tick_cycle) ^ " " ^
-                   pad_to 24 name);
+                   pad_to 24 name ^
+                   "\r");
             tick_cycle := (if !tick_cycle = n - 1 then 0 else 1 + !tick_cycle)
         end
             
     fun run_command context libname cmdlist redirect =
         let open OS
             val dir = libpath context libname
             val cmd = expand_commandline cmdlist
             val _ = if verbose ()
                     then print ("Running: " ^ cmd ^
                                 " (in dir " ^ dir ^ ")...\n")
-                    else tick libname
+                    else tick libname cmdlist
             val _ = FileSys.chDir dir
             val status = case redirect of
                              NONE => Process.system cmd
                            | SOME file => Process.system (cmd ^ ">" ^ file)
         in

      version ();
      print ("\nA simple manager for third-party source code dependencies.\n\n"
             ^ "Usage:\n\n"
             ^ "  vext <command>\n\n"
             ^ "where <command> is one of:\n\n"
+            ^ "  status   print quick report on local status only, without using network\n"
             ^ "  review   check configured libraries against their providers, and report\n"
-            ^ "  status   print quick report on local status only, without using network\n"
             ^ "  install  update configured libraries according to project specs and lock file\n"
             ^ "  update   update configured libraries and lock file according to project specs\n"
             ^ "  version  print the Vext version number and exit\n\n");
     OS.Process.failure)