FreeCalypso > hg > themwi-system-sw

diff libutil/nanp_valid.c @ 2:b1c364729a93

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
libutil: add NANP number validation function
author Mychaela Falconia <falcon@freecalypso.org>
date Sat, 25 Jun 2022 18:58:00 -0800
parents
children 81958b35f74d
line wrap: on
line diff
--- /dev/null	Thu Jan 01 00:00:00 1970 +0000
+++ b/libutil/nanp_valid.c	Sat Jun 25 18:58:00 2022 -0800
@@ -0,0 +1,22 @@
+/*
+ * 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);
+}