New dummy name function

Author: emilienlemaire

src/lsp/cobol_parser/grammar_utils.ml

@@ -95,11 +95,11 @@ let build_data_division = function
       in
       Some (rebuild_sections list empty_data_division &@ loc)
 
-let build_simple_program opts_par env_par datat_div proc_div =
-  Program {
+let build_simple_program opts_par env_div datat_div proc_div =
+  (Program {
     program_name =
-      (Name (Cobol_ptree.Dummies.dummy_name
-        ~pos:Lexing.dummy_pos)) &@ Cobol_common.Srcloc.dummy; (* TODO: Use filename *)
+      (Cobol_ptree.Dummies.dummy_name' ~pos:Lexing.dummy_pos) &@ Cobol_common.Srcloc.dummy;
+      (* TODO: Use filename *)
     program_as = None;
     program_level = ProgramDefinition {
       mode = None;
@@ -108,10 +108,10 @@ let build_simple_program opts_par env_par datat_div proc_div =
       supplementary_informational_paragraphs = [];
       nested_programs = []; };
     program_options = opts_par;
-    program_env = env_par;
+    program_env = env_div;
     program_data = (match datat_div with
       | Some dd -> build_data_division dd
       | None -> None);
     program_proc = Some proc_div;
     program_end_name = None;
-  }
+  })

src/lsp/cobol_ptree/pTree_dummies.ml

@@ -25,6 +25,8 @@ let dummy_string ~pos = alphanum__ &@ Cobol_common.Srcloc.raw (pos, pos)
 
 let dummy_name ~pos = dummy_string ~pos
 
+let dummy_name' ~pos : name_or_literal = Name (dummy_string ~pos)
+
 let dummy_qualname ~pos : qualname =
   Name (dummy_name ~pos)