diff options
Diffstat (limited to 'textproc/dsssl-docbook-modular/files/patch-print__dbverb.dsl')
| -rw-r--r-- | textproc/dsssl-docbook-modular/files/patch-print__dbverb.dsl | 49 |
1 files changed, 49 insertions, 0 deletions
diff --git a/textproc/dsssl-docbook-modular/files/patch-print__dbverb.dsl b/textproc/dsssl-docbook-modular/files/patch-print__dbverb.dsl new file mode 100644 index 000000000000..79aa222767b4 --- /dev/null +++ b/textproc/dsssl-docbook-modular/files/patch-print__dbverb.dsl @@ -0,0 +1,49 @@ +--- 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")) |