blob: 79aa222767b46fcedf9383c6741a66662af9dfe6 (
plain) (
blame)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
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"))
|
