Back to index

texmacs  1.0.7.15
scheme.m
Go to the documentation of this file.
00001 ## Released under the GNU General Public License, see www.gnu.org
00002 ## Copyright (C) 2002 by the Free Software Foundation
00003 ## Written by Michael Graffam mikegraffam@yahoo.com
00004 ##
00005 ## Execute a Scheme expression through TeXmacs
00006 ## Created: Sept 2002
00007 
00008 function scheme(S)
00009        if (length(getenv("TEXMACS_PATH"))>0)
00010               two=sprintf("%c",2); five=sprintf("%c",5);
00011               tmp=[two,"scheme:",S,five];
00012               disp(tmp);
00013        else
00014               disp("TeXmacs and Scheme not available.");
00015        endif
00016 endfunction