home
***
CD-ROM
|
disk
|
FTP
|
other
***
search
/
OS/2 Shareware BBS: 5 Edit
/
05-Edit.zip
/
word2x0a.zip
/
source
/
scan_num.cc
< prev
next >
Wrap
C/C++ Source or Header
|
1997-04-10
|
1KB
|
77 lines
/* $Id: scan_num.cc,v 1.4 1997/04/10 20:42:47 dps Exp $ */
/* Simple number analyser */
#define __EXCLUDE_READER_CLASSES
#include "lib.h"
num_info scan_num(const char *scan)
{
int nd, p;
num_info r;
r.wd[0]=r.wd[1]=r.has_sign=nd=0;
p=1;
switch (*scan)
{
case '-':
case '+':
scan++;
r.wd[0]++;
p++;
r.has_sign=1;
break;
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
break;
default:
r.dot_pos=-1;
return r;
}
for ( ; *scan!='\0'; scan++, p++)
{
switch (*scan)
{
case '0':
case '1':
case '2':
case '3':
case '4':
case '5':
case '6':
case '7':
case '8':
case '9':
r.wd[nd]++; // Digit
break;
case '.':
r.dot_pos=p;
if ((++nd)==1)
break;
/* Fall through */
default:
r.dot_pos=-1;
return r;
}
}
if (r.wd[0]+r.wd[1]<=r.has_sign)
{
r.dot_pos=-1;
return r;
}
if (nd==0)
r.dot_pos=p;
return r;
}