TRstParseOption = enum 
  roSkipPounds,               ## skip ``#`` at line beginning (documentation
                              ## embedded in Nimrod comments)
  roSupportSmilies,           ## make the RST parser support smilies like ``:)``
  roSupportRawDirective,      ## support the ``raw`` directive (don't support
                              ## it for sandboxing)
  roSupportMarkdown           ## support additional features of markdown

TRstParseOptions = set[TRstParseOption]

TMsgClass = enum 
  mcHint = "Hint", mcWarning = "Warning", mcError = "Error"

TMsgKind = enum 
  meCannotOpenFile, meExpected, meGridTableNotImplemented, meNewSectionExpected, 
  meGeneralParseError, meInvalidDirective, mwRedefinitionOfLabel, 
  mwUnknownSubstitution, mwUnsupportedLanguage

TMsgHandler = proc (filename: string; line, col: int; msgKind: TMsgKind; 
                    arg: string) {.nimcall.}

TFindFileHandler = proc (filename: string): string {.nimcall.}

EParseError = object of EInvalidValue

proc whichMsgClass(k: TMsgKind): TMsgClass {.raises: [], tags: [].}

proc defaultMsgHandler(filename: string; line, col: int; msgkind: TMsgKind; 
                       arg: string) {.procvar, raises: [EInvalidValue, 
    EParseError, EIO], tags: [FWriteIO].}

proc defaultFindFile(filename: string): string {.procvar, raises: [], 
    tags: [FReadDir].}

proc addNodes(n: PRstNode): string {.raises: [], tags: [].}

proc rstnodeToRefname(n: PRstNode): string {.raises: [], tags: [].}

proc getFieldValue(n: PRstNode; fieldname: string): string {.raises: [], 
    tags: [].}

proc getArgument(n: PRstNode): string {.raises: [], tags: [].}

proc rstParse(text, filename: string; line, column: int; hasToc: var bool; 
              options: TRstParseOptions; findFile: TFindFileHandler = nil; 
              msgHandler: TMsgHandler = nil): PRstNode {.raises: [E_Base], 
    tags: [TEffect, FReadEnv].}