Mercurial > hg > octave-lyh

comparison scripts/general/perror.m @ 2311:2b5788792cad

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1996-07-11 20:18:38 by jwe]
author jwe
date Thu, 11 Jul 1996 20:18:38 +0000
parents 5cffc4b8de57
children 5ca126254d15
comparison
equal deleted inserted replaced
2310:e2a8f216373d 2311:2b5788792cad
15 ### You should have received a copy of the GNU General Public License 15 ### You should have received a copy of the GNU General Public License
16 ### along with Octave; see the file COPYING. If not, write to the Free 16 ### along with Octave; see the file COPYING. If not, write to the Free
17 ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA 17 ### Software Foundation, 59 Temple Place - Suite 330, Boston, MA
18 ### 02111-1307, USA. 18 ### 02111-1307, USA.
19 19
20 ## usage: perror (name, err)
21 ##
22 ## Print an error message for error number `err' from function "name".
23 ##
24 ## Messages correspond to the following subroutine versions:
25 ##
26 ## npsol : 4.0
27 ## qpsol : 3.2
28 ##
29 ## See also: strerror
30
20 function perror (name, err) 31 function perror (name, err)
21
22 ## usage: perror (name, err)
23 ##
24 ## Print an error message for error number `err' from function "name".
25 ##
26 ## Messages correspond to the following subroutine versions:
27 ##
28 ## npsol : 4.0
29 ## qpsol : 3.2
30 ##
31 ## See also: strerror
32 32
33 if (nargin != 2) 33 if (nargin != 2)
34 usage ("perror (name, err)"); 34 usage ("perror (name, err)");
35 else 35 else
36 printf (strerror (name, err)); 36 printf (strerror (name, err));