FreeCalypso > hg > themwi-interim

annotate libutil/extdigits.c @ 12:047bb5a91709 default tip

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
add README
author Mychaela Falconia <falcon@freecalypso.org>
date Sun, 09 Jun 2024 05:00:35 +0000
parents b161dbfffdaa
children
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
rev   line source
1
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
1 /*
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
2 * The library function implemented in this module checks "extended"
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
3 * number digits, i.e., checks whether or not a given character
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
4 * makes a valid "extended" number digit.
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
5 */
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
6
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
7 is_valid_ext_digit(c)
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
8 {
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
9 switch (c) {
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
10 case '0':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
11 case '1':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
12 case '2':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
13 case '3':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
14 case '4':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
15 case '5':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
16 case '6':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
17 case '7':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
18 case '8':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
19 case '9':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
20 case '*':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
21 case '#':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
22 case 'a':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
23 case 'b':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
24 case 'c':
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
25 return(1);
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
26 default:
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
27 return(0);
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
28 }
b161dbfffdaa include, libutil: port from old ThemWi
Mychaela Falconia <falcon@freecalypso.org>
parents:
diff changeset
29 }