]> git.madduck.net Git - code/vcsh.git/blob - vcsh

madduck's git repository

Every one of the projects in this repository is available at the canonical URL git://git.madduck.net/madduck/pub/<projectpath> — see each project's metadata for the exact URL.

All patches and comments are welcome. Please squash your changes to logical commits before using git-format-patch and git-send-email to patches@git.madduck.net. If you'd read over the Git project's submission guidelines and adhered to them, I'd be especially grateful.

SSH access, as well as push access can be individually arranged.

If you use my repositories frequently, consider adding the following snippet to ~/.gitconfig and using the third clone URL listed for each project:

[url "git://git.madduck.net/madduck/"]
  insteadOf = madduck:

vcsh: Create the local branch during clone
[code/vcsh.git] / vcsh
1 #!/bin/sh
2
3 # This program is licensed under the GNU GPL version 2 or later.
4 # (c) Richard "RichiH" Hartmann <richih@debian.org>, 2011-2014
5 # For details, see LICENSE. To submit patches, you have to agree to
6 # license your code under the GNU GPL version 2 or later.
7
8 # While the following is not legally binding, the author would like to
9 # explain the choice of GPLv2+ over GPLv3+.
10 # The author prefers GPLv3+ over GPLv2+ but feels it's better to maintain
11 # full compatibility's with Git. In case Git ever changes its licensing terms,
12 # which is admittedly extremely unlikely to the point of being impossible,
13 # this software will most likely follow suit.
14
15 # This should always be the first line of code to facilitate debugging
16 [ -n "$VCSH_DEBUG" ] && set -vx
17
18
19 # If '.git-HEAD' is appended to the version, you are seeing an unreleased
20 # version of vcsh; the master branch is supposed to be clean at all times
21 # so you can most likely just use it nonetheless
22 VERSION='1.20140508'
23 SELF=$(basename $0)
24
25 fatal() {
26         echo "$SELF: fatal: $1" >&2
27         exit $2
28 }
29
30 # We need to run getops as soon as possible so we catch -d and other
31 # options that will modify our behaviour.
32 # Commands are handled at the end of this script.
33 while getopts "c:dv" flag; do
34         if [ x"$1" = x'-d' ] || [ x"$1" = x'--debug' ]; then
35                 set -vx
36                 VCSH_DEBUG=1
37                 echo "debug mode on"
38                 echo "$SELF $VERSION"
39         elif [ x"$1" = x'-v' ]; then
40                 VCSH_VERBOSE=1
41                 echo "verbose mode on"
42                 echo "$SELF $VERSION"
43         elif [ x"$1" = x'-c' ]; then
44                 VCSH_OPTION_CONFIG=$OPTARG
45         fi
46         shift 1
47 done
48
49 source_all() {
50         # Source file even if it's in $PWD and does not have any slashes in it
51         case $1 in
52                 */*) . "$1";;
53                 *)   . "$PWD/$1";;
54         esac;
55 }
56
57
58 # Read configuration and set defaults if anything's not set
59 [ -n "$VCSH_DEBUG" ]                  && set -vx
60 : ${XDG_CONFIG_HOME:="$HOME/.config"}
61
62 # Read configuration files if there are any
63 [ -r "/etc/vcsh/config" ]             && . "/etc/vcsh/config"
64 [ -r "$XDG_CONFIG_HOME/vcsh/config" ] && . "$XDG_CONFIG_HOME/vcsh/config"
65 if [ -n "$VCSH_OPTION_CONFIG" ]; then
66         # Source $VCSH_OPTION_CONFIG if it can be read and is in $PWD of $PATH
67         if [ -r "$VCSH_OPTION_CONFIG" ]; then
68                 source_all "$VCSH_OPTION_CONFIG"
69         else
70                 fatal "Can not read configuration file '$VCSH_OPTION_CONFIG'" 1
71         fi
72 fi
73 [ -n "$VCSH_DEBUG" ]                  && set -vx
74
75 # Read defaults
76 : ${VCSH_REPO_D:="$XDG_CONFIG_HOME/vcsh/repo.d"}
77 : ${VCSH_HOOK_D:="$XDG_CONFIG_HOME/vcsh/hooks-enabled"}
78 : ${VCSH_BASE:="$HOME"}
79 : ${VCSH_GITIGNORE:=exact}
80 : ${VCSH_GITATTRIBUTES:=none}
81 : ${VCSH_WORKTREE:=absolute}
82
83 if [ ! "x$VCSH_GITIGNORE" = 'xexact' ] && [ ! "x$VCSH_GITIGNORE" = 'xnone' ] && [ ! "x$VCSH_GITIGNORE" = 'xrecursive' ]; then
84         fatal "'\$VCSH_GITIGNORE' must equal 'exact', 'none', or 'recursive'" 1
85 fi
86
87 if [ ! "x$VCSH_WORKTREE" = 'xabsolute' ] && [ ! "x$VCSH_WORKTREE" = 'xrelative' ]; then
88         fatal "'\$VCSH_WORKTREE' must equal 'absolute', or 'relative'" 1
89 fi
90
91
92 help() {
93         echo "usage: $SELF <options> <command>
94
95    options:
96    -c <file>            Source file
97    -d                   Enable debug mode
98    -v                   Enable verbose mode
99
100    commands:
101    clone <remote> \\
102          [<repo>]       Clone from an existing repository
103    commit               Commit in all repositories
104    delete <repo>        Delete an existing repository
105    enter <repo>         Enter repository; spawn new instance of \$SHELL
106    help                 Display this help text
107    init <repo>          Initialize a new repository
108    list                 List all repositories
109    list-tracked         List all files tracked by vcsh
110    list-tracked-by \\
111         <repo>          List files tracked by a repository
112    pull                 Pull from all vcsh remotes
113    push                 Push to vcsh remotes
114    rename <repo> \\
115           <newname>     Rename repository
116    run <repo> \\
117        <command>        Use this repository
118    status [<repo>]      Show statuses of all/one vcsh repositories
119    upgrade <repo>       Upgrade repository to currently recommended settings
120    version              Print version information
121    which <substring>    Find substring in name of any tracked file
122    write-gitignore \\
123    <repo>               Write .gitignore.d/<repo> via git ls-files
124
125    <repo> <git command> Shortcut to run git commands directly
126    <repo>               Shortcut to enter repository" >&2
127 }
128
129 debug() {
130         [ -n "$VCSH_DEBUG" ] && echo "$SELF: debug: $@"
131 }
132
133 verbose() {
134         if [ -n "$VCSH_DEBUG" ] || [ -n "$VCSH_VERBOSE" ]; then echo "$SELF: verbose: $@"; fi
135 }
136
137 error() {
138         echo "$SELF: error: $1" >&2
139 }
140
141 info() {
142         echo "$SELF: info: $1"
143 }
144
145 clone() {
146         hook pre-clone
147         init
148         git remote add origin "$GIT_REMOTE"
149         git config branch."$VCSH_BRANCH".remote origin
150         git config branch."$VCSH_BRANCH".merge  refs/heads/"$VCSH_BRANCH"
151         git checkout -b $VCSH_BRANCH
152         if [ $(git ls-remote origin "$VCSH_BRANCH" 2> /dev/null | wc -l ) -lt 1 ]; then
153                 info "remote is empty, not merging anything"
154                 exit
155         fi
156         git fetch
157         hook pre-merge
158         git ls-tree -r --name-only origin/master | (while read object; do
159                 [ -e "$object" ] &&
160                         error "'$object' exists." &&
161                         VCSH_CONFLICT=1
162         done
163         [ x"$VCSH_CONFLICT" = x'1' ]) &&
164                 fatal "will stop after fetching and not try to merge!
165   Once this situation has been resolved, run 'vcsh $VCSH_REPO_NAME pull' to finish cloning." 17
166         git merge origin/"$VCSH_BRANCH"
167         hook post-merge
168         hook post-clone
169         retire
170         hook post-clone-retired
171 }
172
173 commit() {
174         hook pre-commit
175         for VCSH_REPO_NAME in $(list); do
176                 echo "$VCSH_REPO_NAME: "
177                 GIT_DIR=$VCSH_REPO_D/$VCSH_REPO_NAME.git; export GIT_DIR
178                 use
179                 git commit --untracked-files=no --quiet
180                 VCSH_COMMAND_RETURN_CODE=$?
181                 echo
182         done
183         hook post-commit
184 }
185
186 delete() {
187         cd "$VCSH_BASE" || fatal "could not enter '$VCSH_BASE'" 11
188         use
189         info "This operation WILL DESTROY DATA!"
190         files=$(git ls-files)
191         echo "These files will be deleted:
192
193 $files
194
195 AGAIN, THIS WILL DELETE YOUR DATA!
196 To continue, type 'Yes, do as I say'"
197         read answer
198         [ "x$answer" = 'xYes, do as I say' ] || exit 16
199         for file in $files; do
200                 rm -f $file || info "could not delete '$file', continuing with deletion"
201         done
202         rm -rf "$GIT_DIR" || error "could not delete '$GIT_DIR'"
203 }
204
205 enter() {
206         hook pre-enter
207         use
208         $SHELL
209         hook post-enter
210 }
211
212 git_dir_exists() {
213         [ -d "$GIT_DIR" ] || fatal "no repository found for '$VCSH_REPO_NAME'" 12
214 }
215
216 hook() {
217         for hook in "$VCSH_HOOK_D/$1"* "$VCSH_HOOK_D/$VCSH_REPO_NAME.$1"*; do
218                 [ -x "$hook" ] || continue
219                 verbose "executing '$hook'"
220                 "$hook"
221         done
222 }
223
224 init() {
225         hook pre-init
226         [ ! -e "$GIT_DIR" ] || fatal "'$GIT_DIR' exists" 10
227         mkdir -p "$VCSH_BASE" || fatal "could not create '$VCSH_BASE'" 50
228         cd "$VCSH_BASE" || fatal "could not enter '$VCSH_BASE'" 11
229         git init --shared=0600
230         upgrade
231         hook post-init
232 }
233
234 list() {
235         for repo in "$VCSH_REPO_D"/*.git; do
236                 [ -d "$repo" ] && [ -r "$repo" ] && echo "$(basename "$repo" .git)"
237         done
238 }
239
240 get_files() {
241         GIT_DIR=$VCSH_REPO_D/$VCSH_REPO_NAME.git; export GIT_DIR
242         git ls-files
243 }
244
245 list_tracked() {
246         for VCSH_REPO_NAME in $(list); do
247                 get_files
248         done | sed "s,^,$(printf '%s\n' "$VCSH_BASE/" | \
249             sed 's/[,\&]/\\&/g')," | sort -u
250 }
251
252 list_tracked_by() {
253         use
254         git ls-files | sed "s,^,$(printf '%s\n' "$VCSH_BASE/" | \
255             sed 's/[,\&]/\\&/g')," | sort -u
256 }
257
258 pull() {
259         hook pre-pull
260         for VCSH_REPO_NAME in $(list); do
261                 printf '%s: ' "$VCSH_REPO_NAME"
262                 GIT_DIR=$VCSH_REPO_D/$VCSH_REPO_NAME.git; export GIT_DIR
263                 use
264                 git pull
265                 VCSH_COMMAND_RETURN_CODE=$?
266                 echo
267         done
268         hook post-pull
269 }
270
271 push() {
272         hook pre-push
273         for VCSH_REPO_NAME in $(list); do
274                 printf '%s: ' "$VCSH_REPO_NAME"
275                 GIT_DIR=$VCSH_REPO_D/$VCSH_REPO_NAME.git; export GIT_DIR
276                 use
277                 git push
278                 VCSH_COMMAND_RETURN_CODE=$?
279                 echo
280         done
281         hook post-push
282 }
283
284 retire() {
285         unset VCSH_DIRECTORY
286 }
287
288 rename() {
289         git_dir_exists
290         [ -d "$GIT_DIR_NEW" ] && fatal "'$GIT_DIR_NEW' exists" 54
291         mv -f "$GIT_DIR" "$GIT_DIR_NEW" || fatal "Could not mv '$GIT_DIR' '$GIT_DIR_NEW'" 52
292
293         # Now that the repository has been renamed, we need to fix up its configuration
294         # Overwrite old name..
295         GIT_DIR=$GIT_DIR_NEW
296         VCSH_REPO_NAME=$VCSH_REPO_NAME_NEW
297         # ..and clobber all old configuration
298         upgrade
299 }
300
301 run() {
302         hook pre-run
303         use
304         "$@"
305         VCSH_COMMAND_RETURN_CODE=$?
306         hook post-run
307 }
308
309 status() {
310         if [ -n "$VCSH_REPO_NAME" ]; then
311                 GIT_DIR=$VCSH_REPO_D/$VCSH_REPO_NAME.git; export GIT_DIR
312                 use
313                 git status --short --untracked-files='no'
314                 VCSH_COMMAND_RETURN_CODE=$?
315         else
316                 for VCSH_REPO_NAME in $(list); do
317                         echo "$VCSH_REPO_NAME:"
318                         GIT_DIR=$VCSH_REPO_D/$VCSH_REPO_NAME.git; export GIT_DIR
319                         use
320                         git status --short --untracked-files='no'
321                         VCSH_COMMAND_RETURN_CODE=$?
322                         echo
323                 done
324         fi
325 }
326
327 upgrade() {
328         hook pre-upgrade
329         # fake-bare repositories are not bare, actually. Set this to false
330         # because otherwise Git complains "fatal: core.bare and core.worktree
331         # do not make sense"
332         git config core.bare false
333         # core.worktree may be absolute or relative to $GIT_DIR, depending on
334         # user preference
335         if [ ! "x$VCSH_WORKTREE" = 'xabsolute' ]; then
336                 git config core.worktree "$(cd "$GIT_DIR" && GIT_WORK_TREE=$VCSH_BASE git rev-parse --show-cdup)"
337         elif [ ! "x$VCSH_WORKTREE" = 'xrelative' ]; then
338                 git config core.worktree "$VCSH_BASE"
339         fi
340         [ ! "x$VCSH_GITIGNORE" = 'xnone' ] && git config core.excludesfile ".gitignore.d/$VCSH_REPO_NAME"
341         [ ! "x$VCSH_GITATTRIBUTES" = 'xnone' ] && git config core.attributesfile ".gitattributes.d/$VCSH_REPO_NAME"
342         git config vcsh.vcsh 'true'
343         use
344         [ -e "$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME" ] && git add -f "$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME"
345         [ -e "$VCSH_BASE/.gitattributes.d/$VCSH_REPO_NAME" ] && git add -f "$VCSH_BASE/.gitattributes.d/$VCSH_REPO_NAME"
346         hook post-upgrade
347 }
348
349 use() {
350         git_dir_exists
351         VCSH_DIRECTORY=$VCSH_REPO_NAME; export VCSH_DIRECTORY
352 }
353
354 which() {
355         for VCSH_REPO_NAME in $(list); do
356                 for VCSH_FILE in $(get_files); do
357                         echo "$VCSH_FILE" | grep -q "$VCSH_COMMAND_PARAMETER" && echo "$VCSH_REPO_NAME: $VCSH_FILE"
358                 done
359         done | sort -u
360 }
361
362 write_gitignore() {
363         # Don't do anything if the user does not want to write gitignore
364         if [ "x$VCSH_GITIGNORE" = 'xnone' ]; then
365                 info "Not writing gitignore as '\$VCSH_GITIGNORE' is set to 'none'"
366                 exit
367         fi
368
369         use
370         cd "$VCSH_BASE" || fatal "could not enter '$VCSH_BASE'" 11
371         OLDIFS=$IFS
372         IFS=$(printf '\n\t')
373         gitignores=$(for file in $(git ls-files); do
374                 while true; do
375                         echo "$file"; new=${file%/*}
376                         [ x"$file" = x"$new" ] && break
377                         file=$new
378                 done;
379         done | sort -u)
380
381         # Contrary to GNU mktemp, mktemp on BSD/OSX requires a template for temp files
382         # Using a template makes GNU mktemp default to $PWD and not #TMPDIR for tempfile location
383         # To make every OS happy, set full path explicitly
384         tempfile=$(mktemp "${TMPDIR:-/tmp}/tmp.XXXXXXXXXX") || fatal "could not create tempfile: '${tempfile}'" 51
385
386         echo '*' > "$tempfile" || fatal "could not write to '$tempfile'" 57
387         for gitignore in $gitignores; do
388                 echo "$gitignore" | sed 's@^@!/@' >> "$tempfile" || fatal "could not write to '$tempfile'" 57
389                 if [ "x$VCSH_GITIGNORE" = 'xrecursive' ] && [ -d "$gitignore" ]; then
390                         { echo "$gitignore/*" | sed 's@^@!/@' >> "$tempfile" || fatal "could not write to '$tempfile'" 57; }
391                 fi
392         done
393         IFS=$OLDIFS
394         if diff -N "$tempfile" "$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME" > /dev/null; then
395                 rm -f "$tempfile" || error "could not delete '$tempfile'"
396                 exit
397         fi
398         if [ -e "$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME" ]; then
399                 info "'$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME' differs from new data, moving it to '$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME.bak'"
400                 mv -f "$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME" "$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME.bak" ||
401                         fatal "could not move '$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME' to '$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME.bak'" 53
402         fi
403         mv -f "$tempfile" "$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME" ||
404                 fatal "could not move '$tempfile' to '$VCSH_BASE/.gitignore.d/$VCSH_REPO_NAME'" 53
405 }
406
407 debug $(git version)
408
409 if [ ! "x$VCSH_GITIGNORE" = 'xexact' ] && [ ! "x$VCSH_GITIGNORE" = 'xnone' ] && [ ! "x$VCSH_GITIGNORE" = 'xrecursive' ]; then
410         fatal "'\$VCSH_GITIGNORE' must equal 'exact', 'none', or 'recursive'" 1
411 fi
412
413 VCSH_COMMAND=$1; export VCSH_COMMAND
414
415 case $VCSH_COMMAND in
416         clon|clo|cl) VCSH_COMMAND=clone;;
417         commi|comm|com|co) VCSH_COMMAND=commit;;
418         delet|dele|del|de) VCSH_COMMAND=delete;;
419         ente|ent|en) VCSH_COMMAND=enter;;
420         hel|he) VCSH_COMMAND=help;;
421         ini|in) VCSH_COMMAND=init;;
422         pul) VCSH_COMMAND=pull;;
423         pus) VCSH_COMMAND=push;;
424         renam|rena|ren|re) VCSH_COMMAND=rename;;
425         ru) VCSH_COMMAND=run;;
426         statu|stat|sta|st) VCSH_COMMAND=status;;
427         upgrad|upgra|upgr|up) VCSH_COMMAND=upgrade;;
428         versio|versi|vers|ver|ve) VCSH_COMMAND=version;;
429         which|whi|wh) VCSH_COMMAND=which;;
430         write|writ|wri|wr) VCSH_COMMAND=write-gitignore;;
431 esac    
432
433 if [ x"$VCSH_COMMAND" = x'clone' ]; then
434         [ -z "$2" ] && fatal "$VCSH_COMMAND: please specify a remote" 1
435         GIT_REMOTE="$2"
436         [ -n "$3" ] && VCSH_REPO_NAME=$3 || VCSH_REPO_NAME=$(basename "${GIT_REMOTE#*:}" .git)
437         [ -z "$VCSH_REPO_NAME" ] && fatal "$VCSH_COMMAND: could not determine repository name" 1
438         export VCSH_REPO_NAME
439         GIT_DIR=$VCSH_REPO_D/$VCSH_REPO_NAME.git; export GIT_DIR
440 elif [ "$VCSH_COMMAND" = 'version' ]; then
441         echo "$SELF $VERSION"
442         git version
443         exit
444 elif [ x"$VCSH_COMMAND" = x'which' ]; then
445         [ -z "$2" ] && fatal "$VCSH_COMMAND: please specify a filename" 1
446         [ -n "$3" ] && fatal "$VCSH_COMMAND: too many parameters" 1
447         VCSH_COMMAND_PARAMETER=$2; export VCSH_COMMAND_PARAMETER
448 elif [ x"$VCSH_COMMAND" = x'delete' ]           ||
449      [ x"$VCSH_COMMAND" = x'enter' ]            ||
450      [ x"$VCSH_COMMAND" = x'init' ]             ||
451      [ x"$VCSH_COMMAND" = x'list-tracked-by' ]  ||
452      [ x"$VCSH_COMMAND" = x'rename' ]           ||
453      [ x"$VCSH_COMMAND" = x'run' ]              ||
454      [ x"$VCSH_COMMAND" = x'upgrade' ]          ||
455      [ x"$VCSH_COMMAND" = x'write-gitignore' ]; then
456         [ -z "$2" ]                                     && fatal "$VCSH_COMMAND: please specify repository to work on" 1
457         [ x"$VCSH_COMMAND" = x'rename' ] && [ -z "$3" ] && fatal "$VCSH_COMMAND: please specify a target name" 1
458         [ x"$VCSH_COMMAND" = x'run'    ] && [ -z "$3" ] && fatal "$VCSH_COMMAND: please specify a command" 1
459         VCSH_REPO_NAME=$2; export VCSH_REPO_NAME
460         GIT_DIR=$VCSH_REPO_D/$VCSH_REPO_NAME.git; export GIT_DIR
461         [ x"$VCSH_COMMAND" = x'rename' ] && { VCSH_REPO_NAME_NEW=$3; export VCSH_REPO_NAME_NEW;
462                                               GIT_DIR_NEW=$VCSH_REPO_D/$VCSH_REPO_NAME_NEW.git; export GIT_DIR_NEW; }
463         [ x"$VCSH_COMMAND" = x'run' ]    && shift 2
464 elif [ x"$VCSH_COMMAND" = x'commit' ] ||
465      [ x"$VCSH_COMMAND" = x'list'   ] ||
466      [ x"$VCSH_COMMAND" = x'list-tracked' ] ||
467      [ x"$VCSH_COMMAND" = x'pull'   ] ||
468      [ x"$VCSH_COMMAND" = x'push'   ]; then
469         :
470 elif [ x"$VCSH_COMMAND" = x'status' ]; then
471         VCSH_REPO_NAME=$2; export VCSH_REPO_NAME
472 elif [ -n "$2" ]; then
473         VCSH_COMMAND='run'; export VCSH_COMMAND
474         VCSH_REPO_NAME=$1; export VCSH_REPO_NAME
475         GIT_DIR=$VCSH_REPO_D/$VCSH_REPO_NAME.git; export GIT_DIR
476         [ -d "$GIT_DIR" ] || { help; exit 1; }
477         shift 1
478         set -- "git" "$@"
479 elif [ -n "$VCSH_COMMAND" ]; then
480         VCSH_COMMAND='enter'; export VCSH_COMMAND
481         VCSH_REPO_NAME=$1; export VCSH_REPO_NAME
482         GIT_DIR=$VCSH_REPO_D/$VCSH_REPO_NAME.git; export GIT_DIR
483         [ -d "$GIT_DIR" ] || { help; exit 1; }
484 else
485         # $1 is empty, or 'help'
486         help && exit
487 fi
488
489 # Did we receive a directory instead of a name?
490 # Mangle the input to fit normal operation.
491 if echo "$VCSH_REPO_NAME" | grep -q '/'; then
492         GIT_DIR=$VCSH_REPO_NAME; export GIT_DIR
493         VCSH_REPO_NAME=$(basename "$VCSH_REPO_NAME" .git); export VCSH_REPO_NAME
494 fi
495
496 check_dir() {
497         check_directory="$1"
498         if [ ! -d "$check_directory" ]; then
499                 if [ -e "$check_directory" ]; then
500                         fatal "'$check_directory' exists but is not a directory" 13
501                 else
502                         verbose "attempting to create '$check_directory'"
503                         mkdir -p "$check_directory" || fatal "could not create '$check_directory'" 50
504                 fi
505         fi
506 }
507
508 check_dir "$VCSH_REPO_D"
509 [ ! "x$VCSH_GITIGNORE" = 'xnone' ] && check_dir "$VCSH_BASE/.gitignore.d"
510 [ ! "x$VCSH_GITATTRIBUTES" = 'xnone' ] && check_dir "$VCSH_BASE/.gitattributes.d"
511
512 verbose "$VCSH_COMMAND begin"
513 VCSH_COMMAND=$(echo "$VCSH_COMMAND" | sed 's/-/_/g'); export VCSH_COMMAND
514 hook pre-command
515 $VCSH_COMMAND "$@"
516 hook post-command
517 verbose "$VCSH_COMMAND end, exiting"
518 exit $VCSH_COMMAND_RETURN_CODE