Defines a ‘closefrom’ macro to complement the ‘readfrom’ primitive. It operates by repeatedly reading from a file until reaching EOF, which has the side-effect of closing the file.

The macro might be useful to avoid running out of read files when using the MetaPost graph package to process many data files that contain extra junk at the end. (In such circumstances, reading the files will stop short of the end, so leaving the file open.)

The author is Ulrik Vieth.