![]() ![]() | ![]() |
File: [local] / OpenXM_contrib / gnuplot / Attic / rgipgnu (download)
Revision 1.1.1.1 (vendor branch), Sun Jan 9 17:00:55 2000 UTC (24 years, 7 months ago) by maekawa
Import gnuplot 3.7 |
#!/bin/csh -f # # Print gnuplot output on RGIP (Uniplex) format. set input_files = () # the plot input command files set lpr_opts = () # options to lpr set fontsize = () # File for plot commands, and for plot output set TMP=/tmp/plot$$ set outfile="|mail $USER" #mail user if no outputfile set out=0 set windows = () #windows nr i x-dir and y-dir onintr cleanup # default is Imagen mode for Imagen printer; see -p option set setterm="set terminal imagen" set usage="usage: rgipgnu [-f fontsize] [-w [winx,winy]] [-t title] [-o outputfile] [-p 'plot command'] [plot-files....]" # Loop through the command-line arguments. top: if ($#argv > 0) then switch ("$argv[1]") case - : # print to stdout set outfile="" set out=1 shift argv goto top case -f?*: # Specify font size set fontsize = `echo $argv[1] | sed 's/^-f//'`) shift argv goto top case -f: # Specify font size shift argv if ($#argv > 0) then set fontsize = $argv[1] shift argv else echo "Usage: -f fontsize (1-8)" echo "Type rgipgnu -help for help." exit (1) endif goto top case -o?*: # Specify output-file of plot set outfile = `echo $argv[1] | sed 's/^-o//'` set out=1 shift argv goto top case -o: # Specify title of plot shift argv if ($#argv > 0) then set outfile = $argv[1] set out=1 shift argv else echo "Usage: -o outputfile" echo "Include a 'X' in filename if multiple plots" echo "Type lasergnu -help for help." exit (1) endif goto top case -t?*: # Specify title of plot echo set title \""`echo $argv[1] | sed 's/^-t//'`"\" >> $TMP shift argv goto top case -t: # Specify title of plot shift argv if ($#argv > 0) then echo set title \""$1"\" >> $TMP shift argv else echo "Usage: -t title ..." echo "Type lasergnu -help for help." exit (1) endif goto top case -help: echo "$usage" exit(1) case -p?*: # plot-commds echo "$argv[1]" | sed "s/^-p//" >> $TMP shift argv goto top case -p: # Set the printer, exactly as by itroff. shift argv if ($#argv > 0) then echo "$argv[1]" >> $TMP shift argv else echo "Usage: -P 'plot-commands ...'" echo "Type rgipgnu -help for help." exit (1) endif goto top case -w: # Specify split page shift argv if ($#argv > 0) then set windows="[$argv[1]]" shift argv else echo "Usage: -w no_horiz,no_vertical" echo "Type lasergnu -help for help." exit (1) endif goto top case -?*: echo "I do not recognize option $argv[1]." echo "$usage" exit (1) default: set input_files = ($input_files $argv[1]) shift argv goto top endsw endif set setterm="set term rgip $fontsize $windows" # Set up input file echo "$setterm" > $TMP.plt echo set output \"$outfile\" >> $TMP.plt if (-e $TMP) cat $TMP >> $TMP.plt # If input file is specified AND command line contains plot commands, then # do command line args first, then plot commands in input file. #if ( "$input_files" != "" ) then if ( "$out" ) then grep -v "set te" $input_files | grep -v "set out" >> $TMP.plt else grep -v "set te" $input_files >> $TMP.plt endif echo "quit" >> $TMP.plt gnuplot $TMP.plt < /dev/null cleanup: rm -f $TMP*