src/Pure/Thy/thy_load.scala
author wenzelm
Sat, 17 Sep 2011 17:55:39 +0200
changeset 44953 cdfe42f1267c
parent 44616 4beeaf2a226d
child 46737 09ab89658a5d
permissions -rw-r--r--
sane default for class Thy_Load;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
43651
511df47bcadc some support for theory files within Isabelle/Scala session;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/Thy/thy_load.scala
511df47bcadc some support for theory files within Isabelle/Scala session;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
511df47bcadc some support for theory files within Isabelle/Scala session;
wenzelm
parents:
diff changeset
     3
44577
96b6388d06c4 separate module for jEdit primitives for loading theory files;
wenzelm
parents: 44574
diff changeset
     4
Primitives for loading theory files.
43651
511df47bcadc some support for theory files within Isabelle/Scala session;
wenzelm
parents:
diff changeset
     5
*/
511df47bcadc some support for theory files within Isabelle/Scala session;
wenzelm
parents:
diff changeset
     6
511df47bcadc some support for theory files within Isabelle/Scala session;
wenzelm
parents:
diff changeset
     7
package isabelle
511df47bcadc some support for theory files within Isabelle/Scala session;
wenzelm
parents:
diff changeset
     8
44953
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
     9
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    10
import java.io.File
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    11
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    12
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    13
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    14
class Thy_Load
43651
511df47bcadc some support for theory files within Isabelle/Scala session;
wenzelm
parents:
diff changeset
    15
{
44953
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    16
  /* loaded theories provided by prover */
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    17
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    18
  private var loaded_theories: Set[String] = Set()
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    19
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    20
  def register_thy(thy_name: String): Unit =
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    21
    synchronized { loaded_theories += thy_name }
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    22
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    23
  def is_loaded(thy_name: String): Boolean =
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    24
    synchronized { loaded_theories.contains(thy_name) }
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    25
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    26
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    27
  /* file-system operations */
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    28
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    29
  def append(dir: String, source_path: Path): String =
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    30
    (Path.explode(dir) + source_path).implode
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    31
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    32
  def check_thy(name: Document.Node.Name): Thy_Header =
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    33
  {
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    34
    val file = new File(name.node)
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    35
    if (!file.exists || !file.isFile) error("No such file: " + quote(file.toString))
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    36
    Thy_Header.read(file)
cdfe42f1267c sane default for class Thy_Load;
wenzelm
parents: 44616
diff changeset
    37
  }
43651
511df47bcadc some support for theory files within Isabelle/Scala session;
wenzelm
parents:
diff changeset
    38
}
511df47bcadc some support for theory files within Isabelle/Scala session;
wenzelm
parents:
diff changeset
    39