avoid redundant shell process;
authorwenzelm
Sun, 12 Apr 2015 11:38:05 +0200
changeset 60035 9a06e10f1a5c
parent 60034 c42d65e11b6e
child 60036 b2acd5301615
avoid redundant shell process;
src/Pure/System/isabelle_system.ML
src/Pure/System/isabelle_system.scala
--- a/src/Pure/System/isabelle_system.ML	Sun Apr 12 11:23:36 2015 +0200
+++ b/src/Pure/System/isabelle_system.ML	Sun Apr 12 11:38:05 2015 +0200
@@ -59,9 +59,8 @@
 (* directory operations *)
 
 fun mkdirs path =
-  if #rc (Bash.process ("mkdir -p " ^ File.shell_path path)) <> 0 then
-    error ("Failed to create directory: " ^ Path.print path)
-  else ();
+  if File.is_dir path orelse #rc (Bash.process ("mkdir -p " ^ File.shell_path path)) = 0 then ()
+  else error ("Failed to create directory: " ^ Path.print path);
 
 fun mkdir path =
   if File.is_dir path then () else OS.FileSys.mkDir (File.platform_path path);
--- a/src/Pure/System/isabelle_system.scala	Sun Apr 12 11:23:36 2015 +0200
+++ b/src/Pure/System/isabelle_system.scala	Sun Apr 12 11:38:05 2015 +0200
@@ -257,8 +257,8 @@
   /* mkdirs */
 
   def mkdirs(path: Path): Unit =
-    if (bash("mkdir -p " + shell_path(path)).rc != 0)
-      error("Failed to create directory: " + quote(platform_path(path)))
+    if (path.is_dir || bash("mkdir -p " + shell_path(path)).rc == 0) ()
+    else error("Failed to create directory: " + quote(platform_path(path)))