1

# VCS abstraction layer

     2

     3

. $LIB/pvl/commit/git.sh

     4

. $LIB/pvl/commit/hg.sh

     5

     6

commit_GETOPTS='cCm:M'

     7

     8

COMMIT=

     9

COMMIT_DIFF=

    10

COMMIT_MSG=' '

    11

    12

function commit_help {

    13

    cat <<END

    14

Commit:

    15

    -C      do not commit changes

    16

    -c      commit changes

    17

    -m MSG  commit message

    18

    -M      interactive commit message

    19

END

    20

}

    21

    22

function commit_opt {

    23

    local opt=$1

    24

    local optarg="$2"

    25

    26

    case $opt in

    27

        c)  COMMIT=1 ;;

    28

        C)  COMMIT=0 ;;

    29

    30

        m)  COMMIT_MSG="$optarg" ;;

    31

        M)  COMMIT_MSG= ;;

    32

    33

        n)  COMMIT=0 ;;

    34

        p)  COMMIT_DIFF=1 ;;

    35

        *)  return 1

    36

    esac

    37

}

    38

    39

function commit_probe {

    40

    local repo="$1"

    41

    42

    for commit in git hg; do

    43

        if ${commit}_probe "$repo"; then

    44

            echo $commit

    45

            return 0

    46

        fi

    47

    done

    48

    49

    return 1

    50

}

    51

    52

## Commit changes to version control:

    53

#

    54

#   update_commit .../etc "commit message"

    55

#

    56

# Invokes `hg commit`, first showing the diff.

    57

function commit {

    58

    local repo="$1"

    59

    local commit_msg="$COMMIT_MSG"

    60

    61

    # detect

    62

    local commit="$(commit_probe "$repo")"

    63

    64

    if [ -z "$commit" ]; then

    65

        log_warn "$repo: Unable to detect VCS repo"

    66

        return 1

    67

    fi

    68

    69

    # operate?

    70

    if [ "$COMMIT" = 1 ]; then

    71

        log_force "$repo: force commit"

    72

    73

        [ "$COMMIT_DIFF" ] && cmd_indent "    " ${commit}_diff "$repo" || true

    74

    75

        ${commit}_commit "$repo" "$commit_msg"

    76

    77

    elif ! ${commit}_modified "$repo"; then

    78

        log_skip "$repo: no changes to commit"

    79

    80

    elif [ "$COMMIT" = 0 ]; then

    81

        log_noop "$repo: skip commit"

    82

    83

        # still show diff, though

    84

        [ "$COMMIT_DIFF" ] && cmd_indent "    " ${commit}_diff "$repo" || true

    85

    else

    86

        log_apply "$repo: commit: $commit_msg"

    87

    88

        [ "$COMMIT_DIFF" ] && cmd_indent "    " ${commit}_diff "$repo" || true

    89

    90

        ${commit}_commit "$repo" "$commit_msg"

    91

    fi

    92

}

    93

    94

function _commit {

    95

    local repo="$1"

    96

    local cmd="$2"

    97

    98

    # detect

    99

    local commit="$(commit_probe "$repo")"

   100

   101

    if [ -z "$commit" ]; then

   102

        log_warn "$repo: Unable to detect VCS repo"

   103

        return 1

   104

    fi

   105

   106

    ${commit}_${cmd} $repo "${@:3}"

   107

}

   108

   109

function commit_modified {

   110

    local repo="$1"

   111

   112

    _commit $repo modified

   113

}

   114

   115

function commit_time {

   116

    local repo="$1"

   117

   118

    _commit $repo time

   119

}