commit - e96129189712a83de71d45cbc852a54c5960d575
commit + b8c9f31785f3243a52432023d4d555d490963769
blob - 9c5f83e733fff7afcbe5174e2817c6effeefd45f
blob + bb388c5f96f013b94da9e8f3eb11a9407ee9f9a2
--- src/cmd/netfiles/main.c
+++ src/cmd/netfiles/main.c
char*
expandarg(Win *w, Event *e)
{
+ uint q0, q1;
+
if(e->c2 == 'l') /* in tag - no choice but to accept acme's expansion */
return estrdup(e->text);
- dprint("expand %d %d %d %d\n", e->oq0, e->oq1, e->q0, e->q1);
- if(e->oq0 == e->oq1 && e->q0 != e->q1 && !isdot(w, e->q0, e->q1))
+ winaddr(w, ",");
+ winctl(w, "addr=dot");
+
+ q0 = winreadaddr(w, &q1);
+ cprint("acme expanded %d-%d into %d-%d (dot %d-%d)\n",
+ e->oq0, e->oq1, e->q0, e->q1, q0, q1);
+
+ if(e->oq0 == e->oq1 && e->q0 != e->q1 && !isdot(w, e->q0, e->q1)){
winaddr(w, "#%ud+#1-/[^ \t\\n]*/,#%ud-#1+/[^ \t\\n]*/", e->q0, e->q1);
- else
+ q0 = winreadaddr(w, &q1);
+ cprint("\tre-expand to %d-%d\n", q0, q1);
+ }else
winaddr(w, "#%ud,#%ud", e->q0, e->q1);
return winmread(w, "xdata");
}
blob - 9d953c99cf85e687eac7fef19f753170d817bfc8
blob + 6f0038f425d80531f7023023cec3007dca09d915
--- src/cmd/netfiles/mkfile
+++ src/cmd/netfiles/mkfile
netfileget\
netfileput\
netfilestat\
+ netfilelib.rc\
install:V:
for i in $XTARG; do
blob - 88544f5c5e2717b240b39608c0beebbce764ecc8
blob + ad2d626598ef798adf453f067cc50c93e4e31779
--- src/cmd/netfiles/netfileget
+++ src/cmd/netfiles/netfileget
exit usage
}
-ns=`{namespace}
-if(u test -S $ns/$1)
- f=$f^9p
+. netfilelib.rc $1
-t=/tmp/netget.$pid.$USER
-fn sigexit { rm -f $t }
-
fn getfile {
rm -f $t
- if(! echo get $2 $t | sftp -b /dev/stdin $1 >/dev/null)
+ if(! 9 echo -get $2 $t | mysftp $1 >$t.e >[2=1])
exit 1
+ egrep -v '^Fetching' $t.e >$t.e2
+ if(test -s $t.e2){
+ cat $t.e >[1=2]
+ exit 1
+ }
cat $t
}
}
fn getdir {
- if(! {echo cd $2; echo ls -l} | sftp -b /dev/stdin $1 | sed '1,2d; s/sftp> //g; /^$/d' >$t)
+ if(! {echo cd $2; echo ls -l} | mysftp $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}'
}
blob - 7b90124d51d2453368bf11c210e5bf2773255198
blob + 84cdf610aa94660a003387eb82deccea145f5297
--- src/cmd/netfiles/netfileput
+++ src/cmd/netfiles/netfileput
}
f=putfile
-ns=`{namespace}
-if(u test -S $ns/$1)
- f=$f^9p
-t=/tmp/netget.$pid.$USER
-fn sigexit { rm -f $t }
+. netfilelib.rc $1
fn putfile{
cat >$t
- if(! echo put $t $2 | sftp -b /dev/stdin $1 >/dev/null)
+ if(! 9 echo -put $t $2 | mysftp $1 >$t.e >[2=1])
exit 1
+ egrep -v '^Uploading' $t.e >$t.e2
+ if(test -s $t.e2){
+ cat $t.e >[1=2]
+ exit 1
+ }
}
fn putfile9p{
if(! 9p write $1/$2)
$f $1 $2
exit 0
+
blob - /dev/null
blob + f610ccd01f780386bfc13ab3dd970cb1b7c4117d (mode 644)
--- /dev/null
+++ src/cmd/netfiles/netfilelib.rc
+
+ns=`{namespace}
+if(</dev/null dial 'unix!'^$ns/$1 >[2]/dev/null)
+ f=$f^9p
+
+fn mysftp {
+ if(! </dev/null dial 'unix!'^$ns/$1.sftp >[2]/dev/null){
+ echo 'caching sftp' $1 >[1=2]
+ sftpcache -D $1
+ }
+ if(! </dev/null dial 'unix!'^$ns/$1.sftp >[2]/dev/null){
+ sftp -b /dev/stdin $1
+ }
+ if not{
+ {cat; echo DONE} | dial -e 'unix!'^$ns/$1.sftp
+ }
+}
+
+t=/tmp/netfilexxx.$pid.$USER
+fn sigexit { rm -f $t $t.e $t.e2 }
+
blob - 992cac22c13189135dcb3cb45543b1ec504e6105
blob + f01c5de6aa8ce8d8eaf279e477504b408af2fb0d
--- src/cmd/netfiles/netfilestat
+++ src/cmd/netfiles/netfilestat
}
f=dostat
-ns=`{namespace}
-if(u test -S $ns/$1)
- f=$f^9p
-t=/tmp/netisdir.$pid.$USER
-fn sigexit { rm -f $t }
+. netfilelib.rc $1
fn dostat {
{
- echo !echo XXX connected
- echo cd $2
- echo !echo XXX directory exists
- } | sftp -b /dev/stdin $1 >$t >[2=1]
- if(9 grep -s XXX.directory.exists $t){
+ 9 echo -cd $2
+ } | mysftp $1 >$t
+ if(9 test -e $t -a ! -s $t){
echo directory
exit 0
}
- if(9 grep -s 'is not a directory' $t){
+ if(9 grep -s 'Can''t change directory|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
+ if(9 grep -s 'Couldn''t stat remote file|such file' $t){
+ echo nonexistent
exit 0
}
- echo nonexistent
+ cat $t >[1=2]
+ echo unknown error
exit 0
}