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

Timestamp:

Jun 26, 2023, 6:08:23 PM (17 months ago)

Author:

chronos

Message:

• Added: Support for procedures.
• Added: Project pascal file can be opened from main menu. Last file name is remembered.
• Modified: Improved XML output of source structure.

File:

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

branches/xpascal/Generators/GeneratorCSharp.pas

@@ -227 +227 @@
 
 procedure TGeneratorCSharp.GenerateProgram(Block: TBlock; Prog: TProgram);
-begin
+var
+  MainClass: string;
+begin
+  if Prog.Name <> '' then MainClass := Prog.Name
+    else MainClass := 'App';
   AddTextLine('using System;');
   AddTextLine;
-  AddTextLine('public class ' + Prog.Name);
+  AddTextLine('public class ' + MainClass);
   AddTextLine('{');
   Indent := Indent + 1;
@@ -237 +241 @@
   AddTextLine('public static void Main()');
   AddTextLine('{');
-  AddTextLine('  ' + Prog.Name + ' app = new ' + Prog.Name + '();');
+  AddTextLine('  ' + MainClass + ' app = new ' + MainClass + '();');
   AddTextLine('  app.Entry();');
   AddTextLine('}');