--- a/etc/options Sat Oct 07 20:20:03 2017 +0200
+++ b/etc/options Sat Oct 07 20:31:01 2017 +0200
@@ -113,9 +113,6 @@
option profiling : string = ""
-- "ML profiling (possible values: time, allocations)"
-option theory_qualifier : string = ""
- -- "explicit theory qualifier for special sessions (default: session name)"
-
section "ML System"
--- a/src/Pure/Thy/sessions.scala Sat Oct 07 20:20:03 2017 +0200
+++ b/src/Pure/Thy/sessions.scala Sat Oct 07 20:31:01 2017 +0200
@@ -224,7 +224,7 @@
val thy_deps =
resources.thy_info.dependencies(
for { (_, thys) <- info.theories; (thy, pos) <- thys }
- yield (resources.import_name(info.theory_qualifier, info.dir.implode, thy), pos))
+ yield (resources.import_name(info.name, info.dir.implode, thy), pos))
val overall_syntax = thy_deps.overall_syntax
@@ -261,7 +261,7 @@
def node(name: Document.Node.Name): Graph_Display.Node =
{
val qualifier = resources.theory_qualifier(name)
- if (qualifier == info.theory_qualifier)
+ if (qualifier == info.name)
Graph_Display.Node(name.theory_base_name, "theory." + name.theory)
else session_node(qualifier)
}
@@ -370,12 +370,6 @@
meta_digest: SHA1.Digest)
{
def timeout: Time = Time.seconds(options.real("timeout") * options.real("timeout_scale"))
-
- def theory_qualifier: String =
- options.string("theory_qualifier") match {
- case "" => name
- case qualifier => qualifier
- }
}
object Selection
@@ -496,7 +490,7 @@
thy <- info.global_theories.iterator }
yield (thy, info)))({
case (global, (thy, info)) =>
- val qualifier = info.theory_qualifier
+ val qualifier = info.name
global.get(thy) match {
case Some(qualifier1) if qualifier != qualifier1 =>
error("Duplicate global theory " + quote(thy) + Position.here(info.pos))
--- a/src/Pure/Tools/imports.scala Sat Oct 07 20:20:03 2017 +0200
+++ b/src/Pure/Tools/imports.scala Sat Oct 07 20:31:01 2017 +0200
@@ -104,7 +104,7 @@
val extra_imports =
(for {
(_, a) <- session_resources.session_base.known.theories.iterator
- if session_resources.theory_qualifier(a) == info.theory_qualifier
+ if session_resources.theory_qualifier(a) == info.name
b <- deps.all_known.get_file(a.path.file)
qualifier = session_resources.theory_qualifier(b)
if !declared_imports.contains(qualifier)
@@ -146,14 +146,13 @@
val updates_root =
for {
(_, pos) <- info.theories.flatMap(_._2)
- upd <- update_name(root_keywords, pos,
- standard_import(info.theory_qualifier, info.dir.implode, _))
+ upd <- update_name(root_keywords, pos, standard_import(info.name, info.dir.implode, _))
} yield upd
val updates_theories =
for {
(_, name) <- session_base.known.theories_local.toList
- if session_resources.theory_qualifier(name) == info.theory_qualifier
+ if session_resources.theory_qualifier(name) == info.name
(_, pos) <- session_resources.check_thy(name, Token.Pos.file(name.node)).imports
upd <- update_name(session_base.overall_syntax.keywords, pos,
standard_import(session_resources.theory_qualifier(name), name.master_dir, _))