will install from src dir

This commit is contained in:
rsc 2005-03-18 19:29:47 +00:00
parent 4c79af3977
commit 72fd2f8819
3 changed files with 0 additions and 124 deletions

View file

@ -1,45 +0,0 @@
#!/usr/local/plan9/bin/rc
f=getfile
if(~ $1 -d){
f=getdir
shift
}
if(! ~ $#* 2){
echo 'usage: netget [-d] system path' >[1=2]
exit usage
}
ns=`{namespace}
if(u test -S $ns/$1)
f=$f^9p
t=/tmp/netget.$pid.$USER
fn sigexit { rm -f $t }
fn getfile {
rm -f $t
if(! echo get $2 $t | sftp -b - $1 >/dev/null)
exit 1
cat $t
}
fn getfile9p {
if(! 9p read $1/$2)
exit 1
}
fn getdir {
if(! {echo cd $2; echo ls -l} | sftp -b - $1 | sed '1,2d; s/sftp> //g; /^$/d' >$t)
exit 1
cat $t | awk '$NF == "." || $NF == ".." { next } {s = $NF; if($0 ~ /^d/) s = s "/"; print s}'
}
fn getdir9p {
9p ls -l $1/$2 | awk '{s=$NF; if($0 ~ /^d/) s=s"/"; print s}'
}
$f $1 $2
exit 0

View file

@ -1,27 +0,0 @@
#!/usr/local/plan9/bin/rc
if(! ~ $#* 2){
echo 'usage: netput system path' >[1=2]
exit usage
}
f=putfile
ns=`{namespace}
if(u test -S $ns/$1)
f=$f^9p
t=/tmp/netget.$pid.$USER
fn sigexit { rm -f $t }
fn putfile{
cat >$t
if(! echo put $t $2 | sftp -b - $1 >/dev/null)
exit 1
}
fn putfile9p{
if(! 9p write $1/$2)
exit 1
}
$f $1 $2
exit 0

View file

@ -1,52 +0,0 @@
#!/usr/local/plan9/bin/rc
if(! ~ $#* 2){
echo usage: netisdir system path >[1=2]
exit usage
}
f=dostat
ns=`{namespace}
if(u test -S $ns/$1)
f=$f^9p
t=/tmp/netisdir.$pid.$USER
fn sigexit { rm -f $t }
fn dostat {
{
echo !echo XXX connected
echo cd $2
echo !echo XXX directory exists
} | sftp -b - $1 >$t >[2=1]
if(9 grep -s XXX.directory.exists $t){
echo directory
exit 0
}
if(9 grep -s 'is not a directory' $t){
echo file
exit 0
}
cat $t | sed 's/sftp> //g; /^$/d; /XXX/d; /^cd /d' >[1=2]
if(! 9 grep -s XXX.connected $t){
echo connect failed
exit 0
}
echo nonexistent
exit 0
}
fn dostat9p {
if(! 9p ls -ld $1/$2 >$t >[2]/dev/null){
echo nonexistent
exit 0
}
if(9 grep -s '^d' $t){
echo directory
exit 0
}
echo file
exit 0
}
$f $1 $2