Return to xdpp CVS log

Up to [Research Unix] / researchv9 / X11 / src / X.V11R1 / clients / xpr

Annotation of researchv9/X11/src/X.V11R1/clients/xpr/xdpp, revision 1.1.1.1

1.1       root        1: #! /bin/csh -f
                      2: set prntr=(-Ppostscript)
                      3: set flags=(-device ps) noglob
                      4: unset dv
                      5: unsetenv dv
                      6: set dv=$DISPLAY
                      7: top:
                      8:        if ($#argv > 0) then
                      9:                switch ($argv[1])
                     10: 
                     11:                case *\:*:
                     12:                        set dv=$argv[1]
                     13:                        shift argv
                     14:                        goto top
                     15: 
                     16:                case -P?*:
                     17:                        set prntr = $argv[1]
                     18:                        shift argv
                     19:                        goto top
                     20: 
                     21:                case -*:
                     22:                        set flags = ($flags $argv[1])
                     23:                        shift argv
                     24:                        goto top
                     25: 
                     26:                endsw
                     27:        endif
                     28: xwd $dv | xpr $flags | lpr $prntr

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.