diff options
Diffstat (limited to 'bcc/misc/test/atol.t')
-rw-r--r-- | bcc/misc/test/atol.t | 29 |
1 files changed, 0 insertions, 29 deletions
diff --git a/bcc/misc/test/atol.t b/bcc/misc/test/atol.t deleted file mode 100644 index 79c78b7..0000000 --- a/bcc/misc/test/atol.t +++ /dev/null @@ -1,29 +0,0 @@ -/* atol.c - long atol( char *s ) */ - -/* atol converts s to a long */ -/* leading spaces and tabs are ignored, an optional sign is recognised, */ -/* and the digits (0 to 9) following determine the long */ - -long atol( s ) -register char *s; -{ - char signflag; - long number; - - while ( *s == ' ' || *s == '\t') - s++; - signflag = 0; - if ( *s == '+' ) - s++; - else if ( *s == '-' ) - { - signflag = 1; - s++; - } - number = 0; - while ( *s >= '0' && *s <= '9' ) - number = 10 * number + *s++ - '0'; - if ( signflag ) - return -number; - return number; -} |