Data update

Task/Make-directory-path/Ada/make-directory-path.adb

@@ -0,0 +1,17 @@
+with Ada.Command_Line;
+with Ada.Directories;
+with Ada.Text_IO;
+
+procedure Make_Directory_Path is
+begin
+   if Ada.Command_Line.Argument_Count /= 1 then
+      Ada.Text_IO.Put_Line ("Usage: make_directory_path <path/to/dir>");
+      return;
+   end if;
+
+   declare
+      Path : String renames Ada.Command_Line.Argument (1);
+   begin
+      Ada.Directories.Create_Path (Path);
+   end;
+end Make_Directory_Path;

Task/Make-directory-path/Batch-File/make-directory-path.bat

@@ -0,0 +1,21 @@
+@echo off
+choice /M "Custom implementation?"
+if errorlevel 2 goto native
+goto custom
+
+:native
+md %~1
+goto:eof
+
+:custom
+::pushd stack will be discarded at endlocal or EOF
+setlocal
+set "dirpath=%~1"
+set dirpath="%dirpath:\=" "%"
+::resolve \ (filesystem root) at the start
+set "dirpath=%dirpath:"" "="\%"
+for %%i in (%dirpath%) do (
+md %%i
+pushd %%i
+)
+goto:eof

Task/Make-directory-path/PowerShell/make-directory-path.ps1

@@ -0,0 +1 @@
+New-Item -Path ".\path\to\dir" -ItemType Directory -ErrorAction SilentlyContinue

Task/Make-directory-path/R/make-directory-path.r

@@ -0,0 +1 @@
+dir.create("~/path/to/dir", recursive=TRUE)