// Copyright 2024 The NativeLink Authors. All rights reserved.

//

// Licensed under the Apache License, Version 2.0 (the "License");

// you may not use this file except in compliance with the License.

// You may obtain a copy of the License at

//

//    http://www.apache.org/licenses/LICENSE-2.0

//

// Unless required by applicable law or agreed to in writing, software

// distributed under the License is distributed on an "AS IS" BASIS,

// WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.

// See the License for the specific language governing permissions and

// limitations under the License.

use std::collections::{HashMap, VecDeque};

use std::convert::Into;

use std::pin::Pin;

use bytes::Bytes;

use futures::stream::{FuturesUnordered, Stream};

use futures::TryStreamExt;

use nativelink_config::cas_server::{CasStoreConfig, InstanceName};

use nativelink_error::{error_if, make_input_err, Code, Error, ResultExt};

use nativelink_proto::build::bazel::remote::execution::v2::content_addressable_storage_server::{

    ContentAddressableStorage, ContentAddressableStorageServer as Server,

};

use nativelink_proto::build::bazel::remote::execution::v2::{

    batch_read_blobs_response, batch_update_blobs_response, compressor, BatchReadBlobsRequest,

    BatchReadBlobsResponse, BatchUpdateBlobsRequest, BatchUpdateBlobsResponse, Directory,

    FindMissingBlobsRequest, FindMissingBlobsResponse, GetTreeRequest, GetTreeResponse,

};

use nativelink_proto::google::rpc::Status as GrpcStatus;

use nativelink_store::ac_utils::get_and_decode_digest;

use nativelink_store::grpc_store::GrpcStore;

use nativelink_store::store_manager::StoreManager;

use nativelink_util::common::DigestInfo;

use nativelink_util::digest_hasher::make_ctx_for_hash_func;

use nativelink_util::store_trait::{Store, StoreLike};

use tonic::{Request, Response, Status};

use tracing::{error_span, event, instrument, Level};

pub struct CasServer {

    stores: HashMap<String, Store>,

}

type GetTreeStream = Pin<Box<dyn Stream<Item = Result<GetTreeResponse, Status>> + Send + 'static>>;

impl CasServer {

    pub fn new(

        config: &HashMap<InstanceName, CasStoreConfig>,

        store_manager: &StoreManager,

    ) -> Result<Self, Error> {

        let mut stores = HashMap::with_capacity(config.len());

        for (
instance_name, cas_cfg8
) in config {

            let store = store_manager.get_store(&cas_cfg.cas_store).ok_or_else(|| {

                make_input_err!("'cas_store': '{}' does not exist", cas_cfg.cas_store)

            })
?0
;

            stores.insert(instance_name.to_string(), store);

        }

        Ok(CasServer { stores })

    }

    pub fn into_service(self) -> Server<CasServer> {

        Server::new(self)

    }

    async fn inner_find_missing_blobs(

        &self,

        request: FindMissingBlobsRequest,

    ) -> Result<Response<FindMissingBlobsResponse>, Error> {

        let instance_name = &request.instance_name;

        let store = self

            .stores

            .get(instance_name)

            .err_tip(|| 
format!("'instance_name' not configured for '{instance_name}'")0
)
?0

            .clone();

        let mut requested_blobs = Vec::with_capacity(request.blob_digests.len());

        for 
digest7
 in &request.blob_digests {

            requested_blobs.push(DigestInfo::try_from(digest.clone())
?1
.
into()6
);

        }

        let sizes = store

            .has_many(&requested_blobs)

            .await

            .err_tip(|| 
"In find_missing_blobs"0
)
?0
;

        let missing_blob_digests = sizes

            .into_iter()

            .zip(request.blob_digests)

            .filter_map(|(maybe_size, digest)| maybe_size.map_or_else(|| 
Some(digest)2
, |_| 
None3
))

            .collect();

        Ok(Response::new(FindMissingBlobsResponse {

            missing_blob_digests,

        }))

    }

