octave: scripts/testfun/private/dump

annotate scripts/testfun/private/dump_demos.m @ 22262:a41c83fc601b

dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix

author	Andreas Weber <andy.weber.aw@gmail.com>
date	Thu, 11 Aug 2016 08:00:49 +0200
parents	a8a9c275e12d
children	1c4cd12987f5

rev	line source
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	1 ## Copyright (C) 2010 Søren Hauberg
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	2 ##
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	3 ## This file is part of Octave.
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	4 ##
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	5 ## Octave is free software; you can redistribute it and/or modify it
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	6 ## under the terms of the GNU General Public License as published by
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	7 ## the Free Software Foundation; either version 3 of the License, or (at
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	8 ## your option) any later version.
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	9 ##
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	10 ## Octave is distributed in the hope that it will be useful, but
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	11 ## WITHOUT ANY WARRANTY; without even the implied warranty of
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	12 ## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	13 ## General Public License for more details.
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	14 ##
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	15 ## You should have received a copy of the GNU General Public License
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	16 ## along with Octave; see the file COPYING. If not, see
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	17 ## <http://www.gnu.org/licenses/>.
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	18
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	19 ## -- texinfo --
22262 a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	20 ## @deftypefn {} {} dump_demos ()
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	21 ## @deftypefnx {} {} dump_demos (@var{dirs})
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	22 ## @deftypefnx {} {} dump_demos (@var{dirs}, @var{mfile})
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	23 ## @deftypefnx {} {} dump_demos (@var{dirs}, @var{mfile}, @var{fmt})
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	24 ## Produce a script, with the name specified by @var{mfile}, containing
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	25 ## the demos in the directories, @var{dirs}. The demos are assumed to produce
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	26 ## graphical output, whose renderings are saved with the specified format,
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	27 ## @var{fmt}.
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	28 ##
22262 a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	29 ## The defaults for each input are;
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	30 ##
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	31 ## @table @var
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	32 ## @item @var{dirs}
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	33 ## @code{@{"plot/appearance", "plot/draw", "plot/util", "image"@}}
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	34 ##
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	35 ## @item @var{mfile}
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	36 ## @qcode{"dump.m"}
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	37 ##
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	38 ## @item @var{fmt}
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	39 ## @qcode{"png"}
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	40 ## @end table
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	41 ##
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	42 ## For example, to produce PNG output for all demos of the functions
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	43 ## in the plot directory;
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	44 ##
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	45 ## @example
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	46 ## dump_demos plot dump.m png
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	47 ## @end example
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	48 ## @seealso{fntests, test, demo}
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	49 ## @end deftypefn
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	50
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	51 ## Author: Søren Hauberg <soren@hauberg.org>
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	52
22262 a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	53 function dump_demos (dirs={"plot/appearance", "plot/draw", "plot/util", "image"}, output="dump_plot_demos.m", fmt="png")
18875 0075f3fba930 dump_demos.m: Update to match new plot directory structure Andreas Weber <andy.weber.aw@gmail.com> parents: 18874 diff changeset	54
22262 a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	55 if (nargin > 3)
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	56 print_usage ();
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	57 endif
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	58
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	59 if (ischar (dirs))
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	60 dirs = {dirs};
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	61 elseif (! iscellstr (dirs))
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	62 error ("dump_demos: DIRS must be a cell array of strings with directory names");
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	63 endif
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	64
22262 a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	65 if (! isunix ())
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	66 dirs = strrep (dirs, "/", filesep ());
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	67 endif
a41c83fc601b dump_demos.m: Backout a8a9c275e12d and fix filesep on non-unix Andreas Weber <andy.weber.aw@gmail.com> parents: 22220 diff changeset	68
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	69 [~, funcname, ext] = fileparts (output);
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	70 if (isempty (ext))
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	71 output = [output ".m"];
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	72 endif
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	73
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	74 ## Create script beginning (close figures, etc.)
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	75 fid = fopen (output, "w");
18875 0075f3fba930 dump_demos.m: Update to match new plot directory structure Andreas Weber <andy.weber.aw@gmail.com> parents: 18874 diff changeset	76 fprintf (fid, "%% DO NOT EDIT! Generated automatically by dump_demos.m\n");
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	77 fprintf (fid, "function %s ()\n", funcname);
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	78 fprintf (fid, "close all\n");
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	79 fprintf (fid, "more off\n");
18925 87324260043d Improve plot comparison scripts. Andreas Weber <andy.weber.aw@gmail.com> parents: 18897 diff changeset	80 fprintf (fid, "diary diary.log\n");
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	81
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	82 ## Run and print the demos in each directory
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	83 for i = 1:numel (dirs)
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	84 d = dirs{i};
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	85 if (! is_absolute_filename (d))
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	86 d = dir_in_loadpath (d);
18875 0075f3fba930 dump_demos.m: Update to match new plot directory structure Andreas Weber <andy.weber.aw@gmail.com> parents: 18874 diff changeset	87 endif
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	88 if (! exist (d, "dir"))
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	89 error ("dump_demos: directory %s does not exist", d);
18875 0075f3fba930 dump_demos.m: Update to match new plot directory structure Andreas Weber <andy.weber.aw@gmail.com> parents: 18874 diff changeset	90 endif
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	91 dump_all_demos (d, fid, fmt);
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	92 endfor
18875 0075f3fba930 dump_demos.m: Update to match new plot directory structure Andreas Weber <andy.weber.aw@gmail.com> parents: 18874 diff changeset	93
22151 283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	94 ## Add helper functions like sombrero
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	95 dump_helper_fcns (fid);
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	96
18925 87324260043d Improve plot comparison scripts. Andreas Weber <andy.weber.aw@gmail.com> parents: 18897 diff changeset	97 ## Stop and flush diary
22151 283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	98 fprintf (fid, "\ndiary off\n");
18925 87324260043d Improve plot comparison scripts. Andreas Weber <andy.weber.aw@gmail.com> parents: 18897 diff changeset	99
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	100 ## Create script ending
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	101 fprintf (fid, "end\n\n")
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	102
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	103 ## Close script
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	104 fclose (fid);
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 20852 diff changeset	105
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	106 endfunction
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	107
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	108 function dump_all_demos (directory, fid, fmt)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 20852 diff changeset	109
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	110 dirinfo = dir (fullfile (directory, "*.m"));
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	111 flist = {dirinfo.name};
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	112 ## Remove uigetdir, uigetfile, uiputfile, etc.
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	113 flist = flist(! strncmp (flist, "ui", 2));
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	114 ## Remove linkaxes, linkprops
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	115 flist = flist(! strncmp (flist, "link", 4));
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	116 ## Remove colormap
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	117 flist = flist(! strncmp (flist, "colormap", 8));
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	118 for i = 1:numel (flist)
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	119 fcn = flist{i};
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	120 fcn(end-1:end) = []; # remove .m
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	121 demos = get_demos (fcn);
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	122 for d = 1:numel (demos)
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	123 idx = sprintf ("%02d", d);
18925 87324260043d Improve plot comparison scripts. Andreas Weber <andy.weber.aw@gmail.com> parents: 18897 diff changeset	124 base_fn = sprintf ("%s_%s", fcn, idx);
18959 4c45986a278e dump_demos.m: Check if file exists before demo and add timing. Andreas Weber <andy.weber.aw@gmail.com> parents: 18925 diff changeset	125 fn = sprintf ('%s.%s', base_fn, fmt);
22126 3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	126 ## Wrap each demo in a function which create a local scope
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	127 ## to prevent that a previous demo overwrites i or pi, for example
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	128 fprintf (fid, "\nfunction %s ()\n", base_fn);
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	129 fprintf (fid, " try\n");
18959 4c45986a278e dump_demos.m: Check if file exists before demo and add timing. Andreas Weber <andy.weber.aw@gmail.com> parents: 18925 diff changeset	130 ## First check if the file already exists, skip demo if found
22126 3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	131 fprintf (fid, " if (~ exist ('%s', 'file'))\n", fn);
19833 9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19152 diff changeset	132 ## Invoke the ancient, deprecated random seed generators, but there is an
9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19152 diff changeset	133 ## initialization mismatch with the more modern generators reported
9fc020886ae9 maint: Clean up m-files to follow Octave coding conventions. Rik <rik@octave.org> parents: 19152 diff changeset	134 ## here (https://savannah.gnu.org/bugs/?42557).
22126 3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	135 fprintf (fid, " rand ('seed', 1);\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	136 fprintf (fid, " tic ();\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	137 fprintf (fid, " %s\n\n", demos{d});
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	138 fprintf (fid, " t_plot = toc ();\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	139 fprintf (fid, " fig = (get (0, 'currentfigure'));\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	140 fprintf (fid, " if (~ isempty (fig))\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	141 fprintf (fid, " figure (fig);\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	142 fprintf (fid, " fprintf ('Printing ""%s"" ... ');\n", fn);
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	143 fprintf (fid, " tic ();\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	144 fprintf (fid, " print ('-d%s', '%s');\n", fmt, fn);
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	145 fprintf (fid, " t_print = toc ();\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	146 fprintf (fid, " fprintf ('[%%f %%f] done\\n',t_plot, t_print);\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	147 fprintf (fid, " end\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	148 ## Temporary fix for cruft accumulating in figure window.
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	149 fprintf (fid, " close ('all');\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	150 fprintf (fid, " else\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	151 fprintf (fid, " fprintf ('File ""%s"" already exists.\\n');\n", fn);
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	152 fprintf (fid, " end\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	153 fprintf (fid, " catch\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	154 fprintf (fid, " fprintf ('ERROR in %s: %%s\\n', lasterr ());\n", base_fn);
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	155 fprintf (fid, " err_fid = fopen ('%s.err', 'w');\n", base_fn);
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	156 fprintf (fid, " fprintf (err_fid, '%%s', lasterr ());\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	157 fprintf (fid, " fclose (err_fid);\n");
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	158 fprintf (fid, " end\n");
22126 3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	159 fprintf (fid, "end\n");
3f8ed6d7cb1c Improve plot comparison in sripts/testfun Andreas Weber <andy.weber.aw@gmail.com> parents: 21758 diff changeset	160 fprintf (fid, "%s ();\n", base_fn);
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	161 endfor
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	162 endfor
22151 283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	163 fprintf (fid, "\nclose all\n");
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 20852 diff changeset	164
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	165 endfunction
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	166
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	167 function retval = get_demos (fcn)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 20852 diff changeset	168
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	169 [code, idx] = test (fcn, "grabdemo");
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	170 num_demos = length (idx) - 1;
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	171 retval = cell (1, num_demos);
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	172 ## Now split the demos into a cell array
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	173 for k = 1:num_demos
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	174 retval{k} = oct2mat (code(idx(k):idx(k+1)-1));
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	175 endfor
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 20852 diff changeset	176
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	177 endfunction
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	178
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	179 function code = oct2mat (code)
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 20852 diff changeset	180
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	181 ## Simple hacks to make things Matlab compatible
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	182 code = strrep (code, "%!", "%%");
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	183 code = strrep (code, "!", "~");
22189 829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	184
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	185 ## Simply replacing double quotes with single quotes
22189 829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	186 ## causes problems with strings like 'hello "world"' or transpose.
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	187
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	188 ## Test input for double quote replacement:
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	189 ## title ("bar");
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	190 ## a'
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	191 ## foo 'bar' "baz"
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	192 ## image (repmat ((1:64)', 1, 64));
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	193 ## fprintf ('File "brighten_01.png" already exists.\n');
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	194 ## title ({'x^2 + y^2'; 'plotted over circular disk with "circ"'});
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	195 ## annotation ('textbox', [0.1 0 0.8 1], 'string', ...
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	196 ## '"headstyle" property:', ...
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	197
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	198 code = regexprep (code, "[(,;\n][ ]'[^']'(SKIP)(F)\|\"", "'",
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	199 "lineanchors", "dotexceptnewline");
22189 829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	200
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	201 code = strrep (code, "#", "%");
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	202 ## Fix the format specs for the errorbar demos changed by the line above
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	203 code = strrep (code, "%r", "#r");
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	204 code = strrep (code, "%~", "#~");
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	205 endkeywords = {"endfor", "endfunction", "endif", "endwhile", "end_try_catch"};
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	206 for k = 1:numel (endkeywords)
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	207 code = strrep (code, endkeywords{k}, "end");
c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	208 endfor
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	209 commentkeywords = {"unwind_protect", "end_unwind_protect"};
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	210 for k = 1:numel (commentkeywords)
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	211 code = strrep (code, commentkeywords{k}, ["%" commentkeywords{k}]);
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	212 endfor
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	213
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	214 ## Fix up sombrero which now has default argument in Octave
b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	215 code = strrep (code, "sombrero ()", "sombrero (41)");
21758 ffad2baa90f7 maint: Use newlines to make code more readable. Rik <rik@octave.org> parents: 20852 diff changeset	216
18874 c74673161752 Add scripts to help validate plot results. Ben Abbott <bpabbott@mac.com> parents: diff changeset	217 endfunction
18895 b8934a57e13e Improve plot comparison scripts. Rik <rik@octave.org> parents: 18877 diff changeset	218
22151 283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	219 function dump_helper_fcns (fid)
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	220
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	221 fprintf (fid, "\n%s\n", repmat ("%", [1, 60]));
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	222 fdisp (fid, "% Helper functions");
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	223 fprintf (fid, "%s\n", repmat ("%", [1, 60]));
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	224
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	225 ## Add sombrero function
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	226 fdisp (fid, [
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	227 "function [x, y, z] = sombrero (n) "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	228 " "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	229 " if (nargin == 0) "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	230 " n = 41; "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	231 " end "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	232 " "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	233 " [xx, yy] = meshgrid (linspace (-8, 8, n)); "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	234 " r = sqrt (xx.^2 + yy.^2) + eps; % eps prevents div/0 errors "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	235 " zz = sin (r) ./ r; "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	236 " "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	237 " if (nargout == 0) "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	238 " surf (xx, yy, zz); "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	239 " elseif (nargout == 1) "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	240 " x = zz; "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	241 " else "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	242 " x = xx; "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	243 " y = yy; "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	244 " z = zz; "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	245 " end "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	246 " "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	247 "end "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	248 ]); # End of sombrero dump
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	249
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	250 fprintf (fid, "\n");
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	251
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	252 ## Add rgbplot function
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	253 fdisp (fid, [
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	254 "function h = rgbplot (cmap, style) "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	255 " "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	256 " if (nargin == 1) "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	257 " style = 'profile'; "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	258 " end "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	259 " "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	260 " switch (lower (style)) "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	261 " case 'profile' "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	262 " htmp = plot (cmap(:,1),'r', cmap(:,2),'g', cmap(:,3),'b'); "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	263 " set (gca (), 'ytick', 0:0.1:1); "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	264 " set (gca (), 'xlim', [0 rows(cmap)]); "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	265 " case 'composite' "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	266 " htmp = image (1:rows(cmap)); "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	267 " set (gca, 'ytick', []); "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	268 " colormap (cmap); "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	269 " end "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	270 " xlabel ('color index'); "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	271 " "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	272 " if (nargout > 0) "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	273 " h = htmp; "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	274 " end "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	275 " "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	276 "end "
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	277 ]); # End of rgbplot dump
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	278
22189 829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	279 fprintf (fid, "\n");
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	280
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	281 ## Add dummy assert until we've removed all assert from demos
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	282 fdisp (fid, [
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	283 "function assert (varargin) "
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	284 "end "
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	285 ]); # End of dummy assert
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	286
829e0aafebdc dump_demos.m: Change regex for replacement of double quotes, add dummy assert Andreas Weber <andy.weber.aw@gmail.com> parents: 22151 diff changeset	287 fprintf (fid, "\n%s\n", repmat ("%", [1, 60]));
22151 283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	288
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	289 endfunction
283d8dfcad37 Make demos Matlab compatible for comparison with dump_demos script. Rik <rik@octave.org> parents: 22126 diff changeset	290

Mercurial > octave

annotate scripts/testfun/private/dump_demos.m @ 22262:a41c83fc601b