source: buchla-68k/libcio/atoi.c@ 6099cac

Last change on this file since 6099cac was 8973acd, checked in by Thomas Lopatic <thomas@…>, 7 years ago

No more warnings in libcio.
  • Property mode set to 100644
File size: 535 bytes
Line 
1/*
2 =============================================================================
3 atoi.c -- ascii to integer conversion
4 Version 4 -- 1987-07-09 -- D.N. Lynx Crowe
5 =============================================================================
6*/
7
8#include "ram.h"
9
10int16_t atoi(int8_t *cp)
11{
12 register int16_t i;
13 register int16_t sign;
14
15 sign = 0;
16
17 if ( *cp EQ '-' ) {
18
19 ++cp;
20 sign = 1;
21
22 } else {
23
24 if (*cp EQ '+')
25 ++cp;
26 }
27
28 for (i = 0; isdigit(*cp); )
29 i = i * 10 + (0x7F & *cp++) - '0';
30
31 return(sign ? -i : i);
32}
33
34
Note: See TracBrowser for help on using the repository browser.