src/plugins/octave/octave/tm/tmrepl.m

   1 function tmrepl()
   2         prompt=sprintf("%cchannel:prompt%coctave> %c",2,5,5);
   3         r=input(prompt, "s");
   4         ans="texmacs";
   5         while ( 1 )
   6                 if r(length(r))!=";"
   7                         dispans=1;
   8                 else
   9                         dispans=0;
  10                 endif
  11                 r=sprintf("%ctexmacs%c; %s;",39,39,r);
  12                 eval(r,"tmlasterr");
  13                 if dispans & isnewans(ans)
  14                        tmdisp(ans);
  15                 endif
  16                 r=input(prompt,'s');
  17         endwhile
  18 endfunction