#!/bin/bashif [ "$1" == "" ]; then    cat <<DONE	PROGRAM DESCRIPTION	semicolon separated (csv) file viewer	USAGE	    $0 FileName	AUTHOR		Peter Borkuti, 2003.01.19DONE    exit 0fi;colnum=`tr -dc ';\n' < $1 | wc -L`		# Number of columns CELLPAD=2					# Extra spaces between colstabs[0]=0					# First tab pos for calculationi=1while [ $i -le $colnum ]; do colwidth=`grep ';' $1 |\	   sed -e 's/[^;]*;\+$//' |\	   cut -d';' -f"$i" |\	   wc -L` prevtab=${tabs[$(( $i - 1 ))]} tabs[$i]=$(( $colwidth + $prevtab + $CELLPAD ))					   i=$(( $i + 1 )) done# Width of a column\# Previous tab position\# Extra spaces between columnstabs[0]=''					# We don't need the 0 tab postablist=`echo ${tabs[@]}| tr ' ' ','`		# Make a comma separated 						# tab position list# expand expands only tab characters, so we have to change csv delimiters# to tab charstr ';' '\t' < $1| expand --tabs=$tablist