1 files changed, 277 insertions, 0 deletions
diff --git a/libparc/parc/algol/parc_List.c b/libparc/parc/algol/parc_List.c
new file mode 100644
index 00000000..0e62cda6
--- /dev/null
+++ b/libparc/parc/algol/parc_List.c
@@ -0,0 +1,277 @@
+/*
+ * 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 <LongBow/runtime.h>
+
+#include <stdio.h>
+#include <stdarg.h>
+
+#include <parc/algol/parc_Object.h>
+
+#include <parc/algol/parc_List.h>
+#include <parc/algol/parc_Memory.h>
+
+struct parc_list {
+    void *instance;
+    const PARCListInterface *interface;
+};
+
+static void
+_destroy(PARCList **listPtr)
+{
+    PARCList *list = *listPtr;
+
+    (list->interface->Destroy)(&list->instance);
+}
+
+parcObject_ExtendPARCObject(PARCList, _destroy, parcList_Copy, NULL, parcList_Equals, NULL, parcList_HashCode, NULL);
+
+PARCList *
+parcList(void *instance, PARCListInterface *interface)
+{
+    PARCList *result = parcObject_CreateInstance(PARCList);
+    if (result != NULL) {
+        result->instance = instance;
+        result->interface = interface;
+    }
+
+    return result;
+}
+
+PARCList *
+parcList_Create(PARCObject *instance, PARCListInterface *interface)
+{
+    PARCList *result = parcObject_CreateInstance(PARCList);
+    if (result != NULL) {
+        result->instance = parcObject_Acquire(instance);
+        result->interface = interface;
+    }
+
+    return result;
+}
+
+parcObject_ImplementAcquire(parcList, PARCList);
+
+parcObject_ImplementRelease(parcList, PARCList);
+
+PARCList *
+parcList_Copy(const PARCList *list)
+{
+    PARCList *result = parcObject_CreateInstance(PARCList);
+    if (result != NULL) {
+        result->instance = (list->interface->Copy)(list->instance);
+        result->interface = list->interface;
+    }
+
+    return result;
+}
+
+bool
+parcList_IsEmpty(const PARCList *list)
+{
+    bool result = false;
+    if (list->interface->IsEmpty) {
+        result = (list->interface->IsEmpty)(list->instance);
+    } else {
+        result = (parcList_Size(list) == 0);
+    }
+    return result;
+}
+
+bool
+parcList_Add(PARCList *list, void *element)
+{
+    return (list->interface->Add)(list->instance, element);
+}
+
+bool
+parcList_AddAll(PARCList *list, size_t argc, void *argv[argc])
+{
+    for (int i = 0; i < argc; i++) {
+        (list->interface->Add)(list->instance, argv[i]);
+    }
+    return true;
+}
+
+void
+parcList_AddAtIndex(PARCList *list, int index, void *element)
+{
+    (list->interface->AddAtIndex)(list->instance, index, element);
+}
+
+bool
+parcList_AddCollection(PARCList *list, PARCCollection *collection)
+{
+    return (list->interface->AddCollection)(list->instance, collection);
+}
+
+bool
+parcList_AddCollectionAtIndex(PARCList *list, int index, PARCCollection *collection)
+{
+    return (list->interface->AddCollectionAtIndex)(list->instance, index, collection);
+}
+
+void
+parcList_Clear(PARCList *list)
+{
+    if (!list->interface->Clear) {
+        for (size_t i = 0; i < parcList_Size(list); i++) {
+            parcList_RemoveAtIndex(list, i);
+        }
+    } else {
+        (list->interface->Clear)(list->instance);
+    }
+}
+
+bool
+parcList_Contains(const PARCList *list, void *element)
+{
+    return (list->interface->Contains)(list->instance, element);
+}
+
+bool
+parcList_ContainsCollection(PARCList *list, PARCCollection *collection)
+{
+    return (list->interface->ContainsCollection)(list->instance, collection);
+}
+
+bool
+parcList_Equals(const PARCList *x, const PARCList *y)
+{
+    return (x->interface->Equals)(x->instance, y->instance);
+}
+
+void *
+parcList_GetAtIndex(const PARCList *list, size_t index)
+{
+    return (list->interface->GetAtIndex)(list->instance, index);
+}
+
+int
+parcList_HashCode(const PARCList *list)
+{
+    return (list->interface->HashCode)(list->instance);
+}
+
+ssize_t
+parcList_IndexOf(const PARCList *list, PARCObject *element)
+{
+    ssize_t result = -1;
+
+    if (list->interface->IndexOf) {
+        result = (list->interface->IndexOf)(list->instance, element);
+    } else {
+        for (ssize_t i = 0; i < parcList_Size(list); i++) {
+            PARCObject *e = parcList_GetAtIndex(list, i);
+            if (parcObject_Equals(e, element)) {
+                result = i;
+                break;
+            }
+        }
+    }
+
+    return result;
+}
+
+ssize_t
+parcList_LastIndexOf(const PARCList *list, PARCObject *element)
+{
+    ssize_t result = -1;
+
+    if (list->interface->LastIndexOf) {
+        result = (list->interface->LastIndexOf)(list->instance, element);
+    } else {
+        for (ssize_t i = parcList_Size(list) - 1; i >= 0; i--) {
+            PARCObject *e = parcList_GetAtIndex(list, i);
+            if (parcObject_Equals(e, element)) {
+                result = i;
+                break;
+            }
+        }
+    }
+
+    return result;
+}
+
+PARCObject *
+parcList_RemoveAtIndex(PARCList *list, size_t index)
+{
+    if (list->interface->RemoveAtIndex) {
+        return (list->interface->RemoveAtIndex)(list->instance, index);
+    } else {
+        return NULL;
+    }
+}
+
+bool
+parcList_Remove(PARCList *list, PARCObject *element)
+{
+    bool result = false;
+
+    if (list->interface->Remove != NULL) {
+        result = (list->interface->Remove)(list->instance, element);
+    } else {
+        for (size_t i = 0; i < parcList_Size(list); i++) {
+            void *e = parcList_GetAtIndex(list, i);
+            if (parcObject_Equals(e, element)) {
+                parcList_RemoveAtIndex(list, i);
+                result = true;
+                break;
+            }
+        }
+    }
+
+    return result;
+}
+
+bool
+parcList_RemoveCollection(PARCList *list, PARCCollection *collection)
+{
+    return (list->interface->RemoveCollection)(list->instance, collection);
+}
+
+bool
+parcList_RetainCollection(PARCList *list, PARCCollection *collection)
+{
+    return (list->interface->RetainCollection)(list->instance, collection);
+}
+
+PARCObject *
+parcList_SetAtIndex(PARCList *list, size_t index, void *element)
+{
+    return (list->interface->SetAtIndex)(list->instance, index, element);
+}
+
+size_t
+parcList_Size(const PARCList *list)
+{
+    return (list->interface->Size)(list->instance);
+}
+
+PARCList *
+parcList_SubList(PARCList *list, size_t fromIndex, size_t toIndex)
+{
+    return (list->interface->SubList)(list->instance, fromIndex, toIndex);
+}
+
+void**
+parcList_ToArray(PARCList *list)
+{
+    return (list->interface->ToArray)(list->instance);
+}