blob: ea163c6a72cbaa493920da02b705522bccf987ef (
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
|
#!/usr/bin/env texlua
-----------------------------------------------------------------------
-- FILE: hvextern-checkfile.lua
-- DESCRIPTION: check two files for identical code
-- REQUIREMENTS:
-- AUTHOR: Herbert Voß
-- LICENSE: LPPL1.3
--
-- $Id: hvextern-checkfile.lua 585 2022-07-21 13:28:06Z herbert $
-----------------------------------------------------------------------
kpse.set_program_name("luatex")
local f = kpse.find_file("hvextern.lua")
require('hvextern')
--[[
function GetFileContents(f1,f2)
local NewContents, OldContents
local File = io.open(f1)
if File then
NewContents = File:read('*all')
File:close()
end
local File = io.open(f2)
if File then
OldContents = File:read('*all')
File:close()
end
return NewContents == OldContents
end
]]
local f1 = arg[1]
local f2 = arg[2]
diffFile = io.open(f1..".diff","w+")
if GetFileContents(f1,f2) then
diffFile:write("\\let\\hvCheckNewFile\\empty")
else
diffFile:write("\\def\\hvCheckNewFile{Code changes}")
end
diffFile:close()
|