9 lines
281 B
Text
9 lines
281 B
Text
###sysinclude standard.uh
|
|
###sysinclude args.uh
|
|
###sysinclude str.uh
|
|
###sysinclude io.uh
|
|
#g argc 3 < { ."Usage: " #s 0 argv print SPACE 1 argv print SPACE ."unnecessary_directory\n" end }
|
|
2 argv 'd inv istrue { ."The given directory doesn't exist! Exited.\n" }{
|
|
2 argv rmdir
|
|
}
|
|
end
|