Mercurial > hg > octave-nkf
comparison scripts/general/perror.m @ 6046:34f96dd5441b
[project @ 2006-10-10 16:10:25 by jwe]
author | jwe |
---|---|
date | Tue, 10 Oct 2006 16:10:31 +0000 |
parents | 2618a0750ae6 |
children | 93c65f2a5668 |
comparison
equal
deleted
inserted
replaced
6045:421d8a903df7 | 6046:34f96dd5441b |
---|---|
29 ## Author: jwe | 29 ## Author: jwe |
30 | 30 |
31 function perror (name, err) | 31 function perror (name, err) |
32 | 32 |
33 if (nargin != 2) | 33 if (nargin != 2) |
34 usage ("perror (name, err)"); | 34 print_usage (); |
35 else | 35 else |
36 printf (strerror (name, err)); | 36 printf (strerror (name, err)); |
37 endif | 37 endif |
38 | 38 |
39 endfunction | 39 endfunction |