/**
 * 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.
 */

#include "core/conf.h"
#include "core/htrace.h"
#include "core/htracer.h"
#include "core/scope.h"
#include "core/span.h"
#include "receiver/receiver.h"
#include "util/log.h"
#include "util/rand.h"
#include "util/string.h"
#include "util/tracer_id.h"

#include <errno.h>
#include <stdint.h>
#include <stdlib.h>
#include <string.h>

/**
 * @file htracer.c
 *
 * Implementation of the Tracer object.
 */

struct htracer *htracer_create(const char *tname,
                               const struct htrace_conf *cnf)
{
    struct htracer *tracer;
    int ret;

    tracer = calloc(1, sizeof(*tracer));
    if (!tracer) {
        return NULL;
    }
    tracer->lg = htrace_log_alloc(cnf);
    if (!tracer->lg) {
        free(tracer);
        return NULL;
    }
    ret = pthread_key_create(&tracer->tls, NULL);
    if (ret) {
        htrace_log(tracer->lg, "htracer_create: pthread_key_create "
                   "failed: %s.\n", terror(ret));
        htrace_log_free(tracer->lg);
        return NULL;
    }
    tracer->tname = strdup(tname);
    if (!tracer->tname) {
        htrace_log(tracer->lg, "htracer_create: failed to "
                   "duplicate name string.\n");
        htracer_free(tracer);
        return NULL;
    }
    tracer->trid = calculate_tracer_id(tracer->lg,
            htrace_conf_get(cnf, HTRACE_TRACER_ID), tname);
    if (!tracer->trid) {
        htrace_log(tracer->lg, "htracer_create: failed to "
                   "create process id string.\n");
        htracer_free(tracer);
        return NULL;
    }
    if (!validate_json_string(tracer->lg, tracer->trid)) {
        htrace_log(tracer->lg, "htracer_create: process ID string '%s' is "
                   "problematic.\n", tracer->trid);
        htracer_free(tracer);
        return NULL;
    }
    tracer->rnd = random_src_alloc(tracer->lg);
    if (!tracer->rnd) {
        htrace_log(tracer->lg, "htracer_create: failed to "
                   "allocate a random source.\n");
        htracer_free(tracer);
        return NULL;
    }
    tracer->rcv = htrace_rcv_create(tracer, cnf);
    if (!tracer->rcv) {
        htrace_log(tracer->lg, "htracer_create: failed to "
                   "create a receiver.\n");
        htracer_free(tracer);
        return NULL;
    }
    return tracer;
}

const char *htracer_tname(const struct htracer *tracer)
{
    return tracer->tname;
}

void htracer_free(struct htracer *tracer)
{
    struct htrace_rcv *rcv;

    if (!tracer) {
        return;
    }
    pthread_key_delete(tracer->tls);
    rcv = tracer->rcv;
    if (rcv) {
        rcv->ty->free(rcv);
    }
    random_src_free(tracer->rnd);
    free(tracer->tname);
    free(tracer->trid);
    htrace_log_free(tracer->lg);
    free(tracer);
}

struct htrace_scope *htracer_cur_scope(struct htracer *tracer)
{
    return pthread_getspecific(tracer->tls);
}

int htracer_push_scope(struct htracer *tracer, struct htrace_scope *cur,
                           struct htrace_scope *next)
{
    int ret;
    next->parent = cur;
    ret = pthread_setspecific(tracer->tls, next);
    if (ret) {
        htrace_log(tracer->lg, "htracer_push_scope: pthread_setspecific "
                   "failed: %s\n", terror(ret));
        return EIO;
    }
    return 0;
}

int htracer_pop_scope(struct htracer *tracer, struct htrace_scope *scope)
{
    struct htrace_scope *cur_scope;
    int ret;

    cur_scope = pthread_getspecific(tracer->tls);
    if (cur_scope != scope) {
        htrace_log(tracer->lg, "htracer_pop_scope: attempted to pop a scope "
                   "that wasn't the top of the stack.  Current top of stack: "
                   "%s.  Attempted to pop: %s.\n",
                   (cur_scope->span ? cur_scope->span->desc : "(detached)"),
                   (scope->span ? scope->span->desc : "(detached)"));
        return EIO;
    }
    ret = pthread_setspecific(tracer->tls, scope->parent);
    if (ret) {
        htrace_log(tracer->lg, "htracer_pop_scope: pthread_setspecific "
                   "failed: %s\n", terror(ret));
        return EIO;
    }
    return 0;
}

// vim:ts=4:sw=4:et