Duration.hs

{-# LANGUAGE DeriveAnyClass #-}
{-# LANGUAGE DeriveGeneric #-}
{-# LANGUAGE DerivingStrategies #-}
{-# LANGUAGE OverloadedRecordDot #-}
{-# LANGUAGE OverloadedStrings #-}
{-# LANGUAGE StrictData #-}
{-# OPTIONS_GHC -Wno-unused-imports -Wno-unused-matches -Wno-unused-top-binds #-}

{- | Auto-generated protobuf types from package @google.protobuf@.

__THIS FILE IS AUTO-GENERATED BY wireform. DO NOT EDIT.__

Any manual changes will be overwritten the next time code
generation is run.  To modify the types or instances, edit the
@.proto@ source file and re-run the code generator.
-}
module Proto.Google.Protobuf.Duration where

import Control.DeepSeq (NFData (..))
import Data.Aeson qualified as Aeson
import Data.Aeson.Key qualified as AesonKey
import Data.Aeson.KeyMap qualified as AesonKM
import Data.Aeson.Types qualified as Aeson
import Data.ByteString (ByteString)
import Data.ByteString qualified as BS
import Data.Hashable (Hashable (..))
import Data.Int (Int32, Int64)
import Data.Map.Strict qualified as Map
import Data.Proxy (Proxy (..))
import Data.Reflection (Given (..), given)
import Data.Text (Text)
import Data.Text qualified as T
import Data.Vector qualified as V
import Data.Vector.Unboxed qualified as VU
import Data.Word (Word32, Word64)
import GHC.Generics (Generic)
import Proto.Decode
import Proto.Encode
import Proto.Extension qualified
import Proto.Internal.Encode.Archetype (
  archBool,
  archBoolSize,
  archBytes,
  archBytesSize,
  archDouble,
  archFixed32,
  archFixed32Size,
  archFixed64,
  archFixed64Size,
  archFloat,
  archSVarint32,
  archSVarint64,
  archString,
  archStringSize,
  archSubmessage,
  archSubmessageSize,
  archVarint,
  archVarintSize,
 )
import Proto.Internal.JSON (bytesFieldToJSON, bytesMapFieldToJSON, jsonObject, parseBytesFieldMaybe, parseBytesMapFieldMaybe, parseFieldMaybe, protoBytesToJSON, (.=:))
import Proto.Internal.JSON.Extension qualified as PJExt
import Proto.Internal.Wire (Tag (..), WireType (..))
import Proto.Internal.Wire.Encode (
  fieldBoolSize,
  fieldBytesSize,
  fieldDoubleSize,
  fieldFixed32Size,
  fieldFixed64Size,
  fieldFloatSize,
  fieldMessageSize,
  fieldSVarint32Size,
  fieldSVarint64Size,
  fieldTextSize,
  fieldVarintSize,
  putByteString,
  putDouble,
  putFixed32,
  putFixed64,
  putFloat,
  putLengthDelimited,
  putSVarint32,
  putSVarint64,
  putTag,
  putText,
  putVarint,
  putVarintSigned,
  tagSize,
  varintSize,
  varintSize32,
  zigZag32,
  zigZag64,
 )
import Proto.Registry (IsMessage)
import Proto.Registry qualified
import Proto.Schema (FieldDescriptor (..), FieldLabel' (..), FieldTypeDescriptor (..), ProtoMessage (..), ScalarFieldType (..), SomeFieldDescriptor (..))
import Wireform.Builder qualified as B


{- | Serialized FileDescriptorProto for this .proto file.
Decode with @Proto.Google.Protobuf.Descriptor.decodeMessage@.
-}
fileDescriptorProtoBytes :: ByteString
fileDescriptorProtoBytes = "\x0a\x1e\x67\x6f\x6f\x67\x6c\x65\x2f\x70\x72\x6f\x74\x6f\x62\x75\x66\x2f\x64\x75\x72\x61\x74\x69\x6f\x6e\x2e\x70\x72\x6f\x74\x6f\x12\x0f\x67\x6f\x6f\x67\x6c\x65\x2e\x70\x72\x6f\x74\x6f\x62\x75\x66\x22\x2a\x0a\x08\x44\x75\x72\x61\x74\x69\x6f\x6e\x12\x0f\x0a\x07\x73\x65\x63\x6f\x6e\x64\x73\x18\x01\x20\x01\x28\x03\x12\x0d\x0a\x05\x6e\x61\x6e\x6f\x73\x18\x02\x20\x01\x28\x05\x62\x06\x70\x72\x6f\x74\x6f\x33"


data Duration = Duration
  { durationSeconds :: {-# UNPACK #-} !Int64
  , durationNanos :: {-# UNPACK #-} !Int32
  , durationUnknownFields :: ![UnknownField]
  }
  deriving stock (Show, Eq, Generic)
  deriving anyclass (NFData)


defaultDuration :: Duration
defaultDuration =
  Duration
    { durationSeconds = 0
    , durationNanos = 0
    , durationUnknownFields = []
    }


instance MessageEncode Duration where
  buildMessage msg =
    (if msg.durationSeconds == 0 then mempty else archVarint 8 (fromIntegral msg.durationSeconds))
      <> (if msg.durationNanos == 0 then mempty else archVarint 16 (fromIntegral msg.durationNanos))
      <> encodeUnknownFields msg.durationUnknownFields


instance MessageSize Duration where
  messageSize msg =
    (if msg.durationSeconds == 0 then 0 else archVarintSize (fromIntegral msg.durationSeconds))
      + (if msg.durationNanos == 0 then 0 else archVarintSize (fromIntegral msg.durationNanos))
      + unknownFieldsSize msg.durationUnknownFields


instance MessageDecode Duration where
  {-# INLINE messageDecoder #-}
  messageDecoder = loop 0 0 []
    where
      loop acc_0 acc_1 acc_unknown_ =
        withTagM
          (pure (Duration {durationSeconds = acc_0, durationNanos = acc_1, durationUnknownFields = reverse acc_unknown_}))
          ( \fn wt -> case fn of
              1 -> do
                v <- (fromIntegral <$> decodeFieldVarint)
                loop v acc_1 acc_unknown_
              2 -> do
                v <- (fromIntegral <$> decodeFieldVarint)
                loop acc_0 v acc_unknown_
              _ -> do
                uf <- captureUnknownField fn (toEnum wt)
                loop acc_0 acc_1 (uf : acc_unknown_)
          )


instance ProtoMessage Duration where
  protoMessageName _ = "google.protobuf.Duration"
  protoPackageName _ = "google.protobuf"
  protoDefaultValue = defaultDuration
  protoFileDescriptorBytes _ = fileDescriptorProtoBytes
  protoFieldDescriptors _ =
    Map.fromList
      [
        ( 1
        , SomeField
            FieldDescriptor
              { fdName = "seconds"
              , fdNumber = 1
              , fdTypeDesc = ScalarType Int64Field
              , fdLabel = LabelOptional
              , fdGet = durationSeconds
              , fdSet = \v m -> m {durationSeconds = v}
              }
        )
      ,
        ( 2
        , SomeField
            FieldDescriptor
              { fdName = "nanos"
              , fdNumber = 2
              , fdTypeDesc = ScalarType Int32Field
              , fdLabel = LabelOptional
              , fdGet = durationNanos
              , fdSet = \v m -> m {durationNanos = v}
              }
        )
      ]


instance IsMessage Duration


instance Aeson.ToJSON Duration where
  toJSON msg =
    let s = msg.durationSeconds
        n = msg.durationNanos
        nanoStr = if n == 0 then T.pack "" else T.pack "." <> dropTrailingZeros (pad9 (abs (fromIntegral n)))
        dropTrailingZeros t = case T.stripSuffix (T.pack "0") t of Just t' -> dropTrailingZeros t'; Nothing -> t
        pad9 x = let sx = T.pack (show x) in T.replicate (9 - T.length sx) (T.pack "0") <> sx
        sign = if s < 0 || n < 0 then T.pack "-" else T.pack ""
    in Aeson.String (sign <> T.pack (show (abs s)) <> nanoStr <> T.pack "s")


instance Aeson.FromJSON Duration where
  parseJSON (Aeson.String _) = pure defaultDuration
  parseJSON _ = fail "Expected duration string like \"3.5s\""


instance Hashable Duration where
  hashWithSalt salt msg = hashWithSalt (hashWithSalt (salt) msg.durationSeconds) msg.durationNanos


instance Proto.Extension.HasExtensions Duration where
  messageUnknownFields = durationUnknownFields
  setMessageUnknownFields !ufs msg = msg {durationUnknownFields = ufs}


instance Semigroup Duration where
  a <> b =
    Duration
      { durationSeconds = if b.durationSeconds == 0 then a.durationSeconds else b.durationSeconds
      , durationNanos = if b.durationNanos == 0 then a.durationNanos else b.durationNanos
      , durationUnknownFields = a.durationUnknownFields <> b.durationUnknownFields
      }


instance Monoid Duration where
  mempty = defaultDuration