Re: [Texmacs-dev] Octave plugin

[Joris van der Hoeven]

Dear Andrea,

If I understand well, you are just proposing to uncomment all references to 
gset.
Do you know if there is a way to test the version of octave and execute the code
only for older version. In that way, we remain backward compatible.

Thanks, Joris

> d=getenv("TEXMACS_PATH");
> if (length(d) > 0)
>       
> addpath([d,"/plugins/octave/octave/tm"],[d,"/plugins/octave/octave/plot"],[d,"/plugins/octave/octave/polynomial"]);
>         PS1("\\002channel:prompt\\005octave> \\005");
>         PS2("\\002channel:prompt\\005> \\005");
>         global TMSTRUCT=0;
>         global TMCOLORS=["black"; "red"; "magenta"; "orange"; "green"; 
> "blue";];         global TMCOLIDX=6;
> %           gset terminal postscript eps enhanced color;
> %           gset size 0.5,0.5;
>       tmrepl
> endif

> d=getenv("TEXMACS_PATH");
> if (length(d) > 0)
>       
> addpath([d,"/plugins/octave/octave/tm"],[d,"/plugins/octave/octave/plot"],[d,"/plugins/octave/octave/polynomial"]);
>         PS1("\\002channel:prompt\\005octave> \\005");
>         PS2("\\002channel:prompt\\005> \\005");
>         global TMSTRUCT=0;
>         global TMCOLORS=["black"; "red"; "magenta"; "orange"; "green"; 
> "blue";];         global TMCOLIDX=6;
> %           gset terminal postscript eps enhanced color;
> %           gset size 0.5,0.5;
>       tmrepl
> endif

> function tmrepl()
>       prompt=sprintf("%cchannel:prompt%coctave> %c",2,5,5);
>       r=input(prompt, "s");
>       texmacsanswer="texmacs";
>       while ( 1 )
>               if r(length(r))!=";"
>                       dispans=1;
>               else
>                       dispans=0;
>               endif
>               r=sprintf("%ctexmacs%c; %s;",39,39,r);
>               texmacsanswer=eval(r,"tmlasterr");
>               if dispans & isnewans(texmacsanswer)
>                       tmdisp(texmacsanswer);
>               endif
>               r=input(prompt,'s');
>       endwhile
> endfunction

> _______________________________________________
> Texmacs-dev mailing list
> address@hidden
> http://lists.gnu.org/mailman/listinfo/texmacs-dev