#!/bin/bash
#
# cli_commitRepoChanges.sh -- This function realizes a subversion
# commit command agains the workgin copy in order to send local
# changes up to central repository.
#
# Copyright (C) 2009-2011 Alain Reguera Delgado
# 
# This program is free software; you can redistribute it and/or
# modify it under the terms of the GNU General Public License as
# published by the Free Software Foundation; either version 2 of the
# License, or (at your option) any later version.
# 
# This program is distributed in the hope that it will be useful, but
# WITHOUT ANY WARRANTY; without even the implied warranty of
# MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
# General Public License for more details.
#
# You should have received a copy of the GNU General Public License
# along with this program; if not, write to the Free Software
# Foundation, Inc., 59 Temple Place, Suite 330, Boston, MA 02111-1307
# USA.
# 
# ----------------------------------------------------------------------
# $Id$
# ----------------------------------------------------------------------

function cli_commitRepoChanges {

    # Verify don't commit changes flag.
    if [[ $FLAG_DONT_COMMIT_CHANGES != 'false' ]];then
        return
    fi

    local -a FILES
    local -a INFO
    local -a FILESNUM
    local COUNT=0
    local STATUSOUT=''
    local PREDICATE=''
    local CHNGTOTAL=0
    local LOCATIONS=''

    # Define source location the subversion status action will take
    # place on. If arguments are provided use them as srouce location.
    # Otherwise use action value as default source location.
    if [[ "$@" != '' ]];then
        LOCATIONS="$@"
    else
        LOCATIONS="$ACTIONVAL"
    fi

    # Verify locations existence. It shoud exist as regular file or
    # directory inside the repository working copy.
    cli_checkFiles "$LOCATIONS" 'fd'
    cli_checkFiles "$LOCATIONS" 'isInWorkingCopy'

    # Outout separator line.
    cli_printMessage '-' 'AsSeparatorLine'

    # Check working copy.
    cli_printMessage "`gettext "Checking changes in the working copy"`" 'AsResponseLine'
    STATUSOUT=$(svn status ${LOCATIONS})

    # Outout separator line.
    cli_printMessage '-' 'AsSeparatorLine'

    # Define path fo files considered recent modifications from
    # working copy up to central repository.
    FILES[0]=$(echo "$STATUSOUT" | egrep "^M.+$(cli_getRepoTLDir "${LOCATIONS}").+$" | sed -r "s,^.+($(cli_getRepoTLDir "${LOCATIONS}").+)$,\1,")
    FILES[1]=$(echo "$STATUSOUT" | egrep "^\?.+$(cli_getRepoTLDir "${LOCATIONS}").+$" | sed -r "s,^.+($(cli_getRepoTLDir "${LOCATIONS}").+)$,\1,")
    FILES[2]=$(echo "$STATUSOUT" | egrep "^D.+$(cli_getRepoTLDir "${LOCATIONS}").+$" | sed -r "s,^.+($(cli_getRepoTLDir "${LOCATIONS}").+)$,\1,")
    FILES[3]=$(echo "$STATUSOUT" | egrep "^A.+$(cli_getRepoTLDir "${LOCATIONS}").+$" | sed -r "s,^.+($(cli_getRepoTLDir "${LOCATIONS}").+)$,\1,")

    # Define description of files considered recent modifications from
    # working copy up to central repository.
    INFO[0]="`gettext "Modified"`"
    INFO[1]="`gettext "Unversioned"`"
    INFO[2]="`gettext "Deleted"`"
    INFO[3]="`gettext "Added"`"

    while [[ $COUNT -ne ${#FILES[*]} ]];do

        # Define total number of files. Avoid counting empty line.
        if [[ "${FILES[$COUNT]}" == '' ]];then
            FILESNUM[$COUNT]=0
        else
            FILESNUM[$COUNT]=$(echo "${FILES[$COUNT]}" | wc -l)
        fi

        # Calculate total amount of changes.
        CHNGTOTAL=$(($CHNGTOTAL + ${FILESNUM[$COUNT]}))

        # Build report predicate. Use report predicate to show any
        # information specific to the number of files found. For
        # example, you can use this section to show warning messages,
        # notes, and so on. By default we use the word `file' or
        # `files' at ngettext's consideration followed by change
        # direction.
        PREDICATE[$COUNT]=`ngettext "file from the repository" \
            "files from the repository" $((${FILESNUM[$COUNT]} + 1))`

        # Output report line.
        cli_printMessage "${INFO[$COUNT]}: ${FILESNUM[$COUNT]} ${PREDICATE[$COUNT]}" 'AsRegularLine'

        # Increase counter.
        COUNT=$(($COUNT + 1))

    done

    # Outout separator line.
    cli_printMessage '-' 'AsSeparatorLine'

    # In case new unversioned files exist, ask the user to add them
    # into the repository. This may happen when new documentation
    # entries are created.
    if [[ ${FILESNUM[1]} -gt 0 ]];then
        cli_printMessage "`ngettext "The following file is unversioned" \
            "The following files are unversioned" ${FILESNUM[1]}`:"
        for FILE in ${FILES[1]};do
            cli_printMessage $FILE 'AsResponseLine'
        done
        cli_printMessage "`ngettext "Do you want to add it now?" \
            "Do you want to add them now?" ${FILESNUM[2]}`" 'AsYesOrNoRequestLine'
        svn add ${FILES[1]} --quiet
    fi

    # Check total amount of changes and, if any, check differences and
    # commit them up to central repository.
    if [[ $CHNGTOTAL -gt 0 ]];then

        # Verify changes.
        cli_printMessage "`gettext "Do you want to see changes now?"`" "AsYesOrNoRequestLine"
        svn diff ${FILES[*]} | less

        # Commit changes.
        cli_printMessage "`gettext "Do you want to commit changes now?"`" "AsYesOrNoRequestLine"
        svn commit ${FILES[*]}

    fi

}