From 9a23c9f512f04ef3dcbb715e2dccb7a9b8b3036a Mon Sep 17 00:00:00 2001
From: Luke Shumaker <luke@HP-dv6426us-u904.(none)>
Date: Sat, 24 Oct 2009 02:29:05 -0400
Subject: managing the whole thing with GIT now

---
 .files/etc/abomination/modules/rvs/commit | 57 +++++++++++++++++++++++++++++++
 1 file changed, 57 insertions(+)
 create mode 100755 .files/etc/abomination/modules/rvs/commit

(limited to '.files/etc/abomination/modules/rvs/commit')

diff --git a/.files/etc/abomination/modules/rvs/commit b/.files/etc/abomination/modules/rvs/commit
new file mode 100755
index 0000000..6ff39a0
--- /dev/null
+++ b/.files/etc/abomination/modules/rvs/commit
@@ -0,0 +1,57 @@
+#!/bin/bash
+# abomination module:rvs:commit
+name='rvs commit'
+ver='0.5.10'
+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 [ -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 [ -l $file ]; type='l';	# symbolic link
+#elif [ -s $file ]; type='s';	# socket
+#elif [ -D $file ]; type='D';	# door (Solaris only)
+# END   file type list
+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"
+#parents=`logfind "$repo/co" "$file"` the checkout log is getting an overhaul
+#logwrite "$tmp" 'parents' "$parents"
+#case "$type" in
+#	f)
+#		#logwrite "$tmp" 'f.type' "$"
+#		:;;
+#esac
+
+rvs commit.f "$tmp"
+rm "$tmp"
+
-- 
cgit v1.2.3-2-g168b