Back to index

texmacs  1.0.7.15
list2scm.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 list to a Scheme expression
00006 ## Created: Sept 2002
00007 
00008 function tmp=list2scm(L,c)
00009        if (nargin<2)
00010               c=1;
00011        endif  
00012        tmp="(enumerate-numeric (document";
00013        len=length(L);
00014        for i=1:len
00015               tmp=[tmp, " (concat (item) ", obj2scm(nth(L,i),c),")"];
00016        endfor
00017        tmp=[tmp,"))"];
00018 endfunction