summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketcindy/ketlib/ketpicscifiles6/Assignrep.sci
blob: 0a362b012133b885f38c217badf1cf75679be9ae (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
// 09.10.17
// 09.12.05
// 09.12.29
// 14.09.30  addition supported

function Assignrep(varargin)
  global ASSIGNLIST;
  Nargs=length(varargin);
  for I=1:2:Nargs
    Vname=varargin(I);
    Val=varargin(I+1);
    Tmp=Assign('?'+Vname);
    if Tmp=='Not found'
      Tmp=length(ASSIGNLIST);
      ASSIGNLIST(Tmp+1)=Vname;
      ASSIGNLIST(Tmp+2)=Val;
    else
      I=Tmp(1);
      ASSIGNLIST(I+1)=Val;
    end;
  end
endfunction;