ok_longcode_2dots

# Unit ok_longcode_2dots

Description

## Description

Testcase for https://github.com/pasdoc/pasdoc/issues/228 .

    procedure TMyScanner.GetSymbol;
    begin
      case Self.Character of
      '+', '-', '*', '/':
        begin
          fSymbolId := tokOperator;
          fSymbol := Self.Character;
          Self.NextChar
        end;
      '0'..'9':
        begin
          fSymbolId := tokNumber;
          fSymbol := Self.GetNumber
        end;
      'a'..'z', 'A'..'Z':
        begin
          fSymbolId := tokIdentifier;
          Self.GetIdentifierOrKeyword
        end;
      else
        Self.RaiseExceptionFmt (
          'Illegal character "%s" ($%.2x)',
          [Self.Character, Ord(Self.Character)]
        );
      end
    end;