Added FromDigits support for BitVector

Author: mpilquist

core/shared/src/main/scala-0.22/scodec/bits/BitVectorPlatform.scala

@@ -0,0 +1,41 @@
+package scodec.bits
+
+import scala.quoted._
+import scala.quoted.matching._
+import scala.util.FromDigits
+
+private[bits] trait BitVectorPlatform { self: BitVector.type =>
+  given as FromDigits.WithRadix[BitVector] = BitVectorFromDigits.Instance
+}
+
+private[bits] object BitVectorFromDigits {
+
+  class Base extends FromDigits.WithRadix[BitVector] {
+    def fromDigits(digits: String, radix: Int): BitVector =
+      digitsToBitVector(digits, radix)
+  }
+
+  private def digitsToBitVector(digits: String, radix: Int): BitVector =
+    if (radix == 16) ByteVector.fromValidHex(digits.tail).bits
+    else throw FromDigits.MalformedNumber(s"unsupported radix $radix")
+
+  object Instance extends Base {
+    override inline def fromDigits(digits: String): BitVector =
+      ${digitsToBitVectorMacro('digits, Expr(10))}
+    override inline def fromDigits(digits: String, radix: Int): BitVector =
+      ${digitsToBitVectorMacro('digits, 'radix)}
+  }
+
+  private def digitsToBitVectorMacro(digits: Expr[String], radix: Expr[Int])(given qctx: QuoteContext): Expr[BitVector] =
+    (digits, radix) match {
+      case (Const(ds), Const(r)) =>
+        if (r == 16) {
+          '{ByteVector.fromValidHex($digits.tail).bits}
+        } else {
+          qctx.error(s"unsupported radix $r", radix)
+          '{BitVector.empty}
+        }
+      case other =>
+        '{digitsToBitVector($digits, $radix)}
+    }
+}

core/shared/src/main/scala-2.12/scodec/bits/BitVectorPlatform.scala

@@ -0,0 +1,3 @@
+package scodec.bits
+
+private[bits] trait BitVectorPlatform

core/shared/src/main/scala-2.13/scodec/bits/BitVectorPlatform.scala

@@ -0,0 +1,3 @@
+package scodec.bits
+
+private[bits] trait BitVectorPlatform

core/shared/src/main/scala/scodec/bits/BitVector.scala

@@ -1284,7 +1284,7 @@ sealed abstract class BitVector extends BitwiseOperations[BitVector, Long] with
   * @groupname base Base Conversions
   * @groupprio base 3
   */
-object BitVector {
+object BitVector extends BitVectorPlatform {
 
   /**
     * Empty bit vector.