mlton/control/source.sig

   1 (* Copyright (C) 2009 Matthew Fluet.
   2  * Copyright (C) 1999-2006 Henry Cejtin, Matthew Fluet, Suresh
   3  *    Jagannathan, and Stephen Weeks.
   4  * Copyright (C) 1997-2000 NEC Research Institute.
   5  *
   6  * MLton is released under a BSD-style license.
   7  * See the file MLton-LICENSE for details.
   8  *)
   9
  10 signature SOURCE =
  11    sig
  12       type t
  13
  14       (* The pos in the following specs is a file position (e.g. yypos of mllex).
  15        *)
  16       val getPos: t * int -> SourcePos.t
  17       val lineDirective:
  18          t * File.t option * {lineNum: int, lineStart: int} -> unit
  19       val lineStart: t -> SourcePos.t
  20       val new: File.t -> t
  21       val newline: t * int -> unit
  22       val name: t -> string
  23    end