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}))