source: NEMO/trunk/doc/bin/manuals_checking.sh @ 10550

#!/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 '¤ Chapters with vanished entries in '$model' manual (\{hf,jp,key,mdl,ngn,nlst,np,rou}{...})'

    for file in ${tex_files}; do

        items=$( grep -Eho "(hf|jp|key|mdl|ngn|nlst|np|rou){[a-zA-Z0-9_\]*}" $file | sort -u )

        [[ $items == '' ]] && continue

        printf $file': '

        for item in $items; do

            if [[ ( $item =~ 'hf'   && ! $( find ../src -type f -name   $arg.h90               ) ) || \
                  ( $item =~ 'jp'   && ! $( grep ":: *$arg"             ../src/OCE/par_oce.F90 ) ) || \
                  ( $item =~ 'key'  && ! $( grep -ri "#if .* $arg"      ../src                 ) ) || \
                  ( $item =~ 'mdl'  && ! $( find ../src -type f -name   $arg.[Ff]90            ) ) || \
                  ( $item =~ 'ngn'  && ! $( grep \&$arg                 namelists/*            ) ) || \
                  ( $item =~ 'nlst' && ! -f namelists/$arg                                       ) || \
                  ( $item =~ 'np'   && ! $( grep " $arg *="             namelists/*            ) ) || \
                  ( $item =~ 'rou'  && ! $( grep -ri "SUBROUTINE *$arg" ../src                 ) )      ]]; then
                printf $item' '
            fi

        done

        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