summaryrefslogtreecommitdiff
path: root/texmf-dist/scripts/ketpic/ketlib/ketpic2escifiles6/Printobjstr.sci
blob: bf1377513aefd1055ae3db7bcc497ccc8deb3cd6 (plain)
1
2
3
4
5
6
7
8
9
10
// s : 2014.06.22

function Printobjstr(Str)
  global Wfile FID;
  if Wfile=='default' then
    mprintf('%s\n',Str);
  else
    mfprintf(FID,'%s\n',Str);
  end
endfunction