From d0fe890d7c9a850ece7cf702705fa6839f451ea5 Mon Sep 17 00:00:00 2001 From: Michael Stangl Date: Fri, 18 Sep 2026 22:13:33 +0200 Subject: [PATCH] Start-Ausgabe entschlacken: per-Modul-Banner auf je eine Zeile kuerzen Der SSG_LIB-Start gab ~50 Zeilen aus (mehrzeilige >>> ...geladen <<<-Banner mit Befehlslisten/Block-Pfaden, ===-Trenner, Core-Modul-Auflistung, VarioFoerderer- Typenliste). Fuer einen einfachen _QNEW-Start zu viel Rauschen. Gekuerzt (nur die dicksten Bloecke, je Modul bleibt EINE knappe Zeile; Fehler/Warnungen ALLE unveraendert erhalten): - Kern-Module (ssg_core/dbg/dialog/layer/id): reine "X geladen"-Zeilen entfernt. - Feature-Module: KreiselInsert/Gefaellestrecke/VarioFoerderer je auf eine ">>> X geladen"-Zeile; Befehlslisten, Modus-/Typen-Aufzaehlungen, Block-Pfade und ===-Trenner raus. VF-Submodule (vf_konstanten/standard/etage/linienzug/ spec) Lade-Banner ganz entfernt (der Sammel-Header deckt sie ab). - SSG_LIB_Commands "Dummy-Befehle registriert" entfernt. - menu/SSG_LIB.mnl: ===-Trenner + Core-Auflistung raus; die doppelte "Einfuege-Modus 3D"-Zeile entfernt (S:STARTUP gibt sie ohnehin einmal aus). Behalten (informativ / diagnostisch): [CFG] Config geladen: N Sektionen, [LANG] N Texte geladen, alle FEHLER/WARNUNG-Zeilen, die Abschlusszeilen "Alle Module geladen. Menue aktiv." + "Einfuege-Modus: 3D". Reine Ausgabe-Reduktion, keine Logik geaendert. 243/243 LISP-Unit-Tests gruen; alle Module laden fehlerfrei (Klammerbalance gegen HEAD unveraendert). Co-Authored-By: Claude Opus 4.8 (1M context) --- Lisp/Gefaellestrecke.lsp | 8 +------- Lisp/KreiselInsert.lsp | 6 +----- Lisp/SSG_LIB_Commands.lsp | 2 +- Lisp/ssg_core.lsp | 1 - Lisp/ssg_dbg.lsp | 1 - Lisp/ssg_dialog.lsp | 1 - Lisp/ssg_id.lsp | 1 - Lisp/ssg_layer.lsp | 1 - Lisp/vf_core.lsp | 11 +---------- Lisp/vf_etage.lsp | 1 - Lisp/vf_konstanten.lsp | 2 +- Lisp/vf_linienzug.lsp | 1 - Lisp/vf_spec.lsp | 2 +- Lisp/vf_standard.lsp | 1 - menu/SSG_LIB.mnl | 11 ++--------- 15 files changed, 8 insertions(+), 42 deletions(-) diff --git a/Lisp/Gefaellestrecke.lsp b/Lisp/Gefaellestrecke.lsp index ba362cb..674607b 100644 --- a/Lisp/Gefaellestrecke.lsp +++ b/Lisp/Gefaellestrecke.lsp @@ -2094,11 +2094,5 @@ ;; ============================================================ ;; START ;; ============================================================ -(princ "\n>>> GEFAELLESTRECKE v2.0 geladen <<<") -(princ "\n>>> Befehl: Gefaellestrecke") -(princ "\n Modus 1: Manuelle Eingabe") -(princ "\n Modus 2: 3D-Linie") -(princ "\n Modus 3: Linienzug mit Gefaellebogen") -(if block-pfad (princ (strcat "\n Block-Pfad: " block-pfad))) -(princ "\n=========================================") +(princ "\n>>> Gefaellestrecke geladen") (princ) diff --git a/Lisp/KreiselInsert.lsp b/Lisp/KreiselInsert.lsp index b967ca5..266d687 100644 --- a/Lisp/KreiselInsert.lsp +++ b/Lisp/KreiselInsert.lsp @@ -1338,9 +1338,5 @@ (princ) ) -(princ "\n>>> KREISELINSERT v7.0 geladen <<<") -(princ "\n>>> Befehle: KreiselInsert, KreiselConnect, KreiselRedraw,") -(princ "\n KreiselEdit, KreiselQuick, KreiselParams, ILS_Eckrad") -(if *block-path* (princ (strcat "\n Block-Pfad: " *block-path*))) -(princ "\n=========================================") +(princ "\n>>> KreiselInsert geladen") (princ) diff --git a/Lisp/SSG_LIB_Commands.lsp b/Lisp/SSG_LIB_Commands.lsp index 870d10f..9b23e73 100644 --- a/Lisp/SSG_LIB_Commands.lsp +++ b/Lisp/SSG_LIB_Commands.lsp @@ -448,5 +448,5 @@ ) ) -(princ "\nSSG_LIB_Commands.lsp geladen - Dummy-Befehle registriert.") +(princ) (princ) diff --git a/Lisp/ssg_core.lsp b/Lisp/ssg_core.lsp index 2f6017c..4a265b1 100644 --- a/Lisp/ssg_core.lsp +++ b/Lisp/ssg_core.lsp @@ -1995,5 +1995,4 @@ ) -(prompt "\nssg_core.lsp geladen.") (princ) diff --git a/Lisp/ssg_dbg.lsp b/Lisp/ssg_dbg.lsp index fd4fc19..6876cd0 100644 --- a/Lisp/ssg_dbg.lsp +++ b/Lisp/ssg_dbg.lsp @@ -346,5 +346,4 @@ (princ) ) -(prompt "\nssg_dbg geladen.") (princ) diff --git a/Lisp/ssg_dialog.lsp b/Lisp/ssg_dialog.lsp index b3a6c78..1f0d7c5 100644 --- a/Lisp/ssg_dialog.lsp +++ b/Lisp/ssg_dialog.lsp @@ -161,5 +161,4 @@ ;; ------------------------------------------------------------ -(prompt "\nssg_dialog.lsp geladen.") (princ) diff --git a/Lisp/ssg_id.lsp b/Lisp/ssg_id.lsp index 65a3e76..76dbee3 100644 --- a/Lisp/ssg_id.lsp +++ b/Lisp/ssg_id.lsp @@ -314,5 +314,4 @@ (princ) ) -(princ "\n[SSG_ID] Geladen.") (princ) diff --git a/Lisp/ssg_layer.lsp b/Lisp/ssg_layer.lsp index a3cffad..968d354 100644 --- a/Lisp/ssg_layer.lsp +++ b/Lisp/ssg_layer.lsp @@ -311,5 +311,4 @@ ) -(prompt "\nssg_layer.lsp geladen.") (princ) diff --git a/Lisp/vf_core.lsp b/Lisp/vf_core.lsp index 7bdc3d6..38138ed 100644 --- a/Lisp/vf_core.lsp +++ b/Lisp/vf_core.lsp @@ -1095,7 +1095,7 @@ ;; Guard: Untermodule nur beim ersten Laden von vf_core.lsp ausfuehren. (if (not *ssg-vf-submodule-loaded*) (progn - (princ "\n>>> VARIOFOERDERER v26.0 geladen <<<") + (princ "\n>>> VarioFoerderer geladen") ;; Lisp-Pfad zentral ueber ssg_core (ssg_core ist hier bereits geladen). (setq *vf-lisp-pfad* (ssg-lisp-verzeichnis)) (if *vf-lisp-pfad* @@ -1589,13 +1589,4 @@ (setq *ssg-VarioFoerderer-loaded* t) (setq *ssg-EtageVarioFoerderer-loaded* t) -(princ "\n>>> Befehle: VarioFoerderer, Foerderanlage, EtageVarioFoerderer") -(princ "\n Typen:") -(setq *vf-typ-idx* 1) -(foreach eintr *vf-typ-registry* - (princ (strcat "\n " (itoa *vf-typ-idx*) ". " (car eintr) " - " (nth 3 eintr))) - (setq *vf-typ-idx* (1+ *vf-typ-idx*)) -) -(if block-pfad (princ (strcat "\n Block-Pfad: " block-pfad))) -(princ "\n=========================================") (princ) diff --git a/Lisp/vf_etage.lsp b/Lisp/vf_etage.lsp index ce6311b..8147fd4 100644 --- a/Lisp/vf_etage.lsp +++ b/Lisp/vf_etage.lsp @@ -778,5 +778,4 @@ 'etage-foerderanlage-einfuegen (ssg-text "vfc-typ-etage-beschreibung")) -(princ "\n>>> vf_etage.lsp geladen - Typ 'etage' registriert") (princ) diff --git a/Lisp/vf_konstanten.lsp b/Lisp/vf_konstanten.lsp index 52fbacc..52e0b13 100644 --- a/Lisp/vf_konstanten.lsp +++ b/Lisp/vf_konstanten.lsp @@ -296,5 +296,5 @@ (if (null *vfk-vf-laenge-max*) (setq *vfk-vf-laenge-max* 25000.0)) (setq *vfk-konstanten-geladen* t) -(princ "\nvf_konstanten geladen.") +(princ) (princ) diff --git a/Lisp/vf_linienzug.lsp b/Lisp/vf_linienzug.lsp index 0dc0449..4d11e93 100644 --- a/Lisp/vf_linienzug.lsp +++ b/Lisp/vf_linienzug.lsp @@ -10971,5 +10971,4 @@ 'vfl-einfuege-platzhalter (ssg-text "vfc-typ-linienzug-beschreibung")) -(princ "\n>>> vf_linienzug.lsp geladen - Typ 'linienzug' registriert") (princ) diff --git a/Lisp/vf_spec.lsp b/Lisp/vf_spec.lsp index 3015a07..67b48ec 100644 --- a/Lisp/vf_spec.lsp +++ b/Lisp/vf_spec.lsp @@ -1129,5 +1129,5 @@ (vsp-results-schreiben records ziel))) (princ)) -(princ "\n[vf_spec] geladen (VF_SPEC_BAU)") +(princ) (princ) diff --git a/Lisp/vf_standard.lsp b/Lisp/vf_standard.lsp index c524148..96825ab 100644 --- a/Lisp/vf_standard.lsp +++ b/Lisp/vf_standard.lsp @@ -1363,5 +1363,4 @@ 'variofoerderer-einfuegen (ssg-text "vfc-typ-standard-beschreibung")) -(princ "\n>>> vf_standard.lsp geladen - Typ 'standard' registriert") (princ) diff --git a/menu/SSG_LIB.mnl b/menu/SSG_LIB.mnl index 426d1d6..c899576 100644 --- a/menu/SSG_LIB.mnl +++ b/menu/SSG_LIB.mnl @@ -148,13 +148,6 @@ ;; UND VarioFoerderer genutzt) - MUSS vor beiden geladen sein. (ssg-ensure "ssg_ks_insert") - ;; Allgemein-Zusammenfassung - (princ "\n=========================================") - (princ "\n[SSG_LIB] Core-Module geladen:") - (princ "\n ssg_core, ssg_lang, ssg_dbg, ssg_dialog, ssg_layer, ssg_id, ssg_ks_insert") - (princ (strcat "\n Pfad: " *ssg-lisp-pfad*)) - (princ "\n=========================================") - ;; 2) Feature-Module in Anzeigereihenfolge (ssg-ensure "KreiselInsert") (ssg-ensure "Gefaellestrecke") @@ -175,9 +168,9 @@ ;; Hintergrund: AutoLISP-setenv schreibt in die BricsCAD-Profilregistry. ;; Ohne diesen Reset wuerde ein alter SSG_DIM_SWITCH-Wert aus der Vorsitzung ;; ueber setenv.bat gewinnen - unabhaengig davon, wie BricsCAD gestartet wurde. + ;; Die Modus-Meldung gibt S:STARTUP aus (einmal, nach allen Lade-Meldungen) - + ;; hier bewusst NICHT, um die Doppelausgabe zu vermeiden. (setenv "DXFM_DIM" "3D") - (princ (strcat "\n[SSG_LIB] Einfuege-Modus: 3D" - " (Umschalten global: SSG_DIM_SWITCH im Menue)")) ) (princ "\n[SSG_LIB] WARNUNG: DXFM_LISP nicht gesetzt - Befehle nicht verfuegbar.") )