Phase 4: Ereignisschleife und klassische Traps

crates/tb-frontend/src/hir.rs

@@ -329,6 +329,8 @@ pub enum Builtin {
     CommandS,
     Doevents,
     Sleep,
+    /// `SetUEvent` — löst das benutzerdefinierte Ereignis aus (§8).
+    SetUEvent,
     Beep,
     // ISAM (Change `phase-3-isam`)
     IsamOpen,
@@ -537,6 +539,22 @@ pub enum HStmtKind {
         targets: Vec<LabelId>,
     },
     ReturnGosub(Option<LabelId>),
+    /// Ereignis-Trap erklären (Sprachreferenz §8). `art` ist die Quelle
+    /// (0 KEY, 1 TIMER, 2 UEVENT, 3 SIGNAL), `index` ihre Kennung bzw. bei
+    /// `TIMER` das Intervall in Sekunden. `ziel = None` = `GOSUB 0`.
+    TrapDef {
+        art: u8,
+        index: HExpr,
+        ziel: Option<LabelId>,
+    },
+    /// `<quelle>(n) ON|OFF|STOP` — `zustand` 0 An, 1 Aus, 2 Gestoppt.
+    TrapSet {
+        art: u8,
+        index: HExpr,
+        zustand: u8,
+    },
+    /// `EVENT ON` / `EVENT OFF`.
+    EventSwitch(bool),
     /// EXIT SUB/FUNCTION/DEF bzw. Rumpfende.
     ExitProc,
     CallSub {