/*
 * Licensed to the Apache Software Foundation (ASF) under one or more
 * contributor license agreements.  See the NOTICE file distributed with
 * this work for additional information regarding copyright ownership.
 * The ASF licenses this file to You 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.
 */
package org.apache.dubbo.metrics.collector.sample;

import org.apache.dubbo.common.logger.ErrorTypeAwareLogger;
import org.apache.dubbo.common.logger.LoggerFactory;
import org.apache.dubbo.common.store.DataStore;
import org.apache.dubbo.common.store.DataStoreUpdateListener;
import org.apache.dubbo.common.threadpool.manager.FrameworkExecutorRepository;
import org.apache.dubbo.common.threadpool.support.AbortPolicyWithReport;
import org.apache.dubbo.common.utils.ConcurrentHashMapUtils;
import org.apache.dubbo.metrics.collector.DefaultMetricsCollector;
import org.apache.dubbo.metrics.model.ThreadPoolMetric;
import org.apache.dubbo.metrics.model.key.MetricsKey;
import org.apache.dubbo.metrics.model.sample.GaugeMetricSample;
import org.apache.dubbo.metrics.model.sample.MetricSample;
import org.apache.dubbo.rpc.model.ApplicationModel;

import java.util.ArrayList;
import java.util.List;
import java.util.Map;
import java.util.Objects;
import java.util.Optional;
import java.util.concurrent.ConcurrentHashMap;
import java.util.concurrent.ExecutorService;
import java.util.concurrent.ThreadPoolExecutor;
import java.util.concurrent.atomic.AtomicBoolean;

import static org.apache.dubbo.common.constants.CommonConstants.CONSUMER_SHARED_EXECUTOR_SERVICE_COMPONENT_KEY;
import static org.apache.dubbo.common.constants.CommonConstants.EXECUTOR_SERVICE_COMPONENT_KEY;
import static org.apache.dubbo.common.constants.LoggerCodeConstants.COMMON_METRICS_COLLECTOR_EXCEPTION;
import static org.apache.dubbo.config.Constants.CLIENT_THREAD_POOL_PREFIX;
import static org.apache.dubbo.config.Constants.SERVER_THREAD_POOL_NAME;
import static org.apache.dubbo.config.Constants.SERVER_THREAD_POOL_PREFIX;
import static org.apache.dubbo.metrics.model.MetricsCategory.THREAD_POOL;

public class ThreadPoolMetricsSampler implements MetricsSampler, DataStoreUpdateListener {

    private final ErrorTypeAwareLogger logger = LoggerFactory.getErrorTypeAwareLogger(ThreadPoolMetricsSampler.class);

    private final DefaultMetricsCollector collector;
    private FrameworkExecutorRepository frameworkExecutorRepository;
    private DataStore dataStore;
    private final Map<String, ThreadPoolExecutor> sampleThreadPoolExecutor = new ConcurrentHashMap<>();
    private final ConcurrentHashMap<String, ThreadPoolMetric> threadPoolMetricMap = new ConcurrentHashMap<>();
    private final AtomicBoolean samplesChanged = new AtomicBoolean(true);

    public ThreadPoolMetricsSampler(DefaultMetricsCollector collector) {
        this.collector = collector;
    }

    @Override
    public void onUpdate(String componentName, String key, Object value) {
        if (EXECUTOR_SERVICE_COMPONENT_KEY.equals(componentName)) {
            if (value instanceof ThreadPoolExecutor) {
                addExecutors(SERVER_THREAD_POOL_PREFIX + key, (ThreadPoolExecutor) value);
            }
        } else if (CONSUMER_SHARED_EXECUTOR_SERVICE_COMPONENT_KEY.equals(componentName)) {
            if (value instanceof ThreadPoolExecutor) {
                addExecutors(CLIENT_THREAD_POOL_PREFIX + key, (ThreadPoolExecutor) value);
            }
        }
    }

    public void addExecutors(String name, ExecutorService executorService) {
        Optional.ofNullable(executorService)
                .filter(Objects::nonNull)
                .filter(e -> e instanceof ThreadPoolExecutor)
                .map(e -> (ThreadPoolExecutor) e)
                .ifPresent(threadPoolExecutor -> {
                    if (sampleThreadPoolExecutor.put(name, threadPoolExecutor) == null) {
                        samplesChanged.set(true);
                    }
                });
    }

    @Override
    public List<MetricSample> sample() {
        List<MetricSample> metricSamples = new ArrayList<>();

        sampleThreadPoolExecutor.forEach((name, executor) -> {
            metricSamples.addAll(createMetricsSample(name, executor));
        });

        return metricSamples;
    }