    async fn inner_batch_update_blobs(

        &self,

        request: BatchUpdateBlobsRequest,

    ) -> Result<Response<BatchUpdateBlobsResponse>, Error> {

        let instance_name = &request.instance_name;

        let store = self

            .stores

            .get(instance_name)

            .err_tip(|| 
format!("'instance_name' not configured for '{instance_name}'")0
)
?0

            .clone();

        // If we are a GrpcStore we shortcut here, as this is a special store.

        // Note: We don't know the digests here, so we try perform a very shallow

        // check to see if it's a grpc store.

        if let Some(
grpc_store0
) = store.downcast_ref::<GrpcStore>(None) {

  Branch (112:16): [True: 0, False: 2]

  Branch (112:16): [Folded - Ignored]

            return grpc_store.batch_update_blobs(Request::new(request)).await;

        }

        let store_ref = &store;

        let update_futures: FuturesUnordered<_> = request

            .requests

            .into_iter()

            .map(|request| async move {

                let digest = request

                    .digest

                    .clone()

                    .err_tip(|| 
"Digest not found in request"0
)
?0
;

                let request_data = request.data;

                let digest_info = DigestInfo::try_from(digest.clone())
?0
;

                let size_bytes = usize::try_from(digest_info.size_bytes())

                    .err_tip(|| 
"Digest size_bytes was not convertible to usize"0
)
?0
;

                error_if!(

                    size_bytes != request_data.len(),

  Branch (130:21): [True: 0, False: 3]

  Branch (130:21): [Folded - Ignored]

                    "Digest for upload had mismatching sizes, digest said {} data  said {}",

                    size_bytes,

                    request_data.len()

                );

                let result = store_ref

                    .update_oneshot(digest_info, request_data)

                    .await

                    .err_tip(|| 
"Error writing to store"0
);

                Ok::<_, Error>(batch_update_blobs_response::Response {

                    digest: Some(digest),

                    status: Some(result.map_or_else(Into::into, |_| GrpcStatus::default())),

                })

            })

            .collect();

        let responses = update_futures

            .try_collect::<Vec<batch_update_blobs_response::Response>>()

            .await?;

        Ok(Response::new(BatchUpdateBlobsResponse { responses }))

    }

    async fn inner_batch_read_blobs(

        &self,

        request: BatchReadBlobsRequest,

    ) -> Result<Response<BatchReadBlobsResponse>, Error> {

        let instance_name = &request.instance_name;

        let store = self

            .stores

            .get(instance_name)

            .err_tip(|| 
format!("'instance_name' not configured for '{instance_name}'")0
)
?0

            .clone();

        // If we are a GrpcStore we shortcut here, as this is a special store.

        // Note: We don't know the digests here, so we try perform a very shallow

        // check to see if it's a grpc store.

        if let Some(
grpc_store0
) = store.downcast_ref::<GrpcStore>(None) {

  Branch (167:16): [True: 0, False: 1]

  Branch (167:16): [Folded - Ignored]

            return grpc_store.batch_read_blobs(Request::new(request)).await;

        }

        let store_ref = &store;

        let read_futures: FuturesUnordered<_> = request

            .digests

            .into_iter()

            .map(|digest| async move {

                let digest_copy = DigestInfo::try_from(digest.clone())
?0
;

                // TODO(allada) There is a security risk here of someone taking all the memory on the instance.

                let result = store_ref

                    .get_part_unchunked(digest_copy, 0, None)

                    .await

                    .err_tip(|| 
"Error reading from store"1
);

                let (status, data) = result.map_or_else(

                    |mut e| {

                        if e.code == Code::NotFound {

  Branch (184:28): [True: 1, False: 0]

  Branch (184:28): [Folded - Ignored]

                            // Trim the error code. Not Found is quite common and we don't want to send a large

                            // error (debug) message for something that is common. We resize to just the last

                            // message as it will be the most relevant.

                            e.messages.resize_with(1, String::new);

                        }
0

                        (e.into(), Bytes::new())

                    },

                    |v| 
(GrpcStatus::default(), v)2
,

                );

                Ok::<_, Error>(batch_read_blobs_response::Response {

                    status: Some(status),

                    digest: Some(digest),

                    compressor: compressor::Value::Identity.into(),

                    data,

                })

            })

            .collect();

        let responses = read_futures

            .try_collect::<Vec<batch_read_blobs_response::Response>>()

            .await
?0
;

        Ok(Response::new(BatchReadBlobsResponse { responses }))

    }

