Make directory path: Difference between revisions
Content added Content deleted
Thundergnat (talk | contribs) (Rename Perl 6 -> Raku, alphabetize, minor clean-up) |
(Ada version) |
||
Line 12: | Line 12: | ||
It's likely that your language implements such a function as part of its standard library. If so, please also show how such a function would be implemented. |
It's likely that your language implements such a function as part of its standard library. If so, please also show how such a function would be implemented. |
||
<br><br> |
<br><br> |
||
=={{header|Ada}}== |
|||
<lang Ada>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;</lang> |
|||
=={{header|Aime}}== |
=={{header|Aime}}== |