signature PPC = sig

  structure T: TOKENIZER

  type t
  type tkErrorVal
  type tkClassErrorVal
  type tkPos

  exception TkError of tkErrorVal
  exception TkClassError of tkClassErrorVal


  datatype tkClass =
    Ctk of T.token |
    Cid |
    Cconst |
    Cunop |
    Cbinop |
    Cop

  val create: { fname: string, incDirs: string list, debugMode: bool } -> t
  val debugPrint: string -> string list -> unit

  val getClass: t -> tkClass list -> T.token * tkPos * t

  val raiseTkError: tkPos -> string -> 'a
  val tkErrorPrint: tkErrorVal -> unit

  val raiseTkClassError: tkPos -> tkClass list -> 'a
  val tkClassErrorPrint: tkClassErrorVal -> unit
end