Hash :
410a11e5
Author :
Thomas de Grivel
Date :
2022-11-02T18:46:59
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 43 44
## kmxgit
## Copyright 2022 kmx.io <contact@kmx.io>
##
## Permission is hereby granted to use this software granted
## the above copyright notice and this permission paragraph
## are included in all copies and substantial portions of this
## software.
##
## THIS SOFTWARE IS PROVIDED "AS-IS" WITHOUT ANY GUARANTEE OF
## PURPOSE AND PERFORMANCE. IN NO EVENT WHATSOEVER SHALL THE
## AUTHOR BE CONSIDERED LIABLE FOR THE USE AND PERFORMANCE OF
## THIS SOFTWARE.
defmodule Header.Make do
def split(src) do
split(src, [])
end
def split([line = ("#" <> _) | rest], acc) do
split(rest, [line | acc])
end
def split([line | rest], acc) do
case Regex.run(~r/^\s*$/, line) do
[_] -> split(rest, acc)
_ ->
acc = Enum.reverse(acc) |> Enum.join("\n")
rest = [line | rest] |> Enum.join("\n")
{acc, rest}
end
end
def main([src_path | dest_paths]) do
{:ok, src} = File.read(src_path)
src_lines = String.split(src, "\n")
{header, _} = split(src_lines)
Enum.each dest_paths, fn dest_path ->
{:ok, dest} = File.read(dest_path)
dest_lines = String.split(dest, "\n")
{_, rest} = split(dest_lines)
result = header <> "\n\n" <> rest
File.write(dest_path, result)
end
end
end