![[BACK]](/icons/cvsweb/back.gif){kind=icon}
Return to rgipgnu CVS log ![[TXT]](/icons/cvsweb/text.gif){kind=icon}
![[DIR]](/icons/cvsweb/dir.gif){kind=icon}
Up to [local] / OpenXM_contrib / gnuplot|
Return to rgipgnu CVS log | Up to [local] / OpenXM_contrib / gnuplot |
1.1 maekawa 1: #!/bin/csh -f
2: #
3: # Print gnuplot output on RGIP (Uniplex) format.
4:
5: set input_files = () # the plot input command files
6: set lpr_opts = () # options to lpr
7: set fontsize = ()
8:
9: # File for plot commands, and for plot output
10: set TMP=/tmp/plot$$
11: set outfile="|mail $USER" #mail user if no outputfile
12: set out=0
13: set windows = () #windows nr i x-dir and y-dir
14: onintr cleanup
15:
16: # default is Imagen mode for Imagen printer; see -p option
17: set setterm="set terminal imagen"
18:
19: set usage="usage: rgipgnu [-f fontsize] [-w [winx,winy]] [-t title] [-o outputfile] [-p 'plot command'] [plot-files....]"
20:
21: # Loop through the command-line arguments.
22:
23:
24: top:
25: if ($#argv > 0) then
26:
27: switch ("$argv[1]")
28:
29: case - : # print to stdout
30: set outfile=""
31: set out=1
32: shift argv
33: goto top
34:
35: case -f?*: # Specify font size
36: set fontsize = `echo $argv[1] | sed 's/^-f//'`)
37: shift argv
38: goto top
39:
40: case -f: # Specify font size
41: shift argv
42: if ($#argv > 0) then
43: set fontsize = $argv[1]
44: shift argv
45: else
46: echo "Usage: -f fontsize (1-8)"
47: echo "Type rgipgnu -help for help."
48: exit (1)
49: endif
50: goto top
51:
52: case -o?*: # Specify output-file of plot
53: set outfile = `echo $argv[1] | sed 's/^-o//'`
54: set out=1
55: shift argv
56: goto top
57:
58: case -o: # Specify title of plot
59: shift argv
60: if ($#argv > 0) then
61: set outfile = $argv[1]
62: set out=1
63: shift argv
64: else
65: echo "Usage: -o outputfile"
66: echo "Include a 'X' in filename if multiple plots"
67: echo "Type lasergnu -help for help."
68: exit (1)
69: endif
70: goto top
71:
72: case -t?*: # Specify title of plot
73: echo set title \""`echo $argv[1] | sed 's/^-t//'`"\" >> $TMP
74: shift argv
75: goto top
76:
77: case -t: # Specify title of plot
78: shift argv
79: if ($#argv > 0) then
80: echo set title \""$1"\" >> $TMP
81: shift argv
82: else
83: echo "Usage: -t title ..."
84: echo "Type lasergnu -help for help."
85: exit (1)
86: endif
87: goto top
88: case -help:
89: echo "$usage"
90: exit(1)
91:
92: case -p?*: # plot-commds
93: echo "$argv[1]" | sed "s/^-p//" >> $TMP
94: shift argv
95: goto top
96:
97: case -p: # Set the printer, exactly as by itroff.
98: shift argv
99: if ($#argv > 0) then
100: echo "$argv[1]" >> $TMP
101: shift argv
102: else
103: echo "Usage: -P 'plot-commands ...'"
104: echo "Type rgipgnu -help for help."
105: exit (1)
106: endif
107: goto top
108:
109: case -w: # Specify split page
110: shift argv
111: if ($#argv > 0) then
112: set windows="[$argv[1]]"
113: shift argv
114: else
115: echo "Usage: -w no_horiz,no_vertical"
116: echo "Type lasergnu -help for help."
117: exit (1)
118: endif
119: goto top
120:
121: case -?*:
122: echo "I do not recognize option $argv[1]."
123: echo "$usage"
124: exit (1)
125:
126: default:
127: set input_files = ($input_files $argv[1])
128: shift argv
129: goto top
130:
131: endsw
132: endif
133:
134: set setterm="set term rgip $fontsize $windows"
135:
136: # Set up input file
137: echo "$setterm" > $TMP.plt
138: echo set output \"$outfile\" >> $TMP.plt
139: if (-e $TMP) cat $TMP >> $TMP.plt
140:
141: # If input file is specified AND command line contains plot commands, then
142: # do command line args first, then plot commands in input file.
143: #if ( "$input_files" != "" ) then
144: if ( "$out" ) then
145: grep -v "set te" $input_files | grep -v "set out" >> $TMP.plt
146: else
147: grep -v "set te" $input_files >> $TMP.plt
148: endif
149: echo "quit" >> $TMP.plt
150: gnuplot $TMP.plt < /dev/null
151:
152: cleanup:
153: rm -f $TMP*