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

Apo = '\''

BACKSPACE = '\b'

BEL = '\a'

CR = '\r'

EndOfFile = '\x00'

ESC = '\e'

FF = '\f'

LF = '\n'

Lrz = ' '

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

Tabulator = '\t'

VT = '\v'

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

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

proc getCurrentLine(L: TBaseLexer; marker: bool = true): string {....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].}