otocols_sjs1_3.3.9.4.source-code.BlockCodec.scala Maven / Gradle / Ivy
/*
* Copyright (c) 2013 Functional Streams for Scala
*
* Permission is hereby granted, free of charge, to any person obtaining a copy of
* this software and associated documentation files (the "Software"), to deal in
* the Software without restriction, including without limitation the rights to
* use, copy, modify, merge, publish, distribute, sublicense, and/or sell copies of
* the Software, and to permit persons to whom the Software is furnished to do so,
* subject to the following conditions:
*
* The above copyright notice and this permission notice shall be included in all
* copies or substantial portions of the Software.
*
* THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND, EXPRESS OR
* IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF MERCHANTABILITY, FITNESS
* FOR A PARTICULAR PURPOSE AND NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR
* COPYRIGHT HOLDERS BE LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER
* IN AN ACTION OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN
* CONNECTION WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
*/
package fs2.protocols
package pcapng
import scodec.Codec
import scodec.bits._
import scodec.codecs._
object BlockCodec {
private inline def commonStructure[A, L <: Tuple](
blockType: Codec[A]
)(f: Length => Codec[L]): Codec[Tuple.Concat[A *: Length *: L, Unit *: EmptyTuple]] =
// format: off
("Block Type" | blockType ) ::
("Block Total Length" | bytes(4).xmapc(Length(_))(_.bv) ).flatPrepend { length =>
("Block Bytes" | f(length) ) :+
("Block Total Length" | constant(length.bv) )}
// format: on
inline def unknownByteOrder[L <: Tuple](
hexConstant: ByteVector
)(f: Length => Codec[L]): Codec[Tuple.Concat[Unit *: Length *: L, Unit *: EmptyTuple]] =
commonStructure(constant(hexConstant))(f)
inline def byBlockBytesCodec[L <: Tuple](hexConstant: ByteVector, blockBytesCodec: Codec[L])(
implicit ord: ByteOrdering
): Codec[Tuple.Concat[Unit *: Length *: L, Unit *: EmptyTuple]] =
unknownByteOrder(hexConstant)(length => fixedSizeBytes(length.toLong - 12, blockBytesCodec))
def ignored(
hexConstant: ByteVector
)(implicit ord: ByteOrdering): Codec[Length *: ByteVector *: EmptyTuple] =
unknownByteOrder(hexConstant) { length =>
fixedSizeBytes(length.toLong - 12, bytes).tuple
}.dropUnits
def unrecognizedBlockType(implicit
ord: ByteOrdering
): Codec[ByteVector *: Length *: ByteVector *: EmptyTuple] =
commonStructure(bytes(4)) { length =>
fixedSizeBytes(length.toLong - 12, bytes).tuple
}.dropUnits
}