~ubuntu-branches/ubuntu/hardy/texmacs/hardy

« back to all changes in this revision

Viewing changes to plugins/octave/octave/tm/list2scm.m

• browse files at revision 1
• compare with another revision
• download diff
• download tarball
• view history from revision 1

Show diffs side-by-side

added

removed

plugins/octave/octave/tm/list2scm.m

 

1

## Released under the GNU General Public License, see www.gnu.org

 

2

## Copyright (C) 2002 by the Free Software Foundation

 

3

## Written by Michael Graffam mikegraffam@yahoo.com

 

4

##

 

5

## Convert an Octave list to a Scheme expression

 

6

## Created: Sept 2002

 

7

 

 

8

function tmp=list2scm(L,c)

 

9

        if (nargin<2)

 

10

                c=1;

 

11

        endif   

 

12

        tmp="(enumerate-numeric (document";

 

13

        len=length(L);

 

14

        for i=1:len

 

15

                tmp=[tmp, " (concat (item) ", obj2scm(nth(L,i),c),")"];

 

16

        endfor

 

17

        tmp=[tmp,"))"];

 

18

endfunction

• Older »

Loggerhead is a web-based interface for Breezy
Version: 2.0.1