summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpic2escifiles6/Mixjoin.sci
blob: d6e49c14bf04c9399ec7e4682cbfab49e2cfb627 (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
// 08.05.18
// 08.05.19 Changed
// 08.08.15

// Structure changed
// 09.10.11

function M=Mixjoin(varargin)
  Nargs=length(varargin);
  M=list();
  for I=1:Nargs
    Tmp=varargin(I);
    if length(Tmp)==0
      continue;
    end;
    if Mixtype(Tmp)==1
      Tmp=list(Tmp);
    end;
    if length(M)==0
      M=Tmp;
    else
      M=lstcat(M,Tmp);
    end;
  end;
  if length(M)==0
    M=[];
  end;
endfunction;