view release on metacpan or  search on metacpan

share/jtca-katakana-guide-3.pl  view on Meta::CPAN

    for my $cat (@{$_{categories}}) {
	my $func = $functable{$cat} or next;
	$func->() for $_{pattern};
    }

    $_{fixed} = $_{kana} eq $_{pattern};
    $_{ignore} = 1 if $opt->{ignore}->{$_{kana}};
    $_{regex} = qr/$_{pattern}/;

    for (qw(category pattern kana)) {
	$maxlen{$_} = max($maxlen{$_}, vwidth $_{$_});
    }

    # sanity check
    if ($_{kana} !~ /^$_{regex}$/) {
	warn sprintf "\"%s\" !~ /^%s\$/\n", $_{kana}, $_{pattern};
    }

#   push @data, \%_; # just in case.
    push @data, { %_ };
}

if ($opt->{reorder}) {
    use List::Util qw(first);
    for my $i (1 .. $#data) {
	my $match =
	    (first { $data[$i]->{kana} =~ $data[$_]->{regex} } 0 .. $i - 1)
	    // next;
	splice @data, $match, 0 => splice @data, $i, 1;
    }
}

for my $data (@data) {
    if ($opt->{skipfixed} and $data->{fixed}) {
	print "##";
    }
    elsif ($data->{ignore}) {
	print "# ";
    } else {
	print "  ";
    }

    if ($opt->{category}) {
	vprintf "%-*s ", $maxlen{category}, $data->{category};
    }
    vprintf "%-*s %s\n",
	$maxlen{pattern}, $data->{pattern},
	$data->{kana},
	;
}

__DATA__
#
# greple -Msubst モジュール用辞書ファイル
# https://github.com/kaz-utashiro/greple-subst
#
# 外来語（カタカナ）表記ガイドライン 第3版
# 制定：2015年8月
# 発行：2015年9月
# 一般財団法人テクニカルコミュニケーター協会 
# https://jtca.org/tcwp/wp-content/uploads/2023/06/katakana_guide_3_20171222.pdf
#
アイデア idea ４－３
アイデンティティー identity １－１、４－１例外、４－３
アクション action ４－１
アクセサリー accessory １－１
アクセシビリティー accessibility １－１
アコーディオン accordion １－４、４－２
アジャスター adjuster １－１
アセンブラー assembler １－１
アダプター adapter １－１
アップグレード upgrade １－２、４－３例外
アップデーター updater １－２
アップロード upload １－２
アドバイザー adviser １－１、３
アドバイス advice ３
アドベンチャー adventure １－３、３
アニメーション animation １－２、４－１
アフター after １－１
アブソーバー absorber １－１、１－４
アプリケーション application １－２、４－１
アベレージ average １－２、３
アライアンス alliance ５
アラビア Arabia ５
アラート alert １－４
アラーム alarm １－４
アルジェリア Algeria ５
アルゼンチン Argentina ４－１
アルファ alpha ２－３
アルファベット alphabet ２－３
アンカー anchor １－１
アンサー answer １－１
アンダーバー under bar（和製英語） １－１、４－３例外
アンチ anti ４－１
アンティーク antique ４－１例外
アンペア ampere １－２例外、１－３
アンモニア ammonia ５
アーキテクチャー architecture １－３、１－４
アーキテクト architect １－４
アーケード arcade １－４、４－３例外
アート art １－４
イエロー yellow １－２
イデオロギー ideology /ideologie [ドイツ語] ４－３
イニシアチブ initiative ３、４－１、５
イベント event ３
イミテーション imitation １－２、４－１
イメージ image １－４例外 
イヤホン earphone ２－４例外
イラスト illustration １－２、４－１
イラストレーション illustration １－２、４－１
イラストレーター illustrator １－１、１－２
イレーサー eraser １－１
インジケーター indicator １－１、１－２、１－３、４－２例外
インストラクター instructor １－１
インストーラー installer １－１、１－４
インストール install １－４
インタビュー interview ３
インタラクション interaction ４－１
インタラクティブ interactive ３、４－１例外
インターネット internet １－４
インターフェイス interface １－２例外、１－４、２－３
インターホン interphone １－４、２－４例外
インデックス index ４－３
インデント indent ４－３
インフォメーション information １－２、１－３、２－４、４－１
インフラストラクチャー infrastructure １－３
ウィザード wizard １－４、２－１例外
ウイスキー whiskey １－１、２－１
ウイット wit ２－１
ウインドウ window １－２、２－１
ウェア ware １－３、２－１
ウェイト weight １－２例外、２－１例外
ウェブ web ２－１例外
ウェールズ Wales １－２、１－４、２－１例外