Re: [Jgeneral] Function: open file, barf if doesn't exist

[Sprague, Webb (OFM)]

Here is my final rfb -- for "read file barf".  (Yes, we need "y." not
"y" since J504).  Thanks to everyone who helped !

rfb =: 3 : 0
        require 'files'
        if. fexist y. do.
                out =. fread y.
        else. 
                ('readfile: ', y., ' does not exist') 13!:8(25)  NB.
gives value error 
        end.
        out
)

----------------------------------------------------------------------
For information about J forums see http://www.jsoftware.com/forums.htm