927dfd8db5
o Fix hanging problems. o Update Italian patch. o Remove DocBook 3.0 patch and dependency. Submitted by: Alex Dupre <sysadmin@alexdupre.com> PR: ports/50030
49 lines
2 KiB
Text
49 lines
2 KiB
Text
--- print/dbverb.dsl.orig Sat Mar 15 18:06:31 2003
|
|
+++ print/dbverb.dsl Sat Mar 15 18:07:18 2003
|
|
@@ -94,36 +94,9 @@
|
|
(process-children)))))
|
|
|
|
(define ($linespecific-line-by-line$ indent line-numbers?)
|
|
- (let ((expanded-content
|
|
- ;; this is the content with
|
|
- ;; inlinemediaobject/imageobject[@format='linespecific']
|
|
- ;; expanded
|
|
- (let loop ((kl (children (current-node))) (rl (empty-node-list)))
|
|
- (if (node-list-empty? kl)
|
|
- rl
|
|
- (if (equal? (gi (node-list-first kl))
|
|
- (normalize "inlinemediaobject"))
|
|
- (let* ((imgobj (node-list-filter-by-gi
|
|
- (children (node-list-first kl))
|
|
- (list (normalize "imageobject"))))
|
|
- (datobj (node-list-filter-by-gi
|
|
- (children imgobj)
|
|
- (list (normalize "imagedata")))))
|
|
- (if (and (not (node-list-empty? imgobj))
|
|
- (not (node-list-empty? datobj))
|
|
- (equal? (attribute-string (normalize "format") datobj)
|
|
- (normalize "linespecific")))
|
|
- (loop (node-list-rest kl)
|
|
- (node-list rl (string->nodes (include-characters
|
|
- (if (attribute-string (normalize "fileref") datobj)
|
|
- (attribute-string (normalize "fileref") datobj)
|
|
- (entity-generated-system-id (attribute-string (normalize "entityref") datobj)))))))
|
|
- (loop (node-list-rest kl)
|
|
- (node-list rl (node-list-first kl)))))
|
|
- (loop (node-list-rest kl) (node-list rl (node-list-first kl))))))))
|
|
(make sequence
|
|
($line-start$ indent line-numbers? 1)
|
|
- (let loop ((kl expanded-content)
|
|
+ (let loop ((kl (children (current-node)))
|
|
(linecount 1)
|
|
(res (empty-sosofo)))
|
|
(if (node-list-empty? kl)
|
|
@@ -141,7 +114,7 @@
|
|
(process-node-list c)
|
|
($line-start$ indent line-numbers?
|
|
(+ linecount 1)))
|
|
- (sosofo-append res (process-node-list c))))))))))
|
|
+ (sosofo-append res (process-node-list c)))))))))
|
|
|
|
(define ($verbatim-display$ indent line-numbers?)
|
|
(let* ((width-in-chars (if (attribute-string (normalize "width"))
|