FreeCalypso > hg > themwi-system-sw

view libutil/nanp_valid.c @ 208:f0b90591f67c

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
doc/RTP-TRAUlike-format: osmo_{fr,efr}_sid_classify() merged
author Mychaela Falconia <falcon@freecalypso.org>
date Sun, 16 Apr 2023 17:54:42 -0800
parents b1c364729a93
children 81958b35f74d
line wrap: on
line source

/*
 * Utility functions for NANP number validation.
 */

is_nanp_valid_prefix(s)
	char *s;
{
	/* validate NPA part */
	if (s[0] < '2')
		return(0);
	if (s[1] == '1' && s[2] == '1')
		return(0);
	if (s[1] == '9')
		return(0);
	/* validate exchange part */
	if (s[3] < '2')
		return(0);
	if (s[4] == '1' && s[5] == '1')
		return(0);
	/* all checks passed */
	return(1);
}