Mercurial > hg > octave-nkf

comparison scripts/image/private/imwrite_filename.m @ 17848:60b63193a33f

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
imwrite: do not append format as file extension to filename.
author Carnë Draug <carandraug@octave.org>
date Mon, 04 Nov 2013 20:52:04 +0000
parents 1c89599167a6
children 4197fc428c7d
comparison
equal deleted inserted replaced
17847:3a0075793fcd 17848:60b63193a33f
49 options_idx = filename_idx + 1; 49 options_idx = filename_idx + 1;
50 if (numel (varargin) > filename_idx && 50 if (numel (varargin) > filename_idx &&
51 rem (length (varargin) - filename_idx, 2) != 0 && 51 rem (length (varargin) - filename_idx, 2) != 0 &&
52 ischar (varargin{filename_idx + 1})) 52 ischar (varargin{filename_idx + 1}))
53 ext = varargin{filename_idx + 1}; 53 ext = varargin{filename_idx + 1};
54 filename = [filename "." ext];
55 options_idx++; 54 options_idx++;
56 else 55 else
57 [~, ~, ext] = fileparts (filename); 56 [~, ~, ext] = fileparts (filename);
58 if (! isempty (ext)) 57 if (! isempty (ext))
59 ## remove dot from extension 58 ## remove dot from extension