kmx.io/update_header/lib/header/common_lisp.ex

• Show log

  Commit

• Hash : eec6d95c
  Author : Thomas de Grivel
  Date : 2023-06-13T13:48:47
  

  update copyright, add common lisp

Download

• lib/header/common_lisp.ex

• ## update_header
  ## Copyright 2022, 2023 kmx.io <contact@kmx.io>
  
  defmodule Header.CommonLisp 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 split([], acc) do
      acc = Enum.reverse(acc) |> Enum.join("\n")
      {acc, ""}
    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
  

Download