diff options
author | Luke Shumaker <LukeShu@sbcglobal.net> | 2009-07-13 13:23:09 -0400 |
---|---|---|
committer | Luke Shumaker <lukeshu@sbcglobal.net> | 2015-06-26 00:29:27 -0600 |
commit | 3cdfa2a24cd8279ab5d5204d598f319b175940f2 (patch) | |
tree | 9914735d5de9867c38f362481121e70bbf7c9719 /source | |
parent | 2bc56a5316345629e4ff451f0640230bf247f976 (diff) |
rvs 0.6.0 -- major restructuring to:
* use a proper build directory, rather than just extracting into /
* declare functions in a POSIX/SUS3 compliant way
* support systems with out GNU bash, or GNU bash in a place other than /bin/bash
Diffstat (limited to 'source')
-rwxr-xr-x | source/rvs | 50 | ||||
-rwxr-xr-x | source/rvs-core/commit | 51 | ||||
-rwxr-xr-x | source/rvs-core/commit.d | 29 | ||||
-rwxr-xr-x | source/rvs-core/commit.f | 25 | ||||
-rwxr-xr-x | source/rvs-core/get | 34 | ||||
-rw-r--r-- | source/rvs-core/get.d | 32 | ||||
-rwxr-xr-x | source/rvs-core/get.f | 22 | ||||
-rwxr-xr-x | source/rvs-core/init | 18 | ||||
-rwxr-xr-x | source/rvs-core/lib/rvsdb | 83 | ||||
-rwxr-xr-x | source/rvs-core/lib/stdio | 57 |
10 files changed, 401 insertions, 0 deletions
diff --git a/source/rvs b/source/rvs new file mode 100755 index 0000000..6a6102a --- /dev/null +++ b/source/rvs @@ -0,0 +1,50 @@ +#!$$SHELL$$ +# abomination module:rvs +name='rvs' +ver='0.5.10' +usage='COMMAND [OPTIONS]' +# 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>. + +RVSDIR='$$libdir$$' +source "$RVSDIR/lib/stdio" +source "$RVSDIR/lib/rvsdb" + +com=$1; +case "$com" in + -d) echo "$RVSDIR";; + '') error 'please specify a command';; + *) + if [ -f "$RVSDIR/$com" ]; then + export TMPDIR="$repo/tmp" + $RVSDIR/$@ + else + error "unrecognized command \`$com'" + fi + :;; +esac + +#args=`getopt -n "$name" -o "${sopt}" -l "${lopt}" -- "$@"` +#if [ $? == 0 ]; then +# set -- $args +# while [ $# -gt 0 ]; do +# case "$1" in +# -V | --version) mode='version';; +# -h | -H | -\? | --help) mode='help';; +# +# -v | --verbose) volume='-v';; +# -q | --quiet) volume='-q';; +# +# --) shift; break;; +# esac +# shift; +# done +#else +# error +#fi + diff --git a/source/rvs-core/commit b/source/rvs-core/commit new file mode 100755 index 0000000..2f120e0 --- /dev/null +++ b/source/rvs-core/commit @@ -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" + diff --git a/source/rvs-core/commit.d b/source/rvs-core/commit.d new file mode 100755 index 0000000..5a47614 --- /dev/null +++ b/source/rvs-core/commit.d @@ -0,0 +1,29 @@ +#!$$SHELL$$ +# abomination module:rvs:commit:d +name='rvs commit.d' +ver='0.6.0' +usage='[OPTIONS] DIRECTORY' +# 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.d DIRNAME +dir="$1" + +tmp=`tempfile` +loginit "$tmp" +for file in $dir; do + hash=`commit "$dir/$file"` + echo "$file:$hash" >> "$tmp" +done + +rvs commit.f "$tmp" +rm "$tmp" + diff --git a/source/rvs-core/commit.f b/source/rvs-core/commit.f new file mode 100755 index 0000000..cd8070b --- /dev/null +++ b/source/rvs-core/commit.f @@ -0,0 +1,25 @@ +#!$$SHELL$$ +# abomination module:rvs:commit:f +name='rvs commit.f' +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.f FILENAME +file="$1" + +hash=`getid $file` +if [ ! -f "$repo/files/$hash" ]; then + cp "$file" "$repo/files/$hash" +fi +echo "$hash" + diff --git a/source/rvs-core/get b/source/rvs-core/get new file mode 100755 index 0000000..c1a2469 --- /dev/null +++ b/source/rvs-core/get @@ -0,0 +1,34 @@ +#!$$SHELL$$ +# abomination module:rvs:get +name='rvs commit' +ver='0.6.0' +usage='[OPTIONS] ID [FILENAME]' +# 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" + +# get ID [FILE] +id="$1" + +if [ $# -gt 1 ]; then + file="$2" +fi + +tmp=`tempfile` +rvs get.f "$id" "$tmp" +type=`logread "$tmp" 'type'` +if [ $# -gt 1 ]; then + file="$2" +else + file=`logread "$tmp" 'name'` +fi + +rvs "get.$type" "$id" "$file" + diff --git a/source/rvs-core/get.d b/source/rvs-core/get.d new file mode 100644 index 0000000..dcd78e8 --- /dev/null +++ b/source/rvs-core/get.d @@ -0,0 +1,32 @@ +#!$$SHELL$$ +# abomination module:rvs:get:d +name='rvs get.d' +ver='0.6.0' +usage='[OPTIONS] ID FILENAME' +# 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" + +# get.d ID DIRNAME +id="$1" +dir="$2" + +tmp=`tempfile` +rvs get.f `logread "$db" 'hash'` "$tmp" + +mkdir "$dir" +while read line; do + hash=`echo "$line" | sed 's/^.*://'` + name=`echo "$line" | sed "s/:$hash$//"` + rvs get "$dir/$file" +done < "$tmp" + +rm "$tmp" + diff --git a/source/rvs-core/get.f b/source/rvs-core/get.f new file mode 100755 index 0000000..9e4cec7 --- /dev/null +++ b/source/rvs-core/get.f @@ -0,0 +1,22 @@ +#!$$SHELL$$ +# abomination module:rvs:get:f +name='rvs get.f' +ver='0.6.0' +usage='[OPTIONS] ID FILENAME' +# 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" + +# get.f ID FILENAME +id="$1" +file="$2" + +cp "$repo/files/$id" "$file" + diff --git a/source/rvs-core/init b/source/rvs-core/init new file mode 100755 index 0000000..c0b5980 --- /dev/null +++ b/source/rvs-core/init @@ -0,0 +1,18 @@ +#!$$SHELL$$ +# abomination rvs init +name='rvs init' +ver='0.6.0' +usage='[OPTIONS]' +# 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" + +mkdir -p "$repo/{files/tmp}" + diff --git a/source/rvs-core/lib/rvsdb b/source/rvs-core/lib/rvsdb new file mode 100755 index 0000000..8cd4316 --- /dev/null +++ b/source/rvs-core/lib/rvsdb @@ -0,0 +1,83 @@ +#!$$SHELL$$ +# abomination module:rvs:lib:rvsdb +#name='rvs db' +#ver='0.6.0' +logver='0.5.0' +# 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" + +repo='.rvs' + +# getid file +getid() { + #md5sum $file | sed "s/ .*$//" + sha1sum $file | sed "s/ .*$//" +} + +# loginit LOG +loginit() { + log="$1" + echo "#!rvsdb $logver" > "$log"; +} + +# lograw LOG +lograw() { + log="$1" + sed '1s/#!rvsdb .*//' "$log" +} + +# _find LOG FIELD VAL +_find() { + log="$1" + field="$2" + val="$3" + lograw $log | \ + cut -d : -f field | \ + sed -n "/^$val$/=" | \ + tr "\n" , | \ + sed 's/,$//' +} + +# logread LOG VAR +logread() { + log="$1" + var="$2" + lograw "$log" | sed -n "s/^$var://p" + #lograw "$log" | sed -n `_find "$log" '1' "$var"`p | cut -d : -f 2- +} + +# logwrite LOG VAR VAL +logwrite() { + log="$1" + var="$2" + val="$3" + + #lines=`_find "$log" '1' "$var"` + #if [ "$lines" = '' ]; then + if [ `lograw "$log" | grep "^$var:"` = '' ]; then + # no exiswhereting occurances + echo "$var:$val" >> "$log" + else + # found others + sed -i "^s/$var:.*/$var:$val/" "$log" + #lograw "$log" | ?????? + fi +} + +# logfind LOG VAL +logfind() { + log="$1" + val="$2" + # make a comma-delimeted list of the lines with our values + lines=`_find "$log" '2-' "$val"` + lograw "$log" | sed -n ${lines}p | cut -d : -f 1 +} + diff --git a/source/rvs-core/lib/stdio b/source/rvs-core/lib/stdio new file mode 100755 index 0000000..9398a52 --- /dev/null +++ b/source/rvs-core/lib/stdio @@ -0,0 +1,57 @@ +#!$$SHELL$$ +# abomination module:rvs:lib:stdio +#name='rvs stdio' +#ver='0.6.0' +#usage='' +# 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 "$RVSDIR/lib/stdio" +#source "$RVSDIR/lib/rvsdb" + +sopt='VhH?vq' +lopt='version,verbose,quiet,help' + +verbose() { + if [ "$volume" == '-v' ]; then + echo $@ + fi +} + +out() { + if [ "$volume" != '-q' ]; then + echo $@ + fi +} + +version() { + echo "$name $ver" + if [ "$volume" != '-q' ]; then + cat << __disclaimer__ +$name is 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>. +__disclaimer__ + fi + exit 0 +} + +error() { + cat << __error__ +$name: $1 +Usage: $name $usage + +Try $name \`--help' for more options. +__error__ + exit 1 +} + |