blob: 0d7e523b95c2108f094c2c429c977730c845fee3 (
plain)
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
|
use "core"
%hash_to_filename <- {}
lua> ".."
local Hash = require("openssl.digest");
local function sha1(x)
local hash = Hash.new("sha1"):final(x);
local hex = hash:gsub('.', function(c) return string.format('%02x', string.byte(c)) end)
return hex
end
local lfs = require('lfs');
local function attrdir(path)
for filename in lfs.dir(path) do
if filename ~= "." and filename ~= ".." and filename:sub(1,1) ~= "." then
local filename = path..'/'..filename
local attr = lfs.attributes(filename);
if attr.mode == "directory" then
attrdir(filename);
elseif filename:match(".*%.nom") then
local file = io.open(filename);
local hash = sha1(file:read("*a"));
file:close();
\%hash_to_filename[hash] = filename
end
end
end
end
attrdir(".");
action [sha1 %]
lua> "return sha1(\%);"
action [file with hash %hash]
%file <- (%hash in %hash_to_filename)
assume %file or barf "File with SHA1 hash \%hash not found!"
return %file
action [hash of file %filename]
lua> ".."
local f = io.open(\%filename);
local hash = sha1(f:read("*a"));
f:close();
return hash;
parse [use file with hash %hash] as: use (file with hash %hash)
|
