TIdObj = object of RootObj
  id*: int

PIdObj = ref TIdObj

PIdent = ref TIdent

TIdent {...}{.acyclic.} = object of TIdObj
  s*: string
  next*: PIdent
  h*: Hash

IdentCache = ref object
  buckets: array[0 .. 8192 - 1, PIdent]
  wordCounter: int
  idAnon*, idDelegator*, emptyIdent*: PIdent

proc resetIdentCache() {...}{.raises: [], tags: [].}

proc cmpIgnoreStyle(a, b: cstring; blen: int): int {...}{.raises: [], tags: [].}

proc getIdent(ic: IdentCache; identifier: cstring; length: int; h: Hash): PIdent {...}{.
    raises: [], tags: [].}

proc getIdent(ic: IdentCache; identifier: string): PIdent {...}{.raises: [], tags: [].}

proc getIdent(ic: IdentCache; identifier: string; h: Hash): PIdent {...}{.raises: [],
    tags: [].}

proc newIdentCache(): IdentCache {...}{.raises: [], tags: [].}

proc whichKeyword(id: PIdent): TSpecialWord {...}{.raises: [], tags: [].}