From 3da845cfc718a09b0050723b8bb49b0b4b118d04 Mon Sep 17 00:00:00 2001 From: Luke Shumaker Date: Thu, 16 Jul 2009 14:12:53 -0400 Subject: rename source to rvs (`bzr mv' is fail!) restructure configure and Makefile.orig --- source/rvs-core/commit | 51 ----------------------------- source/rvs-core/commit.d | 29 ----------------- source/rvs-core/commit.f | 25 -------------- source/rvs-core/get | 34 ------------------- source/rvs-core/get.d | 32 ------------------ source/rvs-core/get.f | 22 ------------- source/rvs-core/init | 18 ---------- source/rvs-core/lib/rvsdb | 83 ----------------------------------------------- source/rvs-core/lib/stdio | 51 ----------------------------- 9 files changed, 345 deletions(-) delete mode 100755 source/rvs-core/commit delete mode 100755 source/rvs-core/commit.d delete mode 100755 source/rvs-core/commit.f delete mode 100755 source/rvs-core/get delete mode 100644 source/rvs-core/get.d delete mode 100755 source/rvs-core/get.f delete mode 100755 source/rvs-core/init delete mode 100755 source/rvs-core/lib/rvsdb delete mode 100755 source/rvs-core/lib/stdio (limited to 'source/rvs-core') diff --git a/source/rvs-core/commit b/source/rvs-core/commit deleted file mode 100755 index 2f120e0..0000000 --- a/source/rvs-core/commit +++ /dev/null @@ -1,51 +0,0 @@ -#!$$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 . - -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 deleted file mode 100755 index 5a47614..0000000 --- a/source/rvs-core/commit.d +++ /dev/null @@ -1,29 +0,0 @@ -#!$$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 . - -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 deleted file mode 100755 index cd8070b..0000000 --- a/source/rvs-core/commit.f +++ /dev/null @@ -1,25 +0,0 @@ -#!$$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 . - -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 deleted file mode 100755 index c1a2469..0000000 --- a/source/rvs-core/get +++ /dev/null @@ -1,34 +0,0 @@ -#!$$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 . - -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 deleted file mode 100644 index dcd78e8..0000000 --- a/source/rvs-core/get.d +++ /dev/null @@ -1,32 +0,0 @@ -#!$$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 . - -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 deleted file mode 100755 index 9e4cec7..0000000 --- a/source/rvs-core/get.f +++ /dev/null @@ -1,22 +0,0 @@ -#!$$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 . - -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 deleted file mode 100755 index c0b5980..0000000 --- a/source/rvs-core/init +++ /dev/null @@ -1,18 +0,0 @@ -#!$$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 . - -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 deleted file mode 100755 index 3ced573..0000000 --- a/source/rvs-core/lib/rvsdb +++ /dev/null @@ -1,83 +0,0 @@ -#!$$SHELL$$ -# abomination module:rvs:lib:rvsdb -#name='rvs db' -#ver='0.6.2' -logver='0.6.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 . - -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 deleted file mode 100755 index aff22f1..0000000 --- a/source/rvs-core/lib/stdio +++ /dev/null @@ -1,51 +0,0 @@ -#!$$SHELL$$ -# abomination module:rvs:lib:stdio -#name='rvs stdio' -#ver='0.6.2' -#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 . - -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 . -__disclaimer__ - fi - exit 0 -} - -error() { - cat << __error__ -$name: $1 -Usage: $name $usage - -Try $name \`--help' for more options. -__error__ - exit 1 -} - -- cgit v1.2.3-2-g168b