From bd11b9c7fa4919bdc6b1c31811238d067e70a4af Mon Sep 17 00:00:00 2001
From: Justin Ethier <justin.ethier@gmail.com>
Date: Wed, 6 Jan 2021 14:24:14 -0800
Subject: [PATCH] Building out ck_array

---
 ck-polyfill.c | 76 +++++++++++++++++++++++++++++++++++++++++++++++++--
 ck-polyfill.h | 16 +++++++----
 2 files changed, 84 insertions(+), 8 deletions(-)

diff --git a/ck-polyfill.c b/ck-polyfill.c
index 9efc3216..7e9b83ba 100644
--- a/ck-polyfill.c
+++ b/ck-polyfill.c
@@ -10,13 +10,85 @@
 
 #include "cyclone/types.h"
 #include "cyclone/runtime.h"
-#include "ck_pr.h"
+#include "ck-polyfill.h"
 #include <unistd.h>
 
+static pthread_mutex_t glock;
+
 void ck_polyfill_init()
 {
-  // TODO: init any global locks, etc
   // will need to call this as soon as possible, perhaps from main()
+  if (pthread_mutex_init(&(glock), NULL) != 0) {
+    fprintf(stderr, "Unable to initialize global ck mutex\n");
+    exit(1);
+  }
+}
+
+// CK Array section
+bool
+ck_array_init(ck_array_t *array, unsigned int mode,
+         struct ck_malloc *allocator, unsigned int initial_length)
+{
+  array = malloc(sizeof(ck_array_t));
+  array->hs = hashset_create();
+  if (pthread_mutex_init(&(array->lock), NULL) != 0) {
+    fprintf(stderr, "Unable to initialize ck array mutex\n");
+    exit(1);
+  }
+  return true;
+}
+
+// DESCRIPTION
+//      The ck_array_put_unique(3) function will attempt to insert the value of
+//      pointer into the array pointed to by array.  This function may incur
+//      additional memory allocations if not enough memory has been allocated in
+//      the array for a new entry. The operation is also free to apply the opera-
+//      tion immediately if there is an opportunity for elimination with a pend-
+//      ing (uncommitted) remove operation. The function will not make any modi-
+//      fications if the pointer already exists in the array.
+// 
+// RETURN VALUES
+//      This function returns 1 if the pointer already exists in the array.  It
+//      returns 0 if the put operation succeeded. It returns -1 on error due to
+//      internal memory allocation failures.
+int
+ck_array_put_unique(ck_array_t *array, void *pointer)
+{
+  pthread_mutex_lock(&(array->lock));
+  hashset_add(array->hs, pointer);
+  pthread_mutex_unlock(&(array->lock));
+}
+
+// DESCRIPTION
+//      The ck_array_remove(3) function will attempt to remove the value of
+//      pointer into the array pointed to by array. The operation is also free to
+//      apply the operation immediately if there is an opportunity for elimina-
+//      tion with a pending (uncommitted) put operation. If no elimination was
+//      possible, the function may require to allocate more memory.
+// 
+// RETURN VALUES
+//      This function returns true if the remove operation succeeded. It will
+//      return false otherwise due to internal allocation failures or because the
+//      value did not exist.
+bool
+ck_array_remove(ck_array_t *array, void *pointer){
+  pthread_mutex_lock(&(array->lock));
+  hashset_remove(array->hs, pointer);
+  pthread_mutex_unlock(&(array->lock));
+}
+
+// DESCRIPTION
+//      The ck_array_commit(3) function will commit any pending put or remove
+//      operations associated with the array. The function may end up requesting
+//      the safe reclamation of memory actively being iterated upon by other
+//      threads.
+// 
+// RETURN VALUES
+//      This function returns true if the commit operation succeeded. It will
+//      return false otherwise, and pending operations will not be applied.
+bool ck_array_commit(ck_array_t *array) {
+  // Nothing to do in this polyfill
+  return true;
 }
 
 
diff --git a/ck-polyfill.h b/ck-polyfill.h
index d38ae80f..f1275503 100644
--- a/ck-polyfill.h
+++ b/ck-polyfill.h
@@ -94,12 +94,16 @@ ck_array_commit(ck_array_t *array);
 
 // Can we safely lock the array, make a copy, and interate over that????
 #define CK_ARRAY_FOREACH(a, i, b)       \                                        
-  (i)->snapshot = ck_pr_load_ptr(&(a)->active); \                                
-  ck_pr_fence_load();       \                                                    
-  for (unsigned int _ck_i = 0;        \                                          
-      _ck_i < (a)->active->n_committed &&   \                                    
-      ((*b) = (a)->active->values[_ck_i], 1); \                                  
-      _ck_i++)                                                                   
+ TODO:
+  pthread_mutex_lock(&(array->lock));
+  hashset_remove(array->hs, pointer);
+  pthread_mutex_unlock(&(array->lock));
+//  (i)->snapshot = ck_pr_load_ptr(&(a)->active);
+//  ck_pr_fence_load();
+//  for (unsigned int _ck_i = 0;
+//      _ck_i < (a)->active->n_committed &&
+//      ((*b) = (a)->active->values[_ck_i], 1);
+//      _ck_i++)                                                                   
                   
 // CAS section
 bool