alias makdir {
if (!$0) { echo $color(info).dd -a makdir: No directory specified | halt }
else {
if ($exists($1-)) { goto exists }
tokenize 92 $replace($1-,/,\)
var %x = $iif(?:* iswm $1-,1,0)
while (%x < $0) {
inc %x | var %d = $gettok($1-,1- %x,92)
if ($isfile(%d)) { goto exists }
if (!$exists(%d)) { .mkdir $+(",%d,") }
}
return
}
:exists
echo $color(info).dd -a $iif($isdir($1-),Directory,File) already exists: $1-
}