changelog shortlog tags changeset files revisions annotate raw

scripts/general/perror.m

changeset 10289: 4b124317dc38
parent:93c65f2a5668
author: John W. Eaton <jwe@octave.org>
date: Tue Feb 09 20:58:55 2010 -0500 (69 minutes ago)
permissions: -rw-r--r--
description: base_properties::set_children: account for hidden children 
     1## Copyright (C) 1993, 1994, 1995, 1996, 1997, 1999, 2000, 2004, 2005,

     2##               2006, 2007 John W. Eaton

     3##

     4## This file is part of Octave.

     5##

     6## Octave is free software; you can redistribute it and/or modify it

     7## under the terms of the GNU General Public License as published by

     8## the Free Software Foundation; either version 3 of the License, or (at

     9## your option) any later version.

    10##

    11## Octave is distributed in the hope that it will be useful, but

    12## WITHOUT ANY WARRANTY; without even the implied warranty of

    13## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU

    14## General Public License for more details.

    15##

    16## You should have received a copy of the GNU General Public License

    17## along with Octave; see the file COPYING.  If not, see

    18## <http://www.gnu.org/licenses/>.

    19

    20## -*- texinfo -*-

    21## @deftypefn {Function File} {} perror (@var{name}, @var{num})

    22## Print the error message for function @var{name} corresponding to the

    23## error number @var{num}.  This function is intended to be used to print

    24## useful error messages for those functions that return numeric error

    25## codes.

    26## @seealso{strerror}

    27## @end deftypefn

    28

    29## Author: jwe

    30

    31function perror (name, err)

    32

    33  if (nargin != 2)

    34    print_usage ();

    35  else

    36    printf (strerror (name, err));

    37  endif

    38

    39endfunction