VF-Linienzug: Modus 2 loggen, Debug-Default auf AN, GF-Hoehenvorschlag-Bug behoben
Debug-Logging (Schalter vfl-modus1/2/3) ist jetzt standardmaessig AN statt AUS, damit nicht vor jeder Session manuell eingeschaltet werden muss. Modus 2 (vf-linienzug-modus2) war bisher nicht instrumentiert - Session-Open/Close und *error*-Handling analog Modus 1/3 ergaenzt; da Modus 2 durchgehend die vfl-in-*-Wrapper nutzt, wird das Eingabe-Logging automatisch ueber den vorhandenen vfl-journal-record-Hook mitgezogen. Bugfix: Der Hoehen-Vorschlag im GF-Zielhoehe-Dialog (Wizard + Konsole) war schlicht die unveraenderte Ist-Hoehe der Kette. Direkt uebernommen ergab das deltaH=0, was als "Auf" statt "Ab" gewertet und immer mit "kann nicht steigen" abgelehnt wurde - der Default war also nie baubar. Neue Hilfs- funktion vfl-gf-hoehe-vorschlag rundet auf volle mm ab und zieht bei bereits ganzzahligen Werten zusaetzlich 1mm ab, damit der Vorschlag garantiert unterhalb der Ist-Hoehe liegt. Ausserdem: unnoetige Anfuehrungszeichen aus den zugehoerigen Fehlermeldungen (de/en) entfernt. Co-Authored-By: Claude Sonnet 5 <noreply@anthropic.com>
This commit is contained in:
+11
-8
@@ -38,10 +38,11 @@
|
||||
;; ZENTRALE DEBUG-SCHALTER-SAMMLUNG
|
||||
;;
|
||||
;; Jedes Feature/jede Routine hat ihren eigenen Schalter (Symbol -> 0/1).
|
||||
;; DEFAULT: alle AUS (0). Dadurch bleiben (dbg-schalter-openp "name" ...)-
|
||||
;; Aufrufe im Code stehen, ohne dass beim normalen Arbeiten .dbg-Dateien
|
||||
;; entstehen. Erst wenn der passende Schalter auf 1 gesetzt wird, wird die
|
||||
;; Datei angelegt und beschrieben.
|
||||
;; 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.
|
||||
;;
|
||||
;; (dbg-schalter-on "vfl-modus3") ; Schalter einschalten (1)
|
||||
;; (dbg-schalter-off "vfl-modus3") ; Schalter ausschalten (0)
|
||||
@@ -53,11 +54,13 @@
|
||||
;; ------------------------------------------------------------
|
||||
(if (not (boundp '*dbg-schalter*)) (setq *dbg-schalter* nil))
|
||||
|
||||
;; Bekannte Schalter mit Default 0 vorregistrieren (rein informativ fuer
|
||||
;; dbg-schalter-liste; unbekannte Namen gelten ebenfalls als 0/aus).
|
||||
(foreach nm '("vfl-modus1" "vfl-modus3")
|
||||
;; 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.
|
||||
(foreach nm '("vfl-modus1" "vfl-modus2" "vfl-modus3")
|
||||
(if (not (assoc nm *dbg-schalter*))
|
||||
(setq *dbg-schalter* (cons (cons nm 0) *dbg-schalter*))))
|
||||
(setq *dbg-schalter* (cons (cons nm 1) *dbg-schalter*))))
|
||||
|
||||
(defun dbg-schalter-set (name wert)
|
||||
(setq *dbg-schalter*
|
||||
|
||||
Reference in New Issue
Block a user