Source Browser ?

1
if
 
not
 
modules
 
then
 
modules
 
=
 
{
 
}
 
end
 
modules
 
[
'
font-trt
'
]
 
=
 
{
2    
version
   
=
 
1
.
001
,
3    
comment
   
=
 
"
companion to font-ini.mkiv
"
,
4    
author
    
=
 
"
Hans Hagen, PRAGMA-ADE, Hasselt NL
"
,
5    
copyright
 
=
 
"
PRAGMA ADE / ConTeXt Development Team
"
,
6    
license
   
=
 
"
see context related readme files
"
7
}
8
9
local
 
rawget
,
 
dofile
,
 
next
,
 
type
 
=
 
rawget
,
 
dofile
,
 
next
,
 
type
10
11
local
 
cleanfilename
 
=
 
fonts
.
names
.
cleanfilename
12
local
 
splitbase
     
=
 
file
.
splitbase
13
local
 
lower
         
=
 
string
.
lower
14
15
--[[ldx--
16<p>We provide a simple treatment mechanism (mostly because I want to demonstrate
17something in a manual). It's one of the few places where an lfg file gets loaded
18outside the goodies manager.</p>
19--ldx]]
--
20
21
local
 
treatments
       
=
 
fonts
.
treatments
 
or
 
{
 
}
22
fonts
.
treatments
       
=
 
treatments
23
24
local
 
treatmentdata
    
=
 
treatments
.
data
 
or
 
utilities
.
storage
.
allocate
(
)
25
treatments
.
data
        
=
 
treatmentdata
26
27
treatments
.
filename
    
=
 
"
treatments.lfg
"
28
29
local
 
trace_treatments
 
=
 
false
  
trackers
.
register
(
"
fonts.treatments
"
,
 
function
(
v
)
 
trace_treatments
 
=
 
v
 
end
)
30
local
 
report_treatment
 
=
 
logs
.
reporter
(
"
fonts
"
,
"
treatment
"
)
31
32
treatments
.
report
      
=
 
report_treatment
33
34
function
 
treatments
.
trace
(
...
)
35    
if
 
trace_treatments
 
then
36        
report_treatment
(
...
)
37    
end
38
end
39
40
-- function treatments.load(name)
41
--     local filename = resolvers.findfile(name)
42
--     if filename and filename ~= "" then
43
--         local goodies = dofile(filename)
44
--         if goodies then
45
--             local treatments = goodies.treatments
46
--             if treatments then
47
--                 for name, data in next, treatments do
48
--                     treatmentdata[name] = data -- always wins
49
--                 end
50
--             end
51
--         end
52
--     end
53
-- end
54
55
table
.
setmetatableindex
(
treatmentdata
,
function
(
t
,
k
)
56    
local
 
files
 
=
 
resolvers
.
findfiles
(
treatments
.
filename
)
57    
if
 
files
 
then
58        
for
 
i
=
1
,
#
files
 
do
59            
local
 
goodies
 
=
 
dofile
(
files
[
i
]
)
60            
if
 
goodies
 
then
61                
local
 
treatments
 
=
 
goodies
.
treatments
62                
if
 
treatments
 
then
63                    
for
 
name
,
 
data
 
in
 
next
,
 
treatments
 
do
64                        
if
 
not
 
rawget
(
t
,
name
)
 
then
65                            
t
[
name
]
 
=
 
data
66                        
end
67                    
end
68                
end
69            
end
70        
end
71    
end
72    
table
.
setmetatableindex
(
treatmentdata
,
nil
)
73    
return
 
treatmentdata
[
k
]
74
end
)
75
76
local
 
function
 
applyfix
(
fix
,
filename
,
data
,
n
)
77    
if
 
type
(
fix
)
 
=
=
 
"
function
"
 
then
78        
-- we assume that when needed the fix reports something
79     
-- if trace_treatments then
80     
--     report_treatment("applying treatment %a to file %a",n,filename)
81     
-- end
82        
fix
(
data
)
83    
elseif
 
trace_treatments
 
then
84        
report_treatment
(
"
invalid treatment %a for file %a
"
,
n
,
filename
)
85    
end
86
end
87
88
function
 
treatments
.
applyfixes
(
filename
,
data
)
89    
local
 
filename
 
=
 
cleanfilename
(
filename
)
90    
local
 
pathpart
,
 
basepart
 
=
 
splitbase
(
filename
)
91    
local
 
treatment
 
=
 
treatmentdata
[
filename
]
 
or
 
treatmentdata
[
basepart
]
92    
if
 
treatment
 
then
93        
local
 
fixes
 
=
 
treatment
.
fixes
94        
if
 
not
 
fixes
 
then
95            
-- nothing to fix
96        
elseif
 
type
(
fixes
)
 
=
=
 
"
table
"
 
then
97            
for
 
i
=
1
,
#
fixes
 
do
98                
applyfix
(
fixes
[
i
]
,
filename
,
data
,
i
)
99            
end
100        
else
101            
applyfix
(
fixes
,
filename
,
data
,
1
)
102        
end
103    
end
104
end
105
106
function
 
treatments
.
ignoredfile
(
fullname
)
107    
local
 
treatmentdata
 
=
 
treatments
.
data
 
or
 
{
 
}
 
-- when used outside context
108    
local
 
_
,
 
basepart
 
=
 
splitbase
(
fullname
)
109    
local
 
treatment
 
=
 
treatmentdata
[
basepart
]
 
or
 
treatmentdata
[
lower
(
basepart
)
]
110    
if
 
treatment
 
and
 
treatment
.
ignored
 
then
111        
report_treatment
(
"
font file %a resolved as %a is ignored, reason %a
"
,
basepart
,
fullname
,
treatment
.
comment
 
or
 
"
unknown
"
)
112        
return
 
true
113    
end
114
end
115
116
fonts
.
names
.
ignoredfile
 
=
 
treatments
.
ignoredfile
117