src/Pure/General/sha1.scala
author wenzelm
Thu, 24 Mar 2022 22:27:17 +0100
changeset 75333 8f0d94fb8551
parent 75310 42baf7ffa088
child 75348 583ad7a9941c
permissions -rw-r--r--
provide vscode_extension via component, thus users don't need Node.js development tools; proper default for edit_extension; tuned messages;
Ignore whitespace changes - Everywhere: Within whitespace: At end of lines:
38473
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
     1
/*  Title:      Pure/General/sha1.scala
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
     2
    Author:     Makarius
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
     3
75309
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
     4
SHA-1 message digest according to RFC 3174.
38473
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
     5
*/
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
     6
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
     7
package isabelle
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
     8
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
     9
48409
0d2114eb412a more explicit java.io.{File => JFile};
wenzelm
parents: 48343
diff changeset
    10
import java.io.{File => JFile, FileInputStream}
38473
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
    11
import java.security.MessageDigest
75309
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    12
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    13
import isabelle.setup.{Build => Setup_Build}
38473
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
    14
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
    15
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
    16
object SHA1
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
    17
{
75310
42baf7ffa088 tuned signature;
wenzelm
parents: 75309
diff changeset
    18
  final class Digest private[SHA1](rep: String)
41954
fb94df4505a0 explicit type SHA1.digest;
wenzelm
parents: 38473
diff changeset
    19
  {
75310
42baf7ffa088 tuned signature;
wenzelm
parents: 75309
diff changeset
    20
    override def toString: String = rep
55802
f7ceebe2f1b5 prefer abstract datatype -- in accordance to ML version;
wenzelm
parents: 54440
diff changeset
    21
    override def hashCode: Int = rep.hashCode
f7ceebe2f1b5 prefer abstract datatype -- in accordance to ML version;
wenzelm
parents: 54440
diff changeset
    22
    override def equals(that: Any): Boolean =
f7ceebe2f1b5 prefer abstract datatype -- in accordance to ML version;
wenzelm
parents: 54440
diff changeset
    23
      that match {
75310
42baf7ffa088 tuned signature;
wenzelm
parents: 75309
diff changeset
    24
        case other: Digest => rep == other.toString
55802
f7ceebe2f1b5 prefer abstract datatype -- in accordance to ML version;
wenzelm
parents: 54440
diff changeset
    25
        case _ => false
f7ceebe2f1b5 prefer abstract datatype -- in accordance to ML version;
wenzelm
parents: 54440
diff changeset
    26
      }
41954
fb94df4505a0 explicit type SHA1.digest;
wenzelm
parents: 38473
diff changeset
    27
  }
fb94df4505a0 explicit type SHA1.digest;
wenzelm
parents: 38473
diff changeset
    28
75309
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    29
  def fake_digest(rep: String): Digest = new Digest(rep)
38473
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
    30
75309
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    31
  def make_digest(body: MessageDigest => Unit): Digest =
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    32
  {
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    33
    val digest_body = new Setup_Build.Digest_Body { def apply(sha: MessageDigest): Unit = body(sha)}
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    34
    new Digest(Setup_Build.make_digest(digest_body))
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    35
  }
62702
e29f47e04180 tuned signature;
wenzelm
parents: 57638
diff changeset
    36
48409
0d2114eb412a more explicit java.io.{File => JFile};
wenzelm
parents: 48343
diff changeset
    37
  def digest(file: JFile): Digest =
75309
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    38
    make_digest(sha => using(new FileInputStream(file))(stream =>
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    39
      {
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    40
        val buf = new Array[Byte](65536)
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    41
        var m = 0
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    42
        do {
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    43
          m = stream.read(buf, 0, buf.length)
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    44
          if (m != -1) sha.update(buf, 0, m)
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    45
        } while (m != -1)
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    46
      }))
48343
3060e6343953 more SHA1.digest operations;
wenzelm
parents: 45673
diff changeset
    47
62704
478b49f0d726 proper SHA1 digest as annex to heap file: Poly/ML reads precise segment length;
wenzelm
parents: 62702
diff changeset
    48
  def digest(path: Path): Digest = digest(path.file)
75309
216c2ac23a84 clarified signature;
wenzelm
parents: 75307
diff changeset
    49
  def digest(bytes: Array[Byte]): Digest = make_digest(_.update(bytes))
54440
2c4940d2edf7 tuned signature;
wenzelm
parents: 50203
diff changeset
    50
  def digest(bytes: Bytes): Digest = bytes.sha1_digest
2c4940d2edf7 tuned signature;
wenzelm
parents: 50203
diff changeset
    51
  def digest(string: String): Digest = digest(Bytes(string))
72654
99a6bcd1e8e4 tuned signature;
wenzelm
parents: 71775
diff changeset
    52
  def digest_set(digests: List[Digest]): Digest =
99a6bcd1e8e4 tuned signature;
wenzelm
parents: 71775
diff changeset
    53
    digest(cat_lines(digests.map(_.toString).sorted))
57638
ed58e740a699 less authentic SHA1.digest: trust Scala side on blobs and avoid re-calculation via Foreign Language Interface, which might be a cause of problems;
wenzelm
parents: 55802
diff changeset
    54
75310
42baf7ffa088 tuned signature;
wenzelm
parents: 75309
diff changeset
    55
  val digest_length: Int = digest("").toString.length
38473
bd96f2a5beb0 digesting strings according to SHA-1 -- Scala version;
wenzelm
parents:
diff changeset
    56
}