From mboxrd@z Thu Jan 1 00:00:00 1970 Message-ID: To: 9fans@9fans.net From: trebol55555@yandex.ru Date: Mon, 30 May 2016 17:35:50 +0100 MIME-Version: 1.0 Content-Type: text/plain; charset="UTF-8" Content-Transfer-Encoding: quoted-printable Subject: [9fans] Chords, ^, _, ^B and scroll with mouse wheel in p9p sam Topicbox-Message-UUID: 95b6d196-ead9-11e9-9d60-3106f5b1d025 > What would you think about moving the named pipe from samterm into sam? Sorry for the delay, but I have had to put all this together... I haven't studied the source so much, but it seams that sam communicates with samterm (if not -d), and samterm flows the IO to and from it. The pipe looks more like a "Plan B" in case the plumber is not available in the machine where samterm is running. The programmer (R. Pike) didn't implement a directory tree served like that of acme, because -I think- he just did it in acme, acme is for him -III think- the new version of the Plan 9 editor. He uses sam only for long distance connections -IIIII think. The funny thing is that some people do not see this new version of the editor as an improvement, but as a mess. But this is always the same with editors, it's a matter of taste, until you can write the perfect one (for you, only for you) you have to use some editor, the less annoying to you, written by a good programmer to be sure (or practically sure) that hours of your work are not going to the trash can. The reason because I'm posting all these things about sam is because it is becoming my "some good programmer's editor I'm going to use by now", and other people can use my experience (or laugh at the silliness of it), but I'm not expending much more time altering it. I don't really like sam. I don't really like acme. I can't say I'll be able to write something half as useful or well written as any of them, but all that time is going to be employed in trying to do it. Aaaany way, the pipe is very useful, combined with the plumber. For examp= le: ----------------------------- # poor man's sam file browser type is text data matches '([.a-zA-Z=C2=A1-=EF=BF=BF0-9_/\-;&$,'']+)' arg isdir $0 plumb start rc -c 'if(pgrep sam >/dev/null){cd '$dir'; DIR =3D `{pwd}; {e= cho ''{}''; echo B $DIR/~~samdir~~; echo '', /tmp/.sam.$USER^*}; if not plumb -d = edit '$dir'' ----------------------------- I put several echo so it is more easy to copy to Plan 9. If you are going to use it in the command window, be aware that you are going to send other text to it, its good to put same thing like ,,, before the directory path so it will give an harmless error. I've found a funny bug in sam playing with this, when you start the editor to open a file, if before drawing the file in a window you make an error in the command window, the copy of the file will be blanked. The file itself is ok, close it and reopen it (tested in Plan 9, 9front a= nd P9P). ----------------------------- # poor man's sam exec in current file's cwd type is text data matches '(=C2=A4)([a-zA-Z=C3=80-=CA=A8=C2=A1-=EF=BF=BF0-9_\-./\+^,()= $:|#%<>&'' ]+)' plumb start rc -c 'if(pgrep sam >/dev/null){cd '$wdir'; {echo '$wdir' =C2= =A4'''$2'''; echo; {'$2'}; echo}> /tmp/sam_ecfcwd_$pid >[2=3D1]; {echo ''= {}''; echo B '$wdir'^/~~cmd~~; echo ''$''; echo; echo ''> /tmp/.sam.$USER^*}' ----------------------------- I have to make sam itself delete the temporal file because the file was actually read after been deleted. Try it plumbing =C2=A4hget 'http://plan9.bell-labs.com/wiki/plan9/Tip_o%27_the_day/index= .html' | htmlfmt The {} is the less dangerous string I've found to ensure a new line befor= e sending the commands. This version is more secure, because sam waits until the command finishes= , but annoying if the command execution time is large. I've change the shel= l in sam/unix.c to use rc in p9p (I don't understand why the use of sh): ----------------------------- # poor man's sam exec in current file's cwd, version 2 #type is text #data matches '(=C2=A4)([a-zA-Z=C3=80-=CA=A8=C2=A1-=EF=BF=BF0-9_\-./\+^,(= )$:|#%<>&'' ]+)' #plumb start rc -c 'if(pgrep sam >/dev/null){cd '$wdir'; {echo ''{}''; ec= ho B '$wdir'^/~~cmd~~; echo ''$''; echo ''[2=3D1]; echo''}> /tmp/.sam.$USER^*}' ----------------------------- And it's good to get man pages in named windows rapidly, specially in referencies to other man pages when I'm reading one: ----------------------------- ## man index entries are synthesized type is text data matches '([a-zA-Z=C3=80-=CA=A8=C2=A1-=EF=BF=BF0-9_-./+\-]+)\(([1-8])= \)' plumb start rc -c 'if(pgrep sam >/dev/null){{echo ''{}''; echo ''B ~~'$1'= ('$2')~~''; echo ''[2=3D1] | nobs''}> /tmp/.sam.$USER^*};= if not {man '$2' '$1' >[2=3D1] | nobs | plumb -i -d edit -a ''action=3Ds= howdata filename=3D/man/'$1'('$2')''}' ----------------------------- As you can see all these crappy rules work with acme in the usual way if sam is not running. In Plan 9, I've problems with sam reading from the plumb port when the pi= pe is created, so I've slightly modified B, and renamed E: ----------------------------- #!/bin/rc files=3D() dest=3D() if(~ $#* 0){ echo usage: E file ... >[1=3D2] exit usage } for(i) switch($i){ case /* files =3D ( $files $i ) case * files =3D ( $files `{cleanname `{pwd}^/$i} ) } # using sam srv file if(test -f /mnt/term/srv/sam.$user) dest =3D /mnt/term/srv/sam.$user if not if(test -f /srv/sam.$user) dest =3D /srv/sam.$user if not { echo E: can''''t find sam server file >[1=3D2] exit open } switch($files){ case *:* for(i in $files) echo $i | sed 's/^/B /;s/:(.*)$/\n\1/g' >> $dest case * echo B $files >> $dest } ----------------------------- And added these plumb rules: ----------------------------- # existing files, possibly tagged by line number, go to editor type is text data matches '([.a-zA-Z=C2=A1-=EF=BF=BF0-9_/+\-]*[a-zA-Z=C2=A1-=EF=BF=BF0= -9_/+\-])('$addr')?' arg isfile $1 plumb start E $file:$3 ## man index entries are synthesized type is text data matches '([a-zA-Z=C3=80-=CA=A8=C2=A1-=EF=BF=BF0-9_-./+\-]+)\(([1-8])= \)' plumb start rc -c 'if(test -f /mnt/term/srv/sam.$user) dest =3D /mnt/term= /srv/sam.$user; if not if(test -f /srv/sam.$user) dest =3D /srv/sam.$user= ; if not {man '$2' '$1' >[2=3D1] | plumb -i -d edit -a ''action=3Dshowdat= a filename=3D/man/'$1'('$2')''; exit}; {echo ''{}''; echo ''B ~~'$1'('$2'= )~~''; echo ''[2=3D1]''} >>$dest' # poor man's sam file browser type is text data matches '([.a-zA-Z=C2=A1-=EF=BF=BF0-9_/\-;&$,'']+)' arg isdir $0 plumb start rc -c 'if(test -f /mnt/term/srv/sam.$user) dest =3D /mnt/term= /srv/sam.$user; if not if(test -f /srv/sam.$user) dest =3D /srv/sam.$user= ; if not plumb -d edit '$dir'; {cd '$dir'; DIR =3D `{pwd}; {echo ''{}''; = echo B $DIR/~~samdir~~; echo '',>/srv/sam.$user}' ## poor man's sam exec in current file's cwd type is text data matches '(=C2=A4)([a-zA-Z=C3=80-=CA=A8=C2=A1-=EF=BF=BF0-9_\-./\+^,()= $:|#%<>*&'' ]+)' plumb start rc -c 'if(test -f /mnt/term/srv/sam.$user) dest =3D /mnt/term= /srv/sam.$user; if not if(test -f /srv/sam.$user) dest =3D /srv/sam.$user= ; if not {echo can''''t find sam server file >[1=3D2]; exit open}; {cd '$= wdir'; {echo '$wdir' =C2=A4'''$2'''; echo; {'$2'}; echo} >/tmp/sam_ecfcwd= _$pid >[2=3D1]; {echo ''{}''; echo B '$wdir'^/~~cmd~~; echo ''$''; echo '= '>$dest}= ' ----------------------------- if the window where you are plumbing doesn't have a name, the cwd will be ../ from the cwd of the command window. Don't ask me why. In Plan 9, if sam is killed and the pipe survive, delete it, or you'll have problems at the next execution. In acme I use files with bookmarks and commands to organize my work. This let me do the same in sam, but in a "not so nice" way. A good improvement would be B3 to plumb, merge the menus in B2 and put away cut, paste and plumb, add an exec menu entry, add completion... Well as I've said before= , I don't think I'll do any of this... And I'm sure some sam users are alre= ady sharping theirs knives while reading all this. Sorry guys, too much coffe! trebol.