Bruce/nomsu
1
0
Fork 0
Code Issues Pull Requests Packages Projects Releases Wiki Activity

Fixed up file hash lib.

Browse Source
This commit is contained in:
Bruce Hill 2018-05-24 15:33:06 -07:00
parent 2e345e271f
commit ba76a35e84
1 changed files with 17 additions and 39 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

56
lib/file_hash.nom
View File

@ -1,46 +1,24 @@
use "core" use "core"
%hash_to_filename <- {} action [file with hash %hash]
lua> ".."
lua> ".." local Hash = require("openssl.digest")
local Hash = require("openssl.digest"); for filename in io.popen('find -L . -type f -name "*.nom"'):lines() do
local function sha1(x) local file = io.open(filename)
local hash = Hash.new("sha1"):final(x); local contents = file:read("*a")
local hex = hash:gsub('.', function(c) return string.format('%02x', string.byte(c)) end) file:close()
return hex local hash = Hash.new("sha1"):final(contents)
end local hex = hash:gsub('.', function(c) return string.format('%02x', string.byte(c)) end)
local lfs = require('lfs'); if hex == \%hash then
local function attrdir(path) return filename
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 end
end
attrdir(".");
action [sha1 %] action [hash %, sha1 %]
lua> "return sha1(\%);" %hashlib <- (=lua "require('openssl.digest')")
%hash <- (=lua "\%hashlib.new('sha1'):final(\%)")
return: =lua "\%hash:gsub('.', function(c) return string.format('%02x', string.byte(c)) end)"
action [file with hash %hash] parse [hash of file %filename] as
%file <- (%hash in %hash_to_filename) sha1: =lua "io.open(\%filename):read('*a')"
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)