Merge pull request #1643 from pminten/elixirc-silent

Add --verbose to elixirc

Author: José Valim

bin/elixirc

@@ -7,6 +7,7 @@ if [ $# -eq 0 ] || [ "$1" = "--help" ] || [ "$1" = "-h" ]; then
   --no-debug-info  Do not attach debug info to compiled modules
   --ignore-module-conflict
   --warnings-as-errors Treat warnings as errors and return non-zero exit code
+  --verbose        Print informational messages.
 
 ** Options given after -- are passed down to the executed code
 ** Options can be passed to the erlang runtime using ELIXIR_ERL_OPTS" >&2

bin/elixirc.bat

@@ -14,6 +14,7 @@ echo  --no-docs        Do not attach documentation to compiled modules
 echo  --no-debug-info  Do not attach debug info to compiled modules
 echo  --ignore-module-conflict
 echo  --warnings-as-errors Treat warnings as errors and return non-zero exit code
+echo  --verbose        Print informational messages.
 echo.
 echo ** Options marked with (*) can be given more than once
 echo ** Options given after -- are passed down to the executed code

lib/elixir/lib/kernel/cli.ex

@@ -2,7 +2,8 @@ defmodule Kernel.CLI do
   @moduledoc false
 
   defrecord Config, commands: [], output: ".", compile: [],
-                    halt: true, compiler_options: [], errors: []
+                    halt: true, compiler_options: [], errors: [],
+                    verbose_compile: false
 
   @doc """
   This is the API invoked by Elixir boot process.
@@ -216,6 +217,10 @@ defmodule Kernel.CLI do
   defp process_compiler(["--warnings-as-errors"|t], config) do
     process_compiler t, config.update_compiler_options([{:warnings_as_errors, true}|&1])
   end
+  
+  defp process_compiler(["--verbose"|t], config) do
+    process_compiler t, config.verbose_compile(true)
+  end
 
   defp process_compiler([h|t] = list, config) do
     case h do
@@ -343,7 +348,7 @@ defmodule Kernel.CLI do
     if files != [] do
       Code.compiler_options(config.compiler_options)
       Kernel.ParallelCompiler.files_to_path(files, config.output,
-        each_file: fn file -> IO.puts "Compiled #{file}" end)
+        each_file: fn file -> if config.verbose_compile do IO.puts "Compiled #{file}" end end)
       :ok
     else
       { :error, "--compile : No files matched patterns #{Enum.join(patterns, ",")}" }

lib/elixir/test/elixir/kernel/cli_test.exs

@@ -71,7 +71,15 @@ defmodule Kernel.CLI.CompileTest do
 
   test :compile_code do
     fixture = fixture_path "compile_sample.ex"
-    assert elixirc('#{fixture} -o #{tmp_path}') ==
+    assert elixirc('#{fixture} -o #{tmp_path}') == ''
+    assert File.regular?(tmp_path "Elixir.CompileSample.beam")
+  after
+    File.rm(tmp_path("Elixir.CompileSample.beam"))
+  end
+
+  test :compile_code_verbose do
+    fixture = fixture_path "compile_sample.ex"
+    assert elixirc('#{fixture} -o #{tmp_path} --verbose') ==
       'Compiled #{fixture}\n'
     assert File.regular?(tmp_path "Elixir.CompileSample.beam")
   after