65 lines
1015 B
Plaintext
65 lines
1015 B
Plaintext
|
* set the current working plot
|
||
|
|
.control
|
||
|
|
|
||
|
|
begin
|
||
|
|
unset resp
|
||
|
|
if $argc
|
||
|
|
set resp = $argv[1]
|
||
|
|
else
|
||
|
|
if $?plots = 0
|
||
|
|
echo Error: there aren\'t any plots currently loaded.
|
||
|
|
goto bottom
|
||
|
|
else
|
||
|
|
if $#plots = 0
|
||
|
|
echo Error: there aren\'t any plots currently loaded.
|
||
|
|
goto bottom
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
if $?resp = 0
|
||
|
|
set oldplot = $curplot
|
||
|
|
echo ' Type the name of the desired plot:'
|
||
|
|
echo ''
|
||
|
|
echo ' new New plot'
|
||
|
|
foreach pl $plots
|
||
|
|
set curplot = $pl
|
||
|
|
strcmp i $pl $oldplot
|
||
|
|
if $i = 0
|
||
|
|
echo "Current $pl $curplottitle ({$curplotname})"
|
||
|
|
else
|
||
|
|
echo " $pl $curplottitle ({$curplotname})"
|
||
|
|
end
|
||
|
|
end
|
||
|
|
set curplot = $oldplot
|
||
|
|
echo -n '? '
|
||
|
|
set resp = $<
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
|
||
|
|
strcmp i $resp ""
|
||
|
|
if $i = 0
|
||
|
|
goto bottom
|
||
|
|
end
|
||
|
|
|
||
|
|
strcmp i $resp new
|
||
|
|
if $i = 0
|
||
|
|
set curplot = new
|
||
|
|
goto bottom
|
||
|
|
end
|
||
|
|
|
||
|
|
foreach pl $plots
|
||
|
|
strcmp i $resp $pl
|
||
|
|
if $i = 0
|
||
|
|
set curplot = $pl
|
||
|
|
goto bottom
|
||
|
|
end
|
||
|
|
end
|
||
|
|
|
||
|
|
echo Error: no such plot name $resp
|
||
|
|
|
||
|
|
label bottom
|
||
|
|
|
||
|
|
unset resp i pl newflag oldplot
|
||
|
|
end
|