##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-09/11:11-0400 ##+ # # ioctl.icn, special device, driver contol function # # ** work in progress ** procedure main() action := 12345 options := "option block" f := open("/dev/null", "r") ioctl(f, action, options) close(f) end