Support processing inputs and outputting results correctly

Author: gaggle

lib/CLI.ex

@@ -1,10 +1,21 @@
 defmodule ElixirScript.CLI do
   alias ElixirScript.Context
   alias ElixirScript.Core
+  alias ElixirScript.CustomLogger, as: Logger
 
   def main(_args \\ []) do
-    script = Core.get_input("script", required: true)
+    Logger.debug("Running in debug mode")
+    Logger.debug("All Environment Variables: #{inspect(System.get_env(), limit: :infinity, printable_limit: :infinity)}")
+
+    script = Core.get_env_input("script", required: true)
+    Logger.debug("Script input: #{inspect(script, limit: :infinity, printable_limit: :infinity)}")
+
     {value, _binding} = Code.eval_string(script, context: Context.from_github_environment())
     Core.set_output("result", value)
+    Logger.debug("Result output: #{inspect(value, limit: :infinity, printable_limit: :infinity)}")
+  end
+
+  defp log_debug(message) do
+    if @debug_mode, do: Logger.debug(message)
   end
 end

lib/command.ex

@@ -0,0 +1,7 @@
+defmodule ElixirScript.Command do
+  alias ElixirScript.CommandUtils
+
+  def issue_command(command, name, command_value) do
+    IO.puts("::#{command} name=#{name}::#{command_value}")
+  end
+end

lib/command_utils.ex

@@ -1,4 +1,5 @@
 defmodule ElixirScript.CommandUtils do
+
   def to_command_value(nil), do: ""
 
   def to_command_value(input) when is_binary(input), do: input

lib/core.ex

@@ -1,7 +1,19 @@
 defmodule ElixirScript.Core do
+  alias ElixirScript.Command
+  alias ElixirScript.CommandUtils
   alias ElixirScript.FileCommand
 
-  def get_input(name, opts \\ []) do
+  def parse_args(args) do
+    aliases = [script: :s, debug: :d]
+    parsed = OptionParser.parse(args, aliases: aliases)
+
+    case parsed do
+      {opts, _remaining_args, _invalid_opts} ->
+        %{script: Map.get(opts, :script), debug: Map.get(opts, :debug)}
+    end
+  end
+
+  def get_env_input(name, opts \\ []) do
     required = Keyword.get(opts, :required, false)
     trim_whitespace = Keyword.get(opts, :trim_whitespace, true)
 
@@ -21,6 +33,13 @@ defmodule ElixirScript.Core do
   end
 
   def set_output(name, value) do
-    FileCommand.issue_file_command("OUTPUT", FileCommand.prepare_key_value_message(name, value))
+    if System.get_env("GITHUB_OUTPUT") do
+      FileCommand.issue_file_command(
+        "OUTPUT",
+        FileCommand.prepare_key_value_message(name, CommandUtils.to_command_value(value))
+      )
+    else
+      Command.issue_command('set-output', name, CommandUtils.to_command_value(value))
+    end
   end
 end

lib/custom_logger.ex

@@ -0,0 +1,17 @@
+defmodule ElixirScript.CustomLogger do
+  @moduledoc """
+  A custom logger module suitable for GitHub Actions' debug mode.
+  """
+
+  def debug(message) do
+    if debug_mode?(), do: log(:debug, message)
+  end
+
+  defp debug_mode?() do
+    System.get_env("INPUT_DEBUG") == "true"
+  end
+
+  defp log(level, message) do
+    IO.puts("[#{level}] #{message}")
+  end
+end

lib/file_command.ex

@@ -1,14 +1,14 @@
 defmodule ElixirScript.FileCommand do
   alias ElixirScript.CommandUtils
 
-  def issue_file_command(command, message) do
-    file_path = System.fetch_env!("GITHUB_#{command}")
+  def issue_file_command(command, command_value) do
+    file_path = System.get_env("GITHUB_#{command}", "")
 
     if not File.exists?(file_path) do
       raise "Missing file at path: #{file_path}"
     end
 
-    File.write!(file_path, CommandUtils.to_command_value(message) <> "\n", [:append])
+    File.write!(file_path, command_value <> "\n", [:append])
   end
 
   @doc """
@@ -18,27 +18,24 @@ defmodule ElixirScript.FileCommand do
   It encodes that message using a specific delimiter format "ghadelimiter_" followed by a unique reference.
 
   Note: This format is taken from https://github.com/actions/toolkit/blob/main/packages/core/src/file-command.ts#L27
-  I don't really understand how this delimiter works, and I can't find it documented.
-  But I guess GitHub Actions listens for the "ghadelimiter_" part and then uses that to delimit the message.
+  I can't find this behavior described in GitHub documentation.
 
   ## Raises:
     - An error if the key or converted value contains the delimiter
       (this can't realistically happen as the delimiter is randomly generated, but better cautious than sorry)
   """
-  def prepare_key_value_message(key, value) do
+  def prepare_key_value_message(key, command_value) do
     delimiter = "ghadelimiter_" <> to_string(:erlang.ref_to_list(:erlang.make_ref()))
 
-    converted_value = CommandUtils.to_command_value(value)
-
     cond do
       String.contains?(key, delimiter) ->
         raise "Unexpected input: name should not contain the delimiter \"#{delimiter}\""
 
-      String.contains?(converted_value, delimiter) ->
+      String.contains?(command_value, delimiter) ->
         raise "Unexpected input: value should not contain the delimiter \"#{delimiter}\""
 
       true ->
-        "#{key}<<#{delimiter}\n#{converted_value}\n#{delimiter}"
+        "#{key}<<#{delimiter}\n#{command_value}\n#{delimiter}"
     end
   end
 end