1 files changed, 241 insertions, 0 deletions
diff --git a/libparc/parc/logging/parc_Log.c b/libparc/parc/logging/parc_Log.c
new file mode 100755
index 00000000..e3948c36
--- /dev/null
+++ b/libparc/parc/logging/parc_Log.c
@@ -0,0 +1,241 @@
+/*
+ * 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 <LongBow/runtime.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) {
+        trapOutOfMemory("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);
+    assertTrue(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;
+}