Re: system id of an entity (filename)

Karl Eichwalder <keichwa@xxxxxxx> writes:

<!DOCTYPE TEI.2 PUBLIC "-//TEI P4//DTD Main DTD Driver File//EN"
  "/usr/share/sgml/tei/dtd-4/tei2.dtd" [
<!ENTITY % TEI.XML "INCLUDE">
<!ENTITY % TEI.prose                    'INCLUDE'    >
<!-- ... -->
<!ENTITY % TEI.figures                  'INCLUDE'    >
<!NOTATION png PUBLIC
    '-//TEI//NOTATION IETF RFC2083 Portable Network Graphics//EN'>
<!ENTITY img1 SYSTEM  "image01.png" NDATA png>
]>
<TEI.2 lang="en">
<!-- ... -->
<p>
  <figure entity='img1'>
    <head>Canterbury Cathedral From the South.</head>
  </figure>
</p>
<!-- ... -->
</TEI.2>
>
> Transforming the document to HTML I need the filename of the image.

According to
http://www.biglist.com/lists/dssslist/archives/199907/msg00412.html I
tried this procedure:

(element figure
  (let* ((entref (attribute-string "entity"))
	 (fileref (if entref
		      (or (entity-system-id entref
					    (current-node))
			  (entity-generated-system-id entref
						      (current-node)))
		      (attribute-string "fileref"))))
    
    (make element gi: "img"
	  attributes: (list (list "src" (debug fileref)))
	  (process-children))))

openjade see the filename, but is isn't retrieved as a string:

openjade:bell.dsl:295:33:I: debug ""image01.png""
openjade:bell.dsl:295:33:I: debug "#f"
openjade:bell.dsl:295:15:E: invalid value for "attributes" characteristic

Why is it double quoted?

-- 
                                                         |      ,__o
                                                         |    _-\_<,
http://www.gnu.franken.de/ke/                            |   (*)/'(*)

<- Previous	Index	Next ->
	Thread	Re: [dssslist] Re: system id of an , Jany Quintard
	Date	Re: [dssslist] Re: system id of an , Jany Quintard
	Month

<-prev [Thread] next->	<-prev [Date] next->
Month Index \| List Home