#!/usr/bin/env miaou-bash

. "$MIAOU_BASH_DIR/lib/ansi.bash"

TYPE='SUBSHELL TERM'
PAYLOAD='blabla'
stack_sources=('file.bash' './lib/utility.bash' 'file.bash')
stack_lines=(18 56 12)
stack_functions=('f2' 'f1' '<main>')

function dump_failure {
  BG=RED
  FG=BLACK
  PADDING=2

  content=$(style_ansi "${TYPE}")
  content=$(style_padding "$content")
  detail=$(BG=BLACK style_padding "${PAYLOAD}")
  style_block "$content$detail"

  ansi_reset
}

function dump_traces {
  local optional location
  # block continuation
  tput sc
  tput cuu 1
  BG=RED FG=BLACK style_ansi "\t╦"
  tput rc

  FG=RED style_ansi "\t║\n"

  optional=false
  for i in "${!stack_sources[@]}"; do
    FG=RED style_ansi "\t╟─⟶"
    location="${stack_sources[$i]}:${stack_lines[$i]}"
    is_true "$optional" &&
      location=$(FG=GRAY STYLE=ITALIC style_ansi "\t$location") || # FIXME: \t should not be required!
      location=$(STYLE=ITALIC style_ansi "$location")
    printf "%40s\t%s\n" "${location}" "${stack_functions[$i]}"
    optional=true
  done
}

dump_failure
dump_traces