#!/usr/bin/env bash
#######################################################################
# SPDX-License-Identifier: MIT
# Copyright (c) 2021 TekWizely & co-authors
#
# Use of this source code is governed by the MIT license.
# See the accompanying LICENSE file, if present, or visit:
#   https://opensource.org/licenses/MIT
#######################################################################
VERSION="v0.7.1"
#######################################################################
# Bash-TPL: A Smart, Lightweight shell script templating engine
#
# Lets you mark up textual files with shell commands and variable
# replacements, while minimally impacting your original file layout.
#
# Templates are compiled into shell scripts that you can invoke
# (along with variables, arguments, etc.) to generate complete and
# well-formatted output text files.
#
#  Smart
#
# Encourages you to use extra indentation to write clean, well-
# formatted templates, and smartly removes the indentations from the
# generated template scripts.
#
# This results in both templates that are easily readable and
# maintainable, and generated text files that look as good as if they
# were written by hand.
#
#  NOTE: Consistent Formatting
#
# The key to success with Bash-TPL indentation fix-up logic is
# Consistent Formatting; using consistent indentation throughout your
# template will yield best results.
#
# Learn More:
#   https://github.com/TekWizely/bash-tpl
#######################################################################

function usage() {
	cat << USAGE
Bash-TPL is a smart, lightweight shell script templating engine

usage: bash-tpl [flags] [--] file
       bash-tpl [flags] -
       cat file | bash-tpl [flags]

options:
  -h, --help
        show help screen
  --version
        show version
  -o, --output-file <filename>
        write to specified file (default: stdout)
   --   treat remaining options as positional arguments
   -    read from stdin

customize delimiters:
  --tag-delims 'xx xx'
        set tag delimiters (default: '<% %>')
  --tag-stmt-delim 'x'
        set tag statement delimiter (default: '%')
  --stmt-delim 'x+'
        set statement delimiter (default: '%')
  --stmt-block-delims 'x+ x+'
        set statement block delimiters
        defaults to statement delimiter if not explicitly set
  --txt-delim
  --text-delim 'x+[ ]?' (single trailing space allowed)
        set text delimiter (default: '% ')
  --dir-delim
  --directive-delim 'x+'
        set directive delimiter (default: '.')
  --cmt-delim
  --comment-delim 'x+'
        set template comment delimiter
        defaults to directive delimiter + '#' if not explicitly set
  --reset-delims
        reset all delimiters to defaults
        delim options provided after this option are honored

supported environment variables:
    BASH_TPL_TAG_DELIMS
    BASH_TPL_TAG_STMT_DELIM
    BASH_TPL_STMT_DELIM
    BASH_TPL_STMT_BLOCK_DELIMS
    BASH_TPL_TEXT_DELIM
    BASH_TPL_DIR_DELIM
    BASH_TPL_CMT_DELIM

example:
    $ echo 'Hello <% \$NAME %>' > test.tpl
    $ NAME="Chuck Norris" source <( bash-tpl test.tpl )

    Hello Chuck Norris

learn more: https://github.com/TekWizely/bash-tpl

USAGE
}

#######################################################################
# Delim Functions
#######################################################################

TAG_DELIM_REGEX='^([^[:blank:]])([^[:blank:]]) ([^[:blank:]])([^[:blank:]])$'
TAG_STMT_DELIM_REGEX='^([^[:blank:]])$'
STMT_DELIM_REGEX='^([^[:blank:]]+)$'
STMT_BLOCK_DELIM_REGEX='^([^[:blank:]]+) ([^[:blank:]]+)$'
STMT_BLOCK_TEXT_REGEX='^([^[:blank:]]+\ ?)$' # Optional trailing ' '

##
# reset_delims
#
function reset_delims() {
	TAG_START_DELIM1='<'
	TAG_START_DELIM2='%'
	TAG_STOP_DELIM1='%'
	TAG_STOP_DELIM2='>'

	TAG_STMT_DELIM='%'

	STMT_DELIM='%'

	TEXT_DELIM_UNDEFINED=1
	TEXT_DELIM=''

	STMT_BLOCK_DELIM_UNDEFINED=1
	STMT_BLOCK_START_DELIM=''
	STMT_BLOCK_STOP_DELIM=''

	DIRECTIVE_DELIM='.'

	COMMENT_DELIM_UNDEFINED=1
	COMMENT_DELIM=''
}

##
# parse_tag_delims
# $1 = delims
# $2 = src (for error msg)
#
function parse_tag_delims() {
	if [[ "${1}" =~ $TAG_DELIM_REGEX ]]; then
		TAG_START_DELIM1="${BASH_REMATCH[1]}"
		TAG_START_DELIM2="${BASH_REMATCH[2]}"
		TAG_STOP_DELIM1="${BASH_REMATCH[3]}"
		TAG_STOP_DELIM2="${BASH_REMATCH[4]}"
	else
		echo "Error: Invalid or missing tag delimiter values for ${2-tag delims}: '${1}'" >&2
		exit 1
	fi
}

##
# parse_tag_stmt_delims
# $1 = delim
# $2 = src (for error msg)
#
function parse_tag_stmt_delim() {
	if [[ "${1}" =~ $TAG_STMT_DELIM_REGEX ]]; then
		TAG_STMT_DELIM="${BASH_REMATCH[1]}"
	else
		echo "Error: Invalid or missing tag stmt delimiter value for ${2-tag stmt delim}: '${1}'" >&2
		exit 1
	fi
}

##
# parse_stmt_delim
# $1 = delim
# $2 = src (for error msg)
#
function parse_stmt_delim() {
	if [[ "${1}" =~ $STMT_DELIM_REGEX ]]; then
		STMT_DELIM="${BASH_REMATCH[1]}"
	else
		echo "Error: Invalid or missing stmt delimiter value for ${2:-stmt delim}: '${1}'" >&2
		exit 1
	fi
}

##
# parse_stmt_block_delims
# $1 = delims
# $2 = src (for error msg)
#
function parse_stmt_block_delims() {
	if [[ "${1}" =~ $STMT_BLOCK_DELIM_REGEX ]]; then
		STMT_BLOCK_START_DELIM="${BASH_REMATCH[1]}"
		STMT_BLOCK_STOP_DELIM="${BASH_REMATCH[2]}"
		STMT_BLOCK_DELIM_UNDEFINED=''
	else
		echo "Error: Invalid or missing stmt-block delimiter values for ${2:-stmt-block delims}: '${1}'" >&2
		exit 1
	fi
}

##
# parse_text_delim - Uses STMT delim regex
# $1 = delim
# $2 = src (for error msg)
#
function parse_text_delim() {
	if [[ "${1}" =~ $STMT_BLOCK_TEXT_REGEX ]]; then
		TEXT_DELIM="${1}"
		TEXT_DELIM_UNDEFINED=''
	else
		echo "Error: Invalid or missing text delimiter value for ${2:-txt delim}: '${1}'" >&2
		exit 1
	fi
}

##
# parse_directive_delim - Uses STMT delim regex
# $1 = delim
# $2 = src (for error msg)
#
function parse_directive_delim() {
	if [[ "${1}" =~ $STMT_DELIM_REGEX ]]; then
		DIRECTIVE_DELIM="${1}"
	else
		echo "Error: Invalid or missing directive delimiter value for ${2:-dir delim}: '${1}'" >&2
		exit 1
	fi
}

##
# parse_comment_delim - Uses STMT delim regex
# $1 = delim
# $2 = src (for error msg)
#
function parse_comment_delim() {
	if [[ "${1}" =~ $STMT_DELIM_REGEX ]]; then
		COMMENT_DELIM="${1}"
		COMMENT_DELIM_UNDEFINED=''
	else
		echo "Error: Invalid or missing comment delimiter value for ${2:-cmt delim}: '${1}'" >&2
		exit 1
	fi
}

##
# reset_template_regexes
#
function reset_template_regexes() {
	# Fixup STMT_BLOCK delims - Default to STMT_DELIM if not set
	#
	if [[ -n "${STMT_BLOCK_DELIM_UNDEFINED}" ]]; then
		STMT_BLOCK_START_DELIM="${STMT_DELIM}"
		STMT_BLOCK_STOP_DELIM="${STMT_DELIM}"
	fi

	# Fixup TEXT delim - Default to STMT_DELIM followed by ' ' if not set
	#
	if [[ -n "${TEXT_DELIM_UNDEFINED}" ]]; then
		TEXT_DELIM="${STMT_DELIM} " # Note trailing space (' ')
	fi

	# Fixup COMMENT delim - Default to STMT_DELIM followed by '#' if not set
	#
	if [[ -n "${COMMENT_DELIM_UNDEFINED}" ]]; then
		COMMENT_DELIM="${STMT_DELIM}#"
	fi

	#
	# Create regexes
	#

	local d ds d1 d2 d3 d4

	d="${DIRECTIVE_DELIM}"
	escape_regex d
	DIRECTIVE_REGEX="^([[:blank:]]*)${d}([a-zA-Z_-]+)(.*)\$"

	d="${COMMENT_DELIM}"
	escape_regex d
	COMMENT_REGEX="^([[:blank:]]*)${d}"

	d="${STMT_DELIM}"
	escape_regex d
	STATEMENT_REGEX="^([[:blank:]]*)${d}[[:blank:]]+(.+)\$"

	d="${STMT_BLOCK_START_DELIM}"
	escape_regex d
	STATEMENT_BLOCK_START_REGEX="^([[:blank:]]*)${d}[[:blank:]]*\$"

	d="${STMT_BLOCK_STOP_DELIM}"
	escape_regex d
	STATEMENT_BLOCK_STOP_REGEX="^([[:blank:]]*)${d}[[:blank:]]*\$"

	d="${TEXT_DELIM}"
	escape_regex d
	STATEMENT_BLOCK_TEXT_REGEX="^([[:blank:]]*)${d}([[:blank:]]*[^[:blank:]](.*))\$"

	TEXT_REGEX='^([[:blank:]]*)([^[:blank:]](.*))?$'

	d1="${TAG_START_DELIM1}"
	escape_regex d1

	d2="${TAG_START_DELIM2}"
	escape_regex d2

	d3="${TAG_STOP_DELIM1}"
	escape_regex d3

	d4="${TAG_STOP_DELIM2}"
	escape_regex d4

	ds="${TAG_STMT_DELIM}"
	escape_regex ds

	TAG_TEXT_REGEX="^([^${d1}]+|${d1}$|${d1}[^${d1}${d2}]+)(.*)"

	TAG_STD_REGEX="^${d1}${d2}((([^${d3}])|(${d3}[^${d4}]))*)${d3}${d4}(.*)"

	TAG_QUOTE_REGEX="^${d1}${d2}\"((([^\"])|(\"[^${d3}])|(\"${d3}[^${d4}]))*)\"${d3}${d4}(.*)"

	TAG_STATEMENT_REGEX="^${d1}${d2}${ds}((([^${d3}])|(${d3}[^${d4}]))*)${d3}${d4}(.*)"

	# printf "# ---> delim regexes:"
	# printf "# STATEMENT_BLOCK_START_REGEX: '%s'\n" "${STATEMENT_BLOCK_START_REGEX}"
	# printf "# STATEMENT_BLOCK_STOP_REGEX: '%s'\n" "${STATEMENT_BLOCK_STOP_REGEX}"
	# printf "# COMMENT_REGEX: '%s'\n" "${COMMENT_REGEX}"
	# printf "# DIRECTIVE_REGEX: '%s'\n" "${DIRECTIVE_REGEX}"
	# printf "# STATEMENT_REGEX: '%s'\n" "${STATEMENT_REGEX}"
	# printf "# TAG_TEXT_REGEX: '%s'\n" "${TAG_TEXT_REGEX}"
	# printf "# TAG_STD_REGEX: '%s'\n" "${TAG_STD_REGEX}"
	# printf "# TAG_QUOTE_REGEX: '%s'\n" "${TAG_QUOTE_REGEX}"
	# printf "# TAG_STATEMENT_REGEX: '%s'\n" "${TAG_STATEMENT_REGEX}"
}

#######################################################################
# Misc Functions
#######################################################################

##
# trim
# usage: trim varname
# NOTE: Expects value to NOT contain '\n'
#
function trim() {
	read -r "$1" <<< "${!1}"$'\n'
}

##
# escape_regex
# usage: escape_regex varname
#
function escape_regex() {
	local result
	# shellcheck disable=SC2001  # Too complex for ${variable//search/replace}
	# shellcheck disable=SC2016  # Not using expansion, prefer single quotes
	# shellcheck disable=SC2034  # ref is used
	result=$(sed 's/[][\.|$(){}?+*^]/\\&/g' <<< "${!1}")
	printf -v "${1}" "%s" "${result}"
}

##
# normalize_directive
# usage: normalize_directive varname
#
function normalize_directive() {
	local result
	# shellcheck disable=SC2034  # ref is used
	result=$(tr 'a-z_' 'A-Z-' <<< "${!1}")
	printf -v "${1}" "%s" "${result}"
}

#######################################################################
# STATES
#######################################################################

STATES=()       # empty => DEFAULT
STATE="DEFAULT" # [ DEFAULT, MAYBE_TXT_BLOCK, TXT_BLOCK, START_STMT_BLOCK, STMT_BLOCK ]

##
# push_state
#
function push_state() {
	STATES+=("${STATE}")
	STATE="${1}"
}

##
# pop_state
#
function pop_state() {
	if [[ ${#STATES[@]} -gt 0 ]]; then
		STATE="${STATES[${#STATES[@]} - 1]}"
		unset "STATES[${#STATES[@]}-1]"
	else
		STATE="DEFAULT"
	fi
}

#######################################################################
# TEXT_INDENTS
#######################################################################

TEXT_INDENTS=() # empty => ""
TEXT_INDENT=""

##
# push_text_indent
#
function push_text_indent() {
	TEXT_INDENTS+=("${TEXT_INDENT}")
	TEXT_INDENT="${1}"
}

##
# pop_text_indent
#
function pop_text_indent() {
	if [[ ${#TEXT_INDENTS[@]} -gt 0 ]]; then
		TEXT_INDENT="${TEXT_INDENTS[${#TEXT_INDENTS[@]} - 1]}"
		unset "TEXT_INDENTS[${#TEXT_INDENTS[@]} - 1]"
	else
		TEXT_INDENT=""
	fi
}

#######################################################################
# STATEMENT_INDENTS
#######################################################################

STATEMENT_INDENTS=() # empty => ""
STATEMENT_INDENT=""

##
# push_statement_indent
#
function push_statement_indent() {
	STATEMENT_INDENTS+=("${STATEMENT_INDENT}")
	STATEMENT_INDENT="${1}"
}

##
# pop_statement_indent
#
function pop_statement_indent() {
	if [[ ${#STATEMENT_INDENTS[@]} -gt 0 ]]; then
		STATEMENT_INDENT="${STATEMENT_INDENTS[${#STATEMENT_INDENTS[@]} - 1]}"
		unset "STATEMENT_INDENTS[${#STATEMENT_INDENTS[@]} - 1]"
	else
		STATEMENT_INDENT=""
	fi
}

#######################################################################
# BLOCK_INDENTS
#######################################################################

BLOCK_INDENTS=() # empty => ""
BLOCK_INDENT=""

##
# push_block_indent
#
function push_block_indent() {
	BLOCK_INDENTS+=("${BLOCK_INDENT}")
	BLOCK_INDENT="${1}"
}

##
# pop_block_indent
#
function pop_block_indent() {
	if [[ ${#BLOCK_INDENTS[@]} -gt 0 ]]; then
		BLOCK_INDENT="${BLOCK_INDENTS[${#BLOCK_INDENTS[@]} - 1]}"
		unset "BLOCK_INDENTS[${#BLOCK_INDENTS[@]} - 1]"
	else
		BLOCK_INDENT=""
	fi
}

#######################################################################
# Print Functions
#######################################################################

##
# print_statement
# $1 = leading indentation
# $2 = statement
#
function print_statement() {
	local indent="${1}"
	if [[ "${indent}" == "${BLOCK_INDENT}"* ]]; then
		indent="${indent/#$BLOCK_INDENT/}"
	fi
	printf "%s\n" "${BASE_STMT_INDENT}${STATEMENT_INDENT}${indent}${2}"
}

##
# print_text - generates a printf statement for template text
# $1 = leading text indentation
# $2 = text
# $3 = leading stmt indentation [OPTIONAL]
#
function print_text() {
	local indent="${1}"
	if [[ "${indent}" == "${BLOCK_INDENT}"* ]]; then
		indent="${indent/#$BLOCK_INDENT/}"
	fi
	process_tags "${3-${BLOCK_INDENT}}" "${BASE_TEXT_INDENT}${TEXT_INDENT}${indent}${2}"
}

#######################################################################
# Process Functions
#######################################################################

##
# process_tags
# $1 = statement indentation
# $2 = full line of text to process
#
function process_tags() {
	local stmt_indent line args arg quoted
	stmt_indent="${1}"
	line="${2}"
	args=""
	while [ -n "${line}" ]; do
		# echo "# LINE @ START: $(declare -p line)" >&2
		if [[ "${line}" =~ $TAG_TEXT_REGEX ]]; then
			# echo "# TEXT TAG MATCH: $(declare -p BASH_REMATCH)" >&2
			printf -v quoted "%q" "${BASH_REMATCH[1]}"
			args="${args}${quoted}"
			line="${BASH_REMATCH[2]}"
		elif [[ "${line}" =~ $TAG_QUOTE_REGEX ]]; then
			# echo "# QUOTE TAG MATCH: $(declare -p BASH_REMATCH)" >&2
			args="${args}\"${BASH_REMATCH[1]}\""
			line="${BASH_REMATCH[6]}"
		elif [[ "${line}" =~ $TAG_STATEMENT_REGEX ]]; then
			# echo "# STMT TAG MATCH: $(declare -p BASH_REMATCH)" >&2
			arg="${BASH_REMATCH[1]}"
			trim arg
			args="${args}\"\$(${arg})\""
			line="${BASH_REMATCH[5]}"
		# Check standard regex last as it's a super-set of quote and stmt regex
		#
		elif [[ "${line}" =~ $TAG_STD_REGEX ]]; then
			# echo "# STD TAG MATCH: $(declare -p BASH_REMATCH)" >&2
			arg="${BASH_REMATCH[1]}"
			trim arg
			args="${args}\"${arg}\""
			line="${BASH_REMATCH[5]}"
		# Assume next character is TEXT - extract and process remainder
		#
		elif [[ "${line}" =~ (.)(.*) ]]; then
			# echo "# DEFAULT: Assuming first char is TEXT: $(declare -p line)"
			printf -v quoted "%q" "${BASH_REMATCH[1]}"
			args="${args}${quoted}"
			line="${BASH_REMATCH[2]}"
		fi
		# echo "# LINE @ END: $(declare -p line)" >&2
	done
	local stmt
	if [ -n "${args}" ]; then
		printf -v stmt "printf \"%%s\\\\n\" %s" "${args}"
	else
		printf -v stmt "printf \"\\\\n\""
	fi
	print_statement "${stmt_indent}" "${stmt}"
}

DELIM_DIR_TAG_REGEX='[Tt][Aa][Gg]\s*=\s*"([^"]*)"'
DELIM_DIR_TAG_STMT_REGEX='[Tt][Aa][Gg][_-]?[Ss][Tt][Mm][Tt]\s*=\s*"([^"]*)"'
DELIM_DIR_STMT_REGEX='[Ss][Tt][Mm][Tt]\s*=\s*"([^"]*)"'
DELIM_DIR_STMT_BLOCK_REGEX='[Ss][Tt][Mm][Tt][_-]?[Bb][Ll][Oo][Cc][Kk]\s*=\s*"([^"]*)"'
DELIM_DIR_TXT_REGEX='[Tt][Xx][Tt]\s*=\s*"([^"]*)"'
DELIM_DIR_TEXT_REGEX='[Tt][Ee][Xx][Tt]\s*=\s*"([^"]*)"'
DELIM_DIR_DIR_REGEX='[Dd][Ii][Rr]\s*=\s*"([^"]*)"'
DELIM_DIR_DIRECTIVE_REGEX='[Dd][Ii][Rr][Ee][Cc][Tt][Ii][Vv][Ee]\s*=\s*"([^"]*)"'
DELIM_DIR_CMT_REGEX='[Cc][Mm][Tt]\s*=\s*"([^"]*)"'
DELIM_DIR_COMMENT_REGEX='[Cc][Oo][Mm][Mm][Ee][Nn][Tt]\s*=\s*"([^"]*)"'

##
# process_directive
# $1 = leading_indent
# $2 = directive
# $3 = directive arg(s)
#
function process_directive() {
	local directive
	directive="${2}"
	normalize_directive directive
	case "${directive}" in
		INCLUDE)
			local indent="${1}"
			if [[ "${indent}" == "${BLOCK_INDENT}"* ]]; then
				indent="${indent/#$BLOCK_INDENT/}"
			fi
			local args args_arr
			args="${3}"
			trim args
			declare -a args_arr="(${args})"
			# shellcheck disable=SC2128  # We choose BASH_SOURCE vs BASH_SOURCE[0] for compatability
			"${BASH_SOURCE}" \
				--text-indent "${BASE_TEXT_INDENT}${TEXT_INDENT}${indent}" \
				--stmt-indent "${BASE_STMT_INDENT}${STATEMENT_INDENT}${indent}" \
				--block-indent "${BASE_BLOCK_INDENT}${BLOCK_INDENT}" \
				--tag-delims "${TAG_START_DELIM1}${TAG_START_DELIM2} ${TAG_STOP_DELIM1}${TAG_STOP_DELIM2}" \
				--tag-stmt-delim "${TAG_STMT_DELIM}" \
				--stmt-delim "${STMT_DELIM}" \
				--stmt-block-delims "${STMT_BLOCK_START_DELIM} ${STMT_BLOCK_STOP_DELIM}" \
				--txt-delim "${TEXT_DELIM}" \
				--dir-delim "${DIRECTIVE_DELIM}" \
				--cmt-delim "${COMMENT_DELIM}" \
				"${args_arr[@]}"
			;;
		DELIMS)
			# TAG
			#
			if [[ "${3}" =~ $DELIM_DIR_TAG_REGEX ]]; then
				parse_tag_delims "${BASH_REMATCH[1]}" 'DELIMS TAG directive'
			fi
			# TAG-STMT
			#
			if [[ "${3}" =~ $DELIM_DIR_TAG_STMT_REGEX ]]; then
				parse_tag_stmt_delim "${BASH_REMATCH[1]}" 'DELIMS TAG-STMT directive'
			fi
			# STMT
			#
			if [[ "${3}" =~ $DELIM_DIR_STMT_REGEX ]]; then
				parse_stmt_delim "${BASH_REMATCH[1]}" 'DELIMS STMT directive'
			fi
			# STMT-BLOCK
			#
			if [[ "${3}" =~ $DELIM_DIR_STMT_BLOCK_REGEX ]]; then
				parse_stmt_block_delims "${BASH_REMATCH[1]}" '"DELIMS STMT-BLOCK directive'
			fi
			# TEXT
			#
			if [[ "${3}" =~ $DELIM_DIR_TXT_REGEX || "${3}" =~ $DELIM_DIR_TEXT_REGEX ]]; then
				parse_text_delim "${BASH_REMATCH[1]}" 'DELIMS TEXT directive'
			fi
			# DIRECTIVE
			#
			if [[ "${3}" =~ $DELIM_DIR_DIR_REGEX || "${3}" =~ $DELIM_DIR_DIRECTIVE_REGEX ]]; then
				parse_directive_delim "${BASH_REMATCH[1]}" 'DELIMS DIR directive'
			fi
			# COMMENT
			#
			if [[ "${3}" =~ $DELIM_DIR_CMT_REGEX || "${3}" =~ $DELIM_DIR_COMMENT_REGEX ]]; then
				parse_comment_delim "${BASH_REMATCH[1]}" 'DELIMS CMT directive'
			fi
			# Apply changes
			#
			reset_template_regexes
			;;
		RESET-DELIMS)
			reset_delims
			reset_template_regexes
			;;
		*) # unsupported directive
			echo "Error: Unknown directive: '${directive}' - Skipping" >&2
			;;
	esac
}

function debug_array() {
	printf "["
	local need_comma=""
	while [[ ${#@} -gt 0 ]]; do
		if [ -n "${need_comma:-}" ]; then
			printf ", "
		fi
		if [ -n "${1:-}" ]; then
			printf "'%q'" "${1}"
		else
			printf "''"
		fi
		need_comma=1
		shift
	done
	printf "]"
}
##
# debug_state logs the state of the global variables.
# To use this set the BASH_TPL_DEBUG variable to a non-empty value
# when invoking the script.
# TODO Track source input file+line numbers
# $1 = template line | EOF
#
function debug_state() {
	printf "#<< ---------------\n"
	printf "#LINE TEXT        : '%s'\n" "${1-<EOF>}"
	printf "#STATE            : %s\n" "${STATE:-}"
	printf "#STATES           : %s\n" "$(debug_array "${STATES[@]}")"
	printf "#TEXT_INDENT      : %q\n" "${TEXT_INDENT:-}"
	printf "#TEXT_INDENTS     : %s\n" "$(debug_array "${TEXT_INDENTS[@]}")"
	printf "#STATEMENT_INDENT : %q\n" "${STATEMENT_INDENT:-}"
	printf "#STATEMENT_INDENTS: %s\n" "$(debug_array "${STATEMENT_INDENTS[@]}")"
	printf "#BLOCK_INDENT     : %q\n" "${BLOCK_INDENT:-}"
	printf "#BLOCK_INDENTS    : %s\n" "$(debug_array "${BLOCK_INDENTS[@]}")"
	printf "#TEXT_BLOCK_LINES_INDENT            : %q\n" "${TEXT_BLOCK_LINES_INDENT}"
	printf "#TEXT_BLOCK_LINES_INDENT_SET        : %q\n" "${TEXT_BLOCK_LINES_INDENT_SET}"
	printf "#STATEMENT_BLOCK_LINES_INDENT       : %q\n" "${STATEMENT_BLOCK_LINES_INDENT}"
	printf "#STATEMENT_BLOCK_LINES_INDENT_STATE : %q\n" "${STATEMENT_BLOCK_LINES_INDENT_STATE}"
	printf "#>> ---------------\n"
}

function process_line() {
	[ -n "${BASH_TPL_DEBUG:-}" ] && debug_state ${@+"$@"}
	state_"${STATE}" ${@+"$@"}
}

function process_stdin() {
	local line
	while IFS="" read -r line || [ -n "${line}" ]; do
		process_line "${line}"
	done
	# EOF - Notify states
	# Call with no args
	#
	while [[ "${STATE}" != "DEFAULT" ]]; do
		process_line
	done
	process_line # DEFAULT
}

#######################################################################
# State Handler Functions
#######################################################################

##
# state_DEFAULT
# Not inside any blocks
# Assumes *_INDENT and STATE arrays are empty
#
function state_DEFAULT() {
	[[ ${#@} -gt 0 ]] || return # Exit early on EOF
	# Line is a statement
	#
	if [[ "${1}" =~ $STATEMENT_REGEX ]]; then
		print_statement "${BASH_REMATCH[1]}" "${BASH_REMATCH[2]}"
		push_statement_indent "${BASH_REMATCH[1]}"
		push_state "MAYBE_TXT_BLOCK"
	# Line is a statement block start
	#
	elif [[ "${1}" =~ $STATEMENT_BLOCK_START_REGEX ]]; then
		push_statement_indent "${BASH_REMATCH[1]}"
		push_state "START_STMT_BLOCK"
	# Line is a directive
	#
	elif [[ "${1}" =~ $DIRECTIVE_REGEX ]]; then
		process_directive "${BASH_REMATCH[1]}" "${BASH_REMATCH[2]}" "${BASH_REMATCH[3]}"
	# Line is a comment
	#
	elif [[ "${1}" =~ $COMMENT_REGEX ]]; then
		: # Comments do not generate output
	# Line is text
	# NOTE : Check LAST because regex always matches
	#
	elif [[ "${1}" =~ $TEXT_REGEX ]]; then
		print_text "${BASH_REMATCH[1]}" "${BASH_REMATCH[2]}"
	fi
}

TEXT_BLOCK_LINES=()
TEXT_BLOCK_LINES_INDENT=""
TEXT_BLOCK_LINES_INDENT_SET=""

##
# state_MAYBE_TXT_BLOCK
# Previous line was a statement
# We might be starting a text block
# NOTE: Assumes
#    push_state "MAYBE_TXT_BLOCK"
#    push_statement_indent
#
function state_MAYBE_TXT_BLOCK() {
	# If there's a line to process (i.e. not EOF)
	#
	if [[ ${#@} -gt 0 ]]; then
		# Current line is empty
		# Considered text block content,
		# but doesn't contribute to indentation tracking
		#
		if [[ "${1}" == "" ]]; then
			TEXT_BLOCK_LINES+=("${1}") # Save line
			return
		# Current line is a block-end statement,
		# i.e. it's a statement at the same indentation as the start statement
		#
		elif [[ "${1}" =~ $STATEMENT_REGEX && "${BASH_REMATCH[1]}" == "${STATEMENT_INDENT}" ]]; then
			# We've saved a FULL text block !
			# Use computed indentation
			#
			push_text_indent "${TEXT_INDENT}${STATEMENT_INDENT/#$BLOCK_INDENT/}" # Additive
			push_statement_indent "${TEXT_BLOCK_LINES_INDENT}"
			push_block_indent "${TEXT_BLOCK_LINES_INDENT}"
			local state_marker=${#STATES[@]} # Save for cleanup
			push_state "TXT_BLOCK"
			# Text blocks can be nested, so save lines and cleanup *before* processing
			#
			local lines=("${TEXT_BLOCK_LINES[@]}")
			TEXT_BLOCK_LINES=()
			TEXT_BLOCK_LINES_INDENT=""
			TEXT_BLOCK_LINES_INDENT_SET=""
			# Process saved lines now in new state
			#
			local line
			for line in "${lines[@]}"; do
				process_line "${line}"
			done
			# Clean up our TXT_BLOCK state and any other danglers
			#
			while [[ ${#STATES[@]} -gt $state_marker ]]; do
				process_line # EOF
			done
			# Clean up our MAYBE_TXT_BLOCK state
			#
			pop_statement_indent
			pop_state
			# Process close block in parent context
			#
			process_line "${1}"
			return
		# Capture line indentation for tracking
		# TEXT_REGEX is perfect for this, so just re-use it
		# NOTE: Regex always matches
		#
		elif [[ "${1}" =~ $TEXT_REGEX ]]; then
			TEXT_BLOCK_LINES+=("${1}") # Save line
			# If current line is indented
			#
			if [[ "${BASH_REMATCH[1]}" != "${STATEMENT_INDENT}" && "${BASH_REMATCH[1]}" == "${STATEMENT_INDENT}"* ]]; then
				# If first time through
				#
				if [[ "${TEXT_BLOCK_LINES_INDENT_SET}" == "" ]]; then
					# Track current indentation
					#
					TEXT_BLOCK_LINES_INDENT="${BASH_REMATCH[1]}"
					TEXT_BLOCK_LINES_INDENT_SET="1"
					return
				# If current line is indented SAME OR LESS than tracked
				#
				elif [[ "${TEXT_BLOCK_LINES_INDENT}" == "${BASH_REMATCH[1]}"* ]]; then
					# Update tracked indentation (may set to same value)
					#
					TEXT_BLOCK_LINES_INDENT="${BASH_REMATCH[1]}"
					return
				# If current line is indented MORE than tracked
				#
				elif [[ "${BASH_REMATCH[1]}" == "${TEXT_BLOCK_LINES_INDENT}"* ]]; then
					# No change
					#
					return
				# Neither line is a subset of the other
				#
				else
					: # Here for completeness
				fi
			# Current line is NOT indented
			#
			else
				: # Here for completeness
			fi
		fi
	# EOF
	#
	else
		: # Fall through
	fi
	# If we haven't returned by now, then we're not in a text block
	# Discard saved state and process saved lines
	#
	pop_statement_indent
	pop_state
	# Text blocks can be nested, so save lines and cleanup *before* processing
	#
	local lines=("${TEXT_BLOCK_LINES[@]}")
	# Clean up
	#
	TEXT_BLOCK_LINES=()
	TEXT_BLOCK_LINES_INDENT=""
	TEXT_BLOCK_LINES_INDENT_SET=""
	# Process saved lines now in parent context
	# TODO "push" these back onto primary line-processing stream?
	#
	local line
	for line in "${lines[@]}"; do
		process_line "${line}"
	done
}

##
# state_TXT_BLOCK
# NOTE: Assumes
#    Called within MAYBE_TXT_BLOCK with a complete block to process
#    Will NOT be called with TXT Block Close
#    Every line has a minimum indentation of BLOCK_INDENT
#    push_state TXT_BLOCK
#    push_text_indent
#    push_statement_indent
#    push_block_indent
#
function state_TXT_BLOCK() {
	# EOF
	#
	if [[ ${#@} -eq 0 ]]; then
		# End of text block
		# Discard saved state
		#
		pop_text_indent
		pop_statement_indent
		pop_block_indent
		pop_state
	# Current line is empty
	#
	elif [[ "${1}" == "" ]]; then
		process_tags "${BLOCK_INDENT}" ""
	# Current line is a statement
	#
	elif [[ "${1}" =~ $STATEMENT_REGEX ]]; then
		print_statement "${BASH_REMATCH[1]}" "${BASH_REMATCH[2]}"
		push_statement_indent "${BASH_REMATCH[1]}"
		push_state "MAYBE_TXT_BLOCK"
	# Current line is a statement Start Block
	#
	elif [[ "${1}" =~ $STATEMENT_BLOCK_START_REGEX ]]; then
		push_statement_indent "${BASH_REMATCH[1]}"
		push_state "START_STMT_BLOCK"
	# Current line is a directive
	#
	elif [[ "${1}" =~ $DIRECTIVE_REGEX ]]; then
		process_directive "${BASH_REMATCH[1]}" "${BASH_REMATCH[2]}" "${BASH_REMATCH[3]}"
	# Line is a comment
	#
	elif [[ "${1}" =~ $COMMENT_REGEX ]]; then
		: # Comments do not generate output
	# Line is text
	# NOTE: Regex always matches
	#
	elif [[ "${1}" =~ $TEXT_REGEX ]]; then
		print_text "${BASH_REMATCH[1]}" "${BASH_REMATCH[2]}"
	fi
}

STATEMENT_BLOCK_LINES=()
STATEMENT_BLOCK_LINES_INDENT=""
STATEMENT_BLOCK_LINES_INDENT_STATE=""

##
# state_START_STMT_BLOCK
# NOTE: Assumes
#    push_state "START_STMT_BLOCK"
#    push_statement_indent
#
function state_START_STMT_BLOCK() {
	# If there's a line to process (i.e. not EOF)
	#
	if [[ ${#@} -gt 0 ]]; then
		# Current line is empty
		# Considered statement block content,
		# but doesn't contribute to indentation tracking
		#
		if [[ "${1}" == "" ]]; then
			STATEMENT_BLOCK_LINES+=("${1}") # Save line
			return
		# Current line is a statement block end
		#
		elif [[ "${1}" =~ $STATEMENT_BLOCK_STOP_REGEX ]]; then
			# If indentation does not match block-open, then error
			# TODO Track line numbers for better reporting
			#
			if [[ "${BASH_REMATCH[1]}" != "${STATEMENT_INDENT}" ]]; then
				echo "Error: stmt-block close indentation does not match open" >&2
				exit 1
			fi
			# We've saved a FULL statement block !
			# Is it fully indented?
			#
			if [[ "${STATEMENT_BLOCK_LINES_INDENT_STATE}" == "1" ]]; then
				# Use computed indentation
				#
				push_text_indent "${TEXT_INDENT}${STATEMENT_INDENT/#$BLOCK_INDENT/}" # Additive
				push_block_indent "${STATEMENT_BLOCK_LINES_INDENT}"
			else
				# If not consistently indented, default to no indent
				# TODO Print warning?
				#
				push_text_indent ""
				pop_statement_indent
				push_statement_indent ""
				push_block_indent ""
			fi
			# Process the saved lines
			# NOTE: Statement block end (+ cleanup) will be processed by STMT_BLOCK handler
			#
			pop_state
			push_state "STMT_BLOCK"
			# Process saved lines now in new state
			# Statement blocks do not nest, so we use global and cleanup *after*
			#
			local line
			for line in "${STATEMENT_BLOCK_LINES[@]}"; do
				process_line "${line}"
			done
			# Clean up our STMT_BLOCK state
			#
			process_line # EOF
			# Clean up
			#
			STATEMENT_BLOCK_LINES=()
			STATEMENT_BLOCK_LINES_INDENT=""
			STATEMENT_BLOCK_LINES_INDENT_STATE=""
		# Capture line indentation for tracking
		# TEXT_REGEX is perfect for this, so just re-use it
		# NOTE: Regex always matches
		#
		elif [[ "${1}" =~ $TEXT_REGEX ]]; then
			STATEMENT_BLOCK_LINES+=("${1}") # Save line
			# If current line is indented (or even)
			#
			if [[ "${BASH_REMATCH[1]}" == "${STATEMENT_INDENT}"* ]]; then
				# If first time through
				#
				if [[ "${STATEMENT_BLOCK_LINES_INDENT_STATE}" == "" ]]; then
					# Track current indentation
					#
					STATEMENT_BLOCK_LINES_INDENT="${BASH_REMATCH[1]}"
					STATEMENT_BLOCK_LINES_INDENT_STATE="1"
				# If still working with fully indented block
				#
				elif [[ "${STATEMENT_BLOCK_LINES_INDENT_STATE}" == "1" ]]; then
					# If current line is indented SAME OR LESS than tracked
					#
					if [[ "${STATEMENT_BLOCK_LINES_INDENT}" == "${BASH_REMATCH[1]}"* ]]; then
						# Update tracked indentation (may set to same value)
						#
						STATEMENT_BLOCK_LINES_INDENT="${BASH_REMATCH[1]}"
					# If current line is indented MORE than tracked
					#
					elif [[ "${BASH_REMATCH[1]}" == "${STATEMENT_BLOCK_LINES_INDENT}"* ]]; then
						# No change
						#
						:
					# Neither line is a subset of the other
					#
					else
						STATEMENT_BLOCK_LINES_INDENT_STATE="2"
					fi
				fi
			# Current line is NOT indented (or even)
			#
			else
				STATEMENT_BLOCK_LINES_INDENT_STATE="3"
			fi
		fi
	# EOF
	#
	else
		# EOF before close block reached is an error
		# TODO Track line numbers for better reporting
		#
		echo "Error: Missing stmt-block close ('${STMT_BLOCK_STOP_DELIM}')" >&2
		exit 1
	fi
}

##
# state_STMT_BLOCK
# NOTE: Assumes
#    Called within START_STMT_BLOCK with a complete block to process
#    Will NOT be called with STMT Block Close
#    push_state STMT_BLOCK
#    push_text_indent
#    push_statement_indent
#    push_block_indent
#
function state_STMT_BLOCK() {
	# EOF
	#
	if [[ ${#@} -eq 0 ]]; then
		# End of statement block
		# Discard saved state
		#
		pop_text_indent
		pop_statement_indent
		pop_block_indent
		pop_state
	# Current line is empty
	#
	elif [[ "${1}" == "" ]]; then
		# TODO Do we need a flag to print BASE_STMT_INDENT when included?
		#
		printf "\n"
	# Line is text
	#
	elif [[ "${1}" =~ $STATEMENT_BLOCK_TEXT_REGEX ]]; then
		print_text "${BLOCK_INDENT}" "${BASH_REMATCH[2]}" "${BASH_REMATCH[1]}"
	# Line is assumed to be a statement
	# TEXT_REGEX is perfect for this, so just re-use it
	# NOTE: Regex always matches
	#
	elif [[ "${1}" =~ $TEXT_REGEX ]]; then
		print_statement "${BASH_REMATCH[1]}" "${BASH_REMATCH[2]}"
	fi
}

#######################################################################
# Main
#######################################################################

function version() {
	printf "%s\n" "${VERSION}"
}

##
# parse_env_delims - Set Delims from Environment Vars
#
function parse_env_delims() {
	if [ -n "${BASH_TPL_TAG_DELIMS}" ]; then
		parse_tag_delims "${BASH_TPL_TAG_DELIMS}" "BASH_TPL_TAG_DELIMS"
	fi

	if [ -n "${BASH_TPL_TAG_STMT_DELIM}" ]; then
		parse_tag_stmt_delim "${BASH_TPL_TAG_STMT_DELIM}" "BASH_TPL_TAG_STMT_DELIM"
	fi

	if [ -n "${BASH_TPL_STMT_DELIM}" ]; then
		parse_stmt_delim "${BASH_TPL_STMT_DELIM}" "BASH_TPL_STMT_DELIM"
	fi

	if [ -n "${BASH_TPL_STMT_BLOCK_DELIMS}" ]; then
		parse_stmt_block_delims "${BASH_TPL_STMT_BLOCK_DELIMS}" "BASH_TPL_STMT_BLOCK_DELIMS"
	fi

	if [ -n "${BASH_TPL_TEXT_DELIM}" ]; then
		parse_text_delim "${BASH_TPL_TEXT_DELIM}" "BASH_TPL_TEXT_DELIM"
	fi

	if [ -n "${BASH_TPL_DIR_DELIM}" ]; then
		parse_directive_delim "${BASH_TPL_DIR_DELIM}" "BASH_TPL_DIR_DELIM"
	fi

	if [ -n "${BASH_TPL_CMT_DELIM}" ]; then
		parse_comment_delim "${BASH_TPL_CMT_DELIM}" "BASH_TPL_CMT_DELIM"
	fi
}

##
# parse_args
# $@ args to parse
#
# Stores positional args in global array __ARGS[@]
#
function parse_args() {
	__ARGS=() # Global
	while (($#)); do
		case "$1" in
			-h | --help)
				usage
				exit 0
				;;
			--version)
				version
				exit 0
				;;
			-o | --output-file)
				if [ -n "${2}" ]; then
					OUTPUT_FILE="${2}"
				else
					echo "Error: Invalid or missing value for --output-file: '${2}'" >&2
					exit 1
				fi
				shift 2
				;;
			--reset-delims)
				# Reset delims immediately - Any delim flags after this will be honored
				#
				reset_delims
				shift
				;;
			--tag-delims)
				parse_tag_delims "$2" "$1"
				shift 2
				;;
			--tag-stmt-delim)
				parse_tag_stmt_delim "$2" "$1"
				shift 2
				;;
			--stmt-delim)
				parse_stmt_delim "$2" "$1"
				shift 2
				;;
			--stmt-block-delims)
				parse_stmt_block_delims "$2" "$1"
				shift 2
				;;
			--txt-delim | --text-delim)
				parse_text_delim "$2" "$1"
				shift 2
				;;
			--dir-delim | --directive-delim)
				parse_directive_delim "$2" "$1"
				shift 2
				;;
			--cmt-delim | --comment-delim)
				parse_comment_delim "$2" "$1"
				shift 2
				;;
			--text-indent)
				BASE_TEXT_INDENT="${2}"
				shift 2
				;;
			--stmt-indent)
				BASE_STMT_INDENT="${2}"
				shift 2
				;;
			--block-indent)
				BASE_BLOCK_INDENT="${2}"
				shift 2
				;;
			-)
				__ARGS+=("$1")
				shift
				;;
			--)
				shift
				while (($#)); do
					__ARGS+=("$1")
					shift
				done
				;;
			--* | -*) # unsupported flags
				echo "Error: unknown flag: '$1'; use -h for help" >&2
				exit 1
				;;
			*) # preserve positional arguments
				__ARGS+=("$1")
				shift
				;;
		esac
	done
}

function main() {

	OUTPUT_FILE=""

	BASE_TEXT_INDENT=""
	BASE_STMT_INDENT=""
	BASE_BLOCK_INDENT=""

	reset_delims
	parse_env_delims

	parse_args "$@"
	set -- "${__ARGS[@]}"
	unset __ARGS

	# No file argument
	#
	if [[ -z "${1}" ]]; then
		# Nothing waiting on stdin
		#
		if [[ -t 0 ]]; then
			usage
			exit 1
		fi
	else
		# File argument is explicitly stdin
		#
		if [[ "${1}" == '-' ]]; then
			shift
		else
			# File argument points to non-existing/readable file
			#
			if [[ ! -r "${1}" ]]; then
				echo "File not found: '${1}'" >&2
				exit 1
			fi
			# File argument is good, re-route it to stdin
			#
			exec < "${1}"
			shift
		fi
	fi

	reset_template_regexes

	if [[ -n "${OUTPUT_FILE}" ]]; then
		exec > "${OUTPUT_FILE}"
	fi

	process_stdin

	return 0 # ALL OK
}

# Only process main logic if not being sourced (ie tested)
#
(return 0 2> /dev/null) || main "$@"