#!/bin/bash

# This script checks the results of the LaTeX run.

failed=0

function fail() {

    # echo "::error file=app.js,line=10,col=15::Something went wrong"

    ! sed 's/^\(.\+\.tex\):/file=\1::/;s/^/::error /' | grep .
}


# Discover "Overfull \[hv]box" and "Reference ... undefined" messages from LaTeX.
sed -n '/\.tex/{s/^.*\/\([-a-z0-9]\+\.tex\).*$/\1/;h};
/Overfull [\\][hv]box\|LaTeX Warning..Reference/{x;p;x;p}' std.log |
    sed '/^.\+\.tex$/{N;s/\n/:/}' | fail || failed=1

# Check for dangling "see" in general index (does not work with formatting)
grep item < std-generalindex.ind | sed 's/,.*$//;s/\\[sub]*item //' |
    awk '/^  [^ ]/ { item=$0; print $0 }  /^    [^ ]/ { subitem=$0; print item ", " $0 } /^      [^ ]/ { print item ", " subitem ", " $0 }' |
    sed 's/^ *//;s/  */ /g' | sort > tmp.txt

grep -o '\\see{[^}]*}' < std-generalindex.ind |
    sed 's/^\\see{//;s/}$//;s/\\-//' |
    grep -v "leavevmode\|texttt\|textsc\|kern" |
    while read see; do
	if grep -q "$see" tmp.txt; then
	    :
	else
	    grep -n "see{$see}" *.tex | sed 's/$/ is dangling/'
	fi
    done | fail || failed=1
rm -f tmp.txt

# Find bad labels
grep newlabel `ls *.aux | grep -v std.aux` | awk -F '{' '{ print  $2 }' |
    sed 's/}//g' | sed 's/^tab://;s/fig://;s/eq://;s/idx.*\..//' |
    grep -v '^[a-z.0-9]*$' |
    sed 's/^\(.*\)$/bad label \1/' |
    fail || failed=1

# Find grammar index entries missing a definition
cat std-grammarindex.ind |
    awk 'BEGIN { def=1 } /^  .item/ { if (def==0) { gsub("[{},]", "", item); print item } item=$NF; def=0; next } /hyper(x{0,1})indexformat/ { def=1 }' |
    grep -v -- '-keyword$' |    # xxx-keyword is special
    sed 's/^\(.*\)$/grammar non-terminal \1 has no definition/' |
    fail || failed=1

# Find header index entries missing a definition
cat std-headerindex.ind |
    awk 'BEGIN { def=1 } /^  .item/ { if (def==0) { gsub("[{},]", "", item); print item } i=NF; while (i > 0 && $i !~ "<[a-z_.]*>") { --i; } item=$i; def=0; next } /hyper(x{0,1})indexformat/ { def=1 }' |
    sed 's/^\(.*\)$/header \1 has no definition/' |
    fail || failed=1

# Find concept index entries missing a definition
cat std-conceptindex.ind |
    sed 's/.hyper\(x\{0,1\}\)indexformat/\nhyperindexformat/;s/.hyperpage/\nhyperpage/g' |
    awk 'BEGIN { def=1 } /^  .item/ { if (def==0) { gsub("[{},]", "", item); print item } item=$NF; def=0; next } /hyperindexformat/ { def=1 }' |
    sed 's/^\(.*\)$/concept \1 has no definition/' |
    fail || failed=1

# Find undecorated concept names in code blocks
patt="`cat std-conceptindex.ind |
       sed 's/.hyper\(x\{0,1\}\)indexformat/\nhyperindexformat/;s/.hyperpage/\nhyperpage/' |
       sed -n 's/^  .item.*{\([-a-z_]*\)}.*$/\1/p;s/^  .item.*frenchspacing \([a-z_]*\)}.*$/\1/p'`"

patt="`echo $patt | sed 's/ /\\\\|/g'`"
# $patt contains all concept names, separated by \| to use as a sed regex

for f in *.tex; do
    # handle codeblock
    sed -n 's,//.*$,,;s/%.*$//;s/"[^"]*"/""/;/begin{codeblock\(tu\)\?}/,/end{codeblock\(tu\)\?}/{/[^-_a-z\]\('"$patt"'\)[^-_}a-z0-9();,]/{=;p;};}' $f |
	# prefix output with filename and line
	sed '/^[0-9]\+$/{N;s/\n/:/;}' | sed "s/.*/$f:&/" |
	grep -v "@.seebelow" |
	sed "s/\$/ -- concept name without markup/" |
	fail || failed=1
    # handle itemdecl
    sed -n 's,//.*$,,;s/%.*$//;s/"[^"]*"/""/;/begin{itemdecl}/,/end{itemdecl}/{/[^-_a-z]\('"$patt"'\)[^-_a-z();,]/{/concept{[a-z_-]*}/d;=;p;};}' $f |
	# prefix output with filename and line
	sed '/^[0-9]\+$/{N;s/\n/:/;}' | sed "s/.*/$f:&/" |
	grep -v "@.seebelow" |
	sed "s/\$/ -- concept name without markup/" |
	    fail || failed=1
done

# Cross references since C++17.
# Note: xrefprev should contain a sorted list of C++17 labels.
function indexentries() { sed 's,\\glossaryentry{\(.*\)@.*,\1,' "$1" | LC_ALL=C sort; }
function removals() { diff -u "$1" "$2" | grep '^-' | grep -v '^---' | sed 's/^-//'; }
function difference() { diff -u "$1" "$2" | grep '^[-+]' | grep -v '^\(---\|+++\)'; }
XREFDELTA="$(difference <(indexentries xrefdelta.glo) <(removals xrefprev <(indexentries xrefindex.glo)))"
if [ -n "$XREFDELTA" ]; then
  echo "incorrect entries in xrefdelta.tex:" >&2
  echo "$XREFDELTA" | sed 's,^-,spurious ,; s,^+,missing ,;' >&2
  failed=1
fi

exit $failed