summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Texif.sci
blob: 8cbae5dcb5cbd4ef9d3283d4fed5b213314fdd7f (plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
// 10.04.16
// 10.04.18
// 10.05.03

function Texif(varargin)
  Condstr=varargin(1);
  Tp=0;
  if length(varargin)>1
    Tp=varargin(2);
  end;
  Texcom('');
  Texcom('{');
  if Tp==0
    Texcom('\ifnum ');
  else
    Texcom('\ifdim ');
  end;
  Texcom(Condstr+' ');
endfunction;