src/Pure/Tools/isabelle_system.scala
author wenzelm
Sat, 16 Aug 2008 16:01:53 +0200
changeset 27919 1eb8a3902d49
child 27936 947cb8e3d313
permissions -rw-r--r--
Isabelle system support.
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
27919
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/Tools/isabelle_system.scala
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
     2
    ID:         $Id$
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
     3
    Author:     Makarius
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
     4
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
     5
Isabelle system support.
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
     6
*/
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
     7
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
     8
package isabelle
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
     9
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    10
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    11
object IsabelleSystem {
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    12
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    13
  /* Isabelle settings */
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    14
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    15
  class BadSetting(val name: String) extends Exception
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    16
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    17
  private def strict_getenv(name: String) = {
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    18
    val value = System.getenv(name)
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    19
    if (value == null || value == "") throw new BadSetting(name)
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    20
    else value
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    21
  }
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    22
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    23
  def ISABELLE_HOME() = strict_getenv("ISABELLE_HOME_JVM")
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    24
  def ISABELLE_HOME_USER() = strict_getenv("ISABELLE_HOME_USER_JVM")
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    25
1eb8a3902d49 Isabelle system support.
wenzelm
parents:
diff changeset
    26
}