chore: alle .dbg-Ausgaben standardmaessig aus

*dbg-active* nil, alle vorregistrierten Debug-Schalter auf 0.

Co-Authored-By: Claude Opus 5.5 <noreply@anthropic.com>
This commit is contained in:
Michael StanglandClaude Opus 5.5 committed 2026-11-02 16:43:07 +01:00
1 parent 6a875cc8a0
commit 2bd6ca0243
2 files changed
+21 -20

No files matched your search

+7 -6
View File
@@ -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`/
+14 -14
View File
@@ -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)