################################################################################
# ベンチマークの結果からWebページを作成する
################################################################################

#===============================================================================
# 各種変数の設定
#===============================================================================
################# 以下の4つの変数を環境に合わせて変更してください。
# 1. ベンチマークテストの名称
# "実施者名-CPU-Clock"の書式で記述してください。
bname="Hamuro-P3-800M"

# 2. HDD転送速度
# "hdparm -t /dev/hda1" を実行し、その結果を張り付ける
# "/dev/hda1"は、データの保存してあるディレクトリのパーティション名を入れる。
hdd="HDD転送速度: Timing buffered disk reads:  64 MB in  2.22 seconds = 28.83 MB/sec"

# 3. CPU情報
# "dmesg" を実行して、その結果よりCPU情報に関する情報を、以下のような書式で入力する
cpu="CPU: Intel Pentium III 800MHz"

# 4. 仮想メモリ
# "free -t" を実行して、その結果を以下のような書式で入力する)
mem="Memory: 511,856KB Swap:530,104KB"
################# 以上

#ページのタイトル
title="MUSASHIコマンドベンチマーク"

# 実施日
echo "更新日: `date`" >xxcomment

# OSの情報 ("uname -a" を実行し、その出力結果)
echo "<P>OS: $(uname -a)</P>" >>xxcomment

# HDD転送速度
echo "<P>$hdd</P>" >>xxcomment

# CPU情報
echo "<P>$cpu</P>" >>xxcomment

# 仮想メモリ
echo "<P>$mem</P>" >>xxcomment

# その他の注釈等
echo "<P>注：表中の数字の単位は秒</P>" >>xxcomment

mkdir -p ./$bname

#-------------------------------
# 各スクリプトをTEXT文書ファイルとして作成
gawk '{
  if(0!=match($0,"^function b_.*")){ 
    scpName="./'$bname'/"$2".txt";
    print scpName;
    getline;
    while(getline > 0){
      if($1=="}") break;
      print $0 >scpName;
    }
  }
}' <bench.sh

#-------------------------------
#ベンチマーク表の作成
cat result/b_* |
txt2xt -a s1,trial,name,行数,date1,time1,date2,time2,分類,タイトル |
xtcal -c 'time($time2,$time1)' -a sec |
xtcut -f name,行数,分類,タイトル,sec |
xtagg -k name,行数 -f sec -c avg -o xxbase

xtselstr -f 行数 -v 100000  -i xxbase -o xx10
xtselstr -f 行数 -v 500000  -i xxbase -o xx50
xtselstr -f 行数 -v 1000000 -i xxbase -o xx100
xtselstr -f 行数 -v 2000000 -i xxbase -o xx200

xtcut -f name,分類,タイトル -i xxbase |
xtuniq -k name |
xtjoin -k name -m xx10  -f sec:10万  |
xtjoin -k name -m xx50  -f sec:50万  |
xtjoin -k name -m xx100 -f sec:100万 |
xtjoin -k name -m xx200 -f sec:200万 |
xtcal -c 'fixdec($10万 ,1)' -a 10万件 |
xtcal -c 'fixdec($50万 ,1)' -a 50万件 |
xtcal -c 'fixdec($100万,1)' -a 100万件 |
xtcal -c 'fixdec($200万,1)' -a 200万件 |
xtcut -f 分類,タイトル,name:スクリプト名,10万件,50万件,100万件,200万件 |
xtsort -k 分類,タイトル |
xtheader -l $title -c "##comment##" |
xt2html -k 分類 -R 10万件,50万件,100万件,200万件 |
ptrepfile -c '##comment##:xxcomment' >xxrsl.html

#-------------------------------
# スクリプトファイルへのリンクを作成

rm xxsed &>/dev/null
ls $bname/b_*.txt |
gawk '{sub("^.*/b_","",$1); sub("\.txt","",$1); print $1,length($1)}' |
sort +1 -2nr |
gawk '{print $1}' >xxflist

for fname in `cat xxflist` ; do
  echo "s/b_$fname/<A href=\"##$fname.txt\">##$fname<\/A>/" >>xxsed
done
sed -f xxsed <xxrsl.html | sed 's/##/b_/g' >$bname/table.html

rm xx* &>/dev/null