Back to index

texmacs  1.0.7.15
tmrepl.m
Go to the documentation of this file.
00001 function tmrepl()
00002        prompt=sprintf("%cchannel:prompt%coctave> %c",2,5,5);
00003        r=input(prompt, "s");
00004        ans="texmacs";
00005        while ( 1 )
00006               if r(length(r))!=";"
00007                      dispans=1;
00008               else
00009                      dispans=0;
00010               endif
00011               r=sprintf("%ctexmacs%c; %s;",39,39,r);
00012               eval(r,"tmlasterr");
00013               if dispans & isnewans(ans)
00014                        tmdisp(ans);
00015               endif
00016               r=input(prompt,'s');
00017        endwhile
00018 endfunction