|
Packit |
45fded |
/*
|
|
Packit |
45fded |
* This file has been modified for the cdrkit suite.
|
|
Packit |
45fded |
*
|
|
Packit |
45fded |
* The behaviour and appearence of the program code below can differ to a major
|
|
Packit |
45fded |
* extent from the version distributed by the original author(s).
|
|
Packit |
45fded |
*
|
|
Packit |
45fded |
* For details, see Changelog file distributed with the cdrkit package. If you
|
|
Packit |
45fded |
* received this file from another source then ask the distributing person for
|
|
Packit |
45fded |
* a log of modifications.
|
|
Packit |
45fded |
*
|
|
Packit |
45fded |
*/
|
|
Packit |
45fded |
|
|
Packit |
45fded |
/* @(#)astoll.c 1.3 03/06/15 Copyright 1985, 2000-2003 J. Schilling */
|
|
Packit |
45fded |
/*
|
|
Packit |
45fded |
* astoll() converts a string to long long
|
|
Packit |
45fded |
*
|
|
Packit |
45fded |
* Leading tabs and spaces are ignored.
|
|
Packit |
45fded |
* Both return pointer to the first char that has not been used.
|
|
Packit |
45fded |
* Caller must check if this means a bad conversion.
|
|
Packit |
45fded |
*
|
|
Packit |
45fded |
* leading "+" is ignored
|
|
Packit |
45fded |
* leading "0" makes conversion octal (base 8)
|
|
Packit |
45fded |
* leading "0x" makes conversion hex (base 16)
|
|
Packit |
45fded |
*
|
|
Packit |
45fded |
* Llong is silently reverted to long if the compiler does not
|
|
Packit |
45fded |
* support long long.
|
|
Packit |
45fded |
*
|
|
Packit |
45fded |
* Copyright (c) 1985, 2000-2003 J. Schilling
|
|
Packit |
45fded |
*/
|
|
Packit |
45fded |
/*
|
|
Packit |
45fded |
* This program is free software; you can redistribute it and/or modify
|
|
Packit |
45fded |
* it under the terms of the GNU General Public License version 2
|
|
Packit |
45fded |
* as published by the Free Software Foundation.
|
|
Packit |
45fded |
*
|
|
Packit |
45fded |
* This program is distributed in the hope that it will be useful,
|
|
Packit |
45fded |
* but WITHOUT ANY WARRANTY; without even the implied warranty of
|
|
Packit |
45fded |
* MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
|
|
Packit |
45fded |
* GNU General Public License for more details.
|
|
Packit |
45fded |
*
|
|
Packit |
45fded |
* You should have received a copy of the GNU General Public License along with
|
|
Packit |
45fded |
* this program; see the file COPYING. If not, write to the Free Software
|
|
Packit |
45fded |
* Foundation, 59 Temple Place - Suite 330, Boston, MA 02111-1307, USA.
|
|
Packit |
45fded |
*/
|
|
Packit |
45fded |
|
|
Packit |
45fded |
#include <mconfig.h>
|
|
Packit |
45fded |
#include <standard.h>
|
|
Packit |
45fded |
#include <utypes.h>
|
|
Packit |
45fded |
#include <schily.h>
|
|
Packit |
45fded |
|
|
Packit |
45fded |
#define is_space(c) ((c) == ' ' || (c) == '\t')
|
|
Packit |
45fded |
#define is_digit(c) ((c) >= '0' && (c) <= '9')
|
|
Packit |
45fded |
#define is_hex(c) (\
|
|
Packit |
45fded |
((c) >= 'a' && (c) <= 'f') || \
|
|
Packit |
45fded |
((c) >= 'A' && (c) <= 'F'))
|
|
Packit |
45fded |
|
|
Packit |
45fded |
#define to_lower(c) (((c) >= 'A' && (c) <= 'Z') ? (c) - 'A'+'a' : (c))
|
|
Packit |
45fded |
|
|
Packit |
45fded |
char *
|
|
Packit |
45fded |
astoll(s, l)
|
|
Packit |
45fded |
register const char *s;
|
|
Packit |
45fded |
Llong *l;
|
|
Packit |
45fded |
{
|
|
Packit |
45fded |
return (astollb(s, l, 0));
|
|
Packit |
45fded |
}
|
|
Packit |
45fded |
|
|
Packit |
45fded |
char *
|
|
Packit |
45fded |
astollb(s, l, base)
|
|
Packit |
45fded |
register const char *s;
|
|
Packit |
45fded |
Llong *l;
|
|
Packit |
45fded |
register int base;
|
|
Packit |
45fded |
{
|
|
Packit |
45fded |
int neg = 0;
|
|
Packit |
45fded |
register Llong ret = (Llong)0;
|
|
Packit |
45fded |
register int digit;
|
|
Packit |
45fded |
register char c;
|
|
Packit |
45fded |
|
|
Packit |
45fded |
while (is_space(*s))
|
|
Packit |
45fded |
s++;
|
|
Packit |
45fded |
|
|
Packit |
45fded |
if (*s == '+') {
|
|
Packit |
45fded |
s++;
|
|
Packit |
45fded |
} else if (*s == '-') {
|
|
Packit |
45fded |
s++;
|
|
Packit |
45fded |
neg++;
|
|
Packit |
45fded |
}
|
|
Packit |
45fded |
|
|
Packit |
45fded |
if (base == 0) {
|
|
Packit |
45fded |
if (*s == '0') {
|
|
Packit |
45fded |
base = 8;
|
|
Packit |
45fded |
s++;
|
|
Packit |
45fded |
if (*s == 'x' || *s == 'X') {
|
|
Packit |
45fded |
s++;
|
|
Packit |
45fded |
base = 16;
|
|
Packit |
45fded |
}
|
|
Packit |
45fded |
} else {
|
|
Packit |
45fded |
base = 10;
|
|
Packit |
45fded |
}
|
|
Packit |
45fded |
}
|
|
Packit |
45fded |
for (; (c = *s) != 0; s++) {
|
|
Packit |
45fded |
|
|
Packit |
45fded |
if (is_digit(c)) {
|
|
Packit |
45fded |
digit = c - '0';
|
|
Packit |
45fded |
} else if (is_hex(c)) {
|
|
Packit |
45fded |
digit = to_lower(c) - 'a' + 10;
|
|
Packit |
45fded |
} else {
|
|
Packit |
45fded |
break;
|
|
Packit |
45fded |
}
|
|
Packit |
45fded |
|
|
Packit |
45fded |
if (digit < base) {
|
|
Packit |
45fded |
ret *= base;
|
|
Packit |
45fded |
ret += digit;
|
|
Packit |
45fded |
} else {
|
|
Packit |
45fded |
break;
|
|
Packit |
45fded |
}
|
|
Packit |
45fded |
}
|
|
Packit |
45fded |
if (neg)
|
|
Packit |
45fded |
ret = -ret;
|
|
Packit |
45fded |
*l = ret;
|
|
Packit |
45fded |
return ((char *)s);
|
|
Packit |
45fded |
}
|