addac10a47
newline after 1-line indented code inside blocks, and forcing files to have a trailing newline. The trailing newline thing created a lot of spurious changes.
29 lines
1.0 KiB
Plaintext
29 lines
1.0 KiB
Plaintext
#!/usr/bin/env nomsu -V2.5.4.3
|
|
#
|
|
This file defines some actions for hashing files and looking up files by hash.
|
|
|
|
use "core"
|
|
|
|
action [file with hash %hash]:
|
|
lua> ".."
|
|
local Hash = require("openssl.digest")
|
|
for filename in io.popen('find -L . -not -path "*/\\\\.*" -type f -name "*.nom"'):lines() do
|
|
local file = io.open(filename)
|
|
local contents = file:read("*a")
|
|
file:close()
|
|
local hash = Hash.new("sha1"):final(contents)
|
|
local hex = hash:gsub('.', function(c) return string.format('%02x', string.byte(c)) end)
|
|
if hex == \%hash then
|
|
return filename
|
|
end
|
|
end
|
|
|
|
action [hash %, 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)
|
|
|
|
parse [hash of file %filename] as (sha1 (=lua "io.open(\%filename):read('*a')"))
|