anchor.diff:  help_message() ->
     S = <<" Usage: typer [--help] [--version] [--plt PLT] [--edoc]
                 [--show | --show-exported | --annotate | --annotate-inc-files]
  -              [-Ddefine]* [-I include_dir]* [-T application]* [-r] file*
  +              [-Ddefine]* [-I include_dir]* [-pa dir]* [-pz dir]*
  +              [-T application]* [-r] file*
   
    Options:
      -r dir*
  
positive.code: analyze_result(show_succ, Args, Analysis) ->
    {Args, Analysis#analysis{show_succ = true}};
  analyze_result(no_spec, Args, Analysis) ->
    {Args, Analysis#analysis{no_spec = true}}.
  
  %%--------------------------------------------------------------------
  %% File processing.
  
negative.code: cl(["-r"|Opts]) ->
    {Files, RestOpts} = dialyzer_cl_parse:collect_args(Opts),
    {{files_r, Files}, RestOpts};
  cl(["-pa",Dir|Opts]) -> {{pa,Dir}, Opts};
  cl(["-pz",Dir|Opts]) -> {{pz,Dir}, Opts};
  cl(["-"++H|_]) -> fatal_error("unknown option -"++H);
  cl(Opts) -> 
    {Files, RestOpts} = dialyzer_cl_parse:collect_args(Opts),
  