SourceContext.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.SourceContext 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\x24\x67\x6f\x6f\x67\x6c\x65\x2f\x70\x72\x6f\x74\x6f\x62\x75\x66\x2f\x73\x6f\x75\x72\x63\x65\x5f\x63\x6f\x6e\x74\x65\x78\x74\x2e\x70\x72\x6f\x74\x6f\x12\x0f\x67\x6f\x6f\x67\x6c\x65\x2e\x70\x72\x6f\x74\x6f\x62\x75\x66\x22\x22\x0a\x0d\x53\x6f\x75\x72\x63\x65\x43\x6f\x6e\x74\x65\x78\x74\x12\x11\x0a\x09\x66\x69\x6c\x65\x5f\x6e\x61\x6d\x65\x18\x01\x20\x01\x28\x09\x62\x06\x70\x72\x6f\x74\x6f\x33"


data SourceContext = SourceContext
  { sourceContextFileName :: !Text
  , sourceContextUnknownFields :: ![UnknownField]
  }
  deriving stock (Show, Eq, Generic)
  deriving anyclass (NFData)


defaultSourceContext :: SourceContext
defaultSourceContext =
  SourceContext
    { sourceContextFileName = ""
    , sourceContextUnknownFields = []
    }


instance MessageEncode SourceContext where
  buildMessage msg =
    (if msg.sourceContextFileName == T.empty then mempty else archString 10 msg.sourceContextFileName)
      <> encodeUnknownFields msg.sourceContextUnknownFields


instance MessageSize SourceContext where
  messageSize msg =
    (if msg.sourceContextFileName == T.empty then 0 else archStringSize msg.sourceContextFileName)
      + unknownFieldsSize msg.sourceContextUnknownFields


instance MessageDecode SourceContext where
  {-# INLINE messageDecoder #-}
  messageDecoder = loop "" []
    where
      loop acc_0 acc_unknown_ =
        withTagM
          (pure (SourceContext {sourceContextFileName = acc_0, sourceContextUnknownFields = reverse acc_unknown_}))
          ( \fn wt -> case fn of
              1 -> do
                v <- decodeFieldString
                loop v acc_unknown_
              _ -> do
                uf <- captureUnknownField fn (toEnum wt)
                loop acc_0 (uf : acc_unknown_)
          )


instance ProtoMessage SourceContext where
  protoMessageName _ = "google.protobuf.SourceContext"
  protoPackageName _ = "google.protobuf"
  protoDefaultValue = defaultSourceContext
  protoFileDescriptorBytes _ = fileDescriptorProtoBytes
  protoFieldDescriptors _ =
    Map.fromList
      [
        ( 1
        , SomeField
            FieldDescriptor
              { fdName = "file_name"
              , fdNumber = 1
              , fdTypeDesc = ScalarType StringField
              , fdLabel = LabelOptional
              , fdGet = sourceContextFileName
              , fdSet = \v m -> m {sourceContextFileName = v}
              }
        )
      ]


instance IsMessage SourceContext


instance Aeson.ToJSON SourceContext where
  toJSON msg =
    jsonObject
      [ "fileName" .=: msg.sourceContextFileName
      ]


instance Aeson.FromJSON SourceContext where
  parseJSON = Aeson.withObject "SourceContext" $ \obj -> do
    fld_sourceContextFileName <- parseFieldMaybe obj "fileName"
    pure
      defaultSourceContext
        { sourceContextFileName = maybe (sourceContextFileName defaultSourceContext) id fld_sourceContextFileName
        , sourceContextUnknownFields = []
        }


instance Hashable SourceContext where
  hashWithSalt salt msg = hashWithSalt (salt) msg.sourceContextFileName


instance Proto.Extension.HasExtensions SourceContext where
  messageUnknownFields = sourceContextUnknownFields
  setMessageUnknownFields !ufs msg = msg {sourceContextUnknownFields = ufs}


instance Semigroup SourceContext where
  a <> b =
    SourceContext
      { sourceContextFileName = if b.sourceContextFileName == "" then a.sourceContextFileName else b.sourceContextFileName
      , sourceContextUnknownFields = a.sourceContextUnknownFields <> b.sourceContextUnknownFields
      }


instance Monoid SourceContext where
  mempty = defaultSourceContext