src/Pure/Admin/isabelle_devel.scala
author wenzelm
Fri, 27 Mar 2020 22:01:27 +0100
changeset 71601 97ccf48c2f0c
parent 71272 1e7319957408
child 73340 0ffcad1f6130
permissions -rw-r--r--
misc tuning based on hints by IntelliJ IDEA;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/Admin/isabelle_devel.scala
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
     3
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
     4
Website for Isabelle development resources.
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
     5
*/
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
     6
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
     7
package isabelle
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
     8
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
     9
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    10
object Isabelle_Devel
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    11
{
65771
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    12
  val RELEASE_SNAPSHOT = "release_snapshot"
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    13
  val BUILD_LOG_DB = "build_log.db"
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    14
  val BUILD_STATUS = "build_status"
67854
8374c80165e1 publish current log file, e.g. for easy error detection;
wenzelm
parents: 66896
diff changeset
    15
  val CRONJOB_LOG = "cronjob-main.log"
8374c80165e1 publish current log file, e.g. for easy error detection;
wenzelm
parents: 66896
diff changeset
    16
71601
97ccf48c2f0c misc tuning based on hints by IntelliJ IDEA;
wenzelm
parents: 71272
diff changeset
    17
  val root: Path = Path.explode("~/html-data/devel")
97ccf48c2f0c misc tuning based on hints by IntelliJ IDEA;
wenzelm
parents: 71272
diff changeset
    18
  val cronjob_log: Path = root + Path.basic(CRONJOB_LOG)
65771
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    19
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    20
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    21
  /* index */
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    22
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    23
  def make_index()
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    24
  {
71272
1e7319957408 clarified website: redirect to isabelle-dev Phabricator Overview;
wenzelm
parents: 70105
diff changeset
    25
    val redirect = "https://isabelle-dev.sketis.net/home/menu/view/20"
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    26
65838
30c2d78b5d38 tuned signature;
wenzelm
parents: 65836
diff changeset
    27
    HTML.write_document(root, "index.html",
71272
1e7319957408 clarified website: redirect to isabelle-dev Phabricator Overview;
wenzelm
parents: 70105
diff changeset
    28
      List(
1e7319957408 clarified website: redirect to isabelle-dev Phabricator Overview;
wenzelm
parents: 70105
diff changeset
    29
        XML.Elem(Markup("meta",
1e7319957408 clarified website: redirect to isabelle-dev Phabricator Overview;
wenzelm
parents: 70105
diff changeset
    30
          List("http-equiv" -> "Refresh", "content" -> ("0; url=" + redirect))), Nil)),
1e7319957408 clarified website: redirect to isabelle-dev Phabricator Overview;
wenzelm
parents: 70105
diff changeset
    31
      List(HTML.link(redirect, HTML.text("Isabelle Development Resources"))))
65771
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    32
  }
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    33
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    34
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    35
  /* release snapshot */
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    36
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    37
  def release_snapshot(
69401
7a1b7b737c02 eliminated old makedist_bundle and remote_dmg: build_release does everything in Scala;
wenzelm
parents: 68229
diff changeset
    38
    options: Options,
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    39
    rev: String = "",
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    40
    afp_rev: String = "",
69432
d072f3287ffa discontinued somewhat point dmg: plain .tar.gz is smaller and more convenient to install;
wenzelm
parents: 69401
diff changeset
    41
    parallel_jobs: Int = 1)
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    42
  {
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    43
    Isabelle_System.with_tmp_dir("isadist")(base_dir =>
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    44
      {
65793
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    45
        Isabelle_System.update_directory(root + Path.explode(RELEASE_SNAPSHOT),
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    46
          website_dir =>
69401
7a1b7b737c02 eliminated old makedist_bundle and remote_dmg: build_release does everything in Scala;
wenzelm
parents: 68229
diff changeset
    47
            Build_Release.build_release(base_dir, options, rev = rev, afp_rev = afp_rev,
70105
eadd87383e30 clarified build of standard heaps;
wenzelm
parents: 69432
diff changeset
    48
              parallel_jobs = parallel_jobs,
eadd87383e30 clarified build of standard heaps;
wenzelm
parents: 69432
diff changeset
    49
              build_sessions = List(Isabelle_System.getenv("ISABELLE_LOGIC")),
eadd87383e30 clarified build of standard heaps;
wenzelm
parents: 69432
diff changeset
    50
              website = Some(website_dir)))
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    51
      })
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    52
  }
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    53
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    54
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    55
  /* maintain build_log database */
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    56
66896
85e6748bf8b2 clarified signature;
wenzelm
parents: 66047
diff changeset
    57
  def build_log_database(options: Options, log_dirs: List[Path])
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    58
  {
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    59
    val store = Build_Log.store(options)
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    60
    using(store.open_database())(db =>
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    61
    {
66047
3e8a897042d9 more robust: store important meta info before potential failure;
wenzelm
parents: 65854
diff changeset
    62
      store.update_database(db, log_dirs)
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    63
      store.update_database(db, log_dirs, ml_statistics = true)
65771
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    64
      store.snapshot_database(db, root + Path.explode(BUILD_LOG_DB))
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    65
    })
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    66
  }
65793
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    67
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    68
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    69
  /* present build status */
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    70
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    71
  def build_status(options: Options)
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    72
  {
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    73
    Isabelle_System.update_directory(root + Path.explode(BUILD_STATUS),
65854
db070951dfee include full ML statistics: max heap size;
wenzelm
parents: 65838
diff changeset
    74
      dir => Build_Status.build_status(options, target_dir = dir, ml_statistics = true))
65793
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    75
  }
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    76
}