# HG changeset patch # User Carnë Draug # Date 1411513619 -3600 # Node ID 9220669832df3d8122921453afa902f56920e5d0 # Parent 76baa2d10abb6982361e48f705d13108b79174fd Undeprecate flipdim (prematurely deprecated in 995df67fc912). * general/flipdim.m, deprecated/flipdim.m: restore flipdim() from deprecated, and turn it into alias for flip(). * NEWS: remove flipdim from list of deprecated functions. * deprecated/module.mk: remove flipdim.m * general/module.mk: add flipdim.m * help/__unimplemented__.m: remove flip. diff -r 76baa2d10abb -r 9220669832df NEWS --- a/NEWS Mon Sep 22 21:41:04 2014 -0700 +++ b/NEWS Wed Sep 24 00:06:59 2014 +0100 @@ -103,7 +103,6 @@ bicubic | interp2 find_dir_in_path | dir_in_loadpath finite | isfinite - flipdim | flip fmod | rem fnmatch | glob or regexp luinc | ilu or ichol diff -r 76baa2d10abb -r 9220669832df scripts/deprecated/flipdim.m --- a/scripts/deprecated/flipdim.m Mon Sep 22 21:41:04 2014 -0700 +++ /dev/null Thu Jan 01 00:00:00 1970 +0000 @@ -1,61 +0,0 @@ -## Copyright (C) 2004-2013 David Bateman -## Copyright (C) 2009 VZLU Prague -## -## This file is part of Octave. -## -## Octave is free software; you can redistribute it and/or modify it -## under the terms of the GNU General Public License as published by -## the Free Software Foundation; either version 3 of the License, or (at -## your option) any later version. -## -## Octave is distributed in the hope that it will be useful, but -## WITHOUT ANY WARRANTY; without even the implied warranty of -## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU -## General Public License for more details. -## -## You should have received a copy of the GNU General Public License -## along with Octave; see the file COPYING. If not, see -## . - -## -*- texinfo -*- -## @deftypefn {Function File} {} flipdim (@var{x}) -## @deftypefnx {Function File} {} flipdim (@var{x}, @var{dim}) -## Return a copy of @var{x} flipped about the dimension @var{dim}. -## @var{dim} defaults to the first non-singleton dimension. -## -## @strong{Warning:} @code{flipdim} is scheduled for removal in version 4.6. -## Use @code{flip} which can be used as a drop-in replacement. -## -## @seealso{fliplr, flipud, rot90, rotdim} -## @end deftypefn - -## Author: David Bateman, Jaroslav Hajek - -function y = flipdim (x, dim) - - persistent warned = false; - if (! warned) - warned = true; - warning ("Octave:deprecated-function", - "flipdim is deprecated and will be removed from a future version of Octave; please use flip (x, dim) instead"); - endif - - if (nargin != 1 && nargin != 2) - print_usage (); - endif - - nd = ndims (x); - sz = size (x); - if (nargin == 1) - ## Find the first non-singleton dimension. - (dim = find (sz > 1, 1)) || (dim = 1); - elseif (! (isscalar (dim) && isindex (dim))) - error ("flipdim: DIM must be a positive integer"); - endif - - idx(1:max(nd, dim)) = {':'}; - idx{dim} = size (x, dim):-1:1; - y = x(idx{:}); - -endfunction - diff -r 76baa2d10abb -r 9220669832df scripts/deprecated/module.mk --- a/scripts/deprecated/module.mk Mon Sep 22 21:41:04 2014 -0700 +++ b/scripts/deprecated/module.mk Wed Sep 24 00:06:59 2014 +0100 @@ -4,7 +4,6 @@ deprecated/bicubic.m \ deprecated/find_dir_in_path.m \ deprecated/finite.m \ - deprecated/flipdim.m \ deprecated/fmod.m \ deprecated/fnmatch.m \ deprecated/isstr.m \ diff -r 76baa2d10abb -r 9220669832df scripts/general/flipdim.m --- /dev/null Thu Jan 01 00:00:00 1970 +0000 +++ b/scripts/general/flipdim.m Wed Sep 24 00:06:59 2014 +0100 @@ -0,0 +1,36 @@ +## Copyright (C) 2004-2013 David Bateman +## Copyright (C) 2009 VZLU Prague +## +## This file is part of Octave. +## +## Octave is free software; you can redistribute it and/or modify it +## under the terms of the GNU General Public License as published by +## the Free Software Foundation; either version 3 of the License, or (at +## your option) any later version. +## +## Octave is distributed in the hope that it will be useful, but +## WITHOUT ANY WARRANTY; without even the implied warranty of +## MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the GNU +## General Public License for more details. +## +## You should have received a copy of the GNU General Public License +## along with Octave; see the file COPYING. If not, see +## . + +## -*- texinfo -*- +## @deftypefn {Function File} {} flipdim (@var{x}) +## @deftypefnx {Function File} {} flipdim (@var{x}, @var{dim}) +## Flip array across specific dimension. +## +## This function is an alias for @code{flip} and exists for backwards +## and @sc{Matlab} compatibility. See further details about its usage +## on @code{flip} help text. +## +## @seealso{flip, fliplr, flipud, rot90, rotdim} +## @end deftypefn + +## Author: David Bateman, Jaroslav Hajek + +function y = flipdim (varargin) + y = flip (varargin{:}); +endfunction diff -r 76baa2d10abb -r 9220669832df scripts/general/module.mk --- a/scripts/general/module.mk Mon Sep 22 21:41:04 2014 -0700 +++ b/scripts/general/module.mk Wed Sep 24 00:06:59 2014 +0100 @@ -29,6 +29,7 @@ general/divergence.m \ general/fieldnames.m \ general/flip.m \ + general/flipdim.m \ general/fliplr.m \ general/flipud.m \ general/gradient.m \ diff -r 76baa2d10abb -r 9220669832df scripts/help/__unimplemented__.m --- a/scripts/help/__unimplemented__.m Mon Sep 22 21:41:04 2014 -0700 +++ b/scripts/help/__unimplemented__.m Wed Sep 24 00:06:59 2014 +0100 @@ -636,7 +636,6 @@ "fitsinfo", "fitsread", "fitswrite", - "flip", "flow", "frame2im", "freqspace",