From 2bd6ca02437d3b9409754bc130c8eb8313cb3bc2 Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Mon, 2 Nov 2026 16:43:07 +0100 Subject: [PATCH] chore: alle .dbg-Ausgaben standardmaessig aus *dbg-active* nil, alle vorregistrierten Debug-Schalter auf 0. Co-Authored-By: Claude Opus 5.5 --- Lisp/README.md | 13 +++++++------ Lisp/ssg_dbg.lsp | 28 ++++++++++++++-------------- 2 files changed, 21 insertions(+), 20 deletions(-) diff --git a/Lisp/README.md b/Lisp/README.md index 8a5d093..a2b8ac2 100644 --- a/Lisp/README.md +++ b/Lisp/README.md @@ -229,14 +229,15 @@ Beispiel: (dbgclose) ``` -#### Zentrale Debug-Schalter (default je nach Schalter) +#### Zentrale Debug-Schalter (Standard: alle aus) Damit `dbg*`-Aufrufe dauerhaft im Code stehen bleiben können, ohne im Normalbetrieb ungeplant `.dbg`-Dateien zu erzeugen, gibt es eine zentrale Schalter-Sammlung (`*dbg-schalter*`, Symbol → 0/1). Eine Routine öffnet ihre Debug-Datei nur, wenn ihr Schalter eingeschaltet ist. Unbekannte/neue Schalter -gelten implizit als 0/aus; die VF-Linienzug-Schalter unten sind bewusst mit -Default 1/an vorregistriert (siehe Tabelle). +gelten implizit als 0/aus. Seit 2026-11-02 stehen auch alle vorregistrierten +Schalter auf 0 und `*dbg-active*` auf `nil` - standardmaessig entsteht keine +`.dbg`-Datei; zum Debuggen `(dbgon)` bzw. `(dbg-schalter-on "name")`. | Funktion | Beschreibung | | --- | --- | @@ -250,9 +251,9 @@ Bekannte Schalter: | Schalter | Default | Modul | Loggt nach | | --- | --- | --- | --- | -| `"vfl-modus1"` | **AN (1)** | Linienzug Modus 1 (manuelle Eingabe, `vf-linienzug-modus`) | `DXFM_LOG/vfl_modus1.dbg` | -| `"vfl-modus2"` | **AN (1)** | Linienzug Modus 2 (3D-Objekte + Ziel-Höhe, `vf-linienzug-modus2`) | `DXFM_LOG/vfl_modus2.dbg` | -| `"vfl-modus3"` | **AN (1)** | Linienzug Modus 3 (Vorwärts-Nachbau, `vf-linienzug-modus3`) | `DXFM_LOG/vfl_modus3.dbg` | +| `"vfl-modus1"` | aus (0) | Linienzug Modus 1 (manuelle Eingabe, `vf-linienzug-modus`) | `DXFM_LOG/vfl_modus1.dbg` | +| `"vfl-modus2"` | aus (0) | Linienzug Modus 2 (3D-Objekte + Ziel-Höhe, `vf-linienzug-modus2`) | `DXFM_LOG/vfl_modus2.dbg` | +| `"vfl-modus3"` | aus (0) | Linienzug Modus 3 (Vorwärts-Nachbau, `vf-linienzug-modus3`) | `DXFM_LOG/vfl_modus3.dbg` | Alle drei Modi loggen automatisch **jede** interaktive Eingabe, weil sie durchgehend über die gemeinsamen Wrapper `vfl-in-point`/`-string`/`-real`/ diff --git a/Lisp/ssg_dbg.lsp b/Lisp/ssg_dbg.lsp index 70bb309..07f060e 100644 --- a/Lisp/ssg_dbg.lsp +++ b/Lisp/ssg_dbg.lsp @@ -31,7 +31,8 @@ ;; Globale Variablen (setq *dbg-path* nil) ; Voller Dateipfad (String) (setq *dbg-indent* 0) ; Aktuelle Einruecktiefe -(setq *dbg-active* T) ; Debug-Ausgabe aktiv (Standard: ein) +(setq *dbg-active* nil) ; Debug-Ausgabe aktiv (Standard: AUS - keine .dbg-Dateien; + ; einschalten mit (dbgon) bzw. einem Schalter unten) (setq *dbg-buffer* nil) ; Zeilenpuffer (Liste von Strings) ;; ------------------------------------------------------------ @@ -41,8 +42,8 @@ ;; Neue/unbekannte Schalter (die NICHT unten vorregistriert sind) gelten ;; implizit als AUS (0) - so bleiben (dbg-schalter-open "name" ...)-Aufrufe ;; im Code stehen, ohne dass beim normalen Arbeiten ungeplant .dbg-Dateien -;; entstehen. Die VF-Linienzug-Schalter unten sind bewusst mit Default 1 -;; (EIN) vorregistriert, siehe Kommentar dort. +;; entstehen. Seit 2026-11-02 stehen ALLE vorregistrierten Schalter auf 0 +;; und *dbg-active* auf nil: standardmaessig wird keine .dbg-Datei geschrieben. ;; ;; (dbg-schalter-on "vfl-modus3") ; Schalter einschalten (1) ;; (dbg-schalter-off "vfl-modus3") ; Schalter ausschalten (0) @@ -54,13 +55,11 @@ ;; ------------------------------------------------------------ (if (not (boundp '*dbg-schalter*)) (setq *dbg-schalter* nil)) -;; VF-Linienzug (Modus 1/2/3) Debug-Schalter, Default 1 (EIN): der Nutzer -;; will die Session + alle Eingaben durchgehend geloggt haben, ohne den -;; Schalter vor jedem Aufruf manuell einzuschalten. Bei Bedarf einzeln -;; abschaltbar: (dbg-schalter-off "vfl-modus1") usw. +;; VF-Linienzug (Modus 1/2/3) Debug-Schalter, Default 0 (AUS). Bei Bedarf +;; einzeln einschalten: (dbg-schalter-on "vfl-modus1") usw. (foreach nm '("vfl-modus1" "vfl-modus2" "vfl-modus3") (if (not (assoc nm *dbg-schalter*)) - (setq *dbg-schalter* (cons (cons nm 1) *dbg-schalter*)))) + (setq *dbg-schalter* (cons (cons nm 0) *dbg-schalter*)))) ;; ------------------------------------------------------------ ;; TEMPORAER - Diagnose "gespiegelte Sepliste-Koordinate" (lfdnr=2) @@ -98,8 +97,10 @@ ;; Zeilen je Test, siehe testrun:log in ;; tests/test_run_all.lsp. ;; ------------------------------------------------------------ -(foreach nm '(("vf-sepliste" . 1) ("csv_leave_proxies" . 0) ("kf-zeit" . 0) - ("testlauf" . 1)) +;; Alle .dbg-Schalter Standard 0 (2026-11-02). csv_leave_proxies ist kein +;; .dbg-Schalter, sondern steuert die Export-Hilfskopien. +(foreach nm '(("vf-sepliste" . 0) ("csv_leave_proxies" . 0) ("kf-zeit" . 0) + ("testlauf" . 0)) (if (not (assoc (car nm) *dbg-schalter*)) (setq *dbg-schalter* (cons nm *dbg-schalter*)))) @@ -204,11 +205,10 @@ ;; Wenn nil oder nicht gesetzt, wird "." verwendet. ;; ------------------------------------------------------------ (defun dbgopen (filename envvar / dir fullpath fh ts) + ;; Ohne Meldung: bei Standard "aus" wuerde jeder dbgopen-Aufruf sonst + ;; die Kommandozeile zuschreiben. (if (not *dbg-active*) - (progn - (prompt "\n[DBG] Debug deaktiviert - keine Datei angelegt.") - (princ) - ) + (princ) (progn ;; Verzeichnis bestimmen (setq dir nil)