6502/6502-opcodes
1
0
Fork 0
mirror of https://github.com/mcanlas/6502-opcodes.git synced 2024-07-01 18:29:36 +00:00
Code Issues Projects Releases Wiki Activity

doc

Browse Source
This commit is contained in:
Mark Canlas 2020-08-12 21:18:38 -04:00
parent 628e160931
commit 3d6cebfcad
1 changed files with 13 additions and 2 deletions
Show Stats Download Patch File Download Diff File Expand all files Collapse all files

15
src/main/scala/com/htmlism/ShiftExtractor.scala
View File

@ -1,5 +1,10 @@
package com.htmlism
import scala.annotation.tailrec
/**
* Given an `Int`, destructure it into smaller `Int`s that use less bits
*/
trait BitExtractor[A] {
self =>
@ -7,6 +12,9 @@ trait BitExtractor[A] {
def unapply(n: Int): Option[A]
/**
* A combinator for appending one extractor to another
*/
def >>[B](that: BitExtractor[B]): BitExtractor[(A, B)] =
new BitExtractor[(A, B)] {
def length: Int = self.length + that.length
@ -21,6 +29,7 @@ trait BitExtractor[A] {
}
object AtomExtractor {
@tailrec
def pow(ex: Int, acc: Int = 1): Int =
if (ex == 0)
acc
@ -29,9 +38,11 @@ object AtomExtractor {
}
abstract class PrimitiveBitExtractor(val length: Int) extends BitExtractor[Int] {
private lazy val mask = AtomExtractor.pow(length) - 1
private lazy val mask =
AtomExtractor.pow(length) - 1
def unapply(n: Int): Option[Int] = Some(n & mask)
def unapply(n: Int): Option[Int] =
Some(n & mask)
}
object OneBit extends PrimitiveBitExtractor(1)