mORMot Open Source

@mpv, SM45 - is released (https://developer.mozilla.org/en-US/doc … eleases/45)! I'd be glad to hear if you have any plans of wrapping it! Or maybe you've done a most of work already! I'm so excited to know!

How soon is it going to happen? A didn't found SM45 release date so far But the question is more about your work on the wrapper. How long might it take to wrap whole api of SM for Delphi? What about compatibility between current version and coming (based on SM45)? Are you going to provide the same api of wrapper?

I've found a solution for Lazarus crashes with Math.pow!

SynCommons, line 44185:

{ TSynFPUException }

function TSynFPUException._AddRef: {$ifdef FPC}longint{$else}integer{$endif};
begin
  if fRefCount=0 then begin
    fSaved8087 := Get8087CW;
    Set8087CW(fExpected8087); // set FPU exceptions mask
  end;
  inc(fRefCount);
  result := 1; // should never be 0 (mark release of TSynFPUException instance)
end;  

There is this code in mormot. I've found this article http://wiki.freepascal.org/Lazarus/FPC_Libraries I didn't read it completely but there is a line

Set8087CW(Get8087CW or $3f);

So.. I tried to change code to:

SynCommons, line 44185:

{ TSynFPUException }

function TSynFPUException._AddRef: {$ifdef FPC}longint{$else}integer{$endif};
begin
  if fRefCount=0 then begin
    fSaved8087 := Get8087CW or $3f;  
    Set8087CW(fExpected8087); // set FPU exceptions mask
  end;
  inc(fRefCount);
  result := 1; // should never be 0 (mark release of TSynFPUException instance)
end;  

And it's worked out. Now in my case Evaluate returns +Inf as I expected!
It would be great if you take a look at the article, because I'm not sure if this solve the problem completely and in a correct way.
The final solution might be something like

fSaved8087 := Get8087CW{$ifdef FPC} or $3f {$endif}; 

I'm back. Sorry for disappearing. I was wrong about the example - it works fine.

I faced a problem with big numbers:

Math.pow(99, 999);

this simple JS code leads to crash application.

In any other runtime (chrome, ff, node) it works fine and returns Infinity; Is it possible to avoid crashes in such cases?

Important note: this post is really helpful http://synopse.info/forum/viewtopic.php … 072#p10072
Without these changes even this code:

a = 0xFF000000

crashes app.

Also I tried to build mozjs-24.dll (it's really not much easy), and finally I've got binaries but wrong one. Could you please tell which flags did you use to build dll? Or any difference from https://developer.mozilla.org/en-US/doc … umentation It'll be useful for ones who decide to build their own binaries.

Are these http://synopse.info/forum/viewtopic.php … 201#p10201 RTTI features available already. An opportunity to write something like

var inst = new TMyClass();
inst.write('some arg');
inst.myProp;

- seems exiting for me.

Which RTTI features are implemented already?

I feel that I need more documentation First of all I'd like to see a list of provided features and the nearest plans to understand what can I do with mormot and what do I need to implement by myself.

Now I'm trying to migrate my little project from delphi-javascript. But mostly I'm explore features of mormot's spider monkey bindings. So may be I'll be able to contribute somehow.

@mvp

Is there an opportunity to pass TSMObject to a function and receive another TSMObject back.

Now I can see how to do something like this:

// pascal:

function js.test(const This: variant; const Args: array of variant): variant;
begin
    Result := Args[0] + Args[1];
end;    

...

Engine.RegisterMethod(Engine.GlobalObj, 'test', test, 2);

...

// js:

test(1, 2) // -> 3

It works fine so far. But I'd like to be able to work with objects. E.g.:

// pascal:

function js.test(const This: variant; const Args: array of variant): variant;
var
    obj, resObj: TSMObject;
    num1, num2, res: Integer;    
begin
    
    // get properties:
    obj := {some magic...} (Args[0]);
    num1 := obj.GetPropVariant('num1'); // not sure about syntax here
    num2 := obj.GetPropVariant('num2'); // not sure about syntax here

    // logic:
    res := num1 + num2;

    // set result:
    Engine.NewObject(resObj); 
    resObj.DefineProperty('result', res);
    Result := resObj;
end;    

...

Engine.RegisterMethod(Engine.GlobalObj, 'test', test, 2);

...

// js:

test({num1: 1, num2: 2}) // -> {result: 3}

And by the way is it possible to pass a callback to function? E.g.:

//js:
test(1, 2, function(res){console.log(res)})