[Octave-cvsupdate] SF.net SVN: octave:[9801] trunk/octave-forge/main/miscellaneous/inst/map.m

[<jpi...@us...>]

Revision: 9801
          http://octave.svn.sourceforge.net/octave/?rev=9801&view=rev
Author:   jpicarbajal
Date:     2012-03-09 11:51:33 +0000 (Fri, 09 Mar 2012)
Log Message:
-----------
miscellaneous: Ready for release...i guess. Added note on coypright and removed old code

Modified Paths:
--------------
    trunk/octave-forge/main/miscellaneous/inst/map.m

Modified: trunk/octave-forge/main/miscellaneous/inst/map.m
===================================================================
--- trunk/octave-forge/main/miscellaneous/inst/map.m	2012-03-09 11:21:27 UTC (rev 9800)
+++ trunk/octave-forge/main/miscellaneous/inst/map.m	2012-03-09 11:51:33 UTC (rev 9801)
@@ -1,6 +1,7 @@
 ## Copyright (C) 2003 Tomer Altman <ta...@lb...>
 ## Copyright (C) 2007 Muthiah Annamalai <mut...@ma...>
 ## Copyright (C) 2012 Carnë Draug <car...@gm...>
+## Copyright (C) 2012 Juan Pablo Carbajal <car...@if...>
 ##
 ## This program 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
@@ -75,59 +76,10 @@
     error ("fun_handle must either be a function handle or the name of a function");
   endif
 
-#  nRows = rows    (data_struct);
-#  nCols = columns (data_struct);
-
-#  otherdata = length (varargin);
-#  val       = cell (1, otherdata+1);
-#  val (:)   = 0;
-
   if (iscell (data_struct))
-# KaKiLa Fri 09 Mar 2012 09:47:52 AM CET
-# Works even if varargin is empty
     return_type = cellfun (fun_handle, data_struct,varargin{:});
-#    return_type = cell (nRows, nCols);
-#    if (otherdata >= 1)
-#      return_type = cellfun (fun_handle, data_struct,varargin{:});
-#      for i = 1:nRows
-#        for j = 1:nCols
-#         val {1} = data_struct {i, j};
-#          for idx = 2:otherdata+1
-#            val {idx} = varargin {idx-1}{i,j};
-#          endfor
-#            return_type {i,j} = apply (fun_handle, val);
-#        endfor
-#      endfor
-#    else
-#       return_type = cellfun (fun_handle, data_struct);
-#      for i = 1:nRows
-#        for j = 1:nCols
-#          return_type {i,j} = fun_handle (data_struct {i,j});
-#        endfor
-#      endfor
-#    endif
   else
-# KaKiLa Fri 09 Mar 2012 09:47:52 AM CET
-# Works even if varargin is empty
     return_type = arrayfun (fun_handle, data_struct,varargin{:});
-#    return_type = zeros (nRows, nCols);
-#    if (otherdata >= 1)
-#      for i = 1:nRows
-#        for j = 1:nCols
-#          val {1} = data_struct (i,j);
-#          for idx = 2:otherdata+1
-#            val {idx} = varargin {idx-1}(i,j);
-#          endfor
-#            return_type (i, j) = apply (fun_handle, val);
-#        endfor
-#      endfor
-#    else
-#      for i = 1:nRows
-#        for j = 1:nCols
-#          return_type (i, j) = fun_handle (data_struct (i, j));
-#        endfor
-#      endfor
-#    endif
   endif
 
 endfunction

This was sent by the SourceForge.net collaborative development platform, the world's largest Open Source development site.