    async fn inner_get_tree(

        &self,

        request: GetTreeRequest,

    ) -> Result<Response<GetTreeStream>, Error> {

        let instance_name = &request.instance_name;

        let store = self

            .stores

            .get(instance_name)

            .err_tip(|| 
format!("'instance_name' not configured for '{instance_name}'")0
)
?0

            .clone();

        // If we are a GrpcStore we shortcut here, as this is a special store.

        // Note: We don't know the digests here, so we try perform a very shallow

        // check to see if it's a grpc store.

        if let Some(
grpc_store0
) = store.downcast_ref::<GrpcStore>(None) {

  Branch (224:16): [True: 0, False: 6]

  Branch (224:16): [Folded - Ignored]

            let stream = grpc_store

                .get_tree(Request::new(request))

                .await?

                .into_inner();

            return Ok(Response::new(Box::pin(stream)));

        }

        let root_digest: DigestInfo = request

            .root_digest

            .err_tip(|| 
"Expected root_digest to exist in GetTreeRequest"0
)
?0

            .try_into()

            .err_tip(|| 
"In GetTreeRequest::root_digest"0
)
?0
;

        let mut deque: VecDeque<DigestInfo> = VecDeque::new();

        let mut directories: Vec<Directory> = Vec::new();

        // `page_token` will return the `{hash_str}-{size_bytes}` of the current request's first directory digest.

        let page_token_digest = if request.page_token.is_empty() {

  Branch (240:36): [True: 2, False: 4]

  Branch (240:36): [Folded - Ignored]

            root_digest

        } else {

            let mut page_token_parts = request.page_token.split('-');

            DigestInfo::try_new(

                page_token_parts

                    .next()

                    .err_tip(|| 
"Failed to parse `hash_str` in `page_token`"0
)
?0
,

                page_token_parts

                    .next()

                    .err_tip(|| 
"Failed to parse `size_bytes` in `page_token`"0
)
?0

                    .parse::<i64>()

                    .err_tip(|| 
"Failed to parse `size_bytes` as i64"0
)
?0
,

            )

            .err_tip(|| 
"Failed to parse `page_token` as `Digest` in `GetTreeRequest`"0
)
?0

        };

        let page_size = request.page_size;

        // If `page_size` is 0, paging is not necessary.

        let mut page_token_matched = page_size == 0;

        deque.push_back(root_digest);

        while !deque.is_empty() {

  Branch (261:15): [True: 26, False: 2]

  Branch (261:15): [Folded - Ignored]

            let digest: DigestInfo = deque.pop_front().err_tip(|| 
"In VecDeque::pop_front"0
)
?0
;

            let directory = get_and_decode_digest::<Directory>(&store, digest.into())

                .await

                .err_tip(|| 
"Converting digest to Directory"0
)
?0
;

            if digest == page_token_digest {

  Branch (266:16): [True: 6, False: 20]

  Branch (266:16): [Folded - Ignored]

                page_token_matched = true;

            }

            for 
directory30
 in &directory.directories {

                let digest: DigestInfo = directory

                    .digest

                    .clone()

                    .err_tip(|| 
"Expected Digest to exist in Directory::directories::digest"0
)
?0

                    .try_into()

                    .err_tip(|| 
"In Directory::file::digest"0
)
?0
;

                deque.push_back(digest);

            }

            if page_token_matched {

  Branch (278:16): [True: 20, False: 6]

  Branch (278:16): [Folded - Ignored]

                directories.push(directory);

                if directories.len() as i32 == page_size {

  Branch (280:20): [True: 4, False: 16]

  Branch (280:20): [Folded - Ignored]

                    break;

                }

            }

        }

        // `next_page_token` will return the `{hash_str}:{size_bytes}` of the next request's first directory digest.

        // It will be an empty string when it reached the end of the directory tree.

        let next_page_token: String = if let Some(
value3
) = deque.front() {

  Branch (287:46): [True: 3, False: 3]

  Branch (287:46): [Folded - Ignored]

            format!("{value}")

        } else {

            String::new()

        };

        Ok(Response::new(Box::pin(futures::stream::once(async {

            Ok(GetTreeResponse {

                directories,

                next_page_token,

            })

        }))))

    }

}

