paweld/fpc
1
0
Fork 0
mirror of https://gitlab.com/freepascal.org/fpc/source.git synced 2025-04-21 11:29:24 +02:00
Code Issues Packages Projects Releases Wiki Activity

fcl-js: added TJSArrayLiteral.AddElement TJSNewMemberExpression.AddArg TJSCallExpression.AddArg

Browse Source 
git-svn-id: trunk@35789 -
This commit is contained in:
Mattias Gaertner 2017-04-14 15:48:09 +00:00
parent 3d16dfbc0b
commit 9f5906e115
1 changed files with 20 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

22
packages/fcl-js/src/jstree.pp
View File

@ -213,7 +213,7 @@ Type
FFindex: Integer;
Public
Destructor Destroy; override;
Property Expr : TJSelement Read FExpr Write FExpr;
Property Expr : TJSElement Read FExpr Write FExpr;
Property ElementIndex : Integer Read FFindex Write FFIndex;
end;
@ -234,6 +234,7 @@ Type
FElements: TJSArrayLiteralElements;
Public
Constructor Create(ALine,ARow : Integer; const ASource : String = ''); override;
procedure AddElement(El: TJSElement);
Destructor Destroy; override;
Property Elements : TJSArrayLiteralElements Read FElements;
end;
@ -292,6 +293,7 @@ Type
FArgs: TJSArguments;
Public
Destructor Destroy; override;
procedure AddArg(El: TJSElement);
Property Args : TJSArguments Read FArgs Write FArgs;
end;
@ -322,6 +324,7 @@ Type
FExpr: TJSElement;
Public
Destructor Destroy; override;
procedure AddArg(El: TJSElement);
Property Expr : TJSElement Read FExpr Write FExpr;
Property Args : TJSArguments Read FArgs Write FArgs;
end;
@ -1549,12 +1552,17 @@ end;
{ TJSArrayLiteral }
constructor TJSArrayLiteral.Create(ALine, ARow: Integer; Const ASource: String = '');
constructor TJSArrayLiteral.Create(ALine, ARow: Integer; const ASource: String);
begin
inherited Create(ALine, ARow, ASource);
FElements:=TJSArrayLiteralElements.Create(TJSArrayLiteralElement);
end;
procedure TJSArrayLiteral.AddElement(El: TJSElement);
begin
Elements.AddElement.Expr:=El;
end;
destructor TJSArrayLiteral.Destroy;
begin
FreeAndNil(FElements);
@ -1613,6 +1621,11 @@ begin
inherited Destroy;
end;
procedure TJSNewMemberExpression.AddArg(El: TJSElement);
begin
Args.Elements.AddElement.Expr:=El;
end;
{ TJSMemberExpression }
destructor TJSMemberExpression.Destroy;
@ -1630,6 +1643,11 @@ begin
inherited Destroy;
end;
procedure TJSCallExpression.AddArg(El: TJSElement);
begin
Args.Elements.AddElement.Expr:=El;
end;
{ TJSUnary }
Class function TJSUnary.PrefixOperatorToken: tjsToken;