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
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
75
76
77
78
79
80
81
82
83
84
85
86
87
88
89
90
91
92
93
94
95
96
|
%%TABLE
/before_table_create {} def
/after_table_create{} def
%%%%%%TABLE ROW---------------------
/row_odd_or_even {
current_table_row odd? {odd_row}{even_row} ifelse
}def
/before_row_create 3 dict def before_row_create begin
/proc { } bind def
/except [ ] def
/only [ ] def
end
/odd_row 3 dict def odd_row begin
/proc { } bind def
/except [ ] def
/only [ ] def
end
/even_row 3 dict def even_row begin
/proc { } bind def
/except [ ] def
/only [ ] def
end
%column
/col_odd_or_even {
col odd? {odd_column}{even_column} ifelse
}def
/before_column 3 dict def before_column begin
/proc { } bind def
/except [ ] def
/only [ ] def
end
/after_column 3 dict def after_column begin
/proc { } bind def
/except [ ] def
/only [ ] def
end
/odd_column 3 dict def odd_column begin
/proc { } bind def
/except [ ] def
/only [ ] def
end
/even_column 3 dict def even_column begin
/proc { } bind def
/except [ ] def
/only [ ] def
end
%%HEADER----------------------
/before_header_create {} def
/after_header_create {} def
/before_column_header 3 dict def before_column_header begin
/proc { } bind def
/except [ ] def
/only [ ] def
end
/after_column_header 3 dict def after_column_header begin
/proc { } bind def
/except [ ] def
/only [ ] def
end
%%ROW CALLBACKS
/callback_row{
dup dup
/except get length 0 ne { /except get current_table_row include? not}{
dup /only get length 0 ne { /only get current_table_row include?}{
pop true
}ifelse
}ifelse
{ /proc get exec }{
pop
}ifelse
} bind def
%%COLUMN CALLBACKS
/callback_col{
dup dup
/except get length 0 ne { /except get col include? not}{
dup /only get length 0 ne { /only get col include?}{
pop true
}ifelse
}ifelse
{ /proc get exec }{
pop
}ifelse
} bind def
|
