Source Browser ?

1
if
 
not
 
modules
 
then
 
modules
 
=
 
{
 
}
 
end
 
modules
 
[
'
file-lib
'
]
 
=
 
{
2    
version
   
=
 
1
.
001
,
3    
comment
   
=
 
"
companion to file-lib.mkvi
"
,
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
-- todo: check all usage of truefilename at the tex end and remove
10
-- files there (and replace definitions by full names)
11
12
local
 
format
,
 
gsub
 
=
 
string
.
format
,
 
string
.
gsub
13
14
local
 
trace_libraries
 
=
 
false
  
trackers
.
register
(
"
resolvers.libraries
"
,
 
function
(
v
)
 
trace_libraries
 
=
 
v
 
end
)
15
----- trace_files     = false  trackers.register("resolvers.readfile",  function(v) trace_files     = v end)
16
17
local
 
report_library
  
=
 
logs
.
reporter
(
"
files
"
,
"
library
"
)
18
----- report_files    = logs.reporter("files","readfile")
19
20
local
 
removesuffix
    
=
 
file
.
removesuffix
21
22
local
 
getreadfilename
 
=
 
resolvers
.
getreadfilename
23
24
local
 
loaded
          
=
 
{
 
}
25
local
 
defaultpatterns
 
=
 
{
 
"
%s
"
 
}
26
27
local
 
function
 
defaultaction
(
name
,
foundname
)
28    
report_files
(
"
asked name %a, found name %a
"
,
name
,
foundname
)
29
end
30
31
local
 
function
 
defaultfailure
(
name
)
32    
report_files
(
"
asked name %a, not found
"
,
name
)
33
end
34
35
function
 
resolvers
.
uselibrary
(
specification
)
 
-- todo: reporter
36    
local
 
name
 
=
 
specification
.
name
37    
if
 
name
 
and
 
name
 
~
=
 
"
"
 
then
38        
local
 
patterns
 
=
 
specification
.
patterns
 
or
 
defaultpatterns
39        
local
 
action
   
=
 
specification
.
action
   
or
 
defaultaction
40        
local
 
failure
  
=
 
specification
.
failure
  
or
 
defaultfailure
41        
local
 
onlyonce
 
=
 
specification
.
onlyonce
42        
local
 
files
    
=
 
utilities
.
parsers
.
settings_to_array
(
name
)
43        
local
 
truename
 
=
 
environment
.
truefilename
44        
local
 
function
 
found
(
filename
)
45            
local
 
somename
  
=
 
truename
 
and
 
truename
(
filename
)
 
or
 
filename
46            
local
 
foundname
 
=
 
getreadfilename
(
"
any
"
,
"
.
"
,
somename
)
 
-- maybe some day also an option not to backtrack .. and ../.. (or block global)
47            
return
 
foundname
 
~
=
 
"
"
 
and
 
foundname
48        
end
49        
for
 
i
=
1
,
#
files
 
do
50            
local
 
filename
 
=
 
files
[
i
]
51            
if
 
not
 
loaded
[
filename
]
 
then
52                
local
 
foundname
 
=
 
nil
53                
local
 
barename
  
=
 
removesuffix
(
filename
)
54                
-- direct search (we have an explicit suffix)
55                
if
 
barename
 
~
=
 
filename
 
then
56                    
foundname
 
=
 
found
(
filename
)
57                    
if
 
trace_libraries
 
then
58                        
report_library
(
"
checking %a: %s
"
,
filename
,
foundname
 
or
 
"
not found
"
)
59                    
end
60                
end
61                
if
 
not
 
foundname
 
then
62                    
-- pattern based search
63                    
for
 
i
=
1
,
#
patterns
 
do
64                        
local
 
pattern
 
=
 
patterns
[
i
]
65                        
if
 
pattern
 
and
 
pattern
 
~
=
 
"
"
 
then
66                            
local
 
wanted
 
=
 
format
(
pattern
,
barename
)
67                            
foundname
 
=
 
found
(
wanted
)
68                            
if
 
trace_libraries
 
then
69                                
report_library
(
"
checking %a as %a: %s
"
,
filename
,
wanted
,
foundname
 
or
 
"
not found
"
)
70                            
end
71                            
if
 
foundname
 
then
72                                
break
73                            
end
74                        
else
75                            
-- can be a bogus path (coming from a test)
76                        
end
77                    
end
78                
end
79                
if
 
not
 
loaded
[
foundname
]
 
then
80                    
if
 
foundname
 
then
81                        
action
(
name
,
foundname
)
82                        
if
 
onlyonce
 
then
83                            
loaded
[
foundname
]
 
=
 
true
 
-- todo: base this on return value
84                        
end
85                    
elseif
 
failure
 
then
86                        
failure
(
name
)
87                    
end
88                    
if
 
onlyonce
 
then
89                        
loaded
[
filename
]
  
=
 
true
 
-- todo: base this on return value
90                    
end
91                
end
92            
end
93        
end
94    
end
95
end
96
97
-- We keep these in the commands namespace even if it's not that logical
98
-- but this way we are compatible.
99
100
function
 
commands
.
loadlibrary
(
name
,
foundname
,
nointerference
)
101    
if
 
not
 
foundname
 
then
102        
foundname
 
=
 
name
103    
end
104    
if
 
foundname
 
and
 
foundname
 
~
=
 
"
"
 
then
105        
if
 
nointerference
 
then
106            
context
.
startnointerference
(
)
107        
end
108        
context
.
startreadingfile
(
)
109        
context
.
input
(
foundname
)
110        
context
.
stopreadingfile
(
)
111        
if
 
nointerference
 
then
112            
context
.
stopnointerference
(
)
113        
end
114    
end
115
end
116
117
commands
.
uselibrary
 
=
 
resolvers
.
uselibrary
118