How,what node-property returns SGML input fsi?

["Hennessy, Sean" <shennessy@xxxxxxxxxx>]

;======================================
;; How does one acquire the
;; SGML source document file name as
;; a string?
;; Where might one find the literature reference
;; detailing this item?
;; began with David Megginson's 
;;"Node Properties in Jade"
;; but unsure where to go from here..please point me in the
;; right direction...thanks.
;;======================================
(root
	(let* (	
		;;======================================
		;; Class SGMLDOC : sgml-document
		;;======================================
		( symSGMLDoc (node-property 'class-name (current-node)))
		;;======================================
		;;Class SGMLCSTS : sgml-constants 		 
		;; intrinsic properties?
		;; data-property-name ? not available..
		;;======================================
		( npSGMLContants (node-property 'sgml-constants
(current-node)))
		( symSGMLContants (node-property 'class-name
npSGMLContants))
		;;======================================
		( nlEntities (node-property "entities" (current-node)))

		;;======================================
		( tAppInfo (node-property 'application-info
(current-node) default: "noAppInfo"))
		);eoletgroup

	( make simple-page-sequence
		(make element gi: "SOURCESGMLDOC"
;;			(literal tszSourceDocFileName)
		(literal (symbol->string symSGMLContants))
		(literal ":")
		(literal (number->string nEntitiesCnt))
		(literal "]")
		);emelSRCDOC
	)
	)
)
;======================================
<!--
;; return the root's current-node
-->
;======================================
( define (retrootnode nl)
	(children (children (node-property 'docelem nl )))
)

;;EOT


 DSSSList info and archive:  http://www.mulberrytech.com/dsssl/dssslist