1
0
Files
2022-09-29 17:59:04 +03:00

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")
}