Back to index

texmacs  1.0.7.15
struct2scm.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 ## Convert an Octave structure to Scheme
00006 ## Created: Sept 2002
00007 
00008 function tmp=struct2scm(n,a,b)
00009 
00010        global TMSTRUCT;
00011 
00012        if (TMSTRUCT) # Bullets!
00013               if ((nargin<2)||(a<6))
00014                      a=1; 
00015               endif
00016               tmp=struct2bullet(n,a);
00017        else # Tree
00018               if (nargin<3)
00019                      b="name";
00020               endif
00021               tmp=struct2tree(n,b);
00022        endif
00023 endfunction