[Octave-cvsupdate] SF.net SVN: octave:[10707] trunk/octave-forge/extra/java/inst/cell2mlstr.m

[<prn...@us...>]

Revision: 10707
          http://octave.svn.sourceforge.net/octave/?rev=10707&view=rev
Author:   prnienhuis
Date:     2012-06-29 16:39:30 +0000 (Fri, 29 Jun 2012)
Log Message:
-----------
Utility function for dialogs; transforms cellstr arrays into multiline char arrays separated by newline chars

Added Paths:
-----------
    trunk/octave-forge/extra/java/inst/cell2mlstr.m

Added: trunk/octave-forge/extra/java/inst/cell2mlstr.m
===================================================================
--- trunk/octave-forge/extra/java/inst/cell2mlstr.m	                        (rev 0)
+++ trunk/octave-forge/extra/java/inst/cell2mlstr.m	2012-06-29 16:39:30 UTC (rev 10707)
@@ -0,0 +1,34 @@
+## Copyright (C) 2012 Philip Nienhuis <prn...@us...>
+## 
+## 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 Foundation; either version 3 of the License, or
+## (at your option) any later version.
+## 
+## This program 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
+## <http://www.gnu.org/licenses/>.
+
+## cell2mlstr - convert text cells in cellstr arrray to multiline text
+## separated by EOL
+
+## Author: Philip <Philip@DESKPRN>
+## Created: 2012-06-29
+
+function [ ret ] = cell2mlstr (cstr)
+
+  if (! iscellstr (cstr))
+    ## Only use char elements
+    cstr = cstr (find (cellfun ("ischar", cstr)));
+  endif
+  ## Treat cell string array as multi-line text
+  cstr(1:2:2*numel (cstr)) = cstr;
+  cstr(2:2:numel (cstr)) = "\n";
+  ret = [cstr{:}];
+
+endfunction

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