#  2005年 11月 22日 火曜日  02:00 PM 作成
# For c:\jww\外変\全角計算.bat  
BEGIN{
# ***********************************************
# 文字種の変更をする。cnf=1　しないcnf=0
cnf=1
# 変更する場合の文字種
hcn="cn3"
# **********************************************
}
{
 if(/^hq/){print"hd";print"h# 半＞全　四則記号 書き換え";next}
 if(/^cn/){if(length($1)==3){cn=$1}}
 if(/^ch/){
		if(cnf==1){print hcn;cnf=2;}
		syori();}
 print
 if(cnf==2){print cn;cnf=1}
}
function syori(){
 tmp=substr($6,2)
 ans= keisan(tmp);
 siki=tmp "=" ans
 $6="\"" h2z(siki) 
}

function keisan(atai_in){
	print "BEGIN{print " atai_in "}" > "z_k_tmp.awk"
	close("z_k_tmp.awk")
	com=	"mawk32 -f z_k_tmp.awk"
	com|getline rets
	close(com)
	system("del z_k_tmp.awk")
	return rets
}
function h2z(str)
{
 ret=""
 old="0123456789*+-/=.,abcdefghijklmnopqrstuvwxyzABCDEFGHIJKLMNOPQRSTUVWXYZ"
 new="０１２３４５６７８９×＋−÷＝．,ａｂｃｄｅｆｇｈｉｊｋｌｍｎｏｐｑｒｓｔｕｖｗｘｙｚＡＢＣＤＥＦＧＨＩＪＫＬＭＮＯＰＱＲＳＴＵＶＷＸＹＺ"
 for (i=1;i<=length(str);i++)
   {
    char=jsubstr(str,i,1)
    po=jindex(old,char)
    if (po==0){ret=ret char}
    else {ret=ret jsubstr(new,po,1)}
   }

 return ret
 }