#!/bin/bash
#
# cursescheck	    Test ACS/UTF-8 Line Graphics and REP capability
#		    of a terminal line described by variable TERM.
#
# Written in bash code to show and test capabilities of an terminal
# or terminal emulator without the `magic' of a binary program using
# libncurses(w) as many users do belive that ncurses defines the
# behaviour of a terminal.  Here we show that the terminfo database
# given by the TERM variable simply describes the capabilities of
# a terminal. For this `infocmp(1)' and `tput(1)' is used as well
# the helpers `tty(1)', `grep(1), and `od(1)' are used herein.
#
# Author: Werner Fink <werner@suse.de>
# 

typeset -i rep=0 line=0 color=0 hpa=0 ech=0
for s in 0 1 2
do
    test -c /proc/$$/fd/$s || { echo "Missing /proc/$$/fd/$s" 1>&2; exit 1; }
done
for d in null tty
do
    test -c /dev/$d || { echo "Missing /dev/$d" 1>&2; exit 1; }
done
for d in pts fd
do
    test -d /dev/$d || { echo "Missing /dev/$d/" 1>&2; exit 1; }
done
for p in tput infocmp tty grep od
do
    type -p $p 1> /dev/null 2>&1 || { echo "Missing $p in path" 1>&2; exit 1; }
done

typeset -r tty=$(tty) || { echo "Not on a terminal line" 1>&2; exit 1; }
typeset -i width=$(tput cols) || { echo "No terminal size" 1>&2; exit 1; }
typeset -i height=$(tput lines) || { echo "No terminal size" 1>&2; exit 1; }

