/*
 * Copyright (c) 2017 Cisco and/or its affiliates.
 * 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.
 */

/**
 */
#include <config.h>

#include <stdio.h>
#include <sys/time.h>

#include <parc/assert/parc_Assert.h>

#include <parc/algol/parc_Object.h>
#include <parc/algol/parc_Memory.h>

#include <parc/logging/parc_Log.h>
#include <parc/logging/parc_LogReporter.h>

struct PARCLog {
    char *hostName;
    char *applicationName;
    char *processId;
    uint64_t messageId;
    PARCLogLevel level;
    PARCLogReporter *reporter;
};

static void
_parcLogger_Destroy(PARCLog **loggerPtr)
{
    PARCLog *logger = *loggerPtr;

    parcMemory_Deallocate((void **) &logger->hostName);
    parcMemory_Deallocate((void **) &logger->applicationName);
    parcMemory_Deallocate((void **) &logger->processId);
    parcLogReporter_Release(&logger->reporter);
}

parcObject_ExtendPARCObject(PARCLog, _parcLogger_Destroy, NULL, NULL, NULL, NULL, NULL, NULL);

static const char *_nilvalue = "-";

PARCLog *
parcLog_Create(const char *hostName, const char *applicationName, const char *processId, PARCLogReporter *reporter)
{
    if (applicationName == NULL) {
        applicationName = _nilvalue;
    }
    if (hostName == NULL) {
        hostName = _nilvalue;
    }
    if (processId == NULL) {
        processId = _nilvalue;
    }

    PARCLog *result = parcObject_CreateInstance(PARCLog);
    if (result == NULL) {
        parcTrapOutOfMemory("Creating an instance of PARCLog.");
    }

    result->hostName = parcMemory_StringDuplicate(hostName, strlen(hostName));
    result->applicationName = parcMemory_StringDuplicate(applicationName, strlen(applicationName));
    result->processId = parcMemory_StringDuplicate(processId, strlen(processId));
    result->messageId = 0;
    result->level = PARCLogLevel_Off;
    result->reporter = parcLogReporter_Acquire(reporter);
    return result;
}

parcObject_ImplementAcquire(parcLog, PARCLog);

parcObject_ImplementRelease(parcLog, PARCLog);


PARCLogLevel
parcLog_GetLevel(const PARCLog *log)
{
    return log->level;
}

PARCLogLevel
parcLog_SetLevel(PARCLog *logger, const PARCLogLevel level)
{
    PARCLogLevel oldLevel = logger->level;
    logger->level = level;
    return oldLevel;
}

static PARCLogEntry *
_parcLog_CreateEntry(PARCLog *log, PARCLogLevel level, uint64_t messageId, const char *format, va_list ap)
{
    char *cString;
    int nwritten = vasprintf(&cString, format, ap);
    parcAssertTrue(nwritten >= 0, "Error calling vasprintf");

    struct timeval timeStamp;
    gettimeofday(&timeStamp, NULL);

    PARCBuffer *payload = parcBuffer_AllocateCString(cString);
    PARCLogEntry *result = parcLogEntry_Create(level,
                                               log->hostName,
                                               log->applicationName,
                                               log->processId,
                                               messageId,
                                               timeStamp,
                                               payload);
    parcBuffer_Release(&payload);

    free(cString);
    return result;
}

bool
parcLog_MessageVaList(PARCLog *log, PARCLogLevel level, uint64_t messageId, const char *format, va_list ap)
{
    bool result = false;

    if (parcLog_IsLoggable(log, level)) {
        PARCLogEntry *entry = _parcLog_CreateEntry(log, level, messageId, format, ap);

        parcLogReporter_Report(log->reporter, entry);
        parcLogEntry_Release(&entry);
        result = true;
    }
    return result;
}

bool
parcLog_Message(PARCLog *log, PARCLogLevel level, uint64_t messageId, const char *format, ...)
{
    va_list ap;
    va_start(ap, format);
    bool result = parcLog_MessageVaList(log, level, messageId, format, ap);
    va_end(ap);

    return result;
}

bool
parcLog_Warning(PARCLog *logger, const char *format, ...)
{
    va_list ap;
    va_start(ap, format);
    bool result = parcLog_MessageVaList(logger, PARCLogLevel_Warning, 0, format, ap);
    va_end(ap);

    return result;
}

bool
parcLog_Info(PARCLog *logger, const char *format, ...)
{
    va_list ap;
    va_start(ap, format);
    bool result = parcLog_MessageVaList(logger, PARCLogLevel_Info, 0, format, ap);
    va_end(ap);

    return result;
}

bool
parcLog_Notice(PARCLog *logger, const char *format, ...)
{
    va_list ap;
    va_start(ap, format);
    bool result = parcLog_MessageVaList(logger, PARCLogLevel_Notice, 0, format, ap);
    va_end(ap);

    return result;
}

bool
parcLog_Debug(PARCLog *logger, const char *format, ...)
{
    bool result = false;

    if (parcLog_IsLoggable(logger, PARCLogLevel_Debug)) {
        va_list ap;
        va_start(ap, format);
        result = parcLog_MessageVaList(logger, PARCLogLevel_Debug, 0, format, ap);
        va_end(ap);
    }

    return result;
}

bool
parcLog_Error(PARCLog *logger, const char *format, ...)
{
    va_list ap;
    va_start(ap, format);
    bool result = parcLog_MessageVaList(logger, PARCLogLevel_Error, 0, format, ap);
    va_end(ap);

    return result;
}

bool
parcLog_Critical(PARCLog *logger, const char *format, ...)
{
    va_list ap;
    va_start(ap, format);
    bool result = parcLog_MessageVaList(logger, PARCLogLevel_Critical, 0, format, ap);
    va_end(ap);

    return result;
}

bool
parcLog_Alert(PARCLog *logger, const char *format, ...)
{
    va_list ap;
    va_start(ap, format);
    bool result = parcLog_MessageVaList(logger, PARCLogLevel_Alert, 0, format, ap);
    va_end(ap);

    return result;
}

bool
parcLog_Emergency(PARCLog *logger, const char *format, ...)
{
    va_list ap;
    va_start(ap, format);
    bool result = parcLog_MessageVaList(logger, PARCLogLevel_Emergency, 0, format, ap);
    va_end(ap);

    return result;
}