Changeset 232 for branches/xpascal/Generators

Timestamp:

Jun 26, 2023, 12:51:06 PM (17 months ago)

Author:

chronos

Message:

• Fixed: Generation of var function parameters.

Location:

branches/xpascal/Generators

Files:

• GeneratorPhp.pas (modified) (2 diffs)
• GeneratorXml.pas (modified) (2 diffs)

branches/xpascal/Generators/GeneratorPhp.pas

@@ -231 +231 @@
   AddText('function ' + FunctionDef.Name + '(');
   for I := 0 to FunctionDef.Params.Count - 1 do begin
+    if FunctionDef.Params[I].Kind = pkVar then
+      AddText('&');
     AddText('$' + TFunctionParameter(FunctionDef.Params[I]).Name);
     if I > 0 then AddText(', ');
@@ -240 +242 @@
     if FunctionDef.InternalName = 'WriteLn' then AddTextLine('echo($Text."\n");')
     else if FunctionDef.InternalName = 'Write' then AddTextLine('echo($Text);')
+    else if FunctionDef.InternalName = 'ReadLn' then AddTextLine('$Text = readline();')
+    else if FunctionDef.InternalName = 'Read' then AddTextLine('$Text = readline();')
     else if FunctionDef.InternalName = 'IntToStr' then AddTextLine('return $Value;')
     else if FunctionDef.InternalName = 'StrToInt' then AddTextLine('return $Value;')

branches/xpascal/Generators/GeneratorXml.pas

@@ -42 +42 @@
   Field: TField;
   Obj: TObject;
+  List: TSourceNodeList<TSourceNode>;
 begin
-  if SourceNode = nil then begin
-  end else
-  if SourceNode is TSourceNodeList<TSourceNode> then begin
-    GenerateNodes(TSourceNodeList<TSourceNode>(SourceNode))
-  end else
   if SourceNode is TSourceNode then begin
     AddTextLine('<' + SourceNode.ClassName + '>');
@@ -57 +53 @@
         if Obj is TSourceNode then
           GenerateNode(TSourceNode(Obj));
+      end else
+      if Field.DataType = dtList then begin
+        SourceNode.GetValue(I, List);
+        GenerateNodes(List);
       end else
       if Field.DataType = dtString then begin