src/Pure/Thy/presentation.scala
author wenzelm
Sat, 02 Jan 2021 16:30:43 +0100
changeset 73028 95e0f014cd24
parent 73022 38528017e4c8
child 73036 b028e8d22d8d
permissions -rw-r--r--
tuned signature;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
50707
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/Thy/present.scala
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
     3
72957
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
     4
HTML/PDF presentation of theory documents.
50707
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
     5
*/
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
     6
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
     7
package isabelle
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
     8
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
     9
51402
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
    10
import scala.collection.immutable.SortedMap
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
    11
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
    12
72652
07edf1952ab1 clarified modules;
wenzelm
parents: 72650
diff changeset
    13
object Presentation
50707
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
    14
{
72957
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    15
  /** HTML documents **/
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    16
72962
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    17
  val fonts_path = Path.explode("fonts")
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    18
72957
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    19
  sealed case class HTML_Document(title: String, content: String)
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    20
72959
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    21
  def html_context(fonts_url: String => String = HTML.fonts_url()): HTML_Context =
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    22
    new HTML_Context(fonts_url)
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    23
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    24
  final class HTML_Context private[Presentation](fonts_url: String => String)
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    25
  {
72962
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    26
    def init_fonts(dir: Path)
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    27
    {
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    28
      val fonts_dir = Isabelle_System.make_directory(dir + fonts_path)
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    29
      for (entry <- Isabelle_Fonts.fonts(hidden = true))
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    30
        File.copy(entry.path, fonts_dir)
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    31
    }
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    32
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    33
    def head(title: String, rest: XML.Body = Nil): XML.Tree =
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    34
      HTML.div("head", HTML.chapter(title) :: rest)
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    35
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    36
    def source(body: XML.Body): XML.Tree = HTML.pre("source", body)
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    37
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    38
    def contents(heading: String, items: List[XML.Body], css_class: String = "contents")
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    39
      : List[XML.Elem] =
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    40
    {
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    41
      if (items.isEmpty) Nil
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    42
      else List(HTML.div(css_class, List(HTML.section(heading), HTML.itemize(items))))
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    43
    }
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
    44
72959
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    45
    def output_document(title: String, body: XML.Body): String =
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    46
      HTML.output_document(
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    47
        List(
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    48
          HTML.style(HTML.fonts_css(fonts_url) + "\n\n" + File.read(HTML.isabelle_css)),
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    49
          HTML.title(title)),
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    50
        List(HTML.source(body)), css = "", structural = false)
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    51
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    52
    def html_document(title: String, body: XML.Body): HTML_Document =
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    53
      HTML_Document(title, output_document(title, body))
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    54
  }
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
    55
72957
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    56
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    57
  /* HTML body */
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    58
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    59
  private val div_elements =
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    60
    Set(HTML.div.name, HTML.pre.name, HTML.par.name, HTML.list.name, HTML.enum.name,
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    61
      HTML.descr.name)
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    62
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    63
  private def html_div(html: XML.Body): Boolean =
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    64
    html exists {
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    65
      case XML.Elem(markup, body) => div_elements.contains(markup.name) || html_div(body)
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    66
      case XML.Text(_) => false
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    67
    }
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    68
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    69
  private def html_class(c: String, html: XML.Body): XML.Tree =
73028
95e0f014cd24 tuned signature;
wenzelm
parents: 73022
diff changeset
    70
    if (html.forall(_ == XML.no_text)) XML.no_text
72957
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    71
    else if (html_div(html)) HTML.div(c, html)
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    72
    else HTML.span(c, html)
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    73
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    74
  private def html_body(xml: XML.Body): XML.Body =
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    75
    xml map {
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    76
      case XML.Elem(Markup(Markup.LANGUAGE, Markup.Name(Markup.Language.DOCUMENT)), body) =>
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    77
        html_class(Markup.Language.DOCUMENT, html_body(body))
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    78
      case XML.Elem(Markup(Markup.MARKDOWN_PARAGRAPH, _), body) => HTML.par(html_body(body))
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    79
      case XML.Elem(Markup(Markup.MARKDOWN_ITEM, _), body) => HTML.item(html_body(body))
73028
95e0f014cd24 tuned signature;
wenzelm
parents: 73022
diff changeset
    80
      case XML.Elem(Markup(Markup.Markdown_Bullet.name, _), _) => XML.no_text
72957
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    81
      case XML.Elem(Markup.Markdown_List(kind), body) =>
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    82
        if (kind == Markup.ENUMERATE) HTML.enum(html_body(body)) else HTML.list(html_body(body))
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    83
      case XML.Elem(markup, body) =>
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    84
        val name = markup.name
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    85
        val html =
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    86
          markup.properties match {
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    87
            case Markup.Kind(kind) if kind == Markup.COMMAND || kind == Markup.KEYWORD =>
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    88
              List(html_class(kind, html_body(body)))
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    89
            case _ =>
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    90
              html_body(body)
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    91
          }
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    92
        Rendering.foreground.get(name) orElse Rendering.text_color.get(name) match {
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    93
          case Some(c) => html_class(c.toString, html)
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    94
          case None => html_class(name, html)
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    95
        }
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    96
      case XML.Text(text) =>
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    97
        XML.Text(Symbol.decode(text))
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    98
    }
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
    99
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   100
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   101
  /* PIDE HTML document */
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   102
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   103
  val html_elements: Markup.Elements =
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   104
    Rendering.foreground_elements ++ Rendering.text_color_elements ++ Rendering.markdown_elements +
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   105
      Markup.NUMERAL + Markup.COMMENT + Markup.LANGUAGE
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   106
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   107
  def html_document(
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   108
    resources: Resources,
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   109
    snapshot: Document.Snapshot,
72962
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   110
    html_context: HTML_Context,
72959
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
   111
    plain_text: Boolean = false): HTML_Document =
72957
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   112
  {
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   113
    require(!snapshot.is_outdated)
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   114
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   115
    val name = snapshot.node_name
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   116
    if (plain_text) {
72962
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   117
      val title = "File " + Symbol.cartouche_decoded(name.path.file_name)
72959
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
   118
      val body = HTML.text(snapshot.node.source)
72962
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   119
      html_context.html_document(title, body)
72957
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   120
    }
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   121
    else {
72962
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   122
      resources.html_document(snapshot) getOrElse {
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   123
        val title =
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   124
          if (name.is_theory) "Theory " + quote(name.theory_base_name)
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   125
          else "File " + Symbol.cartouche_decoded(name.path.file_name)
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   126
        val body = html_body(snapshot.xml_markup(elements = html_elements))
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   127
        html_context.html_document(title, body)
72957
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   128
      }
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   129
    }
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   130
  }
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   131
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   132
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   133
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   134
  /** PDF LaTeX documents **/
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   135
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   136
  /* document info */
72649
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   137
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   138
  abstract class Document_Name
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   139
  {
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   140
    def name: String
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   141
    def path: Path = Path.basic(name)
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   142
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   143
    override def toString: String = name
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   144
  }
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   145
72649
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   146
  object Document_Variant
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   147
  {
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   148
    def parse(name: String, tags: String): Document_Variant =
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   149
      Document_Variant(name, Library.space_explode(',', tags))
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   150
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   151
    def parse(opt: String): Document_Variant =
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   152
      Library.space_explode('=', opt) match {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   153
        case List(name) => Document_Variant(name, Nil)
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   154
        case List(name, tags) => parse(name, tags)
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   155
        case _ => error("Malformed document variant: " + quote(opt))
72649
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   156
      }
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   157
  }
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   158
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   159
  sealed case class Document_Variant(name: String, tags: List[String]) extends Document_Name
72649
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   160
  {
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   161
    def print_tags: String = tags.mkString(",")
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   162
    def print: String = if (tags.isEmpty) name else name + "=" + print_tags
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   163
72649
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   164
    def latex_sty: String =
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   165
      Library.terminate_lines(
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   166
        tags.map(tag =>
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   167
          tag.toList match {
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   168
            case '/' :: cs => "\\isafoldtag{" + cs.mkString + "}"
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   169
            case '-' :: cs => "\\isadroptag{" + cs.mkString + "}"
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   170
            case '+' :: cs => "\\isakeeptag{" + cs.mkString + "}"
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   171
            case cs => "\\isakeeptag{" + cs.mkString + "}"
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   172
          }))
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   173
  }
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   174
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   175
  sealed case class Document_Input(name: String, sources: SHA1.Digest)
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   176
    extends Document_Name
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   177
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   178
  sealed case class Document_Output(name: String, sources: SHA1.Digest, log_xz: Bytes, pdf: Bytes)
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   179
    extends Document_Name
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   180
  {
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   181
    def log: String = log_xz.uncompress().text
72699
ed59a506998f clarified document_output vs. progress;
wenzelm
parents: 72696
diff changeset
   182
    def log_lines: List[String] = split_lines(log)
72700
c6981f55e60d tuned signature;
wenzelm
parents: 72699
diff changeset
   183
72880
wenzelm
parents: 72854
diff changeset
   184
    def write(db: SQL.Database, session_name: String): Unit =
72700
c6981f55e60d tuned signature;
wenzelm
parents: 72699
diff changeset
   185
      write_document(db, session_name, this)
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   186
  }
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   187
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   188
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   189
  /* SQL data model */
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   190
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   191
  object Data
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   192
  {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   193
    val session_name = SQL.Column.string("session_name").make_primary_key
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   194
    val name = SQL.Column.string("name").make_primary_key
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   195
    val sources = SQL.Column.string("sources")
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   196
    val log_xz = SQL.Column.bytes("log_xz")
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   197
    val pdf = SQL.Column.bytes("pdf")
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   198
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   199
    val table = SQL.Table("isabelle_documents", List(session_name, name, sources, log_xz, pdf))
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   200
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   201
    def where_equal(session_name: String, name: String = ""): SQL.Source =
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   202
      "WHERE " + Data.session_name.equal(session_name) +
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   203
        (if (name == "") "" else " AND " + Data.name.equal(name))
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   204
  }
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   205
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   206
  def read_documents(db: SQL.Database, session_name: String): List[Document_Input] =
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   207
  {
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   208
    val select = Data.table.select(List(Data.name, Data.sources), Data.where_equal(session_name))
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   209
    db.using_statement(select)(stmt =>
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   210
      stmt.execute_query().iterator(res =>
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   211
      {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   212
        val name = res.string(Data.name)
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   213
        val sources = res.string(Data.sources)
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   214
        Document_Input(name, SHA1.fake(sources))
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   215
      }).toList)
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   216
  }
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   217
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   218
  def read_document(db: SQL.Database, session_name: String, name: String): Option[Document_Output] =
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   219
  {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   220
    val select = Data.table.select(sql = Data.where_equal(session_name, name))
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   221
    db.using_statement(select)(stmt =>
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   222
    {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   223
      val res = stmt.execute_query()
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   224
      if (res.next()) {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   225
        val name = res.string(Data.name)
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   226
        val sources = res.string(Data.sources)
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   227
        val log_xz = res.bytes(Data.log_xz)
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   228
        val pdf = res.bytes(Data.pdf)
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   229
        Some(Document_Output(name, SHA1.fake(sources), log_xz, pdf))
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   230
      }
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   231
      else None
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   232
    })
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   233
  }
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   234
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   235
  def write_document(db: SQL.Database, session_name: String, doc: Document_Output)
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   236
  {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   237
    db.using_statement(Data.table.insert())(stmt =>
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   238
    {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   239
      stmt.string(1) = session_name
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   240
      stmt.string(2) = doc.name
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   241
      stmt.string(3) = doc.sources.toString
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   242
      stmt.bytes(4) = doc.log_xz
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   243
      stmt.bytes(5) = doc.pdf
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   244
      stmt.execute()
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   245
    })
72649
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   246
  }
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   247
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   248
72648
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   249
  /* presentation context */
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   250
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   251
  object Context
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   252
  {
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   253
    val none: Context = new Context { def enabled: Boolean = false }
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   254
    val standard: Context = new Context { def enabled: Boolean = true }
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   255
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   256
    def dir(path: Path): Context =
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   257
      new Context {
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   258
        def enabled: Boolean = true
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   259
        override def dir(store: Sessions.Store): Path = path
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   260
      }
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   261
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   262
    def make(s: String): Context =
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   263
      if (s == ":") standard else dir(Path.explode(s))
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   264
  }
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   265
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   266
  abstract class Context private
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   267
  {
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   268
    def enabled: Boolean
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   269
    def enabled(info: Sessions.Info): Boolean = enabled || info.browser_info
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   270
    def dir(store: Sessions.Store): Path = store.presentation_dir
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   271
    def dir(store: Sessions.Store, info: Sessions.Info): Path =
72670
4db9411c859c tuned signature;
wenzelm
parents: 72669
diff changeset
   272
      dir(store) + Path.explode(info.chapter_session)
72648
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   273
  }
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   274
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   275
72957
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   276
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   277
  /** HTML presentation **/
75fc90edc0a8 clarified signature and module structure;
wenzelm
parents: 72956
diff changeset
   278
72955
942bf91545fa clarified comments: file-system access is always unsynchronized;
wenzelm
parents: 72882
diff changeset
   279
  /* maintain chapter index */
50707
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
   280
51399
6ac3c29a300e discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents: 50707
diff changeset
   281
  private val sessions_path = Path.basic(".sessions")
50707
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
   282
51402
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
   283
  private def read_sessions(dir: Path): List[(String, String)] =
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
   284
  {
51416
e2505a192a7c do not absorb I/O errors;
wenzelm
parents: 51406
diff changeset
   285
    val path = dir + sessions_path
e2505a192a7c do not absorb I/O errors;
wenzelm
parents: 51406
diff changeset
   286
    if (path.is_file) {
e2505a192a7c do not absorb I/O errors;
wenzelm
parents: 51406
diff changeset
   287
      import XML.Decode._
65344
b99283eed13c clarified YXML vs. symbol encoding: operate on whole message;
wenzelm
parents: 65089
diff changeset
   288
      list(pair(string, string))(Symbol.decode_yxml(File.read(path)))
51416
e2505a192a7c do not absorb I/O errors;
wenzelm
parents: 51406
diff changeset
   289
    }
e2505a192a7c do not absorb I/O errors;
wenzelm
parents: 51406
diff changeset
   290
    else Nil
51402
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
   291
  }
50707
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
   292
51402
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
   293
  private def write_sessions(dir: Path, sessions: List[(String, String)])
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
   294
  {
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
   295
    import XML.Encode._
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
   296
    File.write(dir + sessions_path, YXML.string_of_body(list(pair(string, string))(sessions)))
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
   297
  }
50707
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
   298
61372
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   299
  def update_chapter_index(browser_info: Path, chapter: String, new_sessions: List[(String, String)])
51399
6ac3c29a300e discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents: 50707
diff changeset
   300
  {
72376
04bce3478688 clarified signature;
wenzelm
parents: 72375
diff changeset
   301
    val dir = Isabelle_System.make_directory(browser_info + Path.basic(chapter))
50707
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
   302
51399
6ac3c29a300e discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents: 50707
diff changeset
   303
    val sessions0 =
51406
950b897f95bb proper path -- I/O was hidden due to permissiveness;
wenzelm
parents: 51402
diff changeset
   304
      try { read_sessions(dir) }
51987
7d8e0e3c553b tuned signature;
wenzelm
parents: 51416
diff changeset
   305
      catch { case _: XML.Error => Nil }
51399
6ac3c29a300e discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents: 50707
diff changeset
   306
51402
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
   307
    val sessions = (SortedMap.empty[String, String] ++ sessions0 ++ new_sessions).toList
65988
8040d2563593 modernized generated HTML;
wenzelm
parents: 65404
diff changeset
   308
    write_sessions(dir, sessions)
51402
b05cd411d3d3 include session description in chapter index;
wenzelm
parents: 51399
diff changeset
   309
65988
8040d2563593 modernized generated HTML;
wenzelm
parents: 65404
diff changeset
   310
    val title = "Isabelle/" + chapter + " sessions"
8040d2563593 modernized generated HTML;
wenzelm
parents: 65404
diff changeset
   311
    HTML.write_document(dir, "index.html",
8040d2563593 modernized generated HTML;
wenzelm
parents: 65404
diff changeset
   312
      List(HTML.title(title + " (" + Distribution.version + ")")),
8040d2563593 modernized generated HTML;
wenzelm
parents: 65404
diff changeset
   313
      HTML.chapter(title) ::
8040d2563593 modernized generated HTML;
wenzelm
parents: 65404
diff changeset
   314
       (if (sessions.isEmpty) Nil
8040d2563593 modernized generated HTML;
wenzelm
parents: 65404
diff changeset
   315
        else
65992
50daca61efd6 tuned signature;
wenzelm
parents: 65989
diff changeset
   316
          List(HTML.div("sessions",
50daca61efd6 tuned signature;
wenzelm
parents: 65989
diff changeset
   317
            List(HTML.description(
65988
8040d2563593 modernized generated HTML;
wenzelm
parents: 65404
diff changeset
   318
              sessions.map({ case (name, description) =>
69318
f3351bb4390e clarified presentation;
wenzelm
parents: 69255
diff changeset
   319
                val descr = Symbol.trim_blank_lines(description)
65989
68cd15585f46 tuned layout;
wenzelm
parents: 65988
diff changeset
   320
                (List(HTML.link(name + "/index.html", HTML.text(name))),
69318
f3351bb4390e clarified presentation;
wenzelm
parents: 69255
diff changeset
   321
                  if (descr == "") Nil
f3351bb4390e clarified presentation;
wenzelm
parents: 69255
diff changeset
   322
                  else HTML.break ::: List(HTML.pre(HTML.text(descr)))) })))))))
51399
6ac3c29a300e discontinued "isabelle usedir" option -r (reset session path);
wenzelm
parents: 50707
diff changeset
   323
  }
61372
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   324
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   325
  def make_global_index(browser_info: Path)
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   326
  {
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   327
    if (!(browser_info + Path.explode("index.html")).is_file) {
72375
e48d93811ed7 clarified signature;
wenzelm
parents: 72309
diff changeset
   328
      Isabelle_System.make_directory(browser_info)
61372
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   329
      File.copy(Path.explode("~~/lib/logo/isabelle.gif"),
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   330
        browser_info + Path.explode("isabelle.gif"))
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   331
      File.write(browser_info + Path.explode("index.html"),
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   332
        File.read(Path.explode("~~/lib/html/library_index_header.template")) +
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   333
        File.read(Path.explode("~~/lib/html/library_index_content.template")) +
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   334
        File.read(Path.explode("~~/lib/html/library_index_footer.template")))
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   335
    }
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   336
  }
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   337
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   338
72622
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   339
  /* present session */
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   340
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   341
  val session_graph_path = Path.explode("session_graph.pdf")
72959
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
   342
  val readme_path = Path.explode("README.html")
a093b8fc9e21 tuned signature: more explicit types;
wenzelm
parents: 72957
diff changeset
   343
  val files_path = Path.explode("files")
72622
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   344
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   345
  def html_name(name: Document.Node.Name): String = name.theory_base_name + ".html"
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   346
72669
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   347
  def token_markups(keywords: Keyword.Keywords, tok: Token): List[String] = {
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   348
    if (keywords.is_command(tok, Keyword.theory_end))
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   349
      List(Markup.KEYWORD2, Markup.KEYWORD)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   350
    else if (keywords.is_command(tok, Keyword.proof_asm))
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   351
      List(Markup.KEYWORD3, Markup.COMMAND)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   352
    else if (keywords.is_command(tok, Keyword.improper))
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   353
      List(Markup.KEYWORD1, Markup.IMPROPER, Markup.COMMAND)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   354
    else if (tok.is_command) List(Markup.KEYWORD1, Markup.COMMAND)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   355
    else if (tok.is_delimiter) List(Markup.DELIMITER, Markup.KEYWORD)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   356
    else if (tok.is_keyword) List(Markup.KEYWORD2, Markup.KEYWORD)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   357
    else if (tok.is_comment) List(Markup.COMMENT)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   358
    else {
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   359
      tok.kind match {
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   360
        case Token.Kind.VAR => List(Markup.VAR)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   361
        case Token.Kind.TYPE_IDENT => List(Markup.TFREE)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   362
        case Token.Kind.TYPE_VAR => List(Markup.TVAR)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   363
        case Token.Kind.STRING => List(Markup.STRING)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   364
        case Token.Kind.ALT_STRING => List(Markup.ALT_STRING)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   365
        case Token.Kind.VERBATIM => List(Markup.VERBATIM)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   366
        case Token.Kind.CARTOUCHE => List(Markup.CARTOUCHE)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   367
        case _ => Nil
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   368
      }
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   369
    }
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   370
  }
61372
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   371
72648
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   372
  def session_html(
72962
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   373
    resources: Resources,
72648
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   374
    session: String,
1cbac4ae934d more explicit presentation directory;
wenzelm
parents: 72634
diff changeset
   375
    deps: Sessions.Deps,
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   376
    db_context: Sessions.Database_Context,
72992
bcba32fd89de more interrupts;
wenzelm
parents: 72989
diff changeset
   377
    progress: Progress = new Progress,
73022
38528017e4c8 more verbosity for potentially bulky presentation;
wenzelm
parents: 72992
diff changeset
   378
    verbose: Boolean = false,
72962
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   379
    html_context: HTML_Context,
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   380
    presentation: Context)
61372
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   381
  {
72622
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   382
    val info = deps.sessions_structure(session)
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   383
    val options = info.options
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   384
    val base = deps(session)
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   385
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   386
    val session_dir = presentation.dir(db_context.store, info)
72962
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   387
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   388
    html_context.init_fonts(session_dir)
72622
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   389
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   390
    Bytes.write(session_dir + session_graph_path,
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   391
      graphview.Graph_File.make_pdf(options, base.session_graph_display))
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   392
72673
8ff7a0e394f9 clarified PDF/HTML presentation, based on pdf blobs from session database (e.g. from earlier builds);
wenzelm
parents: 72670
diff changeset
   393
    val documents =
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   394
      for {
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   395
        doc <- info.document_variants
72716
7cef6b1a6682 clarified signature;
wenzelm
parents: 72700
diff changeset
   396
        document <- db_context.input_database(session)(read_document(_, _, doc.name))
73022
38528017e4c8 more verbosity for potentially bulky presentation;
wenzelm
parents: 72992
diff changeset
   397
      } yield {
38528017e4c8 more verbosity for potentially bulky presentation;
wenzelm
parents: 72992
diff changeset
   398
        if (verbose) progress.echo("Presenting document " + session + "/" + doc.name)
38528017e4c8 more verbosity for potentially bulky presentation;
wenzelm
parents: 72992
diff changeset
   399
        Bytes.write(session_dir + doc.path.pdf, document.pdf)
38528017e4c8 more verbosity for potentially bulky presentation;
wenzelm
parents: 72992
diff changeset
   400
        doc
38528017e4c8 more verbosity for potentially bulky presentation;
wenzelm
parents: 72992
diff changeset
   401
      }
72673
8ff7a0e394f9 clarified PDF/HTML presentation, based on pdf blobs from session database (e.g. from earlier builds);
wenzelm
parents: 72670
diff changeset
   402
72622
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   403
    val links =
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   404
    {
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   405
      val deps_link =
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   406
        HTML.link(session_graph_path, HTML.text("theory dependencies"))
61372
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   407
72622
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   408
      val readme_links =
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   409
        if ((info.dir + readme_path).is_file) {
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   410
          File.copy(info.dir + readme_path, session_dir + readme_path)
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   411
          List(HTML.link(readme_path, HTML.text("README")))
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   412
        }
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   413
        else Nil
62971
087e36ce0593 back to exact copy of non-text file (amending dcc8e1d34b18);
wenzelm
parents: 62631
diff changeset
   414
72622
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   415
      val document_links =
72673
8ff7a0e394f9 clarified PDF/HTML presentation, based on pdf blobs from session database (e.g. from earlier builds);
wenzelm
parents: 72670
diff changeset
   416
        documents.map(doc => HTML.link(doc.path.pdf, HTML.text(doc.name)))
72622
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   417
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   418
      Library.separate(HTML.break ::: HTML.nl,
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   419
        (deps_link :: readme_links ::: document_links).
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   420
          map(link => HTML.text("View ") ::: List(link))).flatten
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   421
    }
62971
087e36ce0593 back to exact copy of non-text file (amending dcc8e1d34b18);
wenzelm
parents: 62631
diff changeset
   422
72669
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   423
    def theory_link(name1: Document.Node.Name, body: XML.Body): XML.Tree =
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   424
    {
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   425
      val session1 = base.theory_qualifier(name1)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   426
      val info1 = deps.sessions_structure(session1)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   427
      val prefix =
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   428
        if (session == session1) ""
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   429
        else if (info.chapter == info1.chapter) "../" + session1 + "/"
72670
4db9411c859c tuned signature;
wenzelm
parents: 72669
diff changeset
   430
        else "../../" + info1.chapter_session + "/"
72669
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   431
      HTML.link(prefix + html_name(name1), body)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   432
    }
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   433
72989
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   434
    val theories: List[XML.Body] =
72962
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   435
    {
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   436
      var seen_files = List.empty[(Path, String, Document.Node.Name)]
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   437
72989
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   438
      for (thy_name <- base.session_theories)
72669
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   439
      yield {
72992
bcba32fd89de more interrupts;
wenzelm
parents: 72989
diff changeset
   440
        progress.expose_interrupt()
73022
38528017e4c8 more verbosity for potentially bulky presentation;
wenzelm
parents: 72992
diff changeset
   441
        if (verbose) progress.echo("Presenting theory " + thy_name)
72992
bcba32fd89de more interrupts;
wenzelm
parents: 72989
diff changeset
   442
72989
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   443
        val syntax = base.theory_syntax(thy_name)
72669
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   444
        val keywords = syntax.keywords
72989
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   445
        val spans = syntax.parse_spans(Symbol.decode(File.read(thy_name.path)))
72622
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   446
72669
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   447
        val thy_body =
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   448
        {
72989
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   449
          val imports_offset = base.known_theories(thy_name.theory).header.imports_offset
72669
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   450
          var token_offset = 1
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   451
          spans.flatMap(span =>
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   452
          {
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   453
            val is_init = span.is_kind(keywords, Keyword.theory_begin, false)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   454
            span.content.flatMap(tok =>
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   455
            {
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   456
              val text = HTML.text(tok.source)
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   457
              val item =
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   458
                if (is_init && imports_offset.isDefinedAt(token_offset)) {
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   459
                  List(theory_link(imports_offset(token_offset), text))
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   460
                }
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   461
                else text
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   462
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   463
              token_offset += tok.symbol_length
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   464
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   465
              (token_markups(keywords, tok) :\ item)(
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   466
                { case (c, body) => List(HTML.span(c, body)) })
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   467
            })
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   468
          })
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   469
        }
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   470
72989
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   471
        val files =
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   472
          (for {
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   473
            thy_command <-
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   474
              Build_Job.read_theory(db_context, resources, session, thy_name.theory).iterator
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   475
            snapshot = Document.State.init.snippet(thy_command)
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   476
            (src_path, xml) <- snapshot.xml_markup_blobs(elements = html_elements).iterator
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   477
            if xml.nonEmpty
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   478
          } yield {
72992
bcba32fd89de more interrupts;
wenzelm
parents: 72989
diff changeset
   479
            progress.expose_interrupt()
bcba32fd89de more interrupts;
wenzelm
parents: 72989
diff changeset
   480
72989
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   481
            val file_name = (files_path + src_path.squash.html).implode
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   482
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   483
            seen_files.find(p => p._1 == src_path || p._2 == file_name) match {
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   484
              case None => seen_files ::= (src_path, file_name, thy_name)
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   485
              case Some((_, _, thy_name1)) =>
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   486
                error("Incoherent use of file name " + src_path + " as " + quote(file_name) +
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   487
                  " in theory " + thy_name1 + " vs. " + thy_name)
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   488
            }
72669
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   489
73022
38528017e4c8 more verbosity for potentially bulky presentation;
wenzelm
parents: 72992
diff changeset
   490
            if (verbose) progress.echo("Presenting file " + src_path)
38528017e4c8 more verbosity for potentially bulky presentation;
wenzelm
parents: 72992
diff changeset
   491
72989
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   492
            val file_path = session_dir + Path.explode(file_name)
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   493
            html_context.init_fonts(file_path.dir)
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   494
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   495
            val file_title = "File " + Symbol.cartouche_decoded(src_path.implode_short)
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   496
            HTML.write_document(file_path.dir, file_path.file_name,
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   497
              List(HTML.title(file_title)),
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   498
              List(html_context.head(file_title), html_context.source(html_body(xml))))
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   499
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   500
            List(HTML.link(file_name, HTML.text(file_title)))
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   501
          }).toList
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   502
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   503
        val thy_title = "Theory " + thy_name.theory_base_name
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   504
        HTML.write_document(session_dir, html_name(thy_name),
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   505
          List(HTML.title(thy_title)),
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   506
          List(html_context.head(thy_title), html_context.source(thy_body)))
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   507
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   508
        List(HTML.link(html_name(thy_name),
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   509
          HTML.text(thy_name.theory_base_name) :::
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   510
            (if (files.isEmpty) Nil else List(HTML.itemize(files)))))
72669
5e7916535860 generate theory HTML in Isabelle/Scala;
wenzelm
parents: 72665
diff changeset
   511
      }
72989
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   512
    }
61500
56a167b31a7f Isabelle fonts via external component;
wenzelm
parents: 61484
diff changeset
   513
72622
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   514
    val title = "Session " + session
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   515
    HTML.write_document(session_dir, "index.html",
830222403681 HTML presentation in Isabelle/Scala, based on theory html exports from Isabelle/ML;
wenzelm
parents: 72600
diff changeset
   516
      List(HTML.title(title + " (" + Distribution.version + ")")),
72962
af2d0e07493b present auxiliary files with PIDE markup;
wenzelm
parents: 72959
diff changeset
   517
      html_context.head(title, List(HTML.par(links))) ::
72989
5906162c8dd4 clarified presentation of files for each theory;
wenzelm
parents: 72963
diff changeset
   518
        html_context.contents("Theories", theories))
61372
cf40b6b1de54 more Present operations on Scala side;
wenzelm
parents: 60077
diff changeset
   519
  }
66040
f826ba18fe08 HTML preview based on PIDE markup;
wenzelm
parents: 66038
diff changeset
   520
f826ba18fe08 HTML preview based on PIDE markup;
wenzelm
parents: 66038
diff changeset
   521
72682
e0443773ef1a clarified modules;
wenzelm
parents: 72675
diff changeset
   522
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   523
  /** build documents **/
72565
wenzelm
parents: 72376
diff changeset
   524
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   525
  val session_tex_path = Path.explode("session.tex")
72565
wenzelm
parents: 72376
diff changeset
   526
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   527
  def tex_name(name: Document.Node.Name): String = name.theory_base_name + ".tex"
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   528
  def document_tex_name(name: Document.Node.Name): String = "document/" + tex_name(name)
72309
564012e31db1 discontinued obsolete DVI document format and related settings/tools;
wenzelm
parents: 71114
diff changeset
   529
72882
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   530
  class Build_Error(val log_lines: List[String], val message: String)
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   531
    extends Exn.User_Error(message)
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   532
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   533
  def build_documents(
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   534
    session: String,
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   535
    deps: Sessions.Deps,
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   536
    db_context: Sessions.Database_Context,
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   537
    progress: Progress = new Progress,
72675
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   538
    output_sources: Option[Path] = None,
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   539
    output_pdf: Option[Path] = None,
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   540
    verbose: Boolean = false,
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   541
    verbose_latex: Boolean = false): List[Document_Output] =
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   542
  {
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   543
    /* session info */
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   544
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   545
    val info = deps.sessions_structure(session)
72854
6c660f05f70c clarified signature;
wenzelm
parents: 72847
diff changeset
   546
    val hierarchy = deps.sessions_structure.hierarchy(session)
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   547
    val options = info.options
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   548
    val base = deps(session)
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   549
    val graph_pdf = graphview.Graph_File.make_pdf(options, base.session_graph_display)
67177
af5b89bc065c removed obsolete option (see 74a1b722507e);
wenzelm
parents: 67176
diff changeset
   550
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   551
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   552
    /* prepare document directory */
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   553
72600
2fa4f25d9d07 official support for document theories from other sessions;
wenzelm
parents: 72599
diff changeset
   554
    lazy val tex_files =
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   555
      for (name <- base.session_theories ::: base.document_theories)
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   556
      yield {
72854
6c660f05f70c clarified signature;
wenzelm
parents: 72847
diff changeset
   557
        val entry = db_context.get_export(hierarchy, name.theory, document_tex_name(name))
72847
9dda93a753b1 clarified signature: provide XZ.Cache where Export.Entry is created;
wenzelm
parents: 72763
diff changeset
   558
        Path.basic(tex_name(name)) -> entry.uncompressed
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   559
      }
72600
2fa4f25d9d07 official support for document theories from other sessions;
wenzelm
parents: 72599
diff changeset
   560
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   561
    def prepare_dir1(dir: Path, doc: Document_Variant): (Path, String) =
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   562
    {
72649
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   563
      val doc_dir = dir + Path.basic(doc.name)
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   564
      Isabelle_System.make_directory(doc_dir)
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   565
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   566
      Isabelle_System.bash("isabelle latex -o sty", cwd = doc_dir.file).check
72649
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   567
      File.write(doc_dir + Path.explode("isabelletags.sty"), doc.latex_sty)
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   568
      for ((base_dir, src) <- info.document_files) File.copy_base(info.dir + base_dir, src, doc_dir)
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   569
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   570
      File.write(doc_dir + session_tex_path,
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   571
        Library.terminate_lines(
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   572
          base.session_theories.map(name => "\\input{" + tex_name(name) + "}")))
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   573
72600
2fa4f25d9d07 official support for document theories from other sessions;
wenzelm
parents: 72599
diff changeset
   574
      for ((path, tex) <- tex_files) Bytes.write(doc_dir + path, tex)
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   575
72649
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   576
      val root1 = "root_" + doc.name
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   577
      val root = if ((doc_dir + Path.explode(root1).tex).is_file) root1 else "root"
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   578
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   579
      (doc_dir, root)
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   580
    }
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   581
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   582
    def prepare_dir2(dir: Path, doc: Document_Variant): Unit =
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   583
    {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   584
      val doc_dir = dir + Path.basic(doc.name)
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   585
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   586
      // non-deterministic, but irrelevant
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   587
      Bytes.write(doc_dir + session_graph_path, graph_pdf)
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   588
    }
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   589
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   590
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   591
    /* produce documents */
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   592
72649
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   593
    val documents =
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   594
      for (doc <- info.documents)
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   595
      yield {
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   596
        Isabelle_System.with_tmp_dir("document")(tmp_dir =>
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   597
        {
72699
ed59a506998f clarified document_output vs. progress;
wenzelm
parents: 72696
diff changeset
   598
          progress.echo("Preparing " + session + "/" + doc.name + " ...")
72665
7e5102e11c5e clarified messages;
wenzelm
parents: 72663
diff changeset
   599
          val start = Time.now()
7e5102e11c5e clarified messages;
wenzelm
parents: 72663
diff changeset
   600
7e5102e11c5e clarified messages;
wenzelm
parents: 72663
diff changeset
   601
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   602
          // prepare sources
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   603
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   604
          val (doc_dir, root) = prepare_dir1(tmp_dir, doc)
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   605
          val digests = File.find_files(doc_dir.file, follow_links = true).map(SHA1.digest)
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   606
          val sources = SHA1.digest_set(digests)
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   607
          prepare_dir2(tmp_dir, doc)
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   608
72675
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   609
          for (dir <- output_sources) {
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   610
            prepare_dir1(dir, doc)
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   611
            prepare_dir2(dir, doc)
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   612
          }
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   613
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   614
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   615
          // old document from database
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   616
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   617
          val old_document =
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   618
            for {
72716
7cef6b1a6682 clarified signature;
wenzelm
parents: 72700
diff changeset
   619
              old_doc <- db_context.input_database(session)(read_document(_, _, doc.name))
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   620
              if old_doc.sources == sources
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   621
            }
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   622
            yield {
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   623
              Bytes.write(doc_dir + doc.path.pdf, old_doc.pdf)
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   624
              old_doc
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   625
            }
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   626
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   627
          old_document getOrElse {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   628
            // bash scripts
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   629
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   630
            def root_bash(ext: String): String = Bash.string(root + "." + ext)
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   631
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   632
            def latex_bash(fmt: String = "pdf", ext: String = "tex"): String =
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   633
              "isabelle latex -o " + Bash.string(fmt) + " " + Bash.string(root + "." + ext)
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   634
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   635
            def bash(items: String*): Process_Result =
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   636
              progress.bash(items.mkString(" && "), cwd = doc_dir.file,
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   637
                echo = verbose_latex, watchdog = Time.seconds(0.5))
67204
849a838f7e57 purge log files -- avoid old errors;
wenzelm
parents: 67203
diff changeset
   638
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   639
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   640
            // prepare document
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   641
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   642
            val result =
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   643
              if ((doc_dir + Path.explode("build")).is_file) {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   644
                bash("./build pdf " + Bash.string(doc.name))
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   645
              }
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   646
              else {
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   647
                bash(
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   648
                  latex_bash(),
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   649
                  "{ [ ! -f " + root_bash("bib") + " ] || " + latex_bash("bbl") + "; }",
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   650
                  "{ [ ! -f " + root_bash("idx") + " ] || " + latex_bash("idx") + "; }",
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   651
                  latex_bash(),
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   652
                  latex_bash())
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   653
              }
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   654
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   655
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   656
            // result
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   657
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   658
            val root_pdf = Path.basic(root).pdf
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   659
            val result_path = doc_dir + root_pdf
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   660
72882
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   661
            val log_lines = result.out_lines ::: result.err_lines
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   662
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   663
            if (!result.ok) {
72882
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   664
              val message =
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   665
                Exn.cat_message(
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   666
                  Library.trim_line(result.err),
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   667
                  cat_lines(Latex.latex_errors(doc_dir, root) ::: Bibtex.bibtex_errors(doc_dir, root)),
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   668
                  "Failed to build document " + quote(doc.name))
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   669
              throw new Build_Error(log_lines, message)
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   670
            }
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   671
            else if (!result_path.is_file) {
72882
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   672
              val message = "Bad document result: expected to find " + root_pdf
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   673
              throw new Build_Error(log_lines, message)
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   674
            }
72665
7e5102e11c5e clarified messages;
wenzelm
parents: 72663
diff changeset
   675
            else {
7e5102e11c5e clarified messages;
wenzelm
parents: 72663
diff changeset
   676
              val stop = Time.now()
7e5102e11c5e clarified messages;
wenzelm
parents: 72663
diff changeset
   677
              val timing = stop - start
72699
ed59a506998f clarified document_output vs. progress;
wenzelm
parents: 72696
diff changeset
   678
              progress.echo("Finished " + session + "/" + doc.name +
72665
7e5102e11c5e clarified messages;
wenzelm
parents: 72663
diff changeset
   679
                " (" + timing.message_hms + " elapsed time)")
7e5102e11c5e clarified messages;
wenzelm
parents: 72663
diff changeset
   680
72882
1dc2ad97e062 more informative error;
wenzelm
parents: 72880
diff changeset
   681
              val log_xz = Bytes(cat_lines(log_lines)).compress()
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   682
              val pdf = Bytes.read(result_path)
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   683
              Document_Output(doc.name, sources, log_xz, pdf)
72665
7e5102e11c5e clarified messages;
wenzelm
parents: 72663
diff changeset
   684
            }
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   685
          }
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   686
        })
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   687
      }
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   688
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   689
    for (dir <- output_pdf; doc <- documents) {
72675
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   690
      Isabelle_System.make_directory(dir)
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   691
      val path = dir + doc.path.pdf
72696
7af210f1f13b clarified signature and database layout;
wenzelm
parents: 72695
diff changeset
   692
      Bytes.write(path, doc.pdf)
72699
ed59a506998f clarified document_output vs. progress;
wenzelm
parents: 72696
diff changeset
   693
      progress.echo("Document at " + path.absolute)
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   694
    }
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   695
72649
4ba5b1b08dd5 clarified signature: more explicit types;
wenzelm
parents: 72648
diff changeset
   696
    documents
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   697
  }
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   698
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   699
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   700
  /* Isabelle tool wrapper */
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   701
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   702
  val isabelle_tool =
72763
3cc73d00553c added document antiquotation @{tool};
wenzelm
parents: 72723
diff changeset
   703
    Isabelle_Tool("document", "prepare session theory document", Scala_Project.here, args =>
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   704
    {
72675
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   705
      var output_sources: Option[Path] = None
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   706
      var output_pdf: Option[Path] = None
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   707
      var verbose_latex = false
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   708
      var dirs: List[Path] = Nil
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   709
      var options = Options.init()
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   710
      var verbose_build = false
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   711
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   712
      val getopts = Getopts(
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   713
        """
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   714
Usage: isabelle document [OPTIONS] SESSION
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   715
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   716
  Options are:
72675
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   717
    -O DIR       output directory for LaTeX sources and resulting PDF
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   718
    -P DIR       output directory for resulting PDF
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   719
    -S DIR       output directory for LaTeX sources
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   720
    -V           verbose latex
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   721
    -d DIR       include session directory
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   722
    -o OPTION    override Isabelle system OPTION (via NAME=VAL or NAME)
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   723
    -v           verbose build
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   724
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   725
  Prepare the theory document of a session.
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   726
""",
72675
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   727
        "O:" -> (arg =>
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   728
          {
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   729
            val dir = Path.explode(arg)
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   730
            output_sources = Some(dir)
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   731
            output_pdf = Some(dir)
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   732
          }),
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   733
        "P:" -> (arg => { output_pdf = Some(Path.explode(arg)) }),
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   734
        "S:" -> (arg => { output_sources = Some(Path.explode(arg)) }),
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   735
        "V" -> (_ => verbose_latex = true),
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   736
        "d:" -> (arg => dirs = dirs ::: List(Path.explode(arg))),
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   737
        "o:" -> (arg => options = options + arg),
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   738
        "v" -> (_ => verbose_build = true))
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   739
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   740
      val more_args = getopts(args)
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   741
      val session =
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   742
        more_args match {
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   743
          case List(a) => a
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   744
          case _ => getopts.usage()
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   745
        }
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   746
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   747
      val progress = new Console_Progress(verbose = verbose_build)
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   748
      val store = Sessions.store(options)
67176
13b5c3ff1954 re-implemented "isabelle document" in Isabelle/Scala, include latex_errors here;
wenzelm
parents: 66075
diff changeset
   749
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   750
      progress.interrupt_handler {
72650
787ba1d19d3a more robust: ensure coherence wrt. build database;
wenzelm
parents: 72649
diff changeset
   751
        val res =
787ba1d19d3a more robust: ensure coherence wrt. build database;
wenzelm
parents: 72649
diff changeset
   752
          Build.build(options, selection = Sessions.Selection.session(session),
787ba1d19d3a more robust: ensure coherence wrt. build database;
wenzelm
parents: 72649
diff changeset
   753
            dirs = dirs, progress = progress, verbose = verbose_build)
787ba1d19d3a more robust: ensure coherence wrt. build database;
wenzelm
parents: 72649
diff changeset
   754
        if (!res.ok) error("Failed to build session " + quote(session))
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   755
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   756
        val deps =
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   757
          Sessions.load_structure(options + "document=pdf", dirs = dirs).
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   758
            selection_deps(Sessions.Selection.session(session))
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   759
72675
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   760
        if (output_sources.isEmpty && output_pdf.isEmpty) {
cc1347c8c804 clarified document output;
wenzelm
parents: 72673
diff changeset
   761
          progress.echo_warning("No output directory")
72653
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   762
        }
ea35afdb1366 store documents within session database, instead of browser_info directory;
wenzelm
parents: 72652
diff changeset
   763
72854
6c660f05f70c clarified signature;
wenzelm
parents: 72847
diff changeset
   764
        using(store.open_database_context())(db_context =>
72683
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   765
          build_documents(session, deps, db_context, progress = progress,
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   766
            output_sources = output_sources, output_pdf = output_pdf,
b5e6f0d137a7 clarified signature: prefer Database_Context;
wenzelm
parents: 72682
diff changeset
   767
            verbose = true, verbose_latex = verbose_latex))
72574
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   768
      }
d892f6d66402 build documents in Isabelle/Scala, based on generated tex files as session exports;
wenzelm
parents: 72565
diff changeset
   769
    })
50707
5b2bf7611662 maintain session index on Scala side, for more determistic results;
wenzelm
parents:
diff changeset
   770
}