Source Browser ?

1
if
 
not
 
modules
 
then
 
modules
 
=
 
{
 
}
 
end
 
modules
 
[
'
l-sha
'
]
 
=
 
{
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
if
 
sha2
 
then
10
11    
local
 
lpegmatch
    
=
 
lpeg
.
match
12    
local
 
lpegpatterns
 
=
 
lpeg
.
patterns
13    
local
 
bytestohex
   
=
 
lpegpatterns
.
bytestohex
14    
local
 
bytestoHEX
   
=
 
lpegpatterns
.
bytestoHEX
15
16    
local
 
digest256
 
=
 
sha2
.
digest256
17    
local
 
digest384
 
=
 
sha2
.
digest384
18    
local
 
digest512
 
=
 
sha2
.
digest512
19
20    
sha2
.
hash256
 
=
 
function
(
str
)
 
return
 
lpegmatch
(
bytestohex
,
digest256
(
str
)
)
 
end
21    
sha2
.
hash384
 
=
 
function
(
str
)
 
return
 
lpegmatch
(
bytestohex
,
digest384
(
str
)
)
 
end
22    
sha2
.
hash512
 
=
 
function
(
str
)
 
return
 
lpegmatch
(
bytestohex
,
digest512
(
str
)
)
 
end
23    
sha2
.
HASH256
 
=
 
function
(
str
)
 
return
 
lpegmatch
(
bytestoHEX
,
digest256
(
str
)
)
 
end
24    
sha2
.
HASH384
 
=
 
function
(
str
)
 
return
 
lpegmatch
(
bytestoHEX
,
digest384
(
str
)
)
 
end
25    
sha2
.
HASH512
 
=
 
function
(
str
)
 
return
 
lpegmatch
(
bytestoHEX
,
digest512
(
str
)
)
 
end
26
27
end
28