#!/usr/bin/env bash

# docker-finance | modern accounting for the power-user
#
# Copyright (C) 2021-2025 Aaron Fiore (Founder, Evergreen Crypto LLC)
#
# This program is free software: you can redistribute it and/or modify
# it under the terms of the GNU General Public License as published by
# the Free Software Foundation, either version 3 of the License, or
# (at your option) any later version.
#
# This program is distributed in the hope that it will be useful,
# but WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
# GNU General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program. If not, see <https://www.gnu.org/licenses/>.

#
# "Libraries"
#

[ -z "$DOCKER_FINANCE_CONTAINER_REPO" ] && exit 1
source "${DOCKER_FINANCE_CONTAINER_REPO}/src/hledger-flow/lib/lib_preprocess.bash" "$1" "$2"

#
# Implementation
#

[ -z "$global_year" ] && exit 1
[ -z "$global_subaccount" ] && exit 1

[ -z "$global_in_path" ] && exit 1
[ -z "$global_out_path" ] && exit 1

function parse_credit()
{
  lib_preprocess::assert_header "Transaction Date,Post Date,Description,Category,Type,Amount,Memo"

  gawk -v global_year="$global_year" -v global_subaccount="$global_subaccount" \
    '{
       if (NR<2 || $1 !~ global_year)
         next

       printf $1 OFS  # Transaction Date
       printf $2 OFS  # Post Date

       sub(/%/, "%%", $3)
       printf $3 OFS  # Description

       printf $4 OFS  # Category
       printf $5 OFS  # Type

       # Amount
       direction=($6 ~ /^-/ ? "OUT" : "IN")
       sub(/^-/, "", $6)
       printf $6 OFS

       printf $7 OFS  # Memo

       printf direction OFS
       printf global_subaccount

       printf "\n"

    }' FS=, OFS=, "$global_in_path" >"$global_out_path"
}

function parse_bank()
{
  lib_preprocess::assert_header "Details,Posting Date,Description,Amount,Type,Balance,Check or Slip #"

  gawk -v global_year="$global_year" -v global_subaccount="$global_subaccount" \
    '{
       if (NR<2 || $2 !~ global_year)
         next

       printf $1 OFS  # Details (CREDIT/DEBIT/DSLIP/etc.)
       printf $2 OFS  # Posting Date

       sub(/%/, "%%", $3)
       printf $3 OFS  # Description

       # Amount
       direction=($4 ~ /^-/ ? "OUT" : "IN")
       sub(/^-/, "", $4)
       printf $4 OFS

       printf $5 OFS  # Type
       printf $6 OFS  # Balance
       printf $7 OFS  # Check or Slip #

       printf direction OFS
       printf global_subaccount

       printf "\n"

    }' FS=, OFS=, "$global_in_path" >"$global_out_path"
}

function main()
{
  lib_preprocess::test_header "Transaction Date" && parse_credit && return 0
  lib_preprocess::test_header "Details" && parse_bank && return 0
}

main "$@"

# vim: sw=2 sts=2 si ai et
