If you're trying to pass an input file stream from Prolog to a foreign function, this may be useful. For the rest of you, hopefully it's at least somewhat interesting.