#!/bin/zsh
#
# Duan Gabrijeli, 20. 8. 1999 
#
#Usage: stat-slo sml-datoteka aff-datoteka
#
FS=`cat $1 | sed '/\//!d;s/.*\///'`
#FA=`echo $FS | wc -l`
#WT=`cat $1 | wc -l` 
#UNF=$(( WT-FA ))
flags=( A B C D E F G H I J K L M N O P R S T U V Z W Y X Q )

for f in ${(@)flags}
do
	tmp=""
	tmp=`cat $2 | sed '/^flag.*'$f':/,/^$/!d'`
	# reem glavo
	g=`echo $tmp | sed 2q`
	# tejem >
	NUM=`echo $tmp | sed '/^#/d;/>/!d' | wc -l`
	# tejem #-----
	MULT=`echo $tmp | sed '/#-----/!d' | wc -l`
	# Delim podaljane (priblino)
	NUM=$(( NUM/(MULT+1) ))
	# Komentar v drugi vrsti, krajam na 47 znakov
	COMM=`echo $g | sed '/--/d;/^#/!d;s/# //;s/^.\{1,47\}/& --/;s/--.*//'`
	[[ -z $g ]] && FREQ=0 || FREQ=`echo $FS | sed '/'$f'/!d' | wc -l`
	echo flag $f: $FREQ"\t\t"$(( $NUM*$FREQ ))"\t"$COMM
done 
