#!/bin/sh
#
# compute source size
#
LINES=`cat *.tcl *.tk | wc -l`
SLINES=`cat *.tcl *.tk | grep -v ^$ | grep -v ^# | wc -l`
CHARS=`cat *.tcl *.tk | wc -c`
WORDS=`cat *.tcl *.tk | wc -w`
COMM=`cat *.tcl *.tk | grep ^# | wc -c`
COMMK=`expr $COMM / 1024`
K=`expr $CHARS / 1024`
echo Source size is ${K}kb \(${COMMK}kb in comments\)
echo "in $LINES lines ($SLINES source) using $WORDS words."

