src/Pure/Tools/build_doc.scala
author wenzelm
Wed, 16 Mar 2016 13:47:00 +0100
changeset 62635 4854a38061de
parent 62631 c39614ddb80b
child 62641 0b1b7465f2ef
permissions -rw-r--r--
tuned signature;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
56429
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/Tools/build_doc.scala
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
     3
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
     4
Build Isabelle documentation.
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
     5
*/
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
     6
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
     7
package isabelle
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
     8
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
     9
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    10
import java.io.{File => JFile}
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    11
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    12
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    13
object Build_Doc
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    14
{
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    15
  /* build_doc */
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    16
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    17
  def build_doc(
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    18
    options: Options,
61276
8a4bd05c1735 clarified modules;
wenzelm
parents: 60992
diff changeset
    19
    progress: Progress = Ignore_Progress,
56429
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    20
    all_docs: Boolean = false,
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    21
    max_jobs: Int = 1,
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    22
    system_mode: Boolean = false,
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    23
    docs: List[String] = Nil): Int =
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    24
  {
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    25
    val selection =
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    26
      for {
62635
4854a38061de tuned signature;
wenzelm
parents: 62631
diff changeset
    27
        (name, info) <- Sessions.load(options).topological_order
56429
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    28
        if info.groups.contains("doc")
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    29
        doc = info.options.string("document_variants")
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    30
        if all_docs || docs.contains(doc)
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    31
      } yield (doc, name)
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    32
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    33
    val selected_docs = selection.map(_._1)
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    34
    val sessions = selection.map(_._2)
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    35
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    36
    docs.filter(doc => !selected_docs.contains(doc)) match {
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    37
      case Nil =>
56432
wenzelm
parents: 56430
diff changeset
    38
      case bad => error("No documentation session for " + commas_quote(bad))
56429
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    39
    }
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    40
56432
wenzelm
parents: 56430
diff changeset
    41
    progress.echo("Build started for documentation " + commas_quote(selected_docs))
56429
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    42
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    43
    val rc1 =
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    44
      Build.build(options, progress, requirements = true, build_heap = true,
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    45
        max_jobs = max_jobs, system_mode = system_mode, sessions = sessions)
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    46
    if (rc1 == 0) {
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    47
      Isabelle_System.with_tmp_dir("document_output")(output =>
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    48
        {
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    49
          val rc2 =
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    50
            Build.build(
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    51
              options.bool.update("browser_info", false).
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    52
                string.update("document", "pdf").
60992
89effcb342df clarified modules, like ML version;
wenzelm
parents: 56890
diff changeset
    53
                string.update("document_output", File.standard_path(output)),
56430
92fb6be9a460 more uniform build options;
wenzelm
parents: 56429
diff changeset
    54
              progress, clean_build = true, max_jobs = max_jobs, system_mode = system_mode,
92fb6be9a460 more uniform build options;
wenzelm
parents: 56429
diff changeset
    55
              sessions = sessions)
56429
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    56
          if (rc2 == 0) {
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    57
            val doc_dir = Path.explode("$ISABELLE_HOME/doc").file
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    58
            for (doc <- selected_docs) {
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    59
              val name = doc + ".pdf"
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    60
              File.copy(new JFile(output, name), new JFile(doc_dir, name))
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    61
            }
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    62
          }
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    63
          rc2
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    64
        })
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    65
    }
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    66
    else rc1
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    67
  }
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    68
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    69
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    70
  /* command line entry point */
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    71
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    72
  def main(args: Array[String])
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    73
  {
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
    74
    Command_Line.tool {
62435
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    75
      var all_docs = false
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    76
      var max_jobs = 1
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    77
      var system_mode = false
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    78
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    79
      val getopts =
62454
38c89353b349 tuned signature;
wenzelm
parents: 62435
diff changeset
    80
        Getopts("""
62435
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    81
Usage: isabelle build_doc [OPTIONS] [DOCS ...]"
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    82
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    83
  Options are:
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    84
    -a           select all documentation sessions
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    85
    -j INT       maximum number of parallel jobs (default 1)
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    86
    -s           system build mode
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    87
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    88
  Build Isabelle documentation from documentation sessions with
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    89
  suitable document_variants entry.
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    90
""",
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    91
        "a" -> (_ => all_docs = true),
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    92
        "j:" -> (arg => max_jobs = Properties.Value.Int.parse(arg)),
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    93
        "s" -> (_ => system_mode = true))
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    94
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    95
      val docs = getopts(args)
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    96
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    97
      if (!all_docs && docs.isEmpty) getopts.usage()
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    98
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
    99
      val options = Options.init()
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
   100
      val progress = new Console_Progress()
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
   101
      progress.interrupt_handler {
2c390ad93bc8 moved getopts to Scala;
wenzelm
parents: 61276
diff changeset
   102
        build_doc(options, progress, all_docs, max_jobs, system_mode, docs)
56429
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
   103
      }
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
   104
    }
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
   105
  }
bc61161a5bd0 re-implemented build_doc in Isabelle/Scala;
wenzelm
parents:
diff changeset
   106
}