blob: 182df46d1e9f04afaba7a3a5156fe507dd9bed55 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
|
* -- 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
|
