;; ============================================================
;; SSG_LOAD.LSP - Laderoutine fuer die SSG-Standardbibliotheken
;;
;; Laedt alle SSG-Kernbibliotheken in der richtigen Reihenfolge.
;; In acad.lsp oder manuell aufrufen:
;;   (load "pfad/ssg_load.lsp")
;;
;; Alternativ nur einzelne Bibliotheken laden:
;;   (load "pfad/ssg_core.lsp")
;;   (load "pfad/ssg_layer.lsp")
;;   (load "pfad/ssg_dialog.lsp")
;; ============================================================

(defun ssg-load-libs (/ base-path found)
  ;; Pfad ermitteln: 1) DXFM_LISP, 2) findfile, 3) DWGPREFIX
  (setq base-path
    (cond
      ((getenv "DXFM_LISP")
       (strcat (vl-string-translate "\\" "/" (getenv "DXFM_LISP")) "/"))
      ((setq found (findfile "ssg_core.lsp"))
       (substr found 1 (- (strlen found) (strlen "ssg_core.lsp"))))
      (t (getvar "DWGPREFIX"))
    )
  )
  (load (strcat base-path "ssg_core.lsp")   "ssg_core.lsp nicht gefunden")
  (ssg-load-config)
  (load (strcat base-path "ssg_dbg.lsp")    "ssg_dbg.lsp nicht gefunden")
  (load (strcat base-path "ssg_dialog.lsp") "ssg_dialog.lsp nicht gefunden")
  (load (strcat base-path "ssg_layer.lsp")  "ssg_layer.lsp nicht gefunden")
  (load (strcat base-path "KreiselInsert.lsp")    "KreiselInsert.lsp nicht gefunden")
  (load (strcat base-path "VarioFoerderer.lsp")   "VarioFoerderer.lsp nicht gefunden")
  (load (strcat base-path "Gefaellestrecke.lsp")  "Gefaellestrecke.lsp nicht gefunden")
  (load (strcat base-path "export.lsp")           "export.lsp nicht gefunden")
  (load (strcat base-path "tests.lsp")            "tests.lsp nicht gefunden")
  (load (strcat base-path "OmniModulInsert.lsp")  "OmniModulInsert.lsp nicht gefunden")
  (load (strcat base-path "SSG_LIB_Commands.lsp")  "SSG_LIB_Commands.lsp nicht gefunden")
  (prompt "\nSSG-Bibliotheken geladen: ssg_core, ssg_dbg, ssg_dialog, ssg_layer, KreiselInsert, VarioFoerderer, Gefaellestrecke, export, tests, OmniModulInsert, SSG_LIB_Commands")
  (princ)
)

(ssg-load-libs)