#!/bin/bash
# How to use bash integer to compute pseudo floating point
# Sample script based on homework, from https://stackoverflow.com/q/78038959/1765658

exec 0<<-EOOfficeData.dat
	178.67,140.67,120,780,1200,456.78,680.9,800
	211,146,130,780,1200,691,680.9,0
	234.45,140,115.78,780,1200,559,680.9,0
	280.78,136,124.67,780,1200,601,710.45,900
	298.45,100,120.67,780,1300,425.56,710.45,456.78
	320.9,55,131,780,1300,638,710.45,39.89
	340.9,45.89,143.89,780,1300,732.56,710.45,127.67
	350.89,50.34,189.78,780,1300,623.67,731.34,0
	349.45,57.67,170.56,780,1350,578.32,731.34,245.67
	290.9,65.67,150.44,780,1350,497.67,731.34,0
	245.9,79.89,130.34,780,1350,501.45,750,0
	210.56,120.99,141.56,780,1350,510.56,750,325.11
	EOOfficeData.dat

printf -v sepline '%*s' 110 ''
echo "${sepline// /-}"
monthTot() {   #  Add total field 
    local IFS=+ res
    res=0"$((${line[*]/.}))"
    printf -v line[${#line[@]}] '%.2f' "${res::-2}.${res: -2}";}
deprec7.5() {  #  Add depreciation 7.5% field
    local IFS=+ res
    res="$((${line[*]/.}))"
    res=0000$((res*75))
    printf -v line[${#line[@]}] '%.2f' "${res::-5}.${res: -5}";}
centering() {  #  Print each argument centered on 110 chars fixed width
    local a
    for a; do
	printf '%*s\n' $(( 55+${#a}/2 )) "$a"
    done
}
IFS=: read -r _ _ _ _ gcos _ < <(getent passwd "$USER")
centering "Home Office Expenses" "Report Date $(date)" "Prepared by ${gcos%%,*}"
echo "${sepline// /.}"
cat <<EOF
Month      Electricity Heating  Telephone  Mortgage    Rent      City      Home   Repair & Depreciation  Total
                                           Interest              Taxes      Ins.    Maint.    (7.5%) per Month
EOF
echo "${sepline// /.}"
declare -ai tot=()
Month=0
while IFS=, read -ra line; do
    printf -v normed2fLine '%.2f ' "${line[@]}"
    read -ra line <<<"$normed2fLine"
    deprec7.5
    monthTot
    LANG=C printf -v crtMonth '%(%B)T' $(( 2678400 * Month++ ))
    printf -v txtline ' %9.2f' "${line[@]}"
    printf '%-9s %s\n' "$crtMonth" "$txtline"
    for val in "${!line[@]}"; do
	tot[val]+=${line[val]/.}
    done
done
for val in "${!tot[@]}"; do
    res=0${tot[val]}
    printf -v line[val] '%9.2f' "${res::-2}.${res: -2}"
done
claim=000$(( tot[-1] *8 ))
printf "%s\nTotal Paid %s\n\nGrand Total: %'.2f\nPercentage:  %.2f%%\nTotal Claim: %'.2f\n" \
       "${sepline// /.}" "${line[*]}" "${line[-1]}" 8 "${claim::-4}.${claim: -4}"