TBaseLexer = object of RootObj
  bufpos*: int
  buf*: cstring
  bufStorage: string
  bufLen: int
  stream*: PLLStream
  lineNumber*: int
  sentinel*: int
  lineStart*: int
  offsetBase*: int

Lrz = ' '

Apo = '\''

Tabulator = '\t'

ESC = '\e'

CR = '\c'

FF = '\f'

LF = '\n'

BEL = '\a'

BACKSPACE = '\b'

VT = '\v'

EndOfFile = '\x00'

NewLines = {'\c', '\n'}

proc closeBaseLexer(L: var TBaseLexer) {...}{.raises: [], tags: [].}

proc handleCR(L: var TBaseLexer; pos: int): int {...}{.raises: [IOError, Exception],
    tags: [ReadIOEffect, RootEffect].}

proc handleLF(L: var TBaseLexer; pos: int): int {...}{.raises: [IOError, Exception],
    tags: [ReadIOEffect, RootEffect].}

proc openBaseLexer(L: var TBaseLexer; inputstream: PLLStream; bufLen: int = 8192) {...}{.
    raises: [IOError, Exception], tags: [ReadIOEffect, RootEffect].}

proc getColNumber(L: TBaseLexer; pos: int): int {...}{.raises: [], tags: [].}

proc getCurrentLine(L: TBaseLexer; marker: bool = true): string {...}{.raises: [],
    tags: [].}