1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
|
/*******************************************************************************
* The Elm Mail System - $Revision: 1.2 $ $State: Exp $
*
* Copyright (c) 1988-1995 USENET Community Trust
*******************************************************************************
* Bug reports, patches, comments, suggestions should be sent to:
*
* Bill Pemberton, Elm Coordinator
* flash@virginia.edu
*
*******************************************************************************
* $Log: atonum.c,v $
* Revision 1.2 2002/07/05 14:31:12 ludo
* see changelog
*
* Revision 1.1.1.1 2001/11/21 18:25:34 ludo
* Imported Sources
*
* Revision 1.2 2001/11/18 23:10:25 ludo
* See ChangeLog
*
* Revision 1.1.1.1 2001/09/28 13:06:57 ludo
* Import of sources
*
* Revision 1.1.1.1 2001/07/28 00:06:35 ludovic
* Imported Sources
*
* Revision 1.2 1995/09/29 17:41:03 wfp5p
* Alpha 8 (Chip's big changes)
*
* Revision 1.1.1.1 1995/04/19 20:38:31 wfp5p
* Initial import of elm 2.4 PL0 as base for elm 2.5.
*
******************************************************************************/
#include <Pantomime/elm_defs.h>
/*
* This is similar to atoi(), but it complains if the string
* contains any non-numeric characters. Returns the numeric
* value on success, -1 on error.
*/
int atonum(str)
register const char *str;
{
register int value;
if (*str == '\0')
return -1;
value = 0;
while (isdigit(*str))
value = (value*10) + (*str++ - '0');
return (*str == '\0' ? value : -1);
}
|
