anchor.diff:  %%% -*- erlang-indent-level: 2 -*-
   %%%
  -%%%   Copyright 2014 Mikael Pettersson
  +%%%   Copyright 2014-2022 Mikael Pettersson
   %%%
   %%%   Licensed under the Apache License, Version 2.0 (the "License");
   %%%   you may not use this file except in compliance with the License.
  
positive.code: %% 16#08: numeric
  %% 16#10: subsequent	(used by the reader)
  %% 16#20: exponent	(used by the reader)
  %% 16#40: lower-case
  %% 16#80: upper-case
  
  char_is_type(Ch, Mask) ->
    ChTypeTab = % indexed by [-1, 255] + 1
  
negative.code: char_is_numeric(Ch) -> char_is_type(Ch, 16#08).
  char_is_subsequent(Ch) -> char_is_type(Ch, 16#10).
  char_is_exponent(Ch) -> char_is_type(Ch, 16#20).
  char_is_eof(Ch) -> Ch =:= -1.
  
  char_value(Ch) ->
    ChValueTab = % indexed by [-1, 255] + 1
  