Changeset 230 for branches/xpascal/Generators/GeneratorCSharp.pas

Timestamp:

Jun 26, 2023, 12:08:45 PM (11 months ago)

Author:

chronos

Message:

• Added: Var function parameters support.
• Added: Read and ReadLn procedures support.
• Added: Interpreter now prints into console form.

File:

• branches/xpascal/Generators/GeneratorCSharp.pas (modified) (4 diffs)

branches/xpascal/Generators/GeneratorCSharp.pas

@@ -129 +129 @@
   if FunctionCall.Params.Count > 0 then begin
     AddText('(');
-    for I := 0 to FunctionCall.Params.Count - 1 do
+    for I := 0 to FunctionCall.Params.Count - 1 do begin
+      if FunctionCall.FunctionDef.Params[I].Kind = pkVar then
+        AddText('ref ');
       GenerateExpression(Block, TExpression(FunctionCall.Params[I]));
+    end;
     AddText(')');
   end;
@@ -297 +300 @@
 var
   I: Integer;
+  Param: TFunctionParameter;
 begin
   GenerateTypeRef(FunctionDef.ResultType);
   AddText(' ' + FunctionDef.Name + '(');
   for I := 0 to FunctionDef.Params.Count - 1 do begin
-    GenerateTypeRef(TFunctionParameter(FunctionDef.Params[I]).TypeRef);
+    Param := TFunctionParameter(FunctionDef.Params[I]);
+    if Param.Kind = pkVar then AddText('ref ');
+    GenerateTypeRef(Param.TypeRef);
     AddText(' ');
-    AddText(TFunctionParameter(FunctionDef.Params[I]).Name);
+    AddText(Param.Name);
     if I > 0 then AddText(', ');
   end;
@@ -312 +318 @@
     if FunctionDef.InternalName = 'WriteLn' then AddTextLine('Console.Write(Text + "\n");')
     else if FunctionDef.InternalName = 'Write' then AddTextLine('Console.Write(Text);')
+    else if FunctionDef.InternalName = 'ReadLn' then AddTextLine('Text = Console.ReadLine();')
+    else if FunctionDef.InternalName = 'Read' then AddTextLine('Text = Console.ReadLine();')
     else if FunctionDef.InternalName = 'IntToStr' then AddTextLine('return Value.ToString();')
     else if FunctionDef.InternalName = 'StrToInt' then begin
@@ -319 +327 @@
       AddTextLine('  return x;');
       AddTextLine('} else return 0;');
+    end
+    else if FunctionDef.InternalName = 'BoolToStr' then AddTextLine('return Value.ToString();')
+    else if FunctionDef.InternalName = 'StrToBool' then begin
+      AddTextLine('bool x = false;');
+      AddTextLine('if (bool.TryParse(Value, out x))');
+      AddTextLine('{');
+      AddTextLine('  return x;');
+      AddTextLine('} else return false;');
     end;