Re: Slang performance of jed

[Joerg Sommer <joerg@xxxxxxxxxxxx>]

begin  "John E. Davis" <davis@xxxxxxxxxxxxx> wrote:
> Joerg Sommer <joerg@xxxxxxxxxxxx> wrote:
>>it looks like there going something wrong in jed.

$ cat perf.sl
define perf(loops, before, test)
{
   variable msg="";
   
   variable i;
   for (i=0; i < length(test); ++i) {
      eval(before);
      
      sprintf("loop ( %d ) %s", loops, test[i]);
      
      tic();
      eval( () );
      toc();
   
      msg += string(()) + ", ";
   }

   message(msg);
}

perf( int(1e6), "$2 = 0", ["!if($2)", "if ($2 != 0)"]);

$ jed --script perf.sl
0.92, 1.81,
$ jed perf.sl -f evalbuffer
0.92, 1.81,
$ xjed --script perf.sl 
0.92, 1.81, 
$ xjed perf.sl -f evalbuffer
6.71, 5.8 

> # jed --version
> jed version: 0.99.17-7/Unix
>  Compiled with GNU C 2.95
> S-Lang version: 1.4.9

At me, its 1.4.5. But Debian doesn't provide a newer one.

Joerg.

--------------------------
To unsubscribe send email to <jed-users-request@xxxxxxxxxxx> with
the word "unsubscribe" in the message body.
Need help? Email <jed-users-owner@xxxxxxxxxxx>.