#!/bin/bash
#===============================================================
# MUSASHI bash script
#
# ホームページから得たJICFSコード表を、xmlTableに変換する。
#
# Version 2002/05/22 初期作成 by Y.Hamuro
#
# 入力ファイル input/jicfs.txt
# 出力ファイル dat/jicfs1.xt
#              dat/jicfs2.xt
#              dat/jicfs4.xt
#              dat/jicfs6.xt
#
# 出力ファイルのイメージ
#  細分類 細分類名
#  110101 醤油
#  110103 砂糖
#  110105 低カロリー甘味料
#  110107 味噌
#  110109 食塩
#  110111 食酢
#
#===============================================================

#---- タイトル
title1="JICFS大分類マスター"
title2="JICFS中分類マスター"
title4="JICFS小分類マスター"
title6="JICFS細分類マスター"

#---- コメント
comment="http://www.dsri-doc.jp/より入手"

#---------------------------------------------------------------
# コマンド
#---------------------------------------------------------------
#分類名にある半角２文字分の空白を全角の空白に置換する
#この処理で半角空白がなくなり、一行の全文字が一項目となる
sed 's/  /　/g' <input/jicfs.txt |

#1文字目から2文字目を抜き出す(jicfsの大分類コード)
xtsubstr -t -A -f 1 -R 1_2 |

#3文字目から4文字目を抜き出す(jicfsの中分類コード)
xtsubstr -t -A -f 1 -R 3_4 |

#7文字目から10文字目を抜き出す(jicfsの小分類コード)
xtsubstr -t -A -f 1 -R 7_10 |

#13文字目から16文字目を抜き出す(jicfsの細分類コード)
xtsubstr -t -A -f 1 -R 13_16 |

#ここまでの処理で、コードを抜くことができたので、１項目目の
#コードの部分を削る("： "まで)
xtsed -t -f 1 -c '^.*：　' -v '' |

#抜き出された大、中分類コードの全角の空白をnullに変換
xtchgstr -t -f 2,3 -c'　:*' -F |

#抜き出された小、細分類コードの全角の空白をnullに変換
xtchgstr -t -f 4,5 -c'　　:*' -F |

#全角数字を半角数字に変換
sed 's/０/0/g' |
sed 's/１/1/g' |
sed 's/２/2/g' |
sed 's/３/3/g' |
sed 's/４/4/g' |
sed 's/５/5/g' |
sed 's/６/6/g' |
sed 's/７/7/g' |
sed 's/８/8/g' |
sed 's/９/9/g' |
xtcut -t -f 2,3,4,5,1 >xxa

#xxaの内容は以下のようになっている
#  1 * * * 食　品
#  1 1 * * 加工食品
#  1 1 01 * 調味料
#  1 1 01 01 醤油
#  1 1 01 03 砂糖
#  1 1 01 05 低カロリー甘味料
#  1 1 01 07 味噌
#  1 1 01 09 食塩
#  1 1 01 11 食酢
#  1 1 01 13 合わせ酢（和風）
#         :
#
#ここでnullが３つある行は大分類で、２つある行は中分類、
#そして１つある行は小分類を表すことになる。


#jicfs 大分類マスターの作成
xtdelnul -t -f2 -r <xxa |
xtcut -t -f 1,5 |
txt2xt -a 大分類,大分類名 -l $title1 -c $comment |
xtsort -k 大分類 -o dat/jicfs1.xt

#jicfs 中分類マスターの作成
xtdelnul -t -f2 <xxa |
xtdelnul -t -f3 -r |
xtcal -t -c 'cat($1,$2,"")' |
xtcut -t -f 6,5 |
txt2xt -a 中分類,中分類名 -l $title2 -c $comment |
xtsort -k 中分類 -o dat/jicfs2.xt

#jicfs 小分類マスターの作成
xtdelnul -t -f2,3 <xxa |
xtdelnul -t -f4 -r |
xtcal -t -c 'cat($1,$2,$3,"")' |
xtcut -t -f 6,5 |
txt2xt -a 小分類,小分類名 -l $title4 -c $comment |
xtsort -k 小分類 -o dat/jicfs4.xt

#jicfs 細分類マスターの作成
xtdelnul -t -f2,3,4 <xxa |
xtcal -t -c 'cat($1,$2,$3,$4,"")' |
xtcut -t -f 6,5 |
txt2xt -a 細分類,細分類名 -l $title6 -c $comment |
xtsort -k 細分類 -o dat/jicfs6.xt

#ワークファイルを削除する
rm -f xx*
#===============================================================