##- # Author: Brian Tiffin # Dedicated to the public domain # # Date: October 2016 # Modified: 2016-10-11/00:37-0400 ##+ # # fdup.icn, duplicate a POSIX file descriptor # procedure main() src := open("oldfile.txt", "r") #| stop("cannot open oldfile.txt") dst := open("newfile.txt", "r") #| stop("cannot open newfile.txt") write("org newfile: ", read(dst)) if fdup(src, dst) then { write("read from newfile.txt will now look like oldfile.txt") write("dup newfile: ", read(dst)) write("dup newfile: ", read(dst)) } else write("fdup(src, dst) failed") close(src) close(dst) end