スタイル技能前処理1

maeshori.awk

#!/bin/gawk
# awk --re-interval -f maeshori.awk

BEGIN{
    print "@"
}
!/^-------.+/{
    gsub(/;/, ":", $1)
    converted=gensub(/(技能|上限|タイミング|対象|射程|目標値|対決|解説)(1|二|ニ)/, "\\1:", "g", $1)
    converted=gensub(/(上限|タイミング|対象|射程|目標値|対決):(ー|一)/, "\\1:-", "g", converted)
    converted=gensub(/ァ(ウ|ク)/, "ア\\1", "g", converted)
    gsub(/タ一/, "ター", converted)
    gsub(/ひとっ/, "ひとつ", converted)
    gsub(/→/, "ー〉", converted)
    gsub(/パり/, "パリ", converted)
    gsub(/白身/, "自身", converted)
    gsub(/自兵/, "白兵", converted)
    gsub(/白我/, "自我", converted)
    gsub(/言標/, "目標", converted)
    gsub(/ス一/, "スー", converted)
    gsub(/リ一/, "リー", converted)
    gsub(/一ド/, "ード", converted)
    gsub(/力一/, "力ー", converted)
    gsub(/力ー/, "カー", converted)
    gsub(/力ブ/, "カブ", converted)
    gsub(/力ッ/, "カッ", converted)
    gsub(/力レ/, "カレ", converted)
    gsub(/ガ一/, "ガー", converted)
    gsub(/メ一/, "メー", converted)
    gsub(/ェン/, "エン", converted)
    gsub(/ァップ/, "アップ", converted)
    gsub(/りア/, "リア", converted)
    gsub(/ィァ/, "ィア", converted)
    gsub(/ェキス/, "エキス", converted)
    gsub(/1O/, "10", converted)
    gsub(/1O/, "10", converted)
    gsub(/ー\[/, "-[", converted)
    gsub(/一\[/, "-[", converted)
    gsub(/一1/, "-1", converted)
    gsub(/一2/, "-2", converted)
    gsub(/一3/, "-3", converted)

    gsub(/^技能:/, "@\n技能:", converted)

    print converted
}