| | 1 | /* Turning errno values into English error messages. |
| | 2 | Copyright (C) 1985, 86, 87, 88, 93, 94, 95, 2000, 2001, 2006 Free Software Foundation, Inc. |
| | 3 | |
| | 4 | This library is free software; you can redistribute it and/or |
| | 5 | modify it under the terms of the GNU Lesser General Public License |
| | 6 | as published by the Free Software Foundation; either version 3 of |
| | 7 | the License, or (at your option) any later version. |
| | 8 | |
| | 9 | This library is distributed in the hope that it will be useful, but |
| | 10 | WITHOUT ANY WARRANTY; without even the implied warranty of |
| | 11 | MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU |
| | 12 | Lesser General Public License for more details. |
| | 13 | |
| | 14 | You should have received a copy of the GNU Lesser General Public |
| | 15 | License along with this library; if not, write to the Free Software |
| | 16 | Foundation, Inc., 51 Franklin Street, Fifth Floor, Boston, MA |
| | 17 | 02110-1301 USA |
| | 18 | */ |
| | 19 | |
| | 20 | char * |
| | 21 | strerror (int errnum) |
| | 22 | { |
| | 23 | extern char *sys_errlist[]; |
| | 24 | extern int sys_nerr; |
| | 25 | |
| | 26 | if (errnum >= 0 && errnum < sys_nerr) |
| | 27 | return sys_errlist[errnum]; |
| | 28 | return (char *) "Unknown error"; |
| | 29 | } |
| | 30 | |
| | 31 | /* |
| | 32 | Local Variables: |
| | 33 | c-file-style: "gnu" |
| | 34 | End: |
| | 35 | */ |
HCoop / bpt / guile.git / blame_incremental