38 lines
510 B
Plaintext
38 lines
510 B
Plaintext
# Make a directory using the -mkdir- program
|
|
void
|
|
mkdir(text p)
|
|
{
|
|
sshell ss;
|
|
|
|
b_cast(ss_path(ss), "mkdir");
|
|
|
|
l_append(ss_argv(ss), "mkdir");
|
|
l_append(ss_argv(ss), p);
|
|
|
|
ss_link(ss);
|
|
}
|
|
|
|
void
|
|
create_file(text p)
|
|
{
|
|
file f;
|
|
|
|
f_open(f, p, OPEN_CREATE | OPEN_TRUNCATE | OPEN_WRITEONLY, 00644);
|
|
}
|
|
|
|
void
|
|
create_pair(text prefix)
|
|
{
|
|
create_file(cat(prefix, "output.txt"));
|
|
mkdir(cat(prefix, "docs"));
|
|
}
|
|
|
|
integer
|
|
main(void)
|
|
{
|
|
create_pair("");
|
|
create_pair("/");
|
|
|
|
return 0;
|
|
}
|