src/plugins/octave/octave/tm/tmdisp.m

   1 ## Released under the GNU General Public License, see www.gnu.org
   2 ## Copyright 2002 by the Free Software Foundation
   3 ## Written by Michael Graffam mikegraffam@yahoo.com
   4 ##
   5 ## Displays a matrix via the TeXmacs interface
   6 ## Created: Sept 2002
   7
   8 function tmdisp(M)
   9         if (length(getenv("TEXMACS_PATH"))>0)
  10                 two=sprintf("%c",2); five=sprintf("%c",5);
  11                 tmp1=obj2scm(M);
  12                 if strcmp(tmp1,"")
  13                         disp(M);
  14                 else
  15                         tmp=[two,"scheme:",tmp1,five];
  16                         disp(tmp);
  17                 endif
  18         else
  19                 disp(M);
  20         endif
  21 endfunction