texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.sci


1
2
3
4
5
6
7
8
9
10
11
12

// 08.05.31

function Openphr(Str)
  global Wfile FID
  S='\def'+Str+'{%';
  if Wfile=='default'
    mprintf('%s\n',S);
  else
    mfprintf(FID,'%s\n',S);
  end
endfunction