* -- Guido Milanese, 2003 * -- Error messages * -- msg is passed by the calling program and specifies which error * -- filename is the filename name passed by the calling program DEFINE('ioerror(msg,filename)') :(IOERROR_END) IOERROR :($('ioerror_' msg)) *-- Error: input file ioerror_in terminal = "***ERROR***" terminal = "You entered '" filename "' as input file," terminal = "but I could not find it!" :(return) *-- Error: output file ioerror_out terminal = "***ERROR***" terminal = "You entered '" filename "' as output file." terminal = "There is a problem: I cannot write on this file." :(return) IOERROR_END