anchor.diff:  	    prim_consult(Bin);
           error ->
               {error, file:format_error(enoent)}
  +    end.
  +
  +encoding(Bin) when is_binary(Bin) ->
  +    case epp:read_encoding_from_binary(Bin) of
  +	none ->
  +	    epp:default_encoding();
  +	E ->
  +	    E
       end.
   
   prim_parse(Tokens, Acc) ->
  
positive.code: %%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%%
  
  prim_consult(Bin) when is_binary(Bin) ->
      case erl_scan:string(binary_to_list(Bin)) of
  	{ok, Tokens, _EndLine} ->
  	    prim_parse(Tokens, []);
  	{error, {_ErrorLine, Module, Reason}, _EndLine} ->
  
negative.code: %%
  %% %CopyrightBegin%
  %%
  %% Copyright Ericsson AB 2009-2013. All Rights Reserved.
  %%
  %% The contents of this file are subject to the Erlang Public License,
  %% Version 1.1, (the "License"); you may not use this file except in
  