FreeCalypso > hg > freecalypso-tools

annotate uptools/libcoding/alpha_addr.c @ 926:6a0aa8d36d06

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rvinterf backslash escape: introduce libprint The new helper function library named libprint is meant to replace the badly misnamed libg23, and will soon contain functions for printing all of the same kinds of GPF TST packets that are now handled in libg23. However, we are also moving safe_print_trace() from libasync to this new library, and changing it to emit our new backslash escape format.
author Mychaela Falconia <falcon@freecalypso.org>
date Tue, 23 May 2023 03:47:46 +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 }