21 lines
247 B
Text
21 lines
247 B
Text
void
|
|
mkdirp(text path)
|
|
{
|
|
list l;
|
|
text p, s;
|
|
|
|
file().b_affix(path).news(l, 0, 0, "/");
|
|
|
|
for (, s in l) {
|
|
p = p + s + "/";
|
|
trap_q(mkdir, p, 00755);
|
|
}
|
|
}
|
|
|
|
integer
|
|
main(void)
|
|
{
|
|
mkdirp("./path/to/dir");
|
|
|
|
0;
|
|
}
|