While trying to debug the octave problems, the indentation of
test_octave.sh was driving my crazy. Here's a fix. Not sure what the
current plplot indent standard is.
--
Orion Poplawski
Technical Manager 303-415-9701 x222
NWRA/CoRA Division FAX: 303-415-9702
3380 Mitchell Lane or...@cora.nwra.com
Boulder, CO 80301 http://www.cora.nwra.com
Index: test_octave.sh.in
===================================================================
--- test_octave.sh.in (revision 10346)
+++ test_octave.sh.in (working copy)
@@ -37,50 +37,50 @@
# Check verbose_test variable
if (strcmp(getenv("verbose_test"),"on") == 1)
-verbose_test = 1;
+ verbose_test = 1;
else
verbose_test = 0;
- endif
+endif
- plplot_stub;
- t = split("$options", "-");
- if (t); t(1,:)=""; endif;
- for i=1:rows(t)
- tt = deblank (t(i,:)); len = length(tt);
- ix = index(tt," ");
- if (ix == 0); ix = len; len = 0; endif
- plsetopt(tt(1:ix), tt(ix+1:len));
- endfor
+plplot_stub;
+t = split("$options", "-");
+if (t); t(1,:)=""; endif;
+for i=1:rows(t)
+ tt = deblank (t(i,:)); len = length(tt);
+ ix = index(tt," ");
+ if (ix == 0); ix = len; len = 0; endif
+ plsetopt(tt(1:ix), tt(ix+1:len));
+endfor
# p7 works OK with plmeta, e.g., but not ps or psc. pleop/plbop issue?
+for i=[1:7 8 9 13 15 16 21] ;
+ if (verbose_test)
+ printf("p%d\n",i);
+ endif
+ figure(i,"$device",sprintf("${OUTPUT_DIR}/p%d%%n.$dsuffix",i));
+ feval(sprintf("p%d",i))
+ closefig
+endfor
- for i=[1:7 8 9 13 15 16 21] ;
- if (verbose_test)
- printf("p%d\n",i);
- endif
- figure(i,"$device",sprintf("${OUTPUT_DIR}/p%d%%n.$dsuffix",i));
- feval(sprintf("p%d",i))
- closefig
- endfor
#plot equivalent of x??c examples. These only required octave-2.0.x
#Example 19 is not implemented
#(and should probably be dropped anyway since the map stuff is not
#in the API that is supposed to be common to all front ends.)
- failed = [] ;
- for i=[1:18 20:31 ] ;
- ofile = sprintf("${OUTPUT_DIR}/x%.2d${lang}_${dsuffix}.txt",i);
- strm = fopen(ofile,"w");
- cmd = sprintf("x%.2dc",i);
- if (verbose_test)
- printf("%s\n",cmd);
- endif
- t = split("$options", "-");
- if (t) ; t(1,:)=""; endif
- for j=1:rows(t)
- tt = deblank (t(j,:)); len = length(tt);
- ix = index(tt," ");
- if (ix == 0); ix = len; len = 0; endif
- plSetOpt(deblank(tt(1:ix)), tt(ix:len));
+failed = [] ;
+for i=[1:18 20:31 ] ;
+ ofile = sprintf("${OUTPUT_DIR}/x%.2d${lang}_${dsuffix}.txt",i);
+ strm = fopen(ofile,"w");
+ cmd = sprintf("x%.2dc",i);
+ if (verbose_test)
+ printf("%s\n",cmd);
+ endif
+ t = split("$options", "-");
+ if (t) ; t(1,:)=""; endif
+ for j=1:rows(t)
+ tt = deblank (t(j,:)); len = length(tt);
+ ix = index(tt," ");
+ if (ix == 0); ix = len; len = 0; endif
+ plSetOpt(deblank(tt(1:ix)), tt(ix:len));
endfor
device="$device";
plSetOpt("dev", device);
@@ -89,7 +89,7 @@
file = sprintf("${OUTPUT_DIR}/x%.2d${lang}%%n.$dsuffix",i);
plSetOpt("o", file);
if i == 14
- file2 = sprintf("${OUTPUT_DIR}/x%.2da${lang}.${dsuffix}",i);
+ file2 = sprintf("${OUTPUT_DIR}/x%.2da${lang}.${dsuffix}",i);
endif
eval(cmd, "failed = [failed, i] ;");
fclose(strm);
------------------------------------------------------------------------------
Let Crystal Reports handle the reporting - Free Crystal Reports 2008 30-Day
trial. Simplify your report design, integration and deployment - and focus on
what you do best, core application coding. Discover what's new with
Crystal Reports now. http://p.sf.net/sfu/bobj-july
_______________________________________________
Plplot-devel mailing list
Plplot-devel@lists.sourceforge.net
https://lists.sourceforge.net/lists/listinfo/plplot-devel
