src/Pure/General/position.scala

fix Meson's definition of first-orderness to prevent errors later on elsewhere (e.g. in Metis)

/*  Title:      Pure/General/position.scala
    Author:     Makarius

Position properties.
*/

package isabelle


object Position
{
  type T = List[(String, String)]

  def get_line(pos: T): Option[Int] = Markup.get_int(Markup.LINE, pos)
  def get_column(pos: T): Option[Int] = Markup.get_int(Markup.COLUMN, pos)
  def get_offset(pos: T): Option[Int] = Markup.get_int(Markup.OFFSET, pos)
  def get_end_line(pos: T): Option[Int] = Markup.get_int(Markup.END_LINE, pos)
  def get_end_column(pos: T): Option[Int] = Markup.get_int(Markup.END_COLUMN, pos)
  def get_end_offset(pos: T): Option[Int] = Markup.get_int(Markup.END_OFFSET, pos)
  def get_file(pos: T): Option[String] = Markup.get_string(Markup.FILE, pos)
  def get_id(pos: T): Option[String] = Markup.get_string(Markup.ID, pos)

  def get_range(pos: T): Option[(Int, Int)] =
    (get_offset(pos), get_end_offset(pos)) match {
      case (Some(begin), Some(end)) => Some(begin, end)
      case (Some(begin), None) => Some(begin, begin + 1)
      case (None, _) => None
    }

  object Id { def unapply(pos: T): Option[String] = get_id(pos) }
  object Range { def unapply(pos: T): Option[(Int, Int)] = get_range(pos) }
}