67 lines
1.8 KiB
Elixir
67 lines
1.8 KiB
Elixir
|
include std/pretty.e
|
||
|
|
include std/io.e
|
||
|
|
include std/hash.e
|
||
|
|
include std/os.e
|
||
|
|
include std/pipeio.e
|
||
|
|
|
||
|
|
|
||
|
|
sequence files
|
||
|
|
files = {
|
||
|
|
-- platform independent
|
||
|
|
{"wee.exw", 0, 0, 0},
|
||
|
|
{"scintilla.e", 0, 0, 0},
|
||
|
|
{"parser.e", 0, 0, 0},
|
||
|
|
{"updater.ex", 0, 0, 0},
|
||
|
|
{"weeicon.e", 0, 0, 0},
|
||
|
|
-- windows
|
||
|
|
{"ui_win.e", 0, 0, 0, WINDOWS},
|
||
|
|
{"window.ew", 0, 0, 0, WINDOWS},
|
||
|
|
-- GTK
|
||
|
|
{"ui_gtk.e", 0, 0, 0, LINUX, OSX},
|
||
|
|
{"EuGTK/GtkEngine.e", 0, 0, 0, LINUX, OSX},
|
||
|
|
{"EuGTK/GtkEnums.e", 0, 0, 0, LINUX, OSX},
|
||
|
|
{"EuGTK/GtkPrinter.e", 0, 0, 0, LINUX, OSX},
|
||
|
|
{"EuGTK/GtkEvents.e", 0, 0, 0, LINUX, OSX},
|
||
|
|
{"EuGTK/README.txt", 0, 0, 0, LINUX, OSX},
|
||
|
|
{"EuGTK/license.txt", 0, 0, 0, LINUX, OSX},
|
||
|
|
-- scintilla
|
||
|
|
{"scintilla/SciLexer.dll", 0, 0, 32, WINDOWS},
|
||
|
|
{"scintilla/SciLexer64.dll", 0, 0, 64, WINDOWS},
|
||
|
|
{"scintilla/scintilla32.so", 0, 0, 32, LINUX},
|
||
|
|
{"scintilla/scintilla64.so", 0, 0, 64, LINUX},
|
||
|
|
{"scintilla/scintillaOSX.dylib", 0, 0, 64, OSX},
|
||
|
|
{"scintilla/scintilla32armhf.so", 0, 0, 32, LINUX},
|
||
|
|
{"scintilla/License.txt", 0, 0, 0}
|
||
|
|
}
|
||
|
|
|
||
|
|
object file, p
|
||
|
|
|
||
|
|
-- returns
|
||
|
|
function read_until_eof(object pipe)
|
||
|
|
sequence result = {}
|
||
|
|
object o = pipeio:read(pipe, 1024)
|
||
|
|
while sequence(o) and length(o) do
|
||
|
|
result &= o
|
||
|
|
o = pipeio:read(pipe, 1024)
|
||
|
|
end while
|
||
|
|
return result
|
||
|
|
end function
|
||
|
|
|
||
|
|
for i = 1 to length(files) do
|
||
|
|
files[i][2] = hash(read_file(files[i][1]), HSIEH30)
|
||
|
|
-- git log -n 1 --format=oneline -- ui_gtk.e
|
||
|
|
p = pipeio:exec("git log -n1 --format=oneline -- "&files[i][1], pipeio:create())
|
||
|
|
files[i][3] = pipeio:read(p[pipeio:STDOUT], 10)
|
||
|
|
pipeio:kill(p)
|
||
|
|
|
||
|
|
p = pipeio:exec("git show "&files[i][3]&":"&files[i][1], pipeio:create())
|
||
|
|
object h = hash(read_until_eof(p[pipeio:STDOUT]), HSIEH30)
|
||
|
|
pipeio:kill(p)
|
||
|
|
|
||
|
|
printf(1, "%s %s %d %d\n", {files[i][1], files[i][3], files[i][2], h})
|
||
|
|
files[i][2] = h
|
||
|
|
end for
|
||
|
|
|
||
|
|
--display(files)
|
||
|
|
? write_file("manifest.json", pretty_sprint(files, {2}))
|