summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpicscifiles6/Openphr.sci
blob: 461549e9799b9eba4df1ffc2ca5b42ebdea0e927 (plain)
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