Mercurial > octave-nkf

comparison kpathsea/atou.c @ 2999:faa5d0421460

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 1997-05-23 03:02:09 by jwe]
author jwe
date Fri, 23 May 1997 03:02:36 +0000
parents
children
comparison
equal deleted inserted replaced
2998:692ba9d441ec 2999:faa5d0421460
1 /* atou.c: like atoi, but if the number is negative, abort.
2
3 Copyright (C) 1992, 95 Free Software Foundation, Inc.
4
5 This library is free software; you can redistribute it and/or
6 modify it under the terms of the GNU Library General Public
7 License as published by the Free Software Foundation; either
8 version 2 of the License, or (at your option) any later version.
9
10 This library is distributed in the hope that it will be useful,
11 but WITHOUT ANY WARRANTY; without even the implied warranty of
12 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
13 Library General Public License for more details.
14
15 You should have received a copy of the GNU Library General Public
16 License along with this library; if not, write to the Free Software
17 Foundation, Inc., 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA. */
18
19 #include "config.h"
20
21 unsigned
22 atou P1C(const_string, s)
23 {
24 int i = atoi (s);
25
26 if (i < 0)
27 FATAL1 ("I expected a positive number, not %d", i);
28
29 return i;
30 }