    private List<MetricSample> createMetricsSample(String name, ThreadPoolExecutor executor) {
        List<MetricSample> list = new ArrayList<>();
        ThreadPoolMetric threadPoolMetric = ConcurrentHashMapUtils.computeIfAbsent(
                threadPoolMetricMap, name, v -> new ThreadPoolMetric(collector.getApplicationName(), name, executor));
        list.add(new GaugeMetricSample<>(
                MetricsKey.THREAD_POOL_CORE_SIZE,
                threadPoolMetric.getTags(),
                THREAD_POOL,
                threadPoolMetric,
                ThreadPoolMetric::getCorePoolSize));
        list.add(new GaugeMetricSample<>(
                MetricsKey.THREAD_POOL_LARGEST_SIZE,
                threadPoolMetric.getTags(),
                THREAD_POOL,
                threadPoolMetric,
                ThreadPoolMetric::getLargestPoolSize));
        list.add(new GaugeMetricSample<>(
                MetricsKey.THREAD_POOL_MAX_SIZE,
                threadPoolMetric.getTags(),
                THREAD_POOL,
                threadPoolMetric,
                ThreadPoolMetric::getMaximumPoolSize));
        list.add(new GaugeMetricSample<>(
                MetricsKey.THREAD_POOL_ACTIVE_SIZE,
                threadPoolMetric.getTags(),
                THREAD_POOL,
                threadPoolMetric,
                ThreadPoolMetric::getActiveCount));
        list.add(new GaugeMetricSample<>(
                MetricsKey.THREAD_POOL_THREAD_COUNT,
                threadPoolMetric.getTags(),
                THREAD_POOL,
                threadPoolMetric,
                ThreadPoolMetric::getPoolSize));
        list.add(new GaugeMetricSample<>(
                MetricsKey.THREAD_POOL_QUEUE_SIZE,
                threadPoolMetric.getTags(),
                THREAD_POOL,
                threadPoolMetric,
                ThreadPoolMetric::getQueueSize));

        return list;
    }

    public void registryDefaultSampleThreadPoolExecutor() {
        ApplicationModel applicationModel = collector.getApplicationModel();
        if (applicationModel == null) {
            return;
        }
        try {
            if (this.frameworkExecutorRepository == null) {
                this.frameworkExecutorRepository =
                        collector.getApplicationModel().getBeanFactory().getBean(FrameworkExecutorRepository.class);
            }
        } catch (Exception ex) {
            logger.warn(
                    COMMON_METRICS_COLLECTOR_EXCEPTION,
                    "",
                    "",
                    "ThreadPoolMetricsSampler! frameworkExecutorRepository non-init");
        }
        if (this.dataStore == null) {
            this.dataStore = collector
                    .getApplicationModel()
                    .getExtensionLoader(DataStore.class)
                    .getDefaultExtension();
        }

        if (dataStore != null) {
            dataStore.addListener(this);

            Map<String, Object> executors = dataStore.get(EXECUTOR_SERVICE_COMPONENT_KEY);
            for (Map.Entry<String, Object> entry : executors.entrySet()) {
                ExecutorService executor = (ExecutorService) entry.getValue();
                if (executor instanceof ThreadPoolExecutor) {
                    this.addExecutors(SERVER_THREAD_POOL_PREFIX + entry.getKey(), executor);
                }
            }
            executors = dataStore.get(CONSUMER_SHARED_EXECUTOR_SERVICE_COMPONENT_KEY);
            for (Map.Entry<String, Object> entry : executors.entrySet()) {
                ExecutorService executor = (ExecutorService) entry.getValue();
                if (executor instanceof ThreadPoolExecutor) {
                    this.addExecutors(CLIENT_THREAD_POOL_PREFIX + entry.getKey(), executor);
                }
            }

            ThreadRejectMetricsCountSampler threadRejectMetricsCountSampler =
                    new ThreadRejectMetricsCountSampler(collector);
            this.sampleThreadPoolExecutor.entrySet().stream()
                    .filter(entry -> entry.getKey().startsWith(SERVER_THREAD_POOL_NAME))
                    .forEach(entry -> {
                        if (entry.getValue().getRejectedExecutionHandler() instanceof AbortPolicyWithReport) {
                            MetricThreadPoolExhaustedListener metricThreadPoolExhaustedListener =
                                    new MetricThreadPoolExhaustedListener(
                                            entry.getKey(), threadRejectMetricsCountSampler);
                            ((AbortPolicyWithReport) entry.getValue().getRejectedExecutionHandler())
                                    .addThreadPoolExhaustedEventListener(metricThreadPoolExhaustedListener);
                        }
                    });
        }
        if (this.frameworkExecutorRepository != null) {
            this.addExecutors("sharedExecutor", frameworkExecutorRepository.getSharedExecutor());
        }
    }

    @Override
    public boolean calSamplesChanged() {
        // CAS to get and reset the flag in an atomic operation
        return samplesChanged.compareAndSet(true, false);
    }
}