#[tonic::async_trait]

impl ContentAddressableStorage for CasServer {

    type GetTreeStream = GetTreeStream;

    #[allow(clippy::blocks_in_conditions)]

    #[instrument(

        err,

        ret(level = Level::INFO),

        level = Level::ERROR,

        skip_all,

        fields(request = ?grpc_request.get_ref())

    )]

    async fn find_missing_blobs(

        &self,

        grpc_request: Request<FindMissingBlobsRequest>,

    ) -> Result<Response<FindMissingBlobsResponse>, Status> {

        let request = grpc_request.into_inner();

        make_ctx_for_hash_func(request.digest_function)

            .err_tip(|| 
"In CasServer::find_missing_blobs"0
)
?0

            .wrap_async(

                error_span!("cas_server_find_missing_blobs"),

                self.inner_find_missing_blobs(request),

            )

            .await

            .err_tip(|| 
"Failed on find_missing_blobs() command"1
)

            .map_err(Into::into)

    }

    #[allow(clippy::blocks_in_conditions)]

    #[instrument(

        err,

        ret(level = Level::INFO),

        level = Level::ERROR,

        skip_all,

        fields(request = ?grpc_request.get_ref())

    )]

    async fn batch_update_blobs(

        &self,

        grpc_request: Request<BatchUpdateBlobsRequest>,

    ) -> Result<Response<BatchUpdateBlobsResponse>, Status> {

        let request = grpc_request.into_inner();

        make_ctx_for_hash_func(request.digest_function)

            .err_tip(|| 
"In CasServer::batch_update_blobs"0
)
?0

            .wrap_async(

                error_span!("cas_server_batch_update_blobs"),

                self.inner_batch_update_blobs(request),

            )

            .await

            .err_tip(|| 
"Failed on batch_update_blobs() command"0
)

            .map_err(Into::into)

    }

    #[allow(clippy::blocks_in_conditions)]

    #[instrument(

        err,

        ret(level = Level::INFO),

        level = Level::ERROR,

        skip_all,

        fields(request = ?grpc_request.get_ref())

    )]

    async fn batch_read_blobs(

        &self,

        grpc_request: Request<BatchReadBlobsRequest>,

    ) -> Result<Response<BatchReadBlobsResponse>, Status> {

        let request = grpc_request.into_inner();

        make_ctx_for_hash_func(request.digest_function)

            .err_tip(|| 
"In CasServer::batch_read_blobs"0
)
?0

            .wrap_async(

                error_span!("cas_server_batch_read_blobs"),

                self.inner_batch_read_blobs(request),

            )

            .await

            .err_tip(|| 
"Failed on batch_read_blobs() command"0
)

            .map_err(Into::into)

    }

    #[allow(clippy::blocks_in_conditions)]

    #[instrument(

        err,

        level = Level::ERROR,

        skip_all,

        fields(request = ?grpc_request.get_ref())

    )]

    async fn get_tree(

        &self,

        grpc_request: Request<GetTreeRequest>,

    ) -> Result<Response<Self::GetTreeStream>, Status> {

        let request = grpc_request.into_inner();

        let resp = make_ctx_for_hash_func(request.digest_function)

            .err_tip(|| 
"In CasServer::get_tree"0
)
?0

            .wrap_async(

                error_span!("cas_server_get_tree"),

                self.inner_get_tree(request),

            )

            .await

            .err_tip(|| 
"Failed on get_tree() command"0
)

            .map_err(Into::into);

        if resp.is_ok() {

  Branch (399:12): [True: 6, False: 0]

  Branch (399:12): [Folded - Ignored]

            event!(Level::DEBUG, return = "Ok(<stream>)");

        }

        resp

    }

}