1 files changed, 185 insertions, 0 deletions
diff --git a/libparc/parc/algol/parc_JSONArray.c b/libparc/parc/algol/parc_JSONArray.c
new file mode 100755
index 00000000..87421e12
--- /dev/null
+++ b/libparc/parc/algol/parc_JSONArray.c
@@ -0,0 +1,185 @@
+/*
+ * 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 <parc/algol/parc_JSONArray.h>
+
+#include <parc/algol/parc_Object.h>
+#include <parc/algol/parc_Deque.h>
+#include <parc/algol/parc_JSONValue.h>
+#include <parc/algol/parc_DisplayIndented.h>
+
+struct parcJSONArray {
+    PARCDeque *array;
+};
+
+static void
+_destroy(PARCJSONArray **arrayPtr)
+{
+    PARCJSONArray *array = *arrayPtr;
+    // Un-reference the JSONValue instances here because parcDeque doesn't (yet) acquire and release its own references.
+
+    for (int i = 0; i < parcDeque_Size(array->array); i++) {
+        PARCJSONValue *value = parcDeque_GetAtIndex(array->array, i);
+        parcJSONValue_Release(&value);
+    }
+    parcDeque_Release(&array->array);
+}
+
+parcObject_ExtendPARCObject(PARCJSONArray, _destroy, NULL, parcJSONArray_ToString, parcJSONArray_Equals, NULL, NULL, NULL);
+
+static const PARCObjectDescriptor parcArrayValue_ObjInterface = {
+    .destroy  = (PARCObjectDestroy *) parcJSONValue_Release,
+    .toString = (PARCObjectToString *) parcJSONValue_ToString,
+    .equals   = (PARCObjectEquals *) parcJSONValue_Equals
+};
+
+void
+parcJSONArray_AssertValid(const PARCJSONArray *array)
+{
+    assertNotNull(array, "Must be a non-null pointer to a PARCJSONArray instance.");
+    assertNotNull(array->array, "Must be a non-null pointer to a PARCDeque instance.");
+}
+
+PARCJSONArray *
+parcJSONArray_Create(void)
+{
+    PARCJSONArray *result = parcObject_CreateInstance(PARCJSONArray);
+    result->array = parcDeque_CreateObjectInterface(&parcArrayValue_ObjInterface);
+    return result;
+}
+
+parcObject_ImplementAcquire(parcJSONArray, PARCJSONArray);
+
+parcObject_ImplementRelease(parcJSONArray, PARCJSONArray);
+
+bool
+parcJSONArray_Equals(const PARCJSONArray *x, const PARCJSONArray *y)
+{
+    bool result = false;
+
+    if (x == y) {
+        result = true;
+    } else if (x == NULL || y == NULL) {
+        result = false;
+    } else {
+        result = parcDeque_Equals(x->array, y->array);
+    }
+    return result;
+}
+
+PARCJSONArray *
+parcJSONArray_AddValue(PARCJSONArray *array, PARCJSONValue *value)
+{
+    parcDeque_Append(array->array, parcJSONValue_Acquire(value));
+    return array;
+}
+
+size_t
+parcJSONArray_GetLength(const PARCJSONArray *array)
+{
+    return parcDeque_Size(array->array);
+}
+
+PARCJSONValue *
+parcJSONArray_GetValue(const PARCJSONArray *array, size_t index)
+{
+    return (PARCJSONValue *) parcDeque_GetAtIndex(array->array, index);
+}
+
+PARCBufferComposer *
+parcJSONArray_BuildString(const PARCJSONArray *array, PARCBufferComposer *composer, bool compact)
+{
+#ifdef hasPARCIterator
+    PARCIterator *iterator = parcDeque_GetIterator(array->array);
+
+    parcBufferComposer_PutChar(composer, '[');
+
+    char *separator = "";
+
+    for (i = parcIterator_Start(); i < parcIterator_Limit(iterator); i = parcIterator_Next(iterator)) {
+        PARCJSONValue *value = parcIterator_Get(iterator);
+        parcBufferComposer_PutString(composer, separator);
+        separator = ", ";
+        if (compact) {
+            separator = ",";
+        }
+
+        parcJSONValue_BuildString(value, composer);
+    }
+    parcBufferComposer_PutChar(composer, ']');
+#else
+    parcBufferComposer_PutChar(composer, '[');
+    if (!compact) {
+        parcBufferComposer_PutChar(composer, ' ');
+    }
+
+    char *separator = "";
+
+    for (int i = 0; i < parcDeque_Size(array->array); i++) {
+        PARCJSONValue *value = parcDeque_GetAtIndex(array->array, i);
+        parcBufferComposer_PutString(composer, separator);
+
+        parcJSONValue_BuildString(value, composer, compact);
+        separator = ", ";
+        if (compact) {
+            separator = ",";
+        }
+    }
+    if (!compact) {
+        parcBufferComposer_PutChar(composer, ' ');
+    }
+    parcBufferComposer_PutChar(composer, ']');
+#endif
+    return composer;
+}
+
+void
+parcJSONArray_Display(const PARCJSONArray *array, int indentation)
+{
+    parcDisplayIndented_PrintLine(indentation, "PARCJSONArray@%p {", array);
+    parcDisplayIndented_PrintLine(indentation, "}");
+}
+
+static char *
+_parcJSONArray_ToString(const PARCJSONArray *array, bool compact)
+{
+    PARCBufferComposer *composer = parcBufferComposer_Create();
+
+    parcJSONArray_BuildString(array, composer, compact);
+    PARCBuffer *tempBuffer = parcBufferComposer_ProduceBuffer(composer);
+    char *result = parcBuffer_ToString(tempBuffer);
+    parcBuffer_Release(&tempBuffer);
+    parcBufferComposer_Release(&composer);
+
+    return result;
+}
+
+char *
+parcJSONArray_ToString(const PARCJSONArray *array)
+{
+    return _parcJSONArray_ToString(array, false);
+}
+
+char *
+parcJSONArray_ToCompactString(const PARCJSONArray *array)
+{
+    return _parcJSONArray_ToString(array, true);
+}