#!/bin/bash

fgaddon_url=https://sourceforge.net/p/flightgear/fgaddon/HEAD/tree/trunk/Aircraft
fgaddon_svn=https://svn.code.sf.net/p/flightgear/fgaddon/trunk/Aircraft
fgaddon_path=$HOME/.fgfs/flightgear-fgaddon/Aircraft

aircrafts=$(mktemp --dry-run /dev/shm/Aircraft-XXXXXXXXX)
aircraft=$(mktemp --dry-run /dev/shm/aircraft-XXXXXXX)
setxml=$(mktemp --dry-run /dev/shm/setxml-XXXXXXXX)
in_ram_database=$(mktemp --dry-run /dev/shm/XXXXXXX)
database=${DB:-$0.db}

attributes=(description long-description author flight-model type)

xmlgetnext () {
   local IFS='>'
   read -d '<' TAG VALUE
   TAG=$(tr '\n' ' ' <<< $TAG | sed 's/  */ /g; s/ *$//')
}

function sqlite_request () {
    sqlite3 "$in_ram_database" <<< "$1"
}

function trap_exit () {
    echo "updating installation status"
    for ac in $(sqlite_request 'select printf("%i:%s/%s", aircrafts.id, aircrafts.name, setxml.file) from aircrafts inner join setxml where aircrafts.id = setxml.variantof and setxml.installed != 0;'); do
        ac_path=${ac#*:}
        if test ! -e $fgaddon_path/$ac_path-set.xml; then
            sqlite_request "update setxml set installed = 0 where file = '${ac_path#*/}' and variantof = ${ac%:*}"
        fi
    done
    for ac in $fgaddon_path/*/*-set.xml; do
        ac=${ac/$fgaddon_path}
        sx=${ac##*/}
        ac=${ac%/*}
        if test -d $fgaddon_path/$ac/.svn; then
            install_type=1
        elif test -d $fgaddon_path/$ac/.git; then
            install_type=2
        else
            install_type=3
        fi
        sqlite_request "update setxml set installed = $install_type
                        where exists (
                            select 1 from aircrafts where name = '${ac/\/}' and setxml.variantof = id
                        )"
    done
    if test -r "$database" && md5sum $in_ram_database | sed "s,$in_ram_database,$database," | md5sum --status -c -; then
        rm -f $in_ram_database
        echo "no changes in $database"
    elif test -w "$database"; then
        sqlite_request "vacuum"
        mv -f $in_ram_database "$database"
        echo "database $database updated"
    elif ! test -e "$database"; then
        mv $in_ram_database "$database"
        echo "database $database created"
    else
        rm -f $in_ram_database
        echo "nothing can be done with $database !"
    fi
    rm -f $aircrafts $aircraft $setxml
}

update_database () {
    let progress++
    echo "[ ${progress}${total:+/$total} ] $ac"

    dbupdate=$(sqlite_request "select revision from aircrafts where name is '$ac'")
    if test -z "$dbupdate"; then
        sqlite_request "insert into aircrafts (name, revision, date, author)
                        values ('$ac', ${revision[$ac]}, ${revdate[$ac]}, '${revauthor[$ac]}')"
    elif test $dbupdate -lt ${revision[$ac]}; then
        sqlite_request "update aircrafts set
                            revision = ${revision[$ac]},
                            author   = '${revauthor[$ac]}',
                            date = ${revdate[$ac]}
                        where name is '$ac'"
    fi
    id=$(sqlite_request "select id from aircrafts where name is '$ac'")

    for sx in ${setxmlmodified[$ac]}; do
        test -n "${_sx[$ac/$sx]}" && continue
        _sx[$ac/$sx]="already done"
        unset description long_description author flight_model in_sim
        echo " -> $sx"
        svn export --quiet --force --revision ${revision[$ac]} $fgaddon_svn/$ac/$sx-set.xml $setxml
        while xmlgetnext; do
            if [[ "$TAG" = @($attributes_case) ]]; then
                test -n "$in_sim" && eval "${TAG//-/_}=\"$VALUE\""
                test -n "$description" \
                  -a -n "$long_description" \
                  -a -n "$author" \
                  -a -n "$flight_model" \
                  -a -n "$type" && break
            elif test "$TAG" = 'sim'; then
                in_sim=1
            elif test "$TAG" = '/sim'; then
                break
            fi
        done < $setxml

        test -z "$description" \
          -a -z "$long_description" \
          -a -z "$author" \
          -a -z "$flight_model" \
          -a -z "$type" && echo "WARNING: no info found, skipping" && continue

        if test -n "$description" -a -z "$flight_model"; then
            grep -qi 'jsbsim' <<< "$description" && flight_model='jsb'
            grep -qi 'yasim' <<< "$description" && flight_model='yasim'
        fi

        if test -n "$long_description"; then
            long_description=$(sed 's/^\s*//g' <<< $long_description | tr '\n' ' ')
        fi

        known=$(sqlite_request "select variantof from setxml where file is '$sx'")
        if test -n "$known"; then
            for attribute in ${attributes[@]}; do
                dbvalue=$(sqlite_request "select $attribute from setxml where file is '$sx'")
                eval "wgvalue=\$$attribute"
                if test "$dbvalue" != "$wgvalue" -a -n "$wgvalue"; then
                    sqlite_request "update setxml set $attribute = '$wgvalue' where file is '$sx'"
                fi
            done
        else
            sqlite_request "insert into setxml values ('$sx', $id, '$description', '$long_description', '$author', '$type', '$flight_model', 0)"
        fi
    done
}

trap trap_exit EXIT

test -e $database && cp $database $in_ram_database

sqlite_request "create table if not exists aircrafts (id integer primary key, name text, revision integer, date integer, author text)"
sqlite_request "create table if not exists setxml (file text, variantof integer, description text, long_description text, author text, type text, flight_model text, installed integer)"

attributes_case=$(printf "%s|" "${attributes[@]}")
attributes_case=${attributes_case:0:-1}
latest_revision=$(sqlite_request "select max(revision) from aircrafts")

echo "downloading FGADDON history from revision ${latest_revision:-0}"
svn log --revision ${latest_revision:-0}:HEAD --xml --verbose $fgaddon_svn > $aircrafts

while xmlgetnext; do
    case "$TAG" in
        'logentry revision='*)
            eval $(echo ${TAG#* })
            unset revdate revauthor ac path_list setxmlmodified
        ;;
        'author')
            revauthor=$VALUE
        ;;
        'date')
            revdate=$(date +%s -d "$VALUE")
        ;;
        'path '*)
            path_list[${#path_list[@]}]="$VALUE"
        ;;
        '/logentry')
            revlog[${#revlog[@]}]=$(
                printf '%s\n' "${path_list[@]}" | awk -F/ -v revision=$revision -v revauthor=$revauthor -v revdate=$revdate -v dq='"' '
                {
                    a[$4]++
                    if ($5 ~ "-set.xml$") b[$4]=b[$4] " " gensub("-set.xml$", "", "1", $5)
                }
                END {
                    for (i in a)
                        printf("<revision[%s]=%i;revauthor[%s]=%s;revdate[%s]=%i;%s>",
                                i, revision,
                                i, revauthor,
                                i, revdate,
                                b[i] != "" ? "setxmlmodified[" i "]=" dq gensub("^ ", "", "g", b[i]) " ${setxmlmodified[" i "]}" dq ";" : "")
                }')
        ;;
        '/log')
            unset revision revauthor revdate setxmlmodified
            declare -A revision revauthor revdate setxmlmodified
            analyse () {
                while xmlgetnext; do
                    test -z "$TAG" -a ${#revision[@]} -eq 0 && continue
                    case $TAG in
                        'BEGIN') continue;;
                        'END'  ) break 2;;
                    esac
                    echo $TAG
                done <<< "<BEGIN>${revlog[@]}<END>"
            }
            eval $(analyse)
            total=${#revision[@]}
            declare -A _sx
            for ac in "${!revision[@]}"; do
                update_database
                if test -d $fgaddon_path/$ac/.svn \
                && test "$(svn info --show-item=url $fgaddon_path/$ac)" != "$fgaddon_svn/$ac" \
                || test -d $fgaddon_path/$ac -a ! -d $fgaddon_path/$ac/.svn; then
                    echo "INFO: local $ac installed out from repo" >&2
                fi
            done
            break
        ;;
    esac
done < $aircrafts