22 lines
445 B
OpenEdge ABL
22 lines
445 B
OpenEdge ABL
#ident "@(#)iconv:codesets/Case.p 1.1"
|
|
#
|
|
# Sample ASCII Upper-to-lower, Lower-to-upper, and "case-swap" maps.
|
|
#
|
|
map (uclc) {
|
|
keylist("ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
|
"abcdefghijklmnopqrstuvwxyz")
|
|
}
|
|
|
|
map (lcuc) {
|
|
keylist("abcdefghijklmnopqrstuvwxyz"
|
|
"ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
|
|
|
}
|
|
|
|
map (uclc_lcuc) {
|
|
keylist("ABCDEFGHIJKLMNOPQRSTUVWXYZ"
|
|
"abcdefghijklmnopqrstuvwxyz")
|
|
keylist("abcdefghijklmnopqrstuvwxyz"
|
|
"ABCDEFGHIJKLMNOPQRSTUVWXYZ")
|
|
}
|