diff options
Diffstat (limited to 'src/rvs-core')
-rw-r--r-- | src/rvs-core/commit.d.sh | 29 | ||||
-rw-r--r-- | src/rvs-core/commit.f.sh | 26 | ||||
-rw-r--r-- | src/rvs-core/commit.sh | 53 | ||||
-rw-r--r-- | src/rvs-core/get.d.sh | 32 | ||||
-rw-r--r-- | src/rvs-core/get.f.sh | 22 | ||||
-rw-r--r-- | src/rvs-core/get.sh | 34 | ||||
-rw-r--r-- | src/rvs-core/init.sh | 18 | ||||
-rw-r--r-- | src/rvs-core/lib/rvsdb.sh | 84 | ||||
-rw-r--r-- | src/rvs-core/lib/stdio.sh | 60 | ||||
-rw-r--r-- | src/rvs-core/repo.sh | 29 |
10 files changed, 0 insertions, 387 deletions
diff --git a/src/rvs-core/commit.d.sh b/src/rvs-core/commit.d.sh deleted file mode 100644 index 7a0cc9a..0000000 --- a/src/rvs-core/commit.d.sh +++ /dev/null @@ -1,29 +0,0 @@ -#!$$SHELL$$ -# abomination module:rvs:commit:d -name='rvs commit.d' -ver='0.6.3' -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 "$RVSDIR/lib/stdio" -source "$RVSDIR/lib/rvsdb" - -# commit.d DIRNAME -dir="$1" - -tmp=`tempfile` -loginit "$tmp" -for file in $dir/*; do - hash=`rvs commit "$file"` - echo "$file:$hash" >> "$tmp" -done - -rvs commit.f "$tmp" -rm "$tmp" - diff --git a/src/rvs-core/commit.f.sh b/src/rvs-core/commit.f.sh deleted file mode 100644 index a9be426..0000000 --- a/src/rvs-core/commit.f.sh +++ /dev/null @@ -1,26 +0,0 @@ -#!$$SHELL$$ -# abomination module:rvs:commit:f -name='rvs commit.f' -ver='0.6.3' -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 "$RVSDIR/lib/stdio" -source "$RVSDIR/lib/rvsdb" - -# commit.f FILENAME -file="$1" - -hash=`getid $file` -if [ ! -f "`rvs repo`/files/$hash" ]; then - #cp "$file" "`rvs repo`/files/$hash" - install -m 644 -o $USER -g $USER -T "$file" "`rvs repo`/files/$hash" -fi -echo "$hash" - diff --git a/src/rvs-core/commit.sh b/src/rvs-core/commit.sh deleted file mode 100644 index 9fb44fc..0000000 --- a/src/rvs-core/commit.sh +++ /dev/null @@ -1,53 +0,0 @@ -#!$$SHELL$$ -# abomination module:rvs:commit -name='rvs commit' -ver='0.6.3' -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 "$RVSDIR/lib/stdio" -source "$RVSDIR/lib/rvsdb" - -# commit FILE -if [ $# -gt 0 ]; then - file="$1" -else - file='.' -fi - -warn "$file" - -if [ ! -e $file ]; then error "file \`$file' does not exist"; -# START file type list -elif [ -L $file ]; then type='l'; # symbolic link -elif [ -b $file ]; then type='b'; # block (buffered) special -elif [ -c $file ]; then type='c'; # character (unbuffered) special -elif [ -d $file ]; then type='d'; # directory -elif [ -p $file ]; then type='p'; # named pipe (FIFO) -elif [ -f $file ]; then type='f'; # regular file -elif [ -s $file ]; then 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/src/rvs-core/get.d.sh b/src/rvs-core/get.d.sh deleted file mode 100644 index a58a7c0..0000000 --- a/src/rvs-core/get.d.sh +++ /dev/null @@ -1,32 +0,0 @@ -#!$$SHELL$$ -# abomination module:rvs:get:d -name='rvs get.d' -ver='0.6.3' -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 "$RVSDIR/lib/stdio" -source "$RVSDIR/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/src/rvs-core/get.f.sh b/src/rvs-core/get.f.sh deleted file mode 100644 index 3c17df5..0000000 --- a/src/rvs-core/get.f.sh +++ /dev/null @@ -1,22 +0,0 @@ -#!$$SHELL$$ -# abomination module:rvs:get:f -name='rvs get.f' -ver='0.6.3' -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 "$RVSDIR/lib/stdio" -source "$RVSDIR/lib/rvsdb" - -# get.f ID FILENAME -id="$1" -file="$2" - -cp "`rvs repo`/files/$id" "$file" - diff --git a/src/rvs-core/get.sh b/src/rvs-core/get.sh deleted file mode 100644 index 1d3eb76..0000000 --- a/src/rvs-core/get.sh +++ /dev/null @@ -1,34 +0,0 @@ -#!$$SHELL$$ -# abomination module:rvs:get -name='rvs commit' -ver='0.6.3' -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 "$RVSDIR/lib/stdio" -source "$RVSDIR/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/src/rvs-core/init.sh b/src/rvs-core/init.sh deleted file mode 100644 index ff650a5..0000000 --- a/src/rvs-core/init.sh +++ /dev/null @@ -1,18 +0,0 @@ -#!$$SHELL$$ -# abomination rvs init -name='rvs init' -ver='0.6.3' -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 "$RVSDIR/lib/stdio" -source "$RVSDIR/lib/rvsdb" - -mkdir -p .rvs/{,files} - diff --git a/src/rvs-core/lib/rvsdb.sh b/src/rvs-core/lib/rvsdb.sh deleted file mode 100644 index 41f0e03..0000000 --- a/src/rvs-core/lib/rvsdb.sh +++ /dev/null @@ -1,84 +0,0 @@ -#!$$SHELL$$ -# abomination module:rvs:lib:rvsdb -#name='rvs db' -#ver='0.6.3' -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 <lukeshu@sbcglobal.net>. - -source "$RVSDIR/lib/stdio" - -# 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 -# # escape slashes -# var=`echo "$var" | sed 's:/:\\\\/:g'` -# val=`echo "$val" | sed 's:/:\\\\/:g'` -# sed -i "s/^$var:.*$/$var:$val/" "$log" -# #lograw "$log" | ?????? -# fi - echo "$var:$val" >> $log -} - -# 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/src/rvs-core/lib/stdio.sh b/src/rvs-core/lib/stdio.sh deleted file mode 100644 index 8facc79..0000000 --- a/src/rvs-core/lib/stdio.sh +++ /dev/null @@ -1,60 +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 <lukeshu@sbcglobal.net>. - -verbose() { - if [ "$volume" == '-v' ]; then - echo $@ - fi -} - -out() { - if [ "$volume" != '-q' ]; then - echo $@ - fi -} - -warn () { - echo "$name: $1" >> /dev/stderr -} - -error() { - warn "$1" - cat << __error__ >> /dev/stderr -Usage: $name $usage - -Try \`$name --help\' for more options. -__error__ - exit 1 -} - -fatal () { - warn "$1" - exit 1 -} - -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 -} - diff --git a/src/rvs-core/repo.sh b/src/rvs-core/repo.sh deleted file mode 100644 index 1db22c9..0000000 --- a/src/rvs-core/repo.sh +++ /dev/null @@ -1,29 +0,0 @@ -#!$$SHELL$$ -# abomination rvs init -name='rvs repo' -ver='0.6.3' -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 "$RVSDIR/lib/stdio" - -repo='.rvs' -pwd=`pwd` - -while [ "$pwd" != "`pwd`" ] && [ ! -e "`pwd`/$repo" ]; do - pwd=`pwd` - cd .. -done - -if [ -e "`pwd`/$repo" ]; then - echo "`pwd`/$repo" -else - fatal 'no rvs repository found' -fi - |