aparler/RosettaCodeData
1
0
Fork 0
Code Issues 12 Pull requests 3 Projects Releases Packages Wiki Activity Actions

Data update

Browse source
This commit is contained in:
Ingy döt Net 2024-07-13 15:19:22 -07:00
parent 29a5eea0d4
commit 5c1bb7bfa9
2011 changed files with 35081 additions and 3229 deletions
Download patch file Download diff file Expand all files Collapse all files

7
Task/Make-directory-path/Seed7/make-directory-path-1.seed7
View file

@ -1,7 +0,0 @@
$ include "seed7_05.s7i";
include "cli_cmds.s7i";
const proc: main is func
begin
doMkdirCmd(argv(PROGRAM), TRUE);
end func;

10
Task/Make-directory-path/Seed7/make-directory-path-2.seed7
View file

@ -1,10 +0,0 @@
$ include "seed7_05.s7i";
include "cli_cmds.s7i";
const proc: main is func
local
var string: parameters is "";
begin
parameters := join(argv(PROGRAM), " ");
doMkdir(parameters);
end func;

21
Task/Make-directory-path/Seed7/make-directory-path.seed7 Normal file
View file

@ -0,0 +1,21 @@
$ include "seed7_05.s7i";
include "osfiles.s7i";
const proc: makeDirectoryPath (in string: dirPath) is func
begin
makeParentDirs(dirPath);
if fileTypeSL(dirPath) <> FILE_DIR then
makeDir(dirPath);
end if;
end func;
const proc: main is func
begin
if length(argv(PROGRAM)) <> 1 then
writeln("usage: makeDirectoryPath path");
elsif succeeds(makeDirectoryPath(convDosPath(argv(PROGRAM)[1]))) then
writeln("Directory path now exists");
else
writeln("Failed to create directory path");
end if;
end func;