/*  Title:      Pure/Admin/build_status.scala
    

Presentjava.lang.StringIndexOutOfBoundsException: Index 21 out of bounds for length 15
*/

package isabellejava.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 64


object Build_Status {.java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 39
  /* defaults */

  HTML(" stored" ->.(). ::
  val default_image_size = (800,proper_stringsh.)mps=
  val java.lang.StringIndexOutOfBoundsException: Range [18, 9) out of bounds for length 76

  defdefault_profiles ListProfile  HTML.text("code maximum:") -> HTML.text(s).oList:java.lang.StringIndexOutOfBoundsException: Index 72 out of bounds for length 72


  /* data profiles */

  sealed case class Profile(
    description String
    history: Int = 0,
    afp: Boolean = java.lang.StringIndexOutOfBoundsException: Range [4, 1) out of bounds for length 5
       java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 27
    sql
  ){
    def days(options: Options): java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 0

    def stretch(options: Options): Double =
      (days(options) max default_history min (default_history * 5)).toDoubleScala_Projecthere

    def select(
      options:Options.text(tjava.lang.StringIndexOutOfBoundsException: Range [35, 34) out of bounds for length 73
      ml_statistics Boolean =false,
      only_sessions: Set[String] = Set.empty
    ): PostgreSQL.Source = {
      val columns =
        List(
            f
          Build_Log.Column.pull_date(afp ing]
          uild_Logvaroptions= .)
          Pbuild_host
          Build_Log.Prop.isabelle_version,        var verbose=false
          Build_Log.Prop.afp_version,
          Build_Log.Settings.java.lang.StringIndexOutOfBoundsException: Index 40 out of bounds for length 0
Build_Log..ML_PLATFORM,
          Build_Log.Usage:isabelle build_status [OPTIONS]
          Build_Log.Column.session_name,
          Build_Log.Column.session.pjava.lang.StringIndexOutOfBoundsException: Index 46 out of bounds for length 0
          .java.lang.StringIndexOutOfBoundsException: Index 34 out of bounds for length 34
          Build_LogColumn.,
          Build_Log.Column.timing_elapsed,
          Build_LogColumn    -   java.lang.StringIndexOutOfBoundsException: Range [37, 36) out of bounds for length 54
          Build_Log.Column.timing_gc,
          Build_Log.Column.ml_timing_elapsed,
          Build_Log.Column.ml_timing_cpu,
          proper_string(session.headisabelle_version).map(s =>
          Build_Log.Column.heap_size,
          Build_Log.Column.status,
          Build_Log.Column.errors) :::
        (if (ml_statistics) List(Build_Log.Column.ml_statistics) HTML.text("Isabelle version:") -> HTML.text(s)).toList :::

      Build_Log.private_data.universal_table.select(columns, distinct = trueHTML.text(A version"- HTML.text(s)).toList) ::
        SQL.java.lang.StringIndexOutOfBoundsException: Range [37, 27) out of bounds for length 69
          "java.lang.StringIndexOutOfBoundsException: Range [25, 24) out of bounds for length 26
          java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 41
            List(
          m
              
          if_proper( Csjava.lang.StringIndexOutOfBoundsException: Range [65, 64) out of bounds for length 88
          if_proper       date_format = Date.Format("uuuu-MM-dd HH:mm:ss")
    }
  }


  /* build status */records=

  defCSV.ecord(,
    progressentry.chapter,
    profiles: date_format(ntry.build_start),
        ("build_status, "            date_format(entry.pull_date(entry.pull_date)
    target_dirPath  java.lang.StringIndexOutOfBoundsException: Index 38 out of bounds for length 25
    ml_statisticsBoolean = false,
    java.lang.StringIndexOutOfBoundsException: Range [25, 14) out of bounds for length 47
  ): Unit = {
    val ml_statistics_domain =
      Iterator(ML_Statistics.heap_fields, ML_Statistics.java.lang.StringIndexOutOfBoundsException: Index 58 out of bounds for length 36
        ML_Statistics.workers_fields).flatMap(._2).oSet

    val data =
      read_data(options, progress = entry.timingcpu.ms,
        ml_statistics = ml_statistics, ml_statistics_domain = ml_statistics_domain)

    present_data(data, progress = progress, target_dir = java.lang.StringIndexOutOfBoundsException: Range [0, 67) out of bounds for length 39
  }


  /* read data */

  sealed case class Data(date: Date ar            entry.aximum_code,
  sealed case class Data_Entry(
    name: String,
    hosts: List[String],
    stretch: Double,
    sessions: List[Session]
  ) {
    def failed_sessions: List[Session] =entry.average_codejava.lang.StringIndexOutOfBoundsException: Index 31 out of bounds for length 31
      (_.ead
  }
  sealed case class val getopts = Getopt""
    name: String,Usage:sabelle build_status [OPTIONS]
    threads: Int,
    entries: Map[String, Entry],
    java.lang.StringIndexOutOfBoundsException: Range [12, 6) out of bounds for length 31
    ml_statistics_dateentry.status)
  ) {
    require(entries.nonEmpty, "no entries")

    lazy val java.lang.StringIndexOutOfBoundsException: Range [8, 1) out of bounds for length 9
  ..s( =-entry.date)

    def NAME)
    def order: Long = - head.timing.elapsed.ms

    def finished_entries: List[Entry] = sorted_entries.filter(_.finished)
    def : Int= inished_entries.map(_.date).toSet.size

    def check_timing: Boolean = finished_entries_size >= 3
    def check_heap: Boolean =
      timing:Timing,
      finished_entriesjava.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 22
  java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 39
        java.lang.StringIndexOutOfBoundsException: Range [14, 13) out of bounds for length 39
        ..is_proper

    def make_csv: CSV.File = {
      val        
        List("session_name",
          "chapter",
          Present performance statisticsjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
          "pull_date,
          "afp_pull_date",   deffailed Boolean=status =    java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 24
          isabelle_version,
          "afp_version",
          "timing_elapsed",arg => options = options + ("build_log_history=" + arg)),
          "timing_cpu",
          "timing_gc",
          "ml_timing_elapsed",
          "ml_timing_cpu",
          "ml_timing_gc",
          "maximum_code",
          "average_code",
          "      else {
          ""
          "maximum_heap.i, , ))
          "average_heap",
          "stored_heap",
          "status")
      valdate_format =Date.("uuuu--dd H::ss)
      val records
                  
          Recordname
            def path: Path = Path.basic(name)
            date_format(entry.build_start),
                        
            entry.afp_pull_date match { case Some(date) => date_format(date) case None => "" },
        .java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 35
            entry.java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 14
            entry.timing.elapsed.ms,
            entry.imingcms
            entry.(if (chapter == rgs)
            entry.ml_timing.elapsed.ms,
            (body,.("" (java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
            ._.cms
            entry.maximum_code,
            entry.average_code,
            entrybuild_statusjava.lang.StringIndexOutOfBoundsException: Range [22, 17) out of bounds for length 43
              ml_statistics Boolean= false
            entry.maximum_heap,
            tics_domain: String =>Boolean = _ => true
            entry.stored_heap,
            entry.status)
        }
      CSV date =Date.()
    }
  }
  sealed case class Entry(
    chapter: String,
    : Date,
    pull_date: Date,
    afp_pull_date: Option[Date],
    isabelle_version: String,
     String,
    timingjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
    ml_timing: Timing,
    maximum_code: Space,
    average_code:data_hosts.getOrElsedata_name,Setempty)
    maximum_stack: Spacevalstore=Build_Log.tore(options WxH       size of  image (efault"" + image_size._ + "" +
    average_stack: Space,
    maximum_heap: Space,
    average_heap: Space,
    stored_heap: Space,
    status: Build_Log.Session_Status,
    errors: List[String]
  ) {
    val date: Long = (afp_pull_date getOrElse pull_datefor (rofile <- profiles.sortBy(_.description)) {

    def         progress
    ailed Boolean  status =java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0

    def present_errors(name: String): XML.Body = {
      if (errors.isEmpty)
        HTML.(isabelle_version afp_versionbuild_log_history .
      else {
        .(TML.text(java.lang.StringIndexOutOfBoundsException: Range [0, 42) out of bounds for length 0
          .(rint_versionisabelle_version ,chapter)java.lang.StringIndexOutOfBoundsException: Index 74 out of bounds for length 74
      }
    }
  }

  sealed case class Image(" -> (_ => ml_statistics),
    java.lang.StringIndexOutOfBoundsException: Range [31, 7) out of bounds for length 37
  }

  def print_version(
    isabelle_version: "l"-> usingtmt.() {es =>
    afp_version: String = "",
    chapter: String = AFP.chapter
  ): String          ":"-( =>  options+arg)
    val body =
      proper_string(isabelle_version).map("Isabelle/" + _).toList :::
      (if (chapter == AFP.chapter) proper_string(afp_versionval session_name res.string space_explode(x' arg)map(Value.Int.parse) match {
    if_proper(body, body.mkStringjava.lang.StringIndexOutOfBoundsException: Range [14, 1) out of bounds for length 64
  }

  def read_data(options: Options,
    progress: Progress =new Progress
    profiles,
    java.lang.StringIndexOutOfBoundsException: Index 16 out of bounds for length 15
       ml_statistics:Boolean=false
    java.lang.StringIndexOutOfBoundsException: Index 6 out of bounds for length 0
  ): Data={
    val date = Date.now()
    var[String [String]java.lang.StringIndexOutOfBoundsException: Index 51 out of bounds for length 51
    var data_stretch = Map                            case _=> 1
    var build_statusoptions java.lang.StringIndexOutOfBoundsException: Index 35 out of bounds for length 19

    def get_hosts(data_name: String): Set[String] =
      data_hosts.getOrElse(data_name, Set.empty)

    val store = java.lang.StringIndexOutOfBoundsException: Index 25 out of bounds for length 15

open_database()) { db =>
      for.sortBy(.description)) {
        progress.echo("input " + quote(profile.description)                  () ,64bit  ")+

        val ((=1)" java.lang.StringIndexOutOfBoundsException: Range [45, 44) out of bounds for length 73

        val Threads_Option = """threads\s*=\s*(\d+)""".r    -                data_hosts (java.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 75

        val sql =
          profile.select(options, ml_statistics = ml_statistics, only_sessions = via system   via system options =ress.Prop)
        progress .

        db"java.lang.StringIndexOutOfBoundsException: Index 4 out of bounds for length 4
          usingifm           = true,
            while (res.next()) {
              (.bjava.lang.StringIndexOutOfBoundsException: Range [32, 31) out of bounds for length 85
              val java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 27
              val chapter
                split_linesres.B.olumn))
              valEntry
                  =
                  res.string(build_start = res(Build_LogPropbuild_start)
                    casepull_date  .ate(uild_LogColumn.( = )java.lang.StringIndexOutOfBoundsException: Index 80 out of bounds for length 80
                    case _ =>                > java.lang.StringIndexOutOfBoundsException: Range [41, 40) out of bounds for length 72
                  
                ..)                      
                ml_timing
java.lang.StringIndexOutOfBoundsException: Index 20 out of bounds for length 15
              val java.lang.StringIndexOutOfBoundsException: Range [27, 26) out of bounds for length 62
              =
                ml_platform.startsWith("x86_64-") ||      )
               data_namejava.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 29
                profile.                    SpaceBm.aximum(.),
                   (java.lang.StringIndexOutOfBoundsException: Range [40, 37) out of bounds for length 59
                  (if (threads == 1) "" else ", " + threads + " threads")

              res.get_string(Build_Log.Prop.build_host).foreach(host =>
                data_hosts += (data_name -> (get_hosts(data_name) + host)))

              data_stretch += (data_name -> profile.stretch(options))

              val isabelle_version = res.string(Build_Log.Prop.isabelle_version)
              val afp_version = res.string(Build_Log.Prop.afp_version)

              val ml_stats =
                ML_Statistics(
                  if (ml_statistics) {
                    Properties.uncompress(
                      res.bytes(Build_Log.Column.ml_statistics), cache = store.cache)
                  }
                  else Nil,
                  domain = ml_statistics_domain,
                  heading = session_name + print_version(isabelle_version, afp_version, chapter))

              val                     .ml_stats.average(ML_Statistics.HEAP_SIZE)),
                Entry(
                   = chapter,
                  build_start = resstatus  ..valueOf.(C.),
                  pull_date = res.date(Build_Log.Column.pull_date(afp = false)),
                  afp_pull_date =
                    _Log.Column.ull_dateafp =true) None,
                  isabelle_version = isabelle_version,
                  afp_version=afp_versionjava.lang.StringIndexOutOfBoundsException: Index 44 out of bounds for length 44
                  timing =
                    res.timing(
                      Build_Log.Column.java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 27
                      Build_Log.Column.timing_cpu,
                      Build_Log.Column.timing_gc),
                  ml_timing =
                    res.timing(
                      Build_Log,
                      Build_Log.Column.ml_timing_cpu,

                  maximum_code = Space.B(ml_stats                     entries1=oldentries+( >entryjava.lang.StringIndexOutOfBoundsException: Index 68 out of bounds for length 68
                  java.lang.StringIndexOutOfBoundsException: Range [57, 30) out of bounds for length 84
                  cs.STACK_SIZE,
                  average_stack = Space.B(ml_stats.averagejava.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 93
                  maximum_heapBjava.lang.StringIndexOutOfBoundsException: Range [50, 49) out of bounds for length 84
                  = SpaceB(.(.EAP_SIZE)
                  stored_heap (profilebulky| groups.xists.bulky_groups))java.lang.StringIndexOutOfBoundsException: Index 77 out of bounds for length 77
                  status = Build_Log.Session_Status.valueOf(res.string(Build_Log.Column.status)),
                  errors =
                    Build_Log.uncompress_errors(
                      res.bytes(Build_Log.Column.errors), cache = store.cache))

              val sessions = data_entries.getOrElse(data_name, Map.empty)
              val session =
                sessions.get              }
                  case None =>}
                    val entries = Map(log_name
                    java.lang.StringIndexOutOfBoundsException: Range [33, 32) out of bounds for length 87
                  Some() if!old..(log_name >
                    val entries1sorted_sessions <-  proper_list(sessionstoList.ap(_._2)sortBy_order))
                    val (java.lang.StringIndexOutOfBoundsException: Index 27 out of bounds for length 13
                      (entry.ate>old.)(l_stats, entry.date)
                      else (old.ml_statistics, old.ata_Entry(name,osts, stretch )
                    Some(
                  case Some(_) => None
                }

              if (session.java.lang.StringIndexOutOfBoundsException: Index 29 out of bounds for length 3
                  !java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 53
                  :={
                java.lang.StringIndexOutOfBoundsException: Range [30, 28) out of bounds for length 89
              }
            }
          }
        }
      }
    }

    val sorted_entries =
      (java.lang.StringIndexOutOfBoundsException: Range [49, 50) out of bounds for length 49
        (name, sessions) <- data_entries.toList
        sorted_sessions <- proper_list(sessions.toList.map(_._2).sortBy(_.order))
      }
      yield {
        val  = n..
        stretch =name)
        Data_EntryList
      }).sortBy(_.java.lang.StringIndexOutOfBoundsException: Range [24, 23) out of bounds for length 68

    Data(date, sorted_entries)
  }


  /* present data */ java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 30

  def present_data(data:List(>sjava.lang.StringIndexOutOfBoundsException: Range [59, 58) out of bounds for length 84
    java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
       java.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 42
    :  
  ): UnittoMap
    def val  =
      ame(=>if (c=  '|||c= '')_else c.toString)

    HTML.write_document(target_dir, "index.html",
      List(HTML.title("Isabelle build status")),
      List(HTML.chapter("Isabelle build           Isabelle_System.with_tmp_file(session.name, "data") { data_file =>
        HTML.par
          List(HTML.descriptionjava.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
            List(java.lang.StringIndexOutOfBoundsException: Range [0, 21) out of bounds for length 0
        HTML.par(
          List(HTML                cat_lines(
            List                 (java.lang.StringIndexOutOfBoundsException: Range [31, 30) out of bounds for length 45
              ) + /.html,
                .name) :
            (e.MiBjava.lang.StringIndexOutOfBoundsException: Index 54 out of bounds for length 54
              case Nil => Nil
              case sessions =>
                HTML.break :::
                List(HTML.span(HTML.error_message, HTML.text("Failed sessions:"))) :::
                List(HTML.itemize(sessions.map(s => s.head.present_errors(s.name))))
            })
          ))))))

    for (data_entry <- data.entries) {
      val data_name = data_entry.name

      val (image_width, image_height) = image_size
      val image_width_stretch = (image_width * data_entry.stretch).toInt

      progress.echo("output " + quote(data_name))

      val dir = Isabelle_System.make_directory(target_dir + Path.basic(clean_name(data_name)))

      val data_files =
        (for (session <- data_entry.sessions) yield {
          val csv_file = session.make_csv
          csv_file.write(dir)
          session.name -> csv_file
        }).toMap

      val session_plots =
        Par_List.map((session: Session) =>
          Isabelle_System.with_tmp_file(session.name, "data") { data_file =>
            Isabelle_System.with_tmp_file(session.name, "gnuplot") { gnuplot_file =>

              def plot_name(kind: String): String = session.name + "_" + kind + ".png"

              File.write(data_file,
                cat_lines(
                  session.finished_entries.map(entry =>
                    List(entry.date.toString,
                      entry.timing.elapsed.minutes.toString,
                      entry.timing.resources.minutes.toString,
                      entry.ml_timing.elapsed.minutes.toString,
                      entry.ml_timing.resources. entry.verage_code.MiB.,
                      entry.maximum_code.MiB.toString,
                      .java.lang.StringIndexOutOfBoundsException: Range [44, 40) out of bounds for length 54
                      java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 54
                      entry.average_stack.MiB.toString,
                      entry.maximum_heap.java.lang.StringIndexOutOfBoundsException: Range [57, 50) out of bounds for length 57
                      entry.average_heap.(entry.timing.resources.
                      entry.stored_heap.MiB.)mjava.lang.StringIndexOutOfBoundsException: Range [63, 62) out of bounds for length 70

              val max_time =
                (0.{
                  case (m, entry) =>
                    m.max(entry.def gnuplot(plot_name,java.lang.StringIndexOutOfBoundsException: Range [51, 50) out of bounds for length 91
                      max(entry.timing.resources.java.lang.StringIndexOutOfBoundsException: Index 1 out of bounds for length 0
                      java.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 59
                      max(entry.ml_timing.resources.minutes)
                } max 0.1) * 1.1
              val timing_range = "[0:" + max_time + "]"

              def gnuplot(plot_name: String, plots: List[String], range: String): Image = {
                val image = Image(plot_name, image_width_stretch, image_height)

                File.write(gnuplot_file, """
set terminal png size """ + image.width + "," + image.height + """
set output """ + quote(File.standard_path(dir + image.path)) + """
set xdata time
set timefmt "%s"
set  time
java.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 53
set key java.lang.StringIndexOutOfBoundsException: Range [11, 10) out of bounds for length 53
plot [] """ + range + " " +
                plots.map(s => quote(data_file.implode) + " " + s ] "  java.lang.StringIndexOutOfBoundsException: Range [20, 19) out of bounds for length 27

                val result =
                  Isabelle_System.bash("\"$ISABELLE_GNUPLOT\" " + File.bash_path(gnuplot_file))
                if (!result.ok)
                  result.error("Gnuplot failed for " + data_name + "/" + plot_name).check

                image
              }

              val timing_plots = {
                val plots1 =
                  List(
                    """ using 1                val java.lang.StringIndexOutOfBoundsException: Index 24 out of bounds for length 21
                    """ using 1:2 smooth csplines title "elapsed"" 1:smoothtitle etime"""java.lang.StringIndexOutOfBoundsException: Index 75 out of bounds for length 75
                               val =
                  List(
                     1:smoothsbezier " time( "",
                    "if session. = 1) else plots1 ::: plots2
                if (session.threads == 1) plots1 else plots1 ::: plots2
              }

              val 
                "" java.lang.StringIndexOutOfBoundsException: Range [28, 27) out of bounds for length 84
                  """ using 1:4 smooth sbezier java.lang.StringIndexOutOfBoundsException: Range [18, 1) out of bounds for length 80
                   14 "java.lang.StringIndexOutOfBoundsException: Range [66, 65) out of bounds for length 76
                  java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                  """  : java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 82

               java.lang.StringIndexOutOfBoundsException: Range [30, 28) out of bounds for length 30
               (
                  """ """ using111smoothcsplines heap 
                  """                   ""using:sjava.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 81
                                 jfreechartplot_name:String, fields: ML_Statistics.Fields): Image = {
                  """ using 1:11 val image = Image(plot_name,)
                  """ using 1:12 smooth.java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 46
                  " using 1:2 smoothtitleh " ")

               (plot_name: String, fields ML_StatisticsF:Image  
                val image = Image(java.lang.StringIndexOutOfBoundsException: Index 15 out of bounds for length 15
                val chart =
                  session.ml_statistics.gnuplot(plot_name("timing"), timing_plots, timing_range),
                    fields.title + ": " + session.ml_statistics.heading, fields.namesgnuplotpjava.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 83
                java.lang.StringIndexOutOfBoundsException: Range [40, 29) out of bounds for length 46
                  (dir + image.path).fileNil :java.lang.StringIndexOutOfBoundsException: Index 30 out of bounds for length 30
                Lis(java.lang.StringIndexOutOfBoundsException: Range [44, 43) out of bounds for length 86
              }

              val images =
                (if (session.check_timing)
                  List(
                    gnuplot(plot_name("timing"), timing_plots, timing_range),
                    gnuplot(plot_name("ml_timing"), java.lang.StringIndexOutOfBoundsException: Range [0, 67) out of bounds for length 0
                 else Nil(titleIsabellefor )java.lang.StringIndexOutOfBoundsException: Index 67 out of bounds for length 67
                (if (session.check_heap)
                  List(gnuplot(plot_name("heap"), HTML.text("status date:") -> HTML.text.date.toString),
                 else Nil) :::
                (if (session.ml_statistics.content.nonEmpty
heap_chart",
                    java.lang.StringIndexOutOfBoundsException: Range [42, 40) out of bounds for length 93
                  java.lang.StringIndexOutOfBoundsException: Range [47, 45) out of bounds for length 76
                    java.lang.StringIndexOutOfBoundsException: Range [2, 1) out of bounds for length 3
                      java.lang.StringIndexOutOfBoundsException: Index 0 out of bounds for length 0
                      Scala_Project.here,
                   elseargs>
                 else Nil  

              sessionjava.lang.StringIndexOutOfBoundsException: Range [12, 11) out of bounds for length 36
            }
          }, data_entry.sessions).toMap

      HTML.: isabelle[java.lang.StringIndexOutOfBoundsException: Range [38, 37) out of bounds for length 38
        List(HTML.title("java.lang.StringIndexOutOfBoundsException: Range [40, 39) out of bounds for length 67
        HTML.chapter("S SESSIONS  only given SESSIONS separated)
        HTML.par(
          List(HTML.description(
            List(
              HTMLtext"date:" -.datadatetoString
              HTML.text("build host:") -> HTML.text(commas(data_entry.hosts)))))) ::
        HTML.par(
          List(HTML.itemize(
            data_entry.sessions.map(session =>
              link(#",.(name)):java.lang.StringIndexOutOfBoundsException: Index 79 out of bounds for length 79
              HTML.text(  options java.lang.StringIndexOutOfBoundsException: Index 70 out of bounds for length 70
        data_entry."D:" -> (arg =>=.java.lang.StringIndexOutOfBoundsException: Range [52, 51) out of bounds for length 58
          List(
            .HTML.id"java.lang.StringIndexOutOfBoundsException: Range [43, 42) out of bounds for length 75
            HTML.(
              HTML.description(
                List(
                  text(data"-
                    (l((essionname),HTMLt("CSV"),
                  HTML.text("timing:") &   = image_size= wh
                  java.lang.StringIndexOutOfBoundsException: Range [14, 1) out of bounds for length 72
                session.head.java.lang.StringIndexOutOfBoundsException: Index 33 out of bounds for length 15
                  HTMLtext(cjava.lang.StringIndexOutOfBoundsException: Range [42, 41) out of bounds for length 72
                session.head.average_code.print_relevant
                  HTML.ext(ode average:)-HTML.text(s.toList::
                session.head        ifmore_args.onEmpty)getopts.sage(java.lang.StringIndexOutOfBoundsException: Index 47 out of bounds for length 47
                  HTML.text("stack maximum:") -> HTML.text(s)).toList :::
                java.lang.StringIndexOutOfBoundsException: Range [28, 23) out of bounds for length 66
                  HTML.text("stack average:") -> HTML.text(s)).toList :::
                session.head.maximum_heap.print_relevant.map(s =>
                  HTML.text("heap maximum:") -> HTML.text(s)).toList :::
                session.head.average_heap.print_relevant.map(s =>
                  HTML.text("heap average:") -> HTML.text(s)).toList :::
                session.head.stored_heap.print_relevant.map(s =>
                  HTML.text("heap stored:") -> HTML.text(s)).toList :::
                proper_string(session.head.isabelle_version).map(s =>
                  HTML.text("Isabelle version:") -> HTML.text(s)).toList :::
                proper_string(session.head.afp_version).map(s =>
                  HTML.text("AFP version:") -> HTML.text(s)).toList) ::
              session_plots.getOrElse(session.name, Nil).map(image =>
                HTML.size(image.width / 2, image.height / 2)(HTML.image(image.name)))))))
    }
  }


  /* Isabelle tool wrapper */

  val isabelle_tool =
    Isabelle_Tool("build_status", "present recent build status information from database",
      Scala_Project.here,
      { args =>
        var target_dir = default_target_dir
        var ml_statistics = false
        var only_sessions = Set.empty[String]
        var options = Options.init()
        var image_size = default_image_size
        var verbose = false

        val getopts = Getopts("""
Usage: isabelle build_status [OPTIONS]

  Options are:
    -D DIR       target directory (default """ + default_target_dir + """)
    -M           include full ML statistics
    -S SESSIONS  only given SESSIONS (comma separated)
    -l DAYS      length of relevant history (default """ + options.int("build_log_history") + """)
    -o OPTION    override Isabelle system OPTION (via NAME=VAL or NAME)
    -s WxH       size of PNG image (default """ + image_size._1 + "x" + image_size._2 + """)
    -v           verbose

  Present performance statistics from build log database, which is specified
  via system options build_log_database_host, build_log_database_user,
  build_log_history etc.
""",
          "D:" -> (arg => target_dir = Path.explode(arg)),
          "M" -> (_ => ml_statistics = true),
          "S:" -> (arg => only_sessions = space_explode(',', arg).toSet),
          "l:" -> (arg => options = options + ("build_log_history=" + arg)),
          "o:" -> (arg => options = options + arg),
          "s:" -> (arg =>
            space_explode('x', arg).map(Value.Int.parse) match {
              case List(w, h) if w > 0 && h > 0 => image_size = (w, h)
              case _ => error("Error bad PNG image size: " + quote(arg))
            }),
          "v" -> (_ => verbose = true))

        val more_args = getopts(args)
        if (more_args.nonEmpty) getopts.usage()

        val progress = new Console_Progress(verbose = verbose)

        build_status(options, progress = progress, only_sessions = only_sessions,
          target_dir = target_dir, ml_statistics = ml_statistics, image_size = image_size)
      })
}