src/Pure/Admin/isabelle_devel.scala
author wenzelm
Thu, 15 Jun 2023 14:28:17 +0200
changeset 78158 8b5a2e4b16d4
parent 77744 1398add8c414
child 78871 3b21101c5b6b
permissions -rw-r--r--
tuned signature;
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
75393
87ebf5a50283 clarified formatting, for the sake of scala3;
wenzelm
parents: 74857
diff changeset
    10
object Isabelle_Devel {
65771
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    11
  val RELEASE_SNAPSHOT = "release_snapshot"
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    12
  val BUILD_LOG_DB = "build_log.db"
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    13
  val BUILD_STATUS = "build_status"
67854
8374c80165e1 publish current log file, e.g. for easy error detection;
wenzelm
parents: 66896
diff changeset
    14
  val CRONJOB_LOG = "cronjob-main.log"
8374c80165e1 publish current log file, e.g. for easy error detection;
wenzelm
parents: 66896
diff changeset
    15
71601
97ccf48c2f0c misc tuning based on hints by IntelliJ IDEA;
wenzelm
parents: 71272
diff changeset
    16
  val root: Path = Path.explode("~/html-data/devel")
97ccf48c2f0c misc tuning based on hints by IntelliJ IDEA;
wenzelm
parents: 71272
diff changeset
    17
  val cronjob_log: Path = root + Path.basic(CRONJOB_LOG)
77744
1398add8c414 clarified modules;
wenzelm
parents: 77680
diff changeset
    18
  val build_log_snapshot: Path = root + Path.explode(BUILD_LOG_DB)
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
75393
87ebf5a50283 clarified formatting, for the sake of scala3;
wenzelm
parents: 74857
diff changeset
    23
  def make_index(): Unit = {
71272
1e7319957408 clarified website: redirect to isabelle-dev Phabricator Overview;
wenzelm
parents: 70105
diff changeset
    24
    val redirect = "https://isabelle-dev.sketis.net/home/menu/view/20"
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    25
65838
30c2d78b5d38 tuned signature;
wenzelm
parents: 65836
diff changeset
    26
    HTML.write_document(root, "index.html",
71272
1e7319957408 clarified website: redirect to isabelle-dev Phabricator Overview;
wenzelm
parents: 70105
diff changeset
    27
      List(
1e7319957408 clarified website: redirect to isabelle-dev Phabricator Overview;
wenzelm
parents: 70105
diff changeset
    28
        XML.Elem(Markup("meta",
1e7319957408 clarified website: redirect to isabelle-dev Phabricator Overview;
wenzelm
parents: 70105
diff changeset
    29
          List("http-equiv" -> "Refresh", "content" -> ("0; url=" + redirect))), Nil)),
1e7319957408 clarified website: redirect to isabelle-dev Phabricator Overview;
wenzelm
parents: 70105
diff changeset
    30
      List(HTML.link(redirect, HTML.text("Isabelle Development Resources"))))
65771
688a7dd22cbb make index formally within Isabelle/Scala;
wenzelm
parents: 65770
diff changeset
    31
  }
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    32
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    33
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    34
  /* release snapshot */
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    35
75551
4103b945c7b5 more informative release_snapshot, to see better where the cronjob fails;
wenzelm
parents: 75394
diff changeset
    36
  def release_snapshot(options: Options, rev: String, afp_rev: String,
4103b945c7b5 more informative release_snapshot, to see better where the cronjob fails;
wenzelm
parents: 75394
diff changeset
    37
    progress: Progress = new Progress
4103b945c7b5 more informative release_snapshot, to see better where the cronjob fails;
wenzelm
parents: 75394
diff changeset
    38
  ): Unit = {
75394
42267c650205 tuned formatting;
wenzelm
parents: 75393
diff changeset
    39
    Isabelle_System.with_tmp_dir("isadist") { target_dir =>
42267c650205 tuned formatting;
wenzelm
parents: 75393
diff changeset
    40
      Isabelle_System.update_directory(root + Path.explode(RELEASE_SNAPSHOT),
42267c650205 tuned formatting;
wenzelm
parents: 75393
diff changeset
    41
        { website_dir =>
75551
4103b945c7b5 more informative release_snapshot, to see better where the cronjob fails;
wenzelm
parents: 75394
diff changeset
    42
          val context = Build_Release.Release_Context(target_dir, progress = progress)
73629
a771807df752 support for existing release archive;
wenzelm
parents: 73625
diff changeset
    43
          Build_Release.build_release_archive(context, rev)
a771807df752 support for existing release archive;
wenzelm
parents: 73625
diff changeset
    44
          Build_Release.build_release(options, context, afp_rev = afp_rev,
73625
f8f065e20837 misc tuning and clarification: more explicit types Release_Context, Release_Archive;
wenzelm
parents: 73607
diff changeset
    45
            build_sessions = List(Isabelle_System.getenv("ISABELLE_LOGIC")),
f8f065e20837 misc tuning and clarification: more explicit types Release_Context, Release_Archive;
wenzelm
parents: 73607
diff changeset
    46
            website = Some(website_dir))
75394
42267c650205 tuned formatting;
wenzelm
parents: 75393
diff changeset
    47
        }
42267c650205 tuned formatting;
wenzelm
parents: 75393
diff changeset
    48
      )
42267c650205 tuned formatting;
wenzelm
parents: 75393
diff changeset
    49
    }
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    50
  }
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    51
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    52
65793
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    53
  /* present build status */
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    54
75393
87ebf5a50283 clarified formatting, for the sake of scala3;
wenzelm
parents: 74857
diff changeset
    55
  def build_status(options: Options): Unit = {
65793
96b4799a2e04 more robust update of generated directory;
wenzelm
parents: 65785
diff changeset
    56
    Isabelle_System.update_directory(root + Path.explode(BUILD_STATUS),
65854
db070951dfee include full ML statistics: max heap size;
wenzelm
parents: 65838
diff changeset
    57
      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
    58
  }
65770
fb8a7962f2ae clarified modules;
wenzelm
parents:
diff changeset
    59
}