tadd $plan9 variable - plan9port - [fork] Plan 9 from user space
 (HTM) git clone git://src.adamsgaard.dk/plan9port
 (DIR) Log
 (DIR) Files
 (DIR) Refs
 (DIR) README
 (DIR) LICENSE
       ---
 (DIR) commit 4de03b544c82f36e172d7fc395276c12ecda5b7c
 (DIR) parent f6bc91491578a01364d319f792713a1679676e2e
 (HTM) Author: rsc <devnull@localhost>
       Date:   Tue, 11 Jan 2005 19:46:06 +0000
       
       add $plan9 variable
       
       Diffstat:
         M man/man7/plumb.7                    |       5 +++++
         M plumb/basic                         |      13 ++++++-------
         M src/cmd/plumb/rules.c               |       5 +++++
       
       3 files changed, 16 insertions(+), 7 deletions(-)
       ---
 (DIR) diff --git a/man/man7/plumb.7 b/man/man7/plumb.7
       t@@ -337,6 +337,11 @@ field of the message.
        The contents of the
        .B wdir
        field of the message.
       +.TP
       +.B $plan9
       +The root directory of the Plan 9 tree
       +(see
       +.IR get9root (3)).
        .RE
        .SH EXAMPLE
        The following is a modest, representative file of plumbing rules.
 (DIR) diff --git a/plumb/basic b/plumb/basic
       t@@ -58,7 +58,7 @@ data matches '[a-zA-Z¡-￿0-9_\-./]+'
        data matches '([a-zA-Z¡-￿0-9_\-./]+)\.(jpe?g|JPE?G|gif|GIF|tiff?|TIFF?|ppm|bit|png|PNG)'
        arg isfile        $0
        plumb to image
       -plumb start qiv -t $file
       +plumb start page $file
        
        # postscript/pdf/dvi go to page but not over the a plumb port
        # the port is here for reference but is unused
       t@@ -67,8 +67,7 @@ data matches '[a-zA-Z¡-￿0-9_\-./]+'
        data matches '([a-zA-Z¡-￿0-9_\-./]+)\.(ps|PS|eps|EPS|pdf|PDF|dvi|DVI)'
        arg isfile        $0
        plumb to postscript
       -plumb start psv $file
       -# plumb start page -w $file
       +plumb start page $file
        
        # open office - s[xt][cdigmw], doc, xls, ppt
        data matches '[a-zA-Z¡-￿0-9_\-./]+'
       t@@ -104,10 +103,10 @@ attr add        addr=$3
        plumb to edit
        plumb client $editor
        
       -# .h files are looked up in /usr/local/plan9/include and passed to edit
       +# .h files are looked up in $plan9/include and passed to edit
        type is text
        data matches '([a-zA-Z¡-￿0-9]+\.h)('$addr')?'
       -arg isfile        /usr/local/plan9/include/$1
       +arg isfile        $plan9/include/$1
        data set        $file
        attr add        addr=$3
        plumb to edit
       t@@ -138,9 +137,9 @@ plumb start rc -c 'man '$2' '$1' >[2=1] | nobs | plumb -i -d edit -a ''action=sh
        dst is image
        arg isfile $data
        plumb to image
       -plumb start qiv -t $data
       +plumb start page $data
        
        # start rule for postscript without known suffixes
        dst is postscript
        arg isfile $data
       -plumb start gv $data
       +plumb start page $data
 (DIR) diff --git a/src/cmd/plumb/rules.c b/src/cmd/plumb/rules.c
       t@@ -531,6 +531,11 @@ readruleset(void)
                Ruleset *rs;
                Rule *r;
                int eof, inrule, i, ncmd;
       +        char *plan9root;
       +
       +        plan9root = get9root();
       +        if(plan9root)
       +                setvariable("plan9", 5, plan9root, plan9root);
        
           Again:
                eof = 0;