FreeCalypso > hg > themwi-system-sw

annotate libutil/nanp_valid.c @ 30:496f359226ab

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
include: constant and interface headers for themwi-mgw
author Mychaela Falconia <falcon@freecalypso.org>
date Wed, 06 Jul 2022 22:26:09 -0800
parents b1c364729a93
children 81958b35f74d
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
2
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 /*
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2 * Utility functions for NANP number validation.
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
3 */
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
5 is_nanp_valid_prefix(s)
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6 char *s;
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7 {
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8 /* validate NPA part */
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9 if (s[0] < '2')
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10 return(0);
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
11 if (s[1] == '1' && s[2] == '1')
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
12 return(0);
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
13 if (s[1] == '9')
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
14 return(0);
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
15 /* validate exchange part */
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
16 if (s[3] < '2')
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
17 return(0);
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
18 if (s[4] == '1' && s[5] == '1')
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
19 return(0);
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
20 /* all checks passed */
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
21 return(1);
b1c364729a93 libutil: add NANP number validation function
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
22 }