9 lines
304 B
Text
9 lines
304 B
Text
###sysinclude standard.uh
|
|
###sysinclude args.uh
|
|
###sysinclude str.uh
|
|
###sysinclude io.uh
|
|
// ===================
|
|
#g argc 3 < { #s ."Usage: " 0 argv print SPACE 1 argv print ." filename\n" end }
|
|
2 argv 'e inv istrue { #s ."The given file ( " 2 argv print ." ) doesn't exist!\n" end }
|
|
2 argv removefile
|
|
end
|