Mercurial > hg > octave-lyh

comparison scripts/testfun/test.m @ 7244:5a9561046b89

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[project @ 2007-12-04 02:27:27 by jwe]
author jwe
date Tue, 04 Dec 2007 02:27:27 +0000
parents e8d7eed42935
children 3422f39573b1
comparison
equal deleted inserted replaced
7243:e8d7eed42935 7244:5a9561046b89
478 fflush (__fid); 478 fflush (__fid);
479 endif 479 endif
480 fputs (__fid, __msg); 480 fputs (__fid, __msg);
481 fflush (__fid); 481 fflush (__fid);
482 ## show the variable context 482 ## show the variable context
483 if (! strcmp (__type, "error") && ! strcmp (__type, "testif") && 483 if (! strcmp (__type, "error") && ! strcmp (__type, "testif")
484 ! all (__shared == " ")) 484 && ! all (__shared == " "))
485 fputs (__fid, "shared variables "); 485 fputs (__fid, "shared variables ");
486 eval (sprintf ("fdisp(__fid,bundle(%s));", __shared)); 486 eval (sprintf ("fdisp(__fid,bundle(%s));", __shared));
487 fflush (__fid); 487 fflush (__fid);
488 endif 488 endif
489 endif 489 endif