o5r/plan9port
1
0
Fork 0
Code Issues Pull requests Projects Releases Packages Wiki Activity Actions

plumb: column numbers in file address

Browse source 
R=rsc
http://codereview.appspot.com/2776042
This commit is contained in:
Russ Cox 2010-10-27 17:31:18 -07:00
parent c8471ac58c
commit c84e737c3f
2 changed files with 10 additions and 0 deletions
Download patch file Download diff file Expand all files Collapse all files

9
plumb/basic
View file

@ -59,6 +59,15 @@ arg isfile $0
plumb to openoffice plumb to openoffice
plumb start openoffice $file plumb start openoffice $file
# existing files tagged by line number:columnumber or linenumber.columnumber, go to editor
type is text
data matches '([.a-zA-Z¡-￿0-9_/\-]*[a-zA-Z¡-￿0-9_/\-])'$twocolonaddr'
arg isfile $1
data set $file
attr add addr=$2-#0+#$3
plumb to edit
plumb client $editor
# existing files, possibly tagged by line number, go to editor # existing files, possibly tagged by line number, go to editor
type is text type is text
data matches '([.a-zA-Z¡-￿0-9_/\-]*[a-zA-Z¡-￿0-9_/\-])('$addr')?' data matches '([.a-zA-Z¡-￿0-9_/\-]*[a-zA-Z¡-￿0-9_/\-])('$addr')?'

1
plumb/fileaddr
View file

@ -1,3 +1,4 @@
addrelem='((#?[0-9]+)|(/[A-Za-z0-9_\^]+/?)|[.$])' addrelem='((#?[0-9]+)|(/[A-Za-z0-9_\^]+/?)|[.$])'
addr=:($addrelem([,;+\-]$addrelem)*) addr=:($addrelem([,;+\-]$addrelem)*)
twocolonaddr = :([0-9]+)[:.]([0-9]+)