#!/bin/sh

#set -evx

if [[ $* != '' ]]; then
	 if [[ $1 = 'all' ]]; then models='NEMO SI3 TOP'; else models=$1; fi
else
	 models='NEMO'
fi

extract_arg() {
    ## $1: macro name, $2: prefix for filtering args (optional)
	 eval grep -Poh "\\$1{\\$2\\\K[^}]+" ${tex_files} | tr -d '\\' | sort -u
}

for model in $models; do
	 [[ $model =~ ^(SI3|TOP)$ ]] && continue

    tex_files=$( find latex/$model -type f -name *.tex )

	 echo '¤ Missing namelist groups in '$model' manual'

	 for nlst in $( ls namelists ); do
        [[ ! $( grep \\nlst{$nlst} ${tex_files} ) ]] && printf '%s ' $nlst
	 done

    echo; echo
	 echo '¤ Vanished references in '$model' manual (\\autoref{...})'

	 for item in 'mdl' 'ngn' 'nlst' 'np' 'rou'; do
        echo '- '$item':'
        args_list=$( extract_arg $item )

        for arg in ${args_list}; do

            if   [[ "$item" == 'nlst' && ! -f namelists/$arg ]]; then
			       printf '%15s: ' $arg
			       grep -l \\nlst{$arg} ${tex_files} | sed 's/^.*\///'
		      elif [[ ( "$item" == 'mdl' && ! $( find ../src -type f -name $arg.[Ffh]90  ) ) || \
                    ( "$item" == 'ngn' && ! $( grep     \&$arg             namelists/* ) ) || \
                    ( "$item" == 'rou' && ! $( grep -ri "SUBROUTINE *$arg" ../src      ) ) || \
                    ( "$item" == 'np'  && ! $( grep     " $arg *="         namelists/* ) )      ]]; then
                printf '%s ' $arg
            fi
        
        done

        [ "$item" != 'nlst' ] && echo
	 done

done

echo
echo '¤ Namelist parameters unfollowing naming conventions (^[cdlnr]n_* or uppercase somewhere)'

for nlst in $( ls namelists ); do
    np_list=$( sed '/^ *[!/&]/d; s|[!/&].*||' namelists/$nlst | tr -d ' ' | cut -d= -f1 )
    array=()

    for np in ${np_list}; do

        if [[ ! ${np:0:3} =~ ^[cdlnr]n_$ || $( echo $np | grep [A-Z] ) ]]; then
            array+=$np' '
        fi

    done

	 if (( ${#array[@]} != 0 )); then
        printf '%15s: ' $nlst
        echo ${array[@]}
    fi

done

exit 0