module Bench.Binary where

import Criterion.Main
import qualified Data.Curve.Binary.SECT113R1 as SECT113R1
import qualified Data.Curve.Binary.SECT113R2 as SECT113R2
import qualified Data.Curve.Binary.SECT131R1 as SECT131R1
import qualified Data.Curve.Binary.SECT131R2 as SECT131R2
import qualified Data.Curve.Binary.SECT163K1 as SECT163K1
import qualified Data.Curve.Binary.SECT163R1 as SECT163R1
import qualified Data.Curve.Binary.SECT163R2 as SECT163R2
import qualified Data.Curve.Binary.SECT193R1 as SECT193R1
import qualified Data.Curve.Binary.SECT193R2 as SECT193R2
import qualified Data.Curve.Binary.SECT233K1 as SECT233K1
import qualified Data.Curve.Binary.SECT233R1 as SECT233R1
import qualified Data.Curve.Binary.SECT239K1 as SECT239K1
import qualified Data.Curve.Binary.SECT283K1 as SECT283K1
import qualified Data.Curve.Binary.SECT283R1 as SECT283R1
import qualified Data.Curve.Binary.SECT409K1 as SECT409K1
import qualified Data.Curve.Binary.SECT409R1 as SECT409R1
import qualified Data.Curve.Binary.SECT571K1 as SECT571K1
import qualified Data.Curve.Binary.SECT571R1 as SECT571R1

import Bench.Curve

benchBinary :: Benchmark
benchBinary = bgroup "Binary"
  [ benchBinary' "SECT113R1" SECT113R1.gA SECT113R1.gP
  , benchBinary' "SECT113R2" SECT113R2.gA SECT113R2.gP
  , benchBinary' "SECT131R1" SECT131R1.gA SECT131R1.gP
  , benchBinary' "SECT131R2" SECT131R2.gA SECT131R2.gP
  , benchBinary' "SECT163K1" SECT163K1.gA SECT163K1.gP
  , benchBinary' "SECT163R1" SECT163R1.gA SECT163R1.gP
  , benchBinary' "SECT163R2" SECT163R2.gA SECT163R2.gP
  , benchBinary' "SECT193R1" SECT193R1.gA SECT193R1.gP
  , benchBinary' "SECT193R2" SECT193R2.gA SECT193R2.gP
  , benchBinary' "SECT233K1" SECT233K1.gA SECT233K1.gP
  , benchBinary' "SECT233R1" SECT233R1.gA SECT233R1.gP
  , benchBinary' "SECT239K1" SECT239K1.gA SECT239K1.gP
  , benchBinary' "SECT283K1" SECT283K1.gA SECT283K1.gP
  , benchBinary' "SECT283R1" SECT283R1.gA SECT283R1.gP
  , benchBinary' "SECT409K1" SECT409K1.gA SECT409K1.gP
  , benchBinary' "SECT409R1" SECT409R1.gA SECT409R1.gP
  , benchBinary' "SECT571K1" SECT571K1.gA SECT571K1.gP
  , benchBinary' "SECT571R1" SECT571R1.gA SECT571R1.gP
  ]
  where
    benchBinary' curve affine projective = bgroup curve
      [ benchmark "Affine" affine
      , benchmark "Projective" projective
      ]