22 lines
836 B
Plaintext
22 lines
836 B
Plaintext
;; ============================================================
|
|
;; VarioFoerderer.lsp — Kompatiblitaets-Wrapper
|
|
;; Laedt vf_core.lsp (Plugin-Dispatcher-Architektur)
|
|
;; ============================================================
|
|
;; vf_core.lsp laden: 1) DXFM_LISP, 2) *ssg-lisp-pfad* (vom MNL gesetzt), 3) findfile
|
|
(setq *vf-core-datei*
|
|
(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 "\n[VarioFoerderer] WARNUNG: vf_core.lsp nicht gefunden - Befehle nicht verfuegbar.")
|
|
)
|