##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-09/21:02-0400 ##+ # # mkdir.icn, demonstrate the create directory function # link convert procedure main() path := "mkdir-sample" mode := 8r755 # rwxr-xr-x if mkdir(path, mode) then { write("created directory ", path, " with 8r", exbase10(mode, 8)) system("ls -ld " || path) rmdir(path) } else write("directory create ", path, " with 8r", exbase10(mode, 8), " failed") end