#!/usr/local/bin/perl use utf8; ## This file is written in UTF-8 use strict; require 'mkpm.pl'; use vars qw(%PROP %SET %SET_ALIAS); $PROP{module_name} = 'JaInput'; $PROP{version} = do{my @r=(q$Revision: 1.1 $=~/\d+/g);sprintf "%d."."%02d" x $#r,@r}; $PROP{author_name} = 'わかば (Wakaba)'; $PROP{author_mail} = 'w@suika.fam.cx'; $PROP{pod_description} = <), 1998. JIS X 4063:2000, 『仮名漢字変換システムのための英字キー入力から仮名への変換方式 (Keystroke to KANA Transfer Method Using Latin Letter Key for Japanese Input Method)』, 日本工業標準調査会), 2000. JIS X 4064:2002, 『仮名漢字変換システムの基本機能 (Basic functions of Kana‐Kanji conversion systems)』, 日本工業標準調査会, 2000. JIS X 6002-1980, 『情報処理系けん盤配列 (Keyboard Layout for Information Processing Using the JIS 7 Bit Coded Character Set)』, 日本工業標準調査会, 1980. EOH $SET{Yomi} = <¥$%#*@'"~) =cut $SET{Digit} = <?@{\N{YEN SIGN}}^_`{|} ̄ EOH $SET{KatakanaSymbol} = <