FreeCalypso > hg > freecalypso-tools

annotate uptools/libcoding/alpha_addr.c @ 548:2e4ab60919b9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
fc-dspromdump front end program implemented
author Mychaela Falconia <falcon@freecalypso.org>
date Mon, 28 Oct 2019 22:08:38 +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 }