src/Pure/Tools/main.scala
author wenzelm
Sun, 13 Jan 2019 16:57:25 +0100
changeset 69644 f044766cd94f
parent 69368 6f360600eabc
child 69770 efb0e5332441
permissions -rw-r--r--
File Browser is open by default;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
50687
a8db4bf70e90 moved files;
wenzelm
parents: 48275
diff changeset
     1
/*  Title:      Pure/Tools/main.scala
47663
20e0865ae9e7 default Isabelle application wrapper -- JVM entry point for Isabelle.exe;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
20e0865ae9e7 default Isabelle application wrapper -- JVM entry point for Isabelle.exe;
wenzelm
parents:
diff changeset
     3
53419
1c87e79bb838 main application entry point involves implicit Cygwin init, depending on "uninitialized" file indicator;
wenzelm
parents: 52675
diff changeset
     4
Main Isabelle application entry point.
47663
20e0865ae9e7 default Isabelle application wrapper -- JVM entry point for Isabelle.exe;
wenzelm
parents:
diff changeset
     5
*/
20e0865ae9e7 default Isabelle application wrapper -- JVM entry point for Isabelle.exe;
wenzelm
parents:
diff changeset
     6
20e0865ae9e7 default Isabelle application wrapper -- JVM entry point for Isabelle.exe;
wenzelm
parents:
diff changeset
     7
package isabelle
20e0865ae9e7 default Isabelle application wrapper -- JVM entry point for Isabelle.exe;
wenzelm
parents:
diff changeset
     8
53419
1c87e79bb838 main application entry point involves implicit Cygwin init, depending on "uninitialized" file indicator;
wenzelm
parents: 52675
diff changeset
     9
55618
995162143ef4 tuned imports;
wenzelm
parents: 54351
diff changeset
    10
import java.lang.{Class, ClassLoader}
47663
20e0865ae9e7 default Isabelle application wrapper -- JVM entry point for Isabelle.exe;
wenzelm
parents:
diff changeset
    11
20e0865ae9e7 default Isabelle application wrapper -- JVM entry point for Isabelle.exe;
wenzelm
parents:
diff changeset
    12
20e0865ae9e7 default Isabelle application wrapper -- JVM entry point for Isabelle.exe;
wenzelm
parents:
diff changeset
    13
