FreeCalypso > hg > freecalypso-tools

annotate uptools/libcoding/alpha_addr.c @ 855:ea458ee48691

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rvinterf/l1filter: new program written, compiles
author Mychaela Falconia <falcon@freecalypso.org>
date Tue, 09 Nov 2021 23:14:22 +0000
parents 74d5e95ee84a
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
333
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 /*
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2 * This library module contains some bits that help working with
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
3 * alphabetic addresses.
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4 */
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
5
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6 #include <sys/types.h>
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8 u_char alpha_septets_to_digits[12] = {0, 2, 4, 6, 7, 9, 11, 13, 14, 16, 18, 20};
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10 alpha_addr_valid(ndigits, sepp)
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
11 unsigned ndigits, *sepp;
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
12 {
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
13 unsigned n;
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
14
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
15 for (n = 1; n <= 11; n++)
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
16 if (alpha_septets_to_digits[n] == ndigits) {
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
17 *sepp = n;
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
18 return(1);
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
19 }
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
20 return(0);
74d5e95ee84a uptools/libcoding: alphabetic address handling implemented
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
21 }