diff options
author | Luke Shumaker <LukeShu@sbcglobal.net> | 2009-07-16 14:12:53 -0400 |
---|---|---|
committer | Luke Shumaker <lukeshu@sbcglobal.net> | 2015-06-26 00:30:11 -0600 |
commit | 3da845cfc718a09b0050723b8bb49b0b4b118d04 (patch) | |
tree | d27e63249766fffab4529b4d5fde4e0777fcb2ea /src/rvs-core/commit.sh | |
parent | 6ca3d3f0cd4437922280724957dc1279e007da1f (diff) |
rename source to rvs (`bzr mv' is fail!)
restructure configure and Makefile.orig
Diffstat (limited to 'src/rvs-core/commit.sh')
-rw-r--r-- | src/rvs-core/commit.sh | 51 |
1 files changed, 51 insertions, 0 deletions
diff --git a/src/rvs-core/commit.sh b/src/rvs-core/commit.sh new file mode 100644 index 0000000..2f120e0 --- /dev/null +++ b/src/rvs-core/commit.sh @@ -0,0 +1,51 @@ +#!$$SHELL$$ +# abomination module:rvs:commit +name='rvs commit' +ver='0.6.0' +usage='[OPTIONS] [FILE]' +# Copyright (C) 2009 Luke Shumaker +# 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. +# +# Originally written by Luke Shumaker <lukeshu@sbcglobal.net>. + +source "`rvs -d`/lib/stdio" +source "`rvs -d`/lib/rvsdb" + +# commit FILE +if [ $# -gt 0 ]; then + file="$1" +else + file='.' +fi + +if [ ! -e $file]; then error "file \`$file' does not exist"; +# START file type list +elif [ -l $file ]; type='l'; # symbolic link +elif [ -b $file ]; type='b'; # block (buffered) special +elif [ -c $file ]; type='c'; # character (unbuffered) special +elif [ -d $file ]; type='d'; # directory +elif [ -p $file ]; type='p'; # named pipe (FIFO) +elif [ -f $file ]; type='f'; # regular file +elif [ -s $file ]; type='s'; # socket +#elif [ -D $file ]; type='D'; # door (Solaris only) +# END file type list +else error "could not identify file type of \`$file'" +fi + +ret=`rvs "commit.$type" "$file"` + +tmp=`tempfile` +loginit "$tmp" +logwrite "$tmp" 'name' "$file" +logwrite "$tmp" 'hash' "$ret" +logwrite "$tmp" 'type' "$type" +logwrite "$tmp" 'author' "$user" +logwrite "$tmp" 'owner' "$owner" +logwrite "$tmp" 'owner' "$license" + +rvs commit.f "$tmp" +rm "$tmp" + |