summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Texrenewcmd.sci
blob: b8926589d0659d4ace5e581f17aad9e444b734e1 (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
// 10.01.21

function Texrenewcmd(varargin)
  Nargs=length(varargin);
  Str=varargin(1);
  S='\renewcommand{'+Str+'}';
  if Nargs>1
    Tmp=string(varargin(2));
    S=S+'['+Tmp+']';
  end;
  if Nargs>2
    Tmp=varargin(3);
    if type(Tmp)==1
      Tmp=string(Tmp);
    end;
    S=S+'['+Tmp+']';
  end;
  S=S+'{';
  Texcom(S);
endfunction