Round 267: Ada ext, Fortran ext, COBOL ext, Pascal ext, Prolog ext (20 commands)

ober

f40d59ccb83b93ad8db3943a9a005964f7bb75d8

diff --git a/docs/jemacs-vs-emacs.md b/docs/jemacs-vs-emacs.md
index cf9c37b..e624fe7 100644
--- a/docs/jemacs-vs-emacs.md
+++ b/docs/jemacs-vs-emacs.md
@@ -4583,6 +4583,31 @@ No remaining Tier 1 gaps. All core editing, completion, and navigation features 
 | ebib-import-file | :orange_circle: | Import file into Ebib |
 | ebib-push-citation | :orange_circle: | Push Ebib citation to buffer |
 
+### Round 267 — Ada ext, Fortran ext, COBOL ext, Pascal ext, Prolog ext
+
+| Command | Status | Description |
+|---------|--------|-------------|
+| ada-compile | :orange_circle: | Compile Ada code |
+| ada-run | :orange_circle: | Run Ada program |
+| ada-check | :orange_circle: | Check Ada syntax |
+| ada-format | :orange_circle: | Format Ada code |
+| fortran-compile | :orange_circle: | Compile Fortran code |
+| fortran-run | :orange_circle: | Run Fortran program |
+| fortran-check | :orange_circle: | Check Fortran syntax |
+| fortran-indent-region | :orange_circle: | Indent Fortran region |
+| cobol-compile | :orange_circle: | Compile COBOL code |
+| cobol-run | :orange_circle: | Run COBOL program |
+| cobol-check | :orange_circle: | Check COBOL syntax |
+| cobol-format | :orange_circle: | Format COBOL code |
+| pascal-compile | :orange_circle: | Compile Pascal code |
+| pascal-run | :orange_circle: | Run Pascal program |
+| pascal-check | :orange_circle: | Check Pascal syntax |
+| pascal-indent | :orange_circle: | Indent Pascal code |
+| prolog-consult | :orange_circle: | Consult Prolog file |
+| prolog-run | :orange_circle: | Run Prolog query |
+| prolog-trace | :orange_circle: | Enable Prolog trace mode |
+| prolog-debug | :orange_circle: | Enable Prolog debug mode |
+
 ### Round 266 — Nim ext, Zig ext, Crystal ext, V lang ext, D lang ext
 
 | Command | Status | Description |
diff --git a/src/jerboa-emacs/editor-extra-final.ss b/src/jerboa-emacs/editor-extra-final.ss
index 477d662..0ea48c6 100644
--- a/src/jerboa-emacs/editor-extra-final.ss
+++ b/src/jerboa-emacs/editor-extra-final.ss
@@ -21303,4 +21303,46 @@
 
 (def (cmd-dlang-format app)
   (let* ((echo (app-state-echo app)))
-    (echo-message! echo "D: formatting code")))
\ No newline at end of file
+    (echo-message! echo "D: formatting code")))
+
+;;; Round 267 — COBOL ext, Pascal ext, Prolog ext (batch 2)
+
+(def (cmd-cobol-check app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "COBOL: checking syntax")))
+
+(def (cmd-cobol-format app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "COBOL: formatting code")))
+
+(def (cmd-pascal-compile app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Pascal: compiling")))
+
+(def (cmd-pascal-run app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Pascal: running program")))
+
+(def (cmd-pascal-check app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Pascal: checking syntax")))
+
+(def (cmd-pascal-indent app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Pascal: indenting code")))
+
+(def (cmd-prolog-consult app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Prolog: consulting file")))
+
+(def (cmd-prolog-run app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Prolog: running query")))
+
+(def (cmd-prolog-trace app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Prolog: enabling trace mode")))
+
+(def (cmd-prolog-debug app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Prolog: enabling debug mode")))
\ No newline at end of file
diff --git a/src/jerboa-emacs/editor-extra-modes.ss b/src/jerboa-emacs/editor-extra-modes.ss
index ba7a37b..fc14bcf 100644
--- a/src/jerboa-emacs/editor-extra-modes.ss
+++ b/src/jerboa-emacs/editor-extra-modes.ss
@@ -21928,3 +21928,45 @@
   (let* ((echo (app-state-echo app)))
     (echo-message! echo "Crystal: running specs")))
 
+;;; Round 267 — Ada ext, Fortran ext, COBOL ext, Pascal ext, Prolog ext (batch 1)
+
+(def (cmd-ada-compile app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Ada: compiling")))
+
+(def (cmd-ada-run app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Ada: running program")))
+
+(def (cmd-ada-check app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Ada: checking syntax")))
+
+(def (cmd-ada-format app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Ada: formatting code")))
+
+(def (cmd-fortran-compile app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Fortran: compiling")))
+
+(def (cmd-fortran-run app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Fortran: running program")))
+
+(def (cmd-fortran-check app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Fortran: checking syntax")))
+
+(def (cmd-fortran-indent-region app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "Fortran: indenting region")))
+
+(def (cmd-cobol-compile app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "COBOL: compiling")))
+
+(def (cmd-cobol-run app)
+  (let* ((echo (app-state-echo app)))
+    (echo-message! echo "COBOL: running program")))
+
diff --git a/src/jerboa-emacs/editor-extra-regs2.ss b/src/jerboa-emacs/editor-extra-regs2.ss
index 37c90ba..39a4b71 100644
--- a/src/jerboa-emacs/editor-extra-regs2.ss
+++ b/src/jerboa-emacs/editor-extra-regs2.ss
@@ -7024,4 +7024,25 @@
   (register-command! 'dlang-run cmd-dlang-run)
   (register-command! 'dlang-test cmd-dlang-test)
   (register-command! 'dlang-format cmd-dlang-format)
+  ;; Round 267
+  (register-command! 'ada-compile cmd-ada-compile)
+  (register-command! 'ada-run cmd-ada-run)
+  (register-command! 'ada-check cmd-ada-check)
+  (register-command! 'ada-format cmd-ada-format)
+  (register-command! 'fortran-compile cmd-fortran-compile)
+  (register-command! 'fortran-run cmd-fortran-run)
+  (register-command! 'fortran-check cmd-fortran-check)
+  (register-command! 'fortran-indent-region cmd-fortran-indent-region)
+  (register-command! 'cobol-compile cmd-cobol-compile)
+  (register-command! 'cobol-run cmd-cobol-run)
+  (register-command! 'cobol-check cmd-cobol-check)
+  (register-command! 'cobol-format cmd-cobol-format)
+  (register-command! 'pascal-compile cmd-pascal-compile)
+  (register-command! 'pascal-run cmd-pascal-run)
+  (register-command! 'pascal-check cmd-pascal-check)
+  (register-command! 'pascal-indent cmd-pascal-indent)
+  (register-command! 'prolog-consult cmd-prolog-consult)
+  (register-command! 'prolog-run cmd-prolog-run)
+  (register-command! 'prolog-trace cmd-prolog-trace)
+  (register-command! 'prolog-debug cmd-prolog-debug)
 )