Phase 6: P-Code-Bibliotheken und Linker abschließen, Cross-Buildplan festhalten

crates/tb-vm/src/interp.rs

@@ -406,18 +406,7 @@ impl Vm {
             .next()
             .unwrap()
             .to_ascii_uppercase();
-        if !matches!(
-            name.as_str(),
-            "CMNDLGREGISTER"
-                | "CMNDLGCLOSE"
-                | "ABOUT"
-                | "FILEOPEN"
-                | "FILESAVE"
-                | "FILEPRINT"
-                | "FINDTEXT"
-                | "CHANGETEXT"
-                | "COLORPALETTE"
-        ) {
+        if !is_runtime_external(&name) {
             return Ok(false);
         }
         let args = self.stack[self.stack.len().saturating_sub(argc)..].to_vec();
@@ -3290,3 +3279,18 @@ fn strict_number(t: &str) -> Option<f64> {
     let cleaned = t.replace(['d', 'D'], "E").replace('e', "E");
     cleaned.parse::<f64>().ok()
 }
+
+pub(crate) fn is_runtime_external(name: &str) -> bool {
+    matches!(
+        name,
+        "CMNDLGREGISTER"
+            | "CMNDLGCLOSE"
+            | "ABOUT"
+            | "FILEOPEN"
+            | "FILESAVE"
+            | "FILEPRINT"
+            | "FINDTEXT"
+            | "CHANGETEXT"
+            | "COLORPALETTE"
+    )
+}