pokered/textpre.awk
IIMarckus eac73b32e6 Treat apostrophes specially, since they’re combining characters.
This will need to be changed a bit if there are ever cases in‐game
where ’m, et cetera do NOT get combined into one character.
Maybe doubling it up to be treated as a single character (’’).

hg-commit-id: c90b7888ad5a
2011-12-21 02:50:47 -07:00

282 lines
5.2 KiB
Awk
Raw Blame History

This file contains invisible Unicode characters

This file contains invisible Unicode characters that are indistinguishable to humans but may be processed differently by a computer. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

This file contains Unicode characters that might be confused with other characters. If you think that this is intentional, you can safely ignore this warning. Use the Escape button to reveal them.

BEGIN {
FS = "\""
char["ガ"] = "$05"
char["ギ"] = "$06"
char["ゲ"] = "$08"
char["ゴ"] = "$09"
char["ジ"] = "$0B"
char["ダ"] = "$0F"
char["ド"] = "$13"
char["バ"] = "$19"
char["ビ"] = "$1A"
char["ブ"] = "$1B"
char["ボ"] = "$1C"
char["が"] = "$26"
char["ぎ"] = "$27"
char["ぐ"] = "$28"
char["げ"] = "$29"
char["ご"] = "$2A"
char["ざ"] = "$2B"
char["じ"] = "$2C"
char["ず"] = "$2D"
char["ぜ"] = "$2E"
char["ぞ"] = "$2F"
char["だ"] = "$30"
char["ぢ"] = "$31"
char["づ"] = "$32"
char["で"] = "$33"
char["ど"] = "$34"
char["ば"] = "$3A"
char["び"] = "$3B"
char["ぶ"] = "$3C"
char["べ"] = "$3D"
char["ぼ"] = "$3E"
char["パ"] = "$40"
char["ピ"] = "$41"
char["プ"] = "$42"
char["ポ"] = "$43"
char["ぱ"] = "$44"
char["ぴ"] = "$45"
char["ぷ"] = "$46"
char["ぺ"] = "$47"
char["ぽ"] = "$48"
char["ア"] = "$80"
char["イ"] = "$81"
char["ウ"] = "$82"
char["エ"] = "$83"
char["ォ"] = "$84"
char["カ"] = "$85"
char["キ"] = "$86"
char["ク"] = "$87"
char["ケ"] = "$88"
char["コ"] = "$89"
char["サ"] = "$8A"
char["シ"] = "$8B"
char["ス"] = "$8C"
char["セ"] = "$8D"
char["ソ"] = "$8E"
char["タ"] = "$8F"
char["チ"] = "$90"
char["ツ"] = "$91"
char["テ"] = "$92"
char["ト"] = "$93"
char["ナ"] = "$94"
char["ニ"] = "$95"
char["ヌ"] = "$96"
char["ネ"] = "$97"
char[""] = "$98"
char["ハ"] = "$99"
char["ヒ"] = "$9A"
char["フ"] = "$9B"
char["ホ"] = "$9C"
char["マ"] = "$9D"
char["ミ"] = "$9E"
char["ム"] = "$9F"
char["メ"] = "$A0"
char["モ"] = "$A1"
char["ヤ"] = "$A2"
char["ユ"] = "$A3"
char["ヨ"] = "$A4"
char["ラ"] = "$A5"
char["ル"] = "$A6"
char["レ"] = "$A7"
char["ロ"] = "$A8"
char["ワ"] = "$A9"
char["ヲ"] = "$AA"
char["ン"] = "$AB"
char["ッ"] = "$AC"
char["ャ"] = "$AD"
char["ュ"] = "$AE"
char["ョ"] = "$AF"
char["ィ"] = "$B0"
char["あ"] = "$B1"
char["い"] = "$B2"
char["う"] = "$B3"
char["え"] = "$B4"
char["お"] = "$B5"
char["か"] = "$B6"
char["き"] = "$B7"
char["く"] = "$B8"
char["け"] = "$B9"
char["こ"] = "$BA"
char["さ"] = "$BB"
char["し"] = "$BC"
char["す"] = "$BD"
char["せ"] = "$BE"
char["そ"] = "$BF"
char["た"] = "$C0"
char["ち"] = "$C1"
char["つ"] = "$C2"
char["て"] = "$C3"
char["と"] = "$C4"
char["な"] = "$C5"
char["に"] = "$C6"
char["ぬ"] = "$C7"
char["ね"] = "$C8"
char["の"] = "$C9"
char["は"] = "$CA"
char["ひ"] = "$CB"
char["ふ"] = "$CC"
char["へ"] = "$CD"
char["ほ"] = "$CE"
char["ま"] = "$CF"
char["み"] = "$D0"
char["む"] = "$D1"
char["め"] = "$D2"
char["も"] = "$D3"
char["や"] = "$D4"
char["ゆ"] = "$D5"
char["よ"] = "$D6"
char["ら"] = "$D7"
char["り"] = "$D8"
char["る"] = "$D9"
char["れ"] = "$DA"
char["ろ"] = "$DB"
char["わ"] = "$DC"
char["を"] = "$DD"
char["ん"] = "$DE"
char["っ"] = "$DF"
char["ゃ"] = "$E0"
char["ゅ"] = "$E1"
char["ょ"] = "$E2"
char["ー"] = "$E3"
char["@"] = "$50"
char["#"] = "$54"
char["…"] = "$75"
char[" "] = "$7F"
char["A"] = "$80"
char["B"] = "$81"
char["C"] = "$82"
char["D"] = "$83"
char["E"] = "$84"
char["F"] = "$85"
char["G"] = "$86"
char["H"] = "$87"
char["I"] = "$88"
char["J"] = "$89"
char["K"] = "$8A"
char["L"] = "$8B"
char["M"] = "$8C"
char["N"] = "$8D"
char["O"] = "$8E"
char["P"] = "$8F"
char["Q"] = "$90"
char["R"] = "$91"
char["S"] = "$92"
char["T"] = "$93"
char["U"] = "$94"
char["V"] = "$95"
char["W"] = "$96"
char["X"] = "$97"
char["Y"] = "$98"
char["Z"] = "$99"
char["("] = "$9A"
char[")"] = "$9B"
char[":"] = "$9C"
char[";"] = "$9D"
char["["] = "$9E"
char["]"] = "$9F"
char["a"] = "$A0"
char["b"] = "$A1"
char["c"] = "$A2"
char["d"] = "$A3"
char["e"] = "$A4"
char["f"] = "$A5"
char["g"] = "$A6"
char["h"] = "$A7"
char["i"] = "$A8"
char["j"] = "$A9"
char["k"] = "$AA"
char["l"] = "$AB"
char["m"] = "$AC"
char["n"] = "$AD"
char["o"] = "$AE"
char["p"] = "$AF"
char["q"] = "$B0"
char["r"] = "$B1"
char["s"] = "$B2"
char["t"] = "$B3"
char["u"] = "$B4"
char["v"] = "$B5"
char["w"] = "$B6"
char["x"] = "$B7"
char["y"] = "$B8"
char["z"] = "$B9"
char["é"] = "$BA"
char["'s"] = "$BD"
char["'t"] = "$BE"
char["'"] = "$E0"
char["-"] = "$E3"
char["?"] = "$E6"
char["!"] = "$E7"
char["."] = "$E8"
char["♂"] = "$EF"
char["/"] = "$F3"
char[","] = "$F4"
char["♀"] = "$F5"
char["0"] = "$F6"
char["1"] = "$F7"
char["2"] = "$F8"
char["3"] = "$F9"
char["4"] = "$FA"
char["5"] = "$FB"
char["6"] = "$FC"
char["7"] = "$FD"
char["8"] = "$FE"
char["9"] = "$FF"
}
# skip lines that actually do use ASCII in quotes
tolower($1) ~ /section/ ||
tolower($1) ~ /include/ ||
tolower($1) ~ /incbin/
!(tolower($1) ~ /section/ || tolower($1) ~ /include/ || tolower($1) ~ /incbin/) {
i = 1
ORS = ""
while (i <= NF) {
if (i % 2 == 1)
print $(i)
else {
f = $(i)
while (f != "") {
c = substr(f,1,1)
f = substr(f,2,length(f) - 1)
if (c > "𐀀") { # U+10000
c = c substr(f,1,3)
f = substr(f,4,length(f) - 3)
} else if (c > "ࠀ") { # U+0800
c = c substr(f,1,2)
f = substr(f,3,length(f) - 2)
} else if (c > "€") { # U+0080
c = c substr(f,1,1)
f = substr(f,2,length(f) - 1)
}
if (c == "'") {
if (substr(f,1,1) == "m" ||
substr(f,1,1) == "r" ||
substr(f,1,1) == "t" ||
substr(f,1,1) == "s" ||
substr(f,1,1) == "v" ||
substr(f,1,1) == "l") {
c = c substr(f,1,1)
f = substr(f,2,length(f) - 1)
}
}
print char[c]
if (length(f))
print ","
}
}
i = i + 1
}
print "\n"
ORS = "\n"
}