Back to index

texmacs  1.0.7.15
tmdisp.m
Go to the documentation of this file.
00001 ## Released under the GNU General Public License, see www.gnu.org
00002 ## Copyright 2002 by the Free Software Foundation
00003 ## Written by Michael Graffam mikegraffam@yahoo.com
00004 ##
00005 ## Displays a matrix via the TeXmacs interface
00006 ## Created: Sept 2002
00007 
00008 function tmdisp(M)
00009        if (length(getenv("TEXMACS_PATH"))>0)
00010               two=sprintf("%c",2); five=sprintf("%c",5);
00011               tmp1=obj2scm(M);
00012               if strcmp(tmp1,"")
00013                      disp(M);
00014               else
00015                      tmp=[two,"scheme:",tmp1,five];
00016                      disp(tmp);
00017               endif
00018        else
00019               disp(M);
00020        endif
00021 endfunction