object Main
20e0865ae9e7 default Isabelle application wrapper -- JVM entry point for Isabelle.exe;
wenzelm
parents:
diff changeset
    14
{
61282
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
    15
  /* main entry point */
53461
26c609ada983 clarified modules;
wenzelm
parents: 53460
diff changeset
    16
53456
d12be8f62285 Build_Dialog based on System_Dialog;
wenzelm
parents: 53449
diff changeset
    17
  def main(args: Array[String])
53449
913df2adc99c build session before start of jedit;
wenzelm
parents: 53445
diff changeset
    18
  {
61282
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
    19
    val start =
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    20
    {
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    21
      try {
61282
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
    22
        Isabelle_System.init()
69368
6f360600eabc clarified signature: fonts are not dependent on GUI;
wenzelm
parents: 69188
diff changeset
    23
        Isabelle_Fonts.init()
61282
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
    24
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
    25
66577
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    26
        /* ROOTS template */
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    27
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    28
        {
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    29
          val roots = Path.explode("$ISABELLE_HOME_USER/ROOTS")
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    30
          if (!roots.is_file) File.write(roots, """# Additional session root directories
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    31
#
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    32
#   * each line contains one directory entry in Isabelle path notation
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    33
#   * lines starting with "#" are stripped
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    34
#   * changes require application restart
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    35
#
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    36
#:mode=text:encoding=UTF-8:
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    37
""")
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    38
        }
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    39
6e35cf3ce869 template for $ISABELLE_HOME_USER/ROOTS;
wenzelm
parents: 66463
diff changeset
    40
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    41
        /* settings directory */
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    42
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    43
        val settings_dir = Path.explode("$JEDIT_SETTINGS")
66463
934bd55d768a enforce Isabelle plugins to be enabled;
wenzelm
parents: 65875
diff changeset
    44
934bd55d768a enforce Isabelle plugins to be enabled;
wenzelm
parents: 65875
diff changeset
    45
        val properties = settings_dir + Path.explode("properties")
934bd55d768a enforce Isabelle plugins to be enabled;
wenzelm
parents: 65875
diff changeset
    46
        if (properties.is_file) {
934bd55d768a enforce Isabelle plugins to be enabled;
wenzelm
parents: 65875
diff changeset
    47
          val props1 = split_lines(File.read(properties))
934bd55d768a enforce Isabelle plugins to be enabled;
wenzelm
parents: 65875
diff changeset
    48
          val props2 = props1.filterNot(_.startsWith("plugin-blacklist.Isabelle-jEdit"))
934bd55d768a enforce Isabelle plugins to be enabled;
wenzelm
parents: 65875
diff changeset
    49
          if (props1 != props2) File.write(properties, cat_lines(props2))
934bd55d768a enforce Isabelle plugins to be enabled;
wenzelm
parents: 65875
diff changeset
    50
        }
934bd55d768a enforce Isabelle plugins to be enabled;
wenzelm
parents: 65875
diff changeset
    51
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    52
        Isabelle_System.mkdirs(settings_dir + Path.explode("DockableWindowManager"))
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    53
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    54
        if (!(settings_dir + Path.explode("perspective.xml")).is_file) {
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    55
          File.write(settings_dir + Path.explode("DockableWindowManager/perspective-view0.xml"),
69644
f044766cd94f File Browser is open by default;
wenzelm
parents: 69368
diff changeset
    56
            """<DOCKING LEFT="vfs.browser" TOP="" RIGHT="isabelle-documentation" BOTTOM="" LEFT_POS="250" TOP_POS="0" RIGHT_POS="250" BOTTOM_POS="250" />""")
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    57
          File.write(settings_dir + Path.explode("perspective.xml"),
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    58
            """<?xml version="1.0" encoding="UTF-8" ?>
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    59
<!DOCTYPE PERSPECTIVE SYSTEM "perspective.dtd">
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    60
<PERSPECTIVE>
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    61
<VIEW PLAIN="FALSE">
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    62
<GEOMETRY X="0" Y="35" WIDTH="1072" HEIGHT="787" EXT_STATE="0" />
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    63
</VIEW>
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    64
</PERSPECTIVE>""")
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    65
        }
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    66
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    67
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    68
        /* args */
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    69
62036
773cb226738c provide server name uniformly on all platforms;
wenzelm
parents: 61512
diff changeset
    70
        val jedit_settings =
773cb226738c provide server name uniformly on all platforms;
wenzelm
parents: 61512
diff changeset
    71
          "-settings=" + File.platform_path(Path.explode("$JEDIT_SETTINGS"))
773cb226738c provide server name uniformly on all platforms;
wenzelm
parents: 61512
diff changeset
    72
773cb226738c provide server name uniformly on all platforms;
wenzelm
parents: 61512
diff changeset
    73
        val jedit_server =
773cb226738c provide server name uniformly on all platforms;
wenzelm
parents: 61512
diff changeset
    74
          System.getProperty("isabelle.jedit_server") match {
773cb226738c provide server name uniformly on all platforms;
wenzelm
parents: 61512
diff changeset
    75
            case null | "" => "-noserver"
773cb226738c provide server name uniformly on all platforms;
wenzelm
parents: 61512
diff changeset
    76
            case name => "-server=" + name
773cb226738c provide server name uniformly on all platforms;
wenzelm
parents: 61512
diff changeset
    77
          }
773cb226738c provide server name uniformly on all platforms;
wenzelm
parents: 61512
diff changeset
    78
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    79
        val jedit_options =
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    80
          Isabelle_System.getenv_strict("JEDIT_OPTIONS").split(" +")
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    81
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    82
        val more_args =
61512
933463440449 more uniform command-line for "isabelle jedit" and the isabelle.Main app wrapper;
wenzelm
parents: 61307
diff changeset
    83
        {
933463440449 more uniform command-line for "isabelle jedit" and the isabelle.Main app wrapper;
wenzelm
parents: 61307
diff changeset
    84
          args.toList.dropWhile(arg => arg.startsWith("-") && arg != "--") match {
933463440449 more uniform command-line for "isabelle jedit" and the isabelle.Main app wrapper;
wenzelm
parents: 61307
diff changeset
    85
            case Nil | List("--") =>
933463440449 more uniform command-line for "isabelle jedit" and the isabelle.Main app wrapper;
wenzelm
parents: 61307
diff changeset
    86
              args ++ Array(File.platform_path(Path.explode("$USER_HOME/Scratch.thy")))
933463440449 more uniform command-line for "isabelle jedit" and the isabelle.Main app wrapper;
wenzelm
parents: 61307
diff changeset
    87
            case List(":") => args.slice(0, args.size - 1)
933463440449 more uniform command-line for "isabelle jedit" and the isabelle.Main app wrapper;
wenzelm
parents: 61307
diff changeset
    88
            case _ => args
933463440449 more uniform command-line for "isabelle jedit" and the isabelle.Main app wrapper;
wenzelm
parents: 61307
diff changeset
    89
          }
933463440449 more uniform command-line for "isabelle jedit" and the isabelle.Main app wrapper;
wenzelm
parents: 61307
diff changeset
    90
        }
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    91
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    92
69188
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
    93
        /* environment */
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
    94
69188
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
    95
        def putenv(name: String, value: String)
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
    96
        {
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
    97
          val misc =
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
    98
            Class.forName("org.gjt.sp.jedit.MiscUtilities", true, ClassLoader.getSystemClassLoader)
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
    99
          val putenv = misc.getMethod("putenv", classOf[String], classOf[String])
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   100
          putenv.invoke(null, name, value)
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   101
        }
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   102
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   103
        for (name <- List("ISABELLE_HOME", "ISABELLE_HOME_USER", "JEDIT_HOME", "JEDIT_SETTINGS")) {
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   104
          putenv(name, File.platform_path(Isabelle_System.getenv(name)))
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   105
        }
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   106
        putenv("ISABELLE_ROOT", null)
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   107
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   108
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   109
        /* properties */
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
   110
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
   111
        System.setProperty("jedit.home", File.platform_path(Path.explode("$JEDIT_HOME/dist")))
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
   112
        System.setProperty("scala.home", File.platform_path(Path.explode("$SCALA_HOME")))
65875
12c90c0c4b32 suppress ANSI control sequences in Scala console;
wenzelm
parents: 63749
diff changeset
   113
        System.setProperty("scala.color", "false")
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
   114
69188
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   115
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   116
        /* main startup */
2fd73a1a0937 updated to jedit_build-20181025 according to patches/macos (Java 11), patches/putenv;
wenzelm
parents: 66577
diff changeset
   117
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
   118
        val jedit =
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
   119
          Class.forName("org.gjt.sp.jedit.jEdit", true, ClassLoader.getSystemClassLoader)
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
   120
        val jedit_main = jedit.getMethod("main", classOf[Array[String]])
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
   121
62036
773cb226738c provide server name uniformly on all platforms;
wenzelm
parents: 61512
diff changeset
   122
        () => jedit_main.invoke(
773cb226738c provide server name uniformly on all platforms;
wenzelm
parents: 61512
diff changeset
   123
          null, Array(jedit_settings, jedit_server) ++ jedit_options ++ more_args)
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
   124
      }
61282
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
   125
      catch {
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
   126
        case exn: Throwable =>
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
   127
          GUI.init_laf()
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
   128
          GUI.dialog(null, "Isabelle", GUI.scrollable_text(Exn.message(exn)))
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
   129
          sys.exit(2)
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
   130
      }
61277
c9152a195899 build session within running jEdit;
wenzelm
parents: 61186
diff changeset
   131
    }
61282
3e578ddef85d clarified Isabelle_System.init;
wenzelm
parents: 61281
diff changeset
   132
    start()
53445
811db2b751ed warm start of Isabelle/jEdit from Isabelle/Scala;
wenzelm
parents: 53423
diff changeset
   133
  }
47663
20e0865ae9e7 default Isabelle application wrapper -- JVM entry point for Isabelle.exe;
wenzelm
parents:
diff changeset
   134
}