.cfg Parser hinzu implementieren lassen. Spezifische Omniflo export routine die syncron in Lisp lief entfernt

2026-07-02 14:06:05 +02:00
parent f73f0c123a
commit f87260c605
7 changed files with 147 additions and 387 deletions
@@ -750,5 +750,85 @@
 )


+;; ============================================================
+;; INI-STYLE CONFIG-PARSER (Standard fuer alle cfg/*.cfg-Dateien)
+;;
+;; Format:
+;;   [Abschnitt]
+;;   Key = Wert                 (einzelner Wert)
+;;   Key = Wert1, Wert2, Wert3  (kommagetrennte Liste, z.B. fuer wcmatch)
+;;   # Kommentar / Leerzeile werden ignoriert
+;;
+;; Verwendung:
+;;   (setq cfg (ssg-load-ini pfad))
+;;   (ssg-ini-get  cfg "sektion" "key" "default")
+;;   (ssg-ini-list cfg "sektion" "key" "a,b,c")   ; normalisiert zu "a,b,c" (wcmatch-tauglich)
+;; ============================================================
+
+;; Zeilen einer .cfg-Datei in verschachtelte Alist parsen.
+;; Rueckgabe: (("sektion" ("key" . "wert") ...) ...)
+(defun ssg-ini-parse-lines (zeilen / ergebnis section sec-data trimmed pos key val)
+  (setq ergebnis nil  section nil  sec-data nil)
+  (foreach zeile zeilen
+    (setq trimmed (vl-string-trim " \t\r\n" zeile))
+    (cond
+      ;; Leerzeile oder Kommentar
+      ((or (= trimmed "") (= (substr trimmed 1 1) "#")) nil)
+      ;; Abschnitt: [name]
+      ((and (= (substr trimmed 1 1) "[")
+            (= (substr trimmed (strlen trimmed) 1) "]"))
+        (if section
+          (setq ergebnis (cons (cons section (reverse sec-data)) ergebnis)))
+        (setq section (substr trimmed 2 (- (strlen trimmed) 2)))
+        (setq sec-data nil)
+      )
+      ;; Key=Wert
+      ((and section (setq pos (vl-string-search "=" trimmed)))
+        (setq key (vl-string-trim " \t" (substr trimmed 1 pos)))
+        (setq val (vl-string-trim " \t" (substr trimmed (+ pos 2))))
+        (setq sec-data (cons (cons key val) sec-data))
+      )
+    )
+  )
+  (if section
+    (setq ergebnis (cons (cons section (reverse sec-data)) ergebnis)))
+  (reverse ergebnis)
+)
+
+;; .cfg-Datei laden und als verschachtelte Alist zurueckgeben, oder nil.
+(defun ssg-load-ini (cfg-datei / zeilen)
+  (setq zeilen (ssg-read-file-lines cfg-datei))
+  (if zeilen (ssg-ini-parse-lines zeilen))
+)
+
+;; Einzelwert aus geladener INI-Alist lesen, mit Fallback.
+;; ini-data = Rueckgabe von ssg-load-ini
+(defun ssg-ini-get (ini-data section key default / sec-data val)
+  (setq sec-data (cdr (assoc section ini-data)))
+  (setq val (if sec-data (cdr (assoc key sec-data))))
+  (if (and val (> (strlen val) 0)) val default)
+)
+
+;; Kommagetrennten Wert aus geladener INI-Alist lesen und normalisieren
+;; (Leerzeichen um Kommas entfernen, leere Teile verwerfen).
+;; default-str = Fallback als kommagetrennter String, falls Config/Key fehlt.
+;; Rueckgabe: kommagetrennter String, z.B. "KR_*,KREISEL_*" (wcmatch-tauglich)
+(defun ssg-ini-list (ini-data section key default-str / raw teile ergebnis item first)
+  (setq raw (ssg-ini-get ini-data section key default-str))
+  (setq teile (ssg-cfg-split-comma raw))
+  (setq ergebnis ""  first T)
+  (foreach item teile
+    (setq item (vl-string-trim " \t" item))
+    (if (> (strlen item) 0)
+      (progn
+        (setq ergebnis (if first item (strcat ergebnis "," item)))
+        (setq first nil)
+      )
+    )
+  )
+  ergebnis
+)
+
+
 (prompt "\nssg_core.lsp geladen.")
 (princ)