kc3-lang/kc3 /bin/hex2c.exs

Branch :

Show log
Commit
Author : Thomas de Grivel
Date : 2022-10-31 00:50:45
Hash : 865d1524
Message : c3-lang

bin/hex2c.exs

#!/usr/bin/env elixir
defmodule Hex do
  def to_c_(""), do: ""
  def to_c_(<<a, b, rest::binary>>), do: "\\x" <> List.to_string([a]) <> List.to_string([b]) <> to_c_(rest)

  def to_c(hex) when is_binary(hex) do
    IO.puts "\"" <> to_c_(hex) <> "\""
  end
  def to_c([a | b]) do
    to_c(a)
    to_c(b)
  end
  def to_c([]) do
    :ok
  end
end

Hex.to_c(System.argv)