anchor.diff:  %%
   %% %CopyrightBegin%
   %%
  -%% Copyright Ericsson AB 1996-2017. All Rights Reserved.
  +%% Copyright Ericsson AB 1996-2019. All Rights Reserved.
   %%
   %% Licensed under the Apache License, Version 2.0 (the "License");
   %% you may not use this file except in compliance with the License.
  
positive.code:          orelse (C >= $A andalso B > 10 andalso C < $A + B - 10)
           orelse (C >= $a andalso B > 10 andalso C < $a + B - 10))).
  
  scan_based_int([C|Cs], St, Line, Col, Toks, {B,Ncs,Bcs}) when
        ?BASED_DIGIT(C, B) ->
      scan_based_int(Cs, St, Line, Col, Toks, {B,[C|Ncs],Bcs});
  scan_based_int([$_,Next|Cs], St, Line, Col, Toks, {B,[Prev|_]=Ncs,Bcs}) when
        ?BASED_DIGIT(Next, B) andalso ?BASED_DIGIT(Prev, B) ->
      scan_based_int(Cs, St, Line, Col, Toks, {B,[Next,$_|Ncs],Bcs});
  scan_based_int([]=Cs, _St, Line, Col, Toks, State) ->
      {more,{Cs,Col,Toks,Line,State,fun scan_based_int/6}};
  scan_based_int(Cs, St, Line, Col, Toks, {B,Ncs0,Bcs}) ->
      Ncs = lists:reverse(Ncs0),
      case catch erlang:list_to_integer(remove_digit_separators(Ncs), B) of
          N when is_integer(N) ->
              tok3(Cs, St, Line, Col, Toks, integer, Bcs++Ncs, N);
          _ ->
  
negative.code: scan1([$\%=C|Cs], St, Line, Col, Toks) ->
      scan_comment(Cs, St, Line, Col, Toks, [C]);
  scan1([C|Cs], St, Line, Col, Toks) when ?DIGIT(C) ->
      scan_number(Cs, St, Line, Col, Toks, [C], no_underscore);
  scan1("..."++Cs, St, Line, Col, Toks) ->
      tok2(Cs, St, Line, Col, Toks, "...", '...', 3);
  scan1(".."=Cs, _St, Line, Col, Toks) ->
  