; ----------------------------------------------------------------------------------------
; Structure Browser ADD ON
; Copyright der_Wolfgang@Forum@Cad.de 					    06.sep.2007
;  enhance the info printed with WRITE tree function inside the structure browser
;   in this case a CVS format is choosen to import the contents into a spreadsheet
; OSD V14.xx and newer (tested up to V15.50)
;   fixed for configurations, 26mar2010, der_Wolfgang@Forum@Cad.de
;modified for customized use
; ----------------------------------------------------------------------------------------

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

(defun cvs-print-tree (node name)
  (declare (ignore name))
  (let* ((objname (BrowserNode-objPname node))
        (path (BrowserNode-objPath node))  
        (obj (oli:sd-pathname-to-obj path))
        )
    (cond
     ((sd-string= "/" (BrowserNode-objPath node))
       ",Name,Pfad,ModellName,CSID,OSID"  ;; == CSV header line
	   )
    (obj	  
         (format nil ",~A,~A,~A,~A,~A"
                 objname path
                 (or (sd-inq-obj-contents-name obj) "(model name missing)")
                 (sd-inq-obj-contents-sysid obj) (sd-inq-obj-sysid obj)))
    (T ;;otherwise	  
        (format nil ",~A,~A,~A,~A,~A"
                 objname path
                 "(unknonw object)"
                 0 0))
      ) ;;end cond
    )
  )

(sd-browser-add-interrogator "parcel-gbrowser"
                             :interrogator-type :tree-print-name
                             :interrogator-func 'cvs-print-tree)