Auto add -f for -m that have .erl

Closes #130.

src/concuerror_options.erl

@@ -430,6 +430,7 @@ finalize_2(Options) ->
     [ fun proplists:unfold/1
     , fun set_verbosity/1
     , fun add_to_path/1
+    , fun add_missing_file/1
     , fun load_files/1
     , fun add_options_from_module/1
     , fun add_derived_defaults/1
@@ -506,6 +507,31 @@ add_to_path(Options) ->
 
 %%%-----------------------------------------------------------------------------
 
+add_missing_file(Options) ->
+  case proplists:get_all_values(module, Options) of
+    [Module] ->
+      try
+        _ = Module:module_info(attributes),
+        Options
+      catch
+        _:_ ->
+          case proplists:get_all_values(file, Options) of
+            [] ->
+              Source = atom_to_list(Module) ++ ".erl",
+              Msg = "Automatically added '--file ~s'.",
+              opt_info(Msg, [Source]),
+              case filelib:is_file(Source) of
+                true -> [{file, Source}|Options];
+                false -> Options
+              end;
+            _ -> Options
+          end
+      end;
+    _ -> Options
+  end.
+
+%%%-----------------------------------------------------------------------------
+
 load_files(Options) ->
   case proplists:get_all_values(file, Options) of
     [] -> Options;

tests-real/suites/options/other-tests

@@ -69,6 +69,10 @@ ln -s $(which $CONCUERROR) concuerror
 rm -rf concuerror
 good
 
+testing "Limited automatic compilation with -m"
+$CONCUERROR -m foo 2> $Console
+good
+
 trap - 0
 
 echo -e "\e[1;32mSUCCESS!\e[0m"