weechat log stats analyzer

chanstats.ksh

#!/usr/bin/env ksh

function chanStats {
	nameref ret=$1

	typeset -T ChanStats=(
		logdir=~/.weechat/logs
		typeset logfile channel network
		typeset -a stats

		function generateStats {
			typeset x name IFS=$' \t'
			integer -A a

			ansifilter -i "${_.logfile}" |
				while read -r x x name x; do
					[[ $name == ~(P)^(?:<--(?!>)|(?<!<)-->|\*+|--|=!=)$ ]] || (( ++a[${name##[@+]}] ))
				done

			for x in "${!a[@]}"; do
				_.stats[${a[$x]}]+=("$x")
			done
		}

		function init {
			echo "$network"
			_.logfile=${_.logdir}/irc.${_.network}.${_.channel}.weechatlog
			if [[ ! -f ${_.logfile} ]]; then
				printf $'Error: logfile doesn\'t exist: %q\\n' "${_.logfile}" >&2
				return 1
			fi

			_.generateStats
		}
	)

	ChanStats o=(network=$2 channel=$3)
	o.init || return
	typeset -m ret=o
}

function main {
	typeset cs
	chanStats cs "${1:-libera}" "${2:-#bash}" || return
	print -C cs.stats
}

main "$@"

# vim: set ft=bash fenc=utf-8 ff=unix ts=4 sw=4 noet :