#
# There are terminal type which uses non printable characters for
# Line Graphic. Therefore store them as numbers or sequences within
# arrays used later on.
#
typeset -i c
typeset -A acsc acsn
typeset -a tmp="($(tput acsc | od -A none -tx1))"
for ((c=0;c<${#tmp[@]};c+=2))
do
    acsc[0x${tmp[c]}]="0x${tmp[c+1]}"
    acsn[0x${tmp[c]}]=\\x${tmp[c+1]}
done
unset tmp c

#
# Init terminal
#
tput init || { echo "Not a terminal" 1>&2; exit 1; }

if test -n "$(infocmp -T $TERM -1 | grep "colors#")"
then
    let color++
fi
if test -n "$(infocmp -T $TERM -1 | grep "hpa=")"
then
    let hpa++
fi
if test -n "$(infocmp -T $TERM -1 | grep "ech=")"
then
    let ech++
fi

#
# Restore screen at exit
#
trap 'tput cup 0 0; tput sgr0; tput cvvis; tput rmcup; exit' EXIT HUP INT TERM

#
# Save screen, make curse invisible, and goto upper left
#
tput smcup
tput civis
tput cup 0 0
if ((color > 0))
then
    tput -S <<-!
	setab 4
	setaf 7
	!
fi
tput ed

echo Checking for Line Graphics on $tty with TERM=$TERM
let line++

echo Found ${#acsc[@]} ACSC characters, check used Font and its Mapping
let line++

tput cup $((line + 2)) 0
typeset -i row=$((line+2)) col=4
typeset smacs=$(tput enacs; tput smacs)
typeset rmacs=$(tput rmacs)
for sub in ${!acsc[@]}
do
    tput cup $row $col
    printf "$sub\t\x${sub//0x/}\t${smacs}${acsn[$sub]}${rmacs}"
    if ((row++ > height-4))
    then
	let col=width/2-4
	let row=line+2
    fi
done
unset sub smacs rmacs

tput cup $line 0
tput cvvis
echo -n "OK> "
read -t 5 yesno

#
# Could use clear
#
tput -S <<-!
	civis
	cup 0 0
	ed
	!
let line=0

echo Checking for UTF-8 Line Graphics on $tty with TERM=$TERM
let line++

echo Use U+2500 upto U+25FF glyps, check used Font and its Mapping
let line++

tput cup $((line+2)) 0
typeset -i row=$((line+2)) col=4
for x in 94 95 96 97
do
    x=\\x$x
    for ((c=128;c<=191;c++))
    do
	y=\\x$(printf '%x\n' $c)
	tput cup $row $col
	printf "\xe2${x}${y}"
	if ((row++ > height-4))
	then
	    let col+=2
	    let row=line+2
	fi
    done
done
unset sub smacs rmacs

tput cup $line 0
tput cvvis
echo -n "OK> "
read -t 5 yesno
tput civis

#
# Could use clear
#
tput -S <<-!
	civis
	cup 0 0
	ed
	!
let line=0

if ((${#acsc[@]} > 0))
then
    typeset -i cx=20
    echo Terminal TERM=$TERM has ASC Line Graphics
    let line++
    echo Use them to draw a simple box
    let line++
    let row=height/2-4
    let col=8
    tput cup $row $col
    tput -S <<-!
	enacs
	civis
	smacs
	!
    if ((color > 0))
    then
	tput -S <<-!
		setab 7
		setaf 0
		!
    fi
    echo -ne ${acsn[0x6c]}
    for ((c=0;c<cx;c++)); do echo -ne ${acsn[0x71]}; done
    echo -ne ${acsn[0x6b]}
    for ((c=1;c<4;c++))
    do
	tput cup $((row+c)) $col
	echo -ne ${acsn[0x78]}
	((color > 0 && ech > 0)) && tput ech $cx
	((hpa > 0)) && tput hpa $((col+cx+1)) || tput cup $((row+c)) $((col+cx+1))
	echo -ne ${acsn[0x78]}
    done
    tput cup $((row+c)) $col
    echo -ne ${acsn[0x6d]}
    for ((c=0;c<cx;c++)); do echo -ne ${acsn[0x71]}; done
    echo -ne ${acsn[0x6a]}
    if ((color > 0 && ech > 0))
    then
	tput -S <<-!
		setab 0
		setaf 0
		cup $((row+1)) $((col+cx+2))
		ech 2
		cup $((row+2)) $((col+cx+2))
		ech 2
		cup $((row+3)) $((col+cx+2))
		ech 2
		cup $((row+4)) $((col+cx+2))
		ech 2
		cup $((row+5)) $((col+2))
		ech $((cx+2))
		setab 4
		setaf 7
		!
    else
	tput rev
	for ((c=1;c<5;c++))
	do
	    tput cup $((row+c)) $((col+cx+2))
	    echo -n "  "
	done
	tput cup $((row+c)) $((col+2))
	printf ' %.0s' $(eval echo {1..$((cx+2))})
	tput sgr0
    fi
    tput -S <<-!
	rmacs
	!
    tput cup $((row+2)) $((col+4))
    echo -n "<ACS BOX>"

    tput cup $line 0
    tput cvvis
    echo -n "OK> "
    read -t 5 yesno
    tput civis
else
    echo Terminal TERM=$TERM has no ASC Line Graphics.
    tput cvvis
    echo -n "OK> "
    read -t 5 yesno
    tput civis
fi

#
# Could use clear
#
tput -S <<-!
	civis
	cup 0 0
	ed
	!
let line=0

if ((1))
then

    #
    # UTF-8 wide character line glyphs
    #
    ul=\\xe2\\x94\\x8c
    ur=\\xe2\\x94\\x90
    hl=\\xe2\\x94\\x80
    vl=\\xe2\\x94\\x82
    dl=\\xe2\\x94\\x94
    dr=\\xe2\\x94\\x98

    typeset -i cx=20
    echo Terminal TERM=$TERM with UTF-8 Line Graphics
    let line++
    echo Use them to draw a simple box
    let line++
    let row=height/2-4
    let col=8
    tput cup $row $col
    if ((color > 0))
    then
	tput -S <<-!
		setab 7
		setaf 0
		!
    fi
    tput enacs
    tput civis
    echo -ne ${ul}
    for ((c=0;c<$cx;c++)); do echo -ne ${hl}; done
    echo -ne ${ur}
    for ((c=1;c<4;c++))
    do
	tput cup $((row+c)) $col
	echo -ne ${vl}
	((color > 0 && ech > 0)) && tput ech $cx
	((hpa > 0)) && tput hpa $((col+cx+1)) || tput cup $((row+c)) $((col+cx+1))
	echo -ne ${vl}
    done
    tput cup $((row+c)) $col
    echo -ne ${dl}
    for ((c=0;c<$cx;c++)); do echo -ne ${hl}; done
    echo -ne ${dr}
    if ((color > 0 && ech > 0))
    then
	tput -S <<-!
		setab 0
		setaf 0
		cup $((row+1)) $((col+cx+2))
		ech 2
		cup $((row+2)) $((col+cx+2))
		ech 2
		cup $((row+3)) $((col+cx+2))
		ech 2
		cup $((row+4)) $((col+cx+2))
		ech 2
		cup $((row+5)) $((col+2))
		ech $((cx+2))
		setab 4
		setaf 7
		!
    else
	tput rev
	for ((c=1;c<5;c++))
	do
	    tput cup $((row+c)) $((col+cx+2))
	    echo -n "  "
	done
	tput cup $((row+c)) $((col+2))
	printf ' %.0s' $(eval echo {1..$((cx+2))})
	tput sgr0
    fi
    tput cup $((row+2)) $((col+4))
    echo -n "<UTF-8 BOX>"

    tput cup $line 0
    tput cvvis
    echo -n "OK> "
    read -t 5 yesno
    tput civis
else
    echo Terminal TERM=$TERM has no UTF-8 Line Graphics.
    tput cvvis
    echo -n "OK> "
    read -t 5 yesno
    tput civis
fi

#
# Could use clear
#
tput -S <<-!
	civis
	cup 0 0
	ed
	!
let line=0
if test -n "$(infocmp -T $TERM -1 | grep rep=)"
then
    echo Found rep capability in terminfo database for TERM=$TERM
    let rep++
    let line++
else
    echo No rep capability given in terminfo database for TERM=$TERM
    tput cvvis
    echo -n "OK> "
    read -t 5 yesno
    tput -S <<-!
	cup 0 0
	sgr0
	ed
	rmcup
	!
    exit 0
fi

if ((${#acsc[@]} > 0 && rep > 0))
then
    typeset -i cx=20
    echo Testing rep capability of TERM=$TERM 
    let line++
    let row=height/2-4
    let col=8
    if ((color > 0))
    then
	tput -S <<-!
		setab 7
		setaf 0
		!
    fi
    tput -S <<-!
	enacs
	civis
	smacs
	cup $row $col
	!
    echo -ne ${acsn[0x6c]}
    tput rep ${acsc[0x71]} $cx
    echo -ne ${acsn[0x6b]}
    for ((c=1;c<4;c++))
    do
	tput cup $((row+c)) $col
	echo -ne ${acsn[0x78]}
	((hpa > 0)) && tput hpa $((col+cx+1)) || tput cup $((row+c)) $((col+cx+1))
	echo -ne ${acsn[0x78]}
    done
    tput cup $((row+c)) $col
    echo -ne ${acsn[0x6d]}
    tput rep ${acsc[0x71]} $cx
    echo -ne ${acsn[0x6a]}
    tput -S <<-!
	rmacs
	!
    if ((color > 0 && ech > 0))
    then
	tput -S <<-!
		cup $((row+1)) $((col+1))
		ech $cx
		cup $((row+2)) $((col+1))
		ech $cx
		cup $((row+3)) $((col+1))
		ech $cx
		setab 0
		setaf 0
		cup $((row+1)) $((col+cx+2))
		ech 2
		cup $((row+2)) $((col+cx+2))
		ech 2
		cup $((row+3)) $((col+cx+2))
		ech 2
		cup $((row+4)) $((col+cx+2))
		ech 2
		cup $((row+5)) $((col+2))
		ech $((cx+2))
		setab 4
		setaf 7
		!
    else
	tput rev
	for ((c=1;c<5;c++))
	do
	    tput cup $((row+c)) $((col+cx+2))
	    echo -n "  "
	done
	tput cup $((row+c)) $((col+2))
	printf ' %.0s' $(eval echo {1..$((cx+2))})
	tput sgr0
    fi
    tput cup $((row+2)) $((col+4))
    echo -n "<ACS BOX (REP)>"

    tput cup $line 0
    tput cvvis
    echo -n "OK> "
    read -t 5 yesno
fi