#!/dis/sh

load std regex

PROMPT := '[^ 	]*[%;$#][ 	]+'

if {no $acmewin} {
	echo q: no acmewin >[1=2]
	raise 'fail:no acmewin'
}

fn pcmds {
	sed -n 's/^'$PROMPT'([^q]|q[^q 	])/	\1/p' /dev/$acmewin/body
}

fn uniq0 {
	cmds := ()
	getlines {
		if {! ~ $line $cmds} {
			# escape filepat(2) special characters
			cmds = ${re sg '[*?\\[\]]' '\\\0' $line} $cmds
		}
	}
	for c in $cmds {
		echo ${re sg '\\([*?\\[\]])' '\1' $c}
	}
}

if {~ $#* 0} {
	pcmds | tail -1
} {
	pcmds | grep '^	'^$"* | tail -r | uniq0
}