src/Pure/Tools/update_then.scala
author wenzelm
Wed, 10 Feb 2016 14:14:43 +0100
changeset 62278 c04e97be39d3
parent 61216 4ca490f09ec6
child 62449 1785cbadd226
permissions -rw-r--r--
misc tuning and updates;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
61216
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/Tools/update_then.scala
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
     3
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
     4
Expand old Isar command conflations 'hence' and 'thus'.
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
     5
*/
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
     6
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
     7
package isabelle
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
     8
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
     9
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    10
object Update_Then
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    11
{
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    12
  def update_then(path: Path)
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    13
  {
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    14
    val text0 = File.read(path)
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    15
    val text1 =
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    16
      (for (tok <- Token.explode(Keyword.Keywords.empty, text0).iterator)
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    17
        yield {
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    18
          tok.source match {
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    19
            case "hence" => "then have"
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    20
            case "thus" => "then show"
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    21
            case s => s
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    22
        } }).mkString
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    23
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    24
    if (text0 != text1) {
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    25
      Output.writeln("changing " + path)
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    26
      File.write_backup2(path, text1)
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    27
    }
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    28
  }
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    29
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    30
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    31
  /* command line entry point */
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    32
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    33
  def main(args: Array[String])
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    34
  {
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    35
    Command_Line.tool0 {
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    36
      args.foreach(arg => update_then(Path.explode(arg)))
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    37
    }
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    38
  }
4ca490f09ec6 added isabelle update_then;
wenzelm
parents:
diff changeset
    39
}