m.stangl
9f5b30709a
Der 3-stufige Lisp-Pfad-cond (DXFM_LISP -> *ssg-lisp-pfad* -> nil) war 6-fach dupliziert. Neuer Helper ssg-lisp-verzeichnis/ssg-lisp-datei-pfad in ssg_core.lsp. - vf_core.lsp (Submodul-Loader): nutzt Helper direkt (ssg_core hier geladen) - vf_standard/vf_etage/vf_konstanten/VarioFoerderer: Helper mit Inline-Fallback (atoms-family-Guard), falls ssg_core beim isolierten Einzel-Laden fehlt - vf_core.lsp ssg_core-Bootstrap (Z.40): bleibt inline (laedt ssg_core erst) Reines Refactoring, identisches Verhalten. Paren-Balance geprueft. Co-Authored-By: Claude Opus 4.8 (1M context) <noreply@anthropic.com>
26 lines
1022 B
Plaintext
26 lines
1022 B
Plaintext
;; ============================================================
|
|
;; VarioFoerderer.lsp — Kompatiblitaets-Wrapper
|
|
;; Laedt vf_core.lsp (Plugin-Dispatcher-Architektur)
|
|
;; ============================================================
|
|
;; vf_core.lsp laden. Pfad zentral ueber ssg_core (ssg-lisp-datei-pfad), mit
|
|
;; Inline-Fallback (inkl. findfile) falls ssg_core hier noch nicht geladen ist.
|
|
(setq *vf-core-datei*
|
|
(if (car (atoms-family 1 '("SSG-LISP-DATEI-PFAD")))
|
|
(cond ((ssg-lisp-datei-pfad "vf_core.lsp"))
|
|
((findfile "vf_core.lsp")))
|
|
(cond
|
|
((getenv "DXFM_LISP")
|
|
(strcat (vl-string-translate "\\" "/" (getenv "DXFM_LISP")) "/vf_core.lsp"))
|
|
((and (boundp '*ssg-lisp-pfad*) *ssg-lisp-pfad*
|
|
(findfile (strcat *ssg-lisp-pfad* "/vf_core.lsp")))
|
|
(strcat *ssg-lisp-pfad* "/vf_core.lsp"))
|
|
((findfile "vf_core.lsp")
|
|
(findfile "vf_core.lsp"))
|
|
(t nil))
|
|
)
|
|
)
|
|
(if *vf-core-datei*
|
|
(load *vf-core-datei*)
|
|
(princ (ssg-text "vfstart-core-nicht-gefunden"))
|
|
)
|