File: val_iscan.c

package info (click to toggle)
fis-gtm 6.3-007-1
  • links: PTS, VCS
  • area: main
  • in suites: buster
  • size: 36,284 kB
  • sloc: ansic: 328,861; asm: 5,182; csh: 5,102; sh: 1,918; awk: 291; makefile: 69; sed: 13
file content (84 lines) | stat: -rwxr-xr-x 1,755 bytes parent folder | download | duplicates (5)
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
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
/****************************************************************
 *								*
 *	Copyright 2001, 2011 Fidelity Information Services, Inc	*
 *								*
 *	This source code contains the intellectual property	*
 *	of its copyright holder(s), and is made available	*
 *	under a license.  If you do not know the terms of	*
 *	the license, please stop and do not read further.	*
 *								*
 ****************************************************************/

#include "mdef.h"

#include "arit.h"

int	val_iscan(mval *v)
{
	boolean_t	dot;
	char		*c, *eos;
	int4		zeroes, sigdigs, exp;

	MV_FORCE_STR(v);
	c = v->str.addr;
	if (0 == v->str.len)
		return FALSE;
	else if ((1 == v->str.len) && ('0' == *c))
		return TRUE;
	eos = c + v->str.len;
	zeroes = sigdigs = exp = 0;
	if ('-' == *c)
	{
		c++;
		if (c == eos)
			return FALSE;
	}
	dot = FALSE;
	if (('9' >= *c) && ('0' < *c))
	{
		while ((c != eos) && ('9' >= *c) && ('0' <= *c))
		{
			if ('0' == *c)		/* don't count trailing zeroes on a big number */
				zeroes++;
			else
				zeroes = 0;
			sigdigs++;
			exp++;
			c++ ;
		}
		if ((c != eos) && ('.' == *c))
		{
			dot = TRUE;
			c++;
			while ((c != eos) && ('9' >= *c) && ('0' <= *c))
			{
				if ('0' == *c)		/* don't count trailing zeroes on a big number */
					zeroes++;
				else
					zeroes = 0;
				sigdigs++;
				c++;
			}
		}
		sigdigs -= zeroes;
	} else if ('.' == *c)
	{
		dot = TRUE; c++;
		while ((c != eos) && ('0' == *c))
		{
			exp--;
			c++;
		}
		while ((c != eos) && ('9' >= *c) && ('0' <= *c))
		{
			sigdigs++;
			c++;
		}
	} else
		return FALSE;
	exp += MV_XBIAS;
	if ((c != eos) || (dot && (('0' == *(c - 1)) || ('.' == *(c - 1))))
			|| (NUM_DEC_DG_2L < sigdigs) || (EXPLO > exp) || (EXPHI <= exp))
		return FALSE;
	return TRUE;
}