luat-iop.lua /size: 845 b    last modification: 2020-07-01 14:35
1
if
not
modules
then
modules
=
{
}
end
modules
[
'
luat-iop
'
]
=
{
2
version
=
1
.
001
,
3
comment
=
"
companion to luat-lib.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
cleanedpathlist
=
resolvers
.
cleanedpathlist
10
local
registerroot
=
sandbox
.
registerroot
11 12
sandbox
.
initializer
{
13
category
=
"
files
"
,
14
action
=
function
(
)
15
local
function
register
(
str
,
mode
)
16
local
trees
=
cleanedpathlist
(
str
)
17
for
i
=
1
,
#
trees
do
18
registerroot
(
trees
[
i
]
,
mode
)
19
end
20
end
21
register
(
"
TEXMF
"
,
"
read
"
)
22
register
(
"
TEXINPUTS
"
,
"
read
"
)
23
register
(
"
MPINPUTS
"
,
"
read
"
)
24
-- register("TEXMFCACHE","write")
25
registerroot
(
"
.
"
,
"
write
"
)
26
end
27
}
28