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
50
|
<!doctype style-sheet PUBLIC "-//James Clark//DTD DSSSL Style Sheet//EN">
<!-- Copyright (C) 1999 Avi Kivity -->
<![cdata[
(root
(test-flow-object-classes)
)
(define (test-flow-object-classes)
(make simple-page-sequence
(make paragraph (literal "A paragraph."))
(make side-by-side
side-by-side-overlap-control: 'none
(let loop
(
(n 1)
(max 3)
(result (empty-sosofo))
)
(if (> n max)
result
(loop
(+ n 1)
max
(sosofo-append
result
(make side-by-side-item
(make paragraph
(literal
"side-by-side-item #"
(format-number n "1")
)
)
)
)
)
)
)
)
(make paragraph (literal "A paragraph."))
)
)
;(declare-default-language (language "EN" "US"))
(define language
(external-procedure "UNREGISTERED::OpenJade//Procedure::language"))
]]>
|
