[CrossPlatform generator] parameter qualifiers: var / out problem

Sabbiolina · 2014-08-26 19:54:59

Look at this:

server:
  ICalculator = interface(IInvokable)
    ['{9A60C8ED-CEB2-4E09-87D4-4A16F496E5FF}']
    function Add(n1,n2: integer): integer;
    function list(tag:string;var tagList:TTaglist):string;
  end;


generated:

type
  /// service implemented by TServiceCalculator
  // - you can access this service as such:
  // !var aCalculator: ICalculator;
  // !begin
  // !   aCalculator := TCalculator.Create(aClient);
  // !   // now you can use aCalculator methods
  // !...
  ICalculator = interface(IServiceAbstract)
    ['{9A60C8ED-CEB2-4E09-87D4-4A16F496E5FF}']
    function Add(const n1: integer; const n2: integer): integer;
    function list(const tag: string; var tagList: TTagList): string;
  end;

----------------

Change VAR in OUT and...

server:
  TServiceCalculator = class(TInterfacedObject, ICalculator)
  public
    function Add(n1,n2: integer): integer;
    function list(tag:string;out tagList:TTaglist):string;
  end;


generated
type
  /// service implemented by TServiceCalculator
  // - you can access this service as such:
  // !var aCalculator: ICalculator;
  // !begin
  // !   aCalculator := TCalculator.Create(aClient);
  // !   // now you can use aCalculator methods
  // !...
  ICalculator = interface(IServiceAbstract)
    ['{9A60C8ED-CEB2-4E09-87D4-4A16F496E5FF}']
    function Add(const n1: integer; const n2: integer): integer;
    function list(const tag: stringout tagList: TTagList): string; //<-------------------------------------- lost ;
  end;

tested with xe2 e xe6upd1

obviously adding ";" everything works

ab · 2014-08-27 17:24:18

Oups...

Should be fixed now by http://synopse.info/fossil/info/860cd1658b

Thanks for the report!

Sabbiolina · 2014-08-28 06:52:06

HI AB,
there is probably a problem of synchronization in the nightlyBuild.
the mormot.pas is out of date

http://synopse.info/fossil/artifact/946 … 3c1bfee2bb size: 1.652.524
in nightlyBuild size: 1.652.402

ab · 2014-08-28 07:07:25

I do not know what you are saying...
1.652.402 is the correct size: updated version is a bit shorter, as expected.
This http://synopse.info/fossil/info/18cb31c55f32 commit is correct.

Sabbiolina · 2014-08-28 07:36:45

Unfortunately, the result is the same:

    function list(const tag: stringout tagList: TTagList): string;

from:

  ICalculator = interface(IInvokable)
    ['{9A60C8ED-CEB2-4E09-87D4-4A16F496E5FF}']
    function Add(n1,n2: integer): integer;
    function list(tag:string;out tagList:TTaglist):string;
  end;

I send the project for testing in mail

ab · 2014-08-28 08:40:39

I suspect you did not update the .mustache files.

Sabbiolina · 2014-08-28 09:00:19

you are rigth

sorry

mORMot Open Source

#1 2014-08-26 19:54:59

[CrossPlatform generator] parameter qualifiers: var / out problem

#2 2014-08-27 17:24:18

Re: [CrossPlatform generator] parameter qualifiers: var / out problem

#3 2014-08-28 06:52:06

Re: [CrossPlatform generator] parameter qualifiers: var / out problem

#4 2014-08-28 07:07:25

Re: [CrossPlatform generator] parameter qualifiers: var / out problem

#5 2014-08-28 07:36:45

Re: [CrossPlatform generator] parameter qualifiers: var / out problem

#6 2014-08-28 08:40:39

Re: [CrossPlatform generator] parameter qualifiers: var / out problem

#7 2014-08-28 09:00:19

Re: [CrossPlatform generator] parameter qualifiers: var / out problem

Board footer