;;-----------------------------------------------------------------------------
;;                                               for CoCreate OneSpace Designer
;;  Description:
;;    Demonstrations beispiel fuer *load-truename* 
;;    siehe : http://www.lispworks.com/documentation/HyperSpec/Body/v_ld_pns.htm
;;-----------------------------------------------------------------------------
;;
;;  Filename   : load_truename_example.lsp
;;                to be loaded from within <custdir>/ANNOTATION/am_customize
;;  Version    : 1.0
;;  Datum      : 02feb2010
;;  Author     : der_Wolfgang@forum@cad.de
;;  Download   : osd.cad.de (may be, later)
;;  SD-Version : nearly all!
;;
;;-----------------------------------------------------------------------------

(in-package :my-tools)
(use-package :oli)

;; schnell die Console einschalten, weil wie dort was ausgeben
;;  als Entwickler / Tools schreiberling sollte man aber eh mit -v starten!
(sd-show-console-window)

(pprint "Diese Datei wurde geladen wie folgt:")
(pprint *load-truename*)

(pprint "Der aktuelle Dateiname ist:")
(pprint (file-namestring *load-truename*))

(pprint "Das Verzeichnis aus dem diese Datei geladen wurde:")
(pprint (directory-namestring *load-truename*))


(pprint "als Anwendungsfall:")
(trace sd-create-image)
(sd-create-image "SchleifFreistich-1"
                 :filename (format nil "~ASchleifFreistich-1" (directory-namestring *load-truename*))
                 )
(untrace sd-create-image)                 



#|

;; ein echtes real live example..  nur als Kommentar!

(unless (fboundp 'oli::sd-am-pnt-equal-p)
  ;; load missing tool from same directory
  (load (format nil "~A/sd_am_pnt_equal_p" (directory-namestring *load-truename*)))
  )
;;--------------------------------------------------------------------------*

|#