Реализован метод Clone синтаксических узлов

SyntaxTree/tree/TreeSubsidiary.cs

@@ -275,6 +275,15 @@ namespace PascalABCCompiler.SyntaxTree
                 this.FileName = left.FileName == right.FileName ? left.FileName : null;
         }
 
+        public SourceContext(SourceContext sc)
+        {
+            _begin_position = new file_position(sc._begin_position.line_num, sc._begin_position.column_num);
+            _end_position = new file_position(sc._end_position.line_num, sc.end_position.column_num);
+            _begin_symbol_position = sc._begin_symbol_position;
+            _end_symbol_position = sc._end_symbol_position;
+            _file_name = sc._file_name;
+        }
+
         public SourceContext Merge(SourceContext right)
         {
             return new SourceContext(this, right);

Utils/NodesGeneratorNew/NodeGenerator.cs

@@ -765,6 +765,16 @@ namespace NodeGenerator
         }
         //\ssyy
 
+        /// <summary>
+        /// Генерирует код, копирующий значение поля в заданную переменную 
+        /// </summary>
+        /// <returns></returns>
+        public virtual string generate_clone_code(string destination, string indent)
+        {
+            string cast = field_type_name == text_consts.base_tree_node_name ? "" : "(" + field_type_name + ")";
+            return indent + $"{destination} = {cast}{field_name}.Clone();";
+        }
+
 	}
     //miks 31.05.10
     [Serializable]
@@ -895,7 +905,24 @@ namespace NodeGenerator
 				_create_var=value;
 			}
 		}
-	}
+
+        public override string generate_clone_code(string destination, string indent)
+        {
+            if (field_type_name == "SourceContext")
+                return indent + $"{destination} = new SourceContext(source_context);";
+            else
+            if (list_type != "")
+            {
+                string cast = list_type == text_consts.base_tree_node_name ? "" : "(" + list_type + ")";
+                return
+                    indent + $"foreach ({list_type} elem in {field_name})" + Environment.NewLine 
+                    + indent + '\t' +
+                    $"{destination}.Add({cast}elem.Clone());";
+            }
+            else
+                return indent + $"{destination} = {field_name};";
+        }
+    }
 
 
 	[Serializable]
@@ -1013,7 +1040,7 @@ namespace NodeGenerator
             return subnode.field_type_name + text_consts.space + subnode.field_code_name;
         }
 
-        public List<node_field_info> collect_subnodes(bool WithBaseClasses = false)
+        public List<node_field_info> collect_subnodes(bool WithBaseClasses = false, bool ignoreSyntaxTreeNode = true, bool ignoreDeclaration = true)
         {
             var ni = this;
             var l = new List<node_field_info>();
@@ -1023,7 +1050,8 @@ namespace NodeGenerator
                 while (ni.base_class != null)
                 {
                     ni = ni.base_class;
-                    if (ni.node_name.Equals("syntax_tree_node") || ni.node_name.Equals("declaration"))
+                    if (ignoreSyntaxTreeNode && ni.node_name.Equals("syntax_tree_node") ||
+                        ignoreDeclaration && ni.node_name.Equals("declaration"))
                         break;
                     ll.Clear();
                     ll.AddRange(ni.subnodes);
@@ -3186,6 +3214,33 @@ namespace NodeGenerator
 
         // !Генерация кода для узлов, содержащих список
 
+
+        /// <summary>
+        /// Генерирует метод глубокого клонирования узла
+        /// </summary>
+        /// <param name="sw"></param>
+        private void generate_clone_method(StreamWriter sw)
+        {
+            List<node_field_info> allFields = collect_subnodes(
+                WithBaseClasses: true, 
+                ignoreSyntaxTreeNode: false,
+                ignoreDeclaration: false);
+            string tab2 = text_consts.tab2;
+            string tab3 = text_consts.tab3;
+
+            string inheritModifier = node_name == "syntax_tree_node" ? "virtual" : "override";
+            sw.WriteLine(tab2 + $"public {inheritModifier} syntax_tree_node Clone()");
+            sw.WriteLine(tab2 + '{');
+
+            sw.WriteLine(tab3 + $"{node_name} copy = new {node_name}();");
+
+            foreach (var field in allFields)
+                sw.WriteLine(field.generate_clone_code("copy." + field.field_name, tab3));
+
+            sw.WriteLine(tab3 + "return copy;");
+            sw.WriteLine(tab2 + '}');
+        }
+
         public void generate_code(StreamWriter sw,HelpStorage hst)
 		{
 			//sw.WriteLine();
@@ -3258,6 +3313,9 @@ namespace NodeGenerator
 
             generate_list_methods(sw);
 
+            generate_clone_method(sw);
+            sw.WriteLine();
+
             generate_subnodes_number_property(sw);
             generate_indexer(sw);
 

Utils/NodesGeneratorNew/NodesGenerator_old/obj/Debug/NodesGenerator_old.csproj.FileListAbsolute.txt

@@ -37,3 +37,16 @@ D:\PascalABC.NET\!PABC_Git\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\
 D:\PascalABC.NET\!PABC_Git\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator_old.csproj.GenerateResource.Cache
 D:\PascalABC.NET\!PABC_Git\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator.exe
 D:\PascalABC.NET\!PABC_Git\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator.pdb
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\bin\Debug\NodesGenerator.exe.config
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\bin\Debug\NodesGenerator.exe
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\bin\Debug\NodesGenerator.pdb
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator_old.csprojResolveAssemblyReference.cache
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator.Form1.resources
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator.method_editor.resources
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator.node_def.resources
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator.simple_node_editor.resources
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator.subnode_editor.resources
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator.template_form.resources
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator_old.csproj.GenerateResource.Cache
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator.exe
+G:\MMCS\Programming\PABC.NET_GitRepo\Utils\NodesGeneratorNew\NodesGenerator_old\obj\Debug\NodesGenerator.pdb