src/Pure/General/time.scala
author wenzelm
Sun, 16 May 2021 13:34:27 +0200
changeset 73702 7202e12cb324
parent 73385 1892708fd148
child 74158 1cb0ad6f9a2d
permissions -rw-r--r--
tuned signature --- following hints by IntelliJ IDEA;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
45674
eb65c9d17e2f clarified Time vs. Timing;
wenzelm
parents: 45673
diff changeset
     1
/*  Title:      Pure/General/time.scala
40393
2bb7ec08574a somewhat more uniform timing in ML vs. Scala;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
2bb7ec08574a somewhat more uniform timing in ML vs. Scala;
wenzelm
parents:
diff changeset
     3
45674
eb65c9d17e2f clarified Time vs. Timing;
wenzelm
parents: 45673
diff changeset
     4
Time based on milliseconds.
40393
2bb7ec08574a somewhat more uniform timing in ML vs. Scala;
wenzelm
parents:
diff changeset
     5
*/
2bb7ec08574a somewhat more uniform timing in ML vs. Scala;
wenzelm
parents:
diff changeset
     6
2bb7ec08574a somewhat more uniform timing in ML vs. Scala;
wenzelm
parents:
diff changeset
     7
package isabelle
2bb7ec08574a somewhat more uniform timing in ML vs. Scala;
wenzelm
parents:
diff changeset
     8
45664
ac6e704dcd12 tuned signature (according to ML version);
wenzelm
parents: 45249
diff changeset
     9
50298
1426d478ccda tuned import;
wenzelm
parents: 47993
diff changeset
    10
import java.util.Locale
64056
0edc966bee55 more date and time operations from Java 8;
wenzelm
parents: 63700
diff changeset
    11
import java.time.Instant
50298
1426d478ccda tuned import;
wenzelm
parents: 47993
diff changeset
    12
1426d478ccda tuned import;
wenzelm
parents: 47993
diff changeset
    13
40848
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double;
wenzelm
parents: 40393
diff changeset
    14
object Time
40393
2bb7ec08574a somewhat more uniform timing in ML vs. Scala;
wenzelm
parents:
diff changeset
    15
{
47993
135fd6f2dadd less warning in scala-2.10.0-M3;
wenzelm
parents: 46768
diff changeset
    16
  def seconds(s: Double): Time = new Time((s * 1000.0).round)
63700
2a95d904672e clarified options and arguments;
wenzelm
parents: 63688
diff changeset
    17
  def minutes(s: Double): Time = new Time((s * 60000.0).round)
44699
5199ee17c7d7 property "tooltip-dismiss-delay" is edited in ms, not seconds;
wenzelm
parents: 40852
diff changeset
    18
  def ms(m: Long): Time = new Time(m)
63700
2a95d904672e clarified options and arguments;
wenzelm
parents: 63688
diff changeset
    19
  def hms(h: Int, m: Int, s: Double): Time = seconds(s + 60 * m + 3600 * h)
63686
66f217416da7 statistics from session build output;
wenzelm
parents: 62571
diff changeset
    20
61528
053f7083b3eb global start time as reference point;
wenzelm
parents: 57912
diff changeset
    21
  def now(): Time = ms(System.currentTimeMillis())
053f7083b3eb global start time as reference point;
wenzelm
parents: 57912
diff changeset
    22
51587
7050c4656fd8 more operations on Time, Timing;
wenzelm
parents: 51533
diff changeset
    23
  val zero: Time = ms(0)
51533
3f6280aedbcc dockable window for timing information;
wenzelm
parents: 50298
diff changeset
    24
3f6280aedbcc dockable window for timing information;
wenzelm
parents: 50298
diff changeset
    25
  def print_seconds(s: Double): String =
3f6280aedbcc dockable window for timing information;
wenzelm
parents: 50298
diff changeset
    26
    String.format(Locale.ROOT, "%.3f", s.asInstanceOf[AnyRef])
64056
0edc966bee55 more date and time operations from Java 8;
wenzelm
parents: 63700
diff changeset
    27
64058
ea528dc9962d proper calculation;
wenzelm
parents: 64056
diff changeset
    28
  def instant(t: Instant): Time = ms(t.getEpochSecond * 1000L + t.getNano / 1000000L)
40393
2bb7ec08574a somewhat more uniform timing in ML vs. Scala;
wenzelm
parents:
diff changeset
    29
}
2bb7ec08574a somewhat more uniform timing in ML vs. Scala;
wenzelm
parents:
diff changeset
    30
56351
1c735e46acf0 simplified using "value class";
wenzelm
parents: 53292
diff changeset
    31
final class Time private(val ms: Long) extends AnyVal
40848
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double;
wenzelm
parents: 40393
diff changeset
    32
{
65616
b8738569b8db clarified database layout;
wenzelm
parents: 65597
diff changeset
    33
  def proper_ms: Option[Long] = if (ms == 0) None else Some(ms)
b8738569b8db clarified database layout;
wenzelm
parents: 65597
diff changeset
    34
40848
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double;
wenzelm
parents: 40393
diff changeset
    35
  def seconds: Double = ms / 1000.0
63688
cc57255bf6ae gnuplot presentation similar to former isatest-statistics;
wenzelm
parents: 63686
diff changeset
    36
  def minutes: Double = ms / 60000.0
40852
aee98c88c587 builtin time bounds (again);
wenzelm
parents: 40848
diff changeset
    37
56691
ad5d7461b370 tuned signature, in accordance to ML version;
wenzelm
parents: 56351
diff changeset
    38
  def + (t: Time): Time = new Time(ms + t.ms)
ad5d7461b370 tuned signature, in accordance to ML version;
wenzelm
parents: 56351
diff changeset
    39
  def - (t: Time): Time = new Time(ms - t.ms)
ad5d7461b370 tuned signature, in accordance to ML version;
wenzelm
parents: 56351
diff changeset
    40
61602
a2f0f659a3c2 added option timeout_scale;
wenzelm
parents: 61528
diff changeset
    41
  def compare(t: Time): Int = ms compare t.ms
56691
ad5d7461b370 tuned signature, in accordance to ML version;
wenzelm
parents: 56351
diff changeset
    42
  def < (t: Time): Boolean = ms < t.ms
ad5d7461b370 tuned signature, in accordance to ML version;
wenzelm
parents: 56351
diff changeset
    43
  def <= (t: Time): Boolean = ms <= t.ms
ad5d7461b370 tuned signature, in accordance to ML version;
wenzelm
parents: 56351
diff changeset
    44
  def > (t: Time): Boolean = ms > t.ms
ad5d7461b370 tuned signature, in accordance to ML version;
wenzelm
parents: 56351
diff changeset
    45
  def >= (t: Time): Boolean = ms >= t.ms
ad5d7461b370 tuned signature, in accordance to ML version;
wenzelm
parents: 56351
diff changeset
    46
ad5d7461b370 tuned signature, in accordance to ML version;
wenzelm
parents: 56351
diff changeset
    47
  def min(t: Time): Time = if (this < t) this else t
ad5d7461b370 tuned signature, in accordance to ML version;
wenzelm
parents: 56351
diff changeset
    48
  def max(t: Time): Time = if (this > t) this else t
40852
aee98c88c587 builtin time bounds (again);
wenzelm
parents: 40848
diff changeset
    49
53292
f567c1c7b180 option to insert unique completion immediately into buffer;
wenzelm
parents: 51587
diff changeset
    50
  def is_zero: Boolean = ms == 0
46768
46acd255810d relevant timing as in ML;
wenzelm
parents: 46712
diff changeset
    51
  def is_relevant: Boolean = ms >= 1
46acd255810d relevant timing as in ML;
wenzelm
parents: 46712
diff changeset
    52
57912
wenzelm
parents: 56691
diff changeset
    53
  override def toString: String = Time.print_seconds(seconds)
46768
46acd255810d relevant timing as in ML;
wenzelm
parents: 46712
diff changeset
    54
40848
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double;
wenzelm
parents: 40393
diff changeset
    55
  def message: String = toString + "s"
62571
2fd90993a928 print timing like lib/scripts/timestop.bash;
wenzelm
parents: 61602
diff changeset
    56
2fd90993a928 print timing like lib/scripts/timestop.bash;
wenzelm
parents: 61602
diff changeset
    57
  def message_hms: String =
2fd90993a928 print timing like lib/scripts/timestop.bash;
wenzelm
parents: 61602
diff changeset
    58
  {
2fd90993a928 print timing like lib/scripts/timestop.bash;
wenzelm
parents: 61602
diff changeset
    59
    val s = ms / 1000
2fd90993a928 print timing like lib/scripts/timestop.bash;
wenzelm
parents: 61602
diff changeset
    60
    String.format(Locale.ROOT, "%d:%02d:%02d",
71163
b5822f4c3fde tuned -- avoid deprecated constructors;
wenzelm
parents: 65617
diff changeset
    61
      java.lang.Long.valueOf(s / 3600),
b5822f4c3fde tuned -- avoid deprecated constructors;
wenzelm
parents: 65617
diff changeset
    62
      java.lang.Long.valueOf((s / 60) % 60),
b5822f4c3fde tuned -- avoid deprecated constructors;
wenzelm
parents: 65617
diff changeset
    63
      java.lang.Long.valueOf(s % 60))
62571
2fd90993a928 print timing like lib/scripts/timestop.bash;
wenzelm
parents: 61602
diff changeset
    64
  }
64056
0edc966bee55 more date and time operations from Java 8;
wenzelm
parents: 63700
diff changeset
    65
0edc966bee55 more date and time operations from Java 8;
wenzelm
parents: 63700
diff changeset
    66
  def instant: Instant = Instant.ofEpochMilli(ms)
71684
5036edb025b7 clarified signature;
wenzelm
parents: 71163
diff changeset
    67
73702
7202e12cb324 tuned signature --- following hints by IntelliJ IDEA;
wenzelm
parents: 73385
diff changeset
    68
  def sleep(): Unit = Thread.sleep(ms)
40848
8662b9b1f123 more abstract/uniform handling of time, preferring seconds as Double;
wenzelm
parents: 40393
diff changeset
    69
}