summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Makeliststr.sci
blob: e9915e1b9088b6f05dcd1ce76d9bfa39643c0284 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
// 09.10.21

function Out=Makeliststr(L)
  Out='list(';
  for I=1:length(L)
    Dt=L(I);
    if type(Dt)==1
      if length(Dt)==1
        Dts=string(Dt);
      else
        Dts='[';
        for J=1:size(Dt,1)
          for K=1:size(Dt,2)
            Dts=Dts+string(Dt(J,K));
            if K<size(Dt,2)
              Dts=Dts+',';
            end;
          end;
          if J<size(Dt,1)
            Dts=Dts+';';
          else
            Dts=Dts+']';
          end;
        end;
      end;
    end;
    if type(Dt)==10
      Dts=Prime()+Dt+Prime();
    end;
    if type(Dt)==15
      Dts=Makeliststr(Dt);
    end;
    Out=Out+Dts;
    if I<length(L)
      Out=Out+',';
    else
      Out=Out+')';
    end;
  end;
endfunction;