Merge pull request #1230 from gusthoff/topic/infrastructure/compile_blocks/20250607

Test script: integrating small fixes/improvements

Author: gusthoff

frontend/py_modules/code_projects/check_code_block.py

@@ -113,21 +113,21 @@ def cleanup_project(language, project_filename, main_file):
         #
         # Clean-up source-code examples after compilation
         #
-        if project_filename is not None:
+        if language == "ada":
+            if project_filename is not None:
 
-            try:
-                run("gprclean", "-P", project_filename)
-            except S.CalledProcessError as e:
-                out = str(e.output.decode("utf-8"))
-                print_error(loc, "Failed to clean-up example")
-                print(out)
-
-            try:
-                run("gnatprove", "-P", project_filename, "--clean")
-            except S.CalledProcessError as e:
-                out = str(e.output.decode("utf-8"))
+                try:
+                    run("gprclean", "-P", project_filename)
+                except S.CalledProcessError as e:
+                    out = str(e.output.decode("utf-8"))
+                    print_error(loc, "Failed to clean-up example")
+                    print(out)
 
-        if language == "c":
+                try:
+                    run("gnatprove", "-P", project_filename, "--clean")
+                except S.CalledProcessError as e:
+                    out = str(e.output.decode("utf-8"))
+        elif language == "c":
             try:
                 cmd = ["rm", "-f"] + glob.glob('*.o') + glob.glob('*.gch')
                 if main_file is not None:
@@ -421,17 +421,14 @@ def cleanup_project(language, project_filename, main_file):
                 or 'ada-report-all' in block.classes:
                 extra_args = ["--report=all"]
 
-            line = None
-            if block.gnatprove_version[1].startswith("14"):
-                line = ["gnatprove", "-P", block.spark_project_filename,
-                        "--checks-as-errors=on", "--level=0",
-                        "--function-sandboxing=off", "--output=oneline"]
-            elif block.gnatprove_version[1].startswith("12"):
+            # Default switches for GNATprove 14 and above
+            line = ["gnatprove", "-P", block.spark_project_filename,
+                    "--checks-as-errors=on", "--level=0",
+                    "--function-sandboxing=off", "--output=oneline"]
+            if block.gnatprove_version[1].startswith("12"):
                 line = ["gnatprove", "-P", block.spark_project_filename,
                         "--checks-as-errors", "--level=0",
                         "--no-axiom-guard", "--output=oneline"]
-            else:
-                prove_error = True
 
             line.extend(extra_args)
 

frontend/py_modules/code_projects/extract_projects.py

@@ -365,7 +365,8 @@ def get_main_filename(block):
 
                 if block.language == "ada":
 
-                    block.project_main_file = get_main_filename(block)
+                    if block.run_it:
+                        block.project_main_file = get_main_filename(block)
                     block.spark_project_filename = write_project_file(block.project_main_file,
                                                                       block.compiler_switches,
                                                                       spark_mode=True)