FreeCalypso > hg > freecalypso-tools

annotate uptools/libcoding/alpha_addr.c @ 924:d452188587b4

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
rvinterf: begin change to backslash escape output format Right now throughout the rvinterf suite, any time we emit output that is expected to be ASCII, but may contain non-printable garbage, we use 'cat -v' form of garbage character representation. Unfortunately, this transformation is lossy (can't be reversed 100% reliably in the user's wetware), hence we would like to migrate to C-style backslash escapes, including doubling of any already-present backslashes - this escape mechanism is lossless. Begin this change by converting the output of RV and L1 traces in rvinterf and rvtdump.
author Mychaela Falconia <falcon@freecalypso.org>
date Tue, 23 May 2023 03:10:50 +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 }