Work on extern support for userdata functions

src/UserData/UserDataFunction.cpp

@@ -1,2 +1,12 @@
 
 #include "UserDataFunction.hpp"
+
+using namespace Porygon::Evaluation;
+
+namespace Porygon::UserData{
+    extern "C" {
+        EvalValue * CreateFunctionEvalValue(Evaluation::EvalValue* (*func)(void* , EvalValue* [], int ), void* obj) {
+            return new UserDataFunction(func, obj);
+        }
+    }
+}

src/UserData/UserDataFunction.hpp

@@ -3,6 +3,7 @@
 
 #include <utility>
 #include "../Evaluator/EvalValues/ScriptFunctionEvalValue.hpp"
+#include "UserDataFunctionType.hpp"
 
 namespace Porygon::UserData{
     class UserDataFunction : public Evaluation::GenericFunctionEvalValue {
@@ -15,14 +16,18 @@ namespace Porygon::UserData{
             _obj = obj;
         }
     public:
-        UserDataFunction(Evaluation::EvalValue* (*call)(void* obj, EvalValue* parameters[], int parameterCount), void* obj,
-                shared_ptr<GenericFunctionScriptType> type) : GenericFunctionEvalValue(std::move(type), rand()){
+        UserDataFunction(Evaluation::EvalValue* (*call)(void* obj, EvalValue* parameters[], int parameterCount), void* obj) :
+        GenericFunctionEvalValue(make_shared<UserDataFunctionType>(nullptr, vector<shared_ptr<ScriptType>>{}), rand()){
             _call = call;
             _obj = obj;
         }
 
         EvalValue* Call(EvalValue* parameters[], int parameterCount){
-            return _call(_obj, parameters, parameterCount);
+            try{
+                return _call(_obj, parameters, parameterCount);
+            } catch (...){
+                throw Evaluation::EvaluationException("An error occurred while executing a userdata function.");
+            }
         }
 
         const shared_ptr<EvalValue> Clone() const final {

src/UserData/UserDataScriptType.hpp

@@ -31,7 +31,7 @@ namespace Porygon::UserData {
         }
 
         const bool CanBeIndexedWithIdentifier(uint32_t hash) const final {
-            return true;
+            return _userData -> ContainsField(hash);
         }
 
         UserDataField *GetField(uint32_t id) {

src/UserData/UserDataValue.cpp

@@ -6,5 +6,10 @@ namespace Porygon::UserData {
     UserDataValue *CreateUserDataEvalValue(uint32_t typeHash, void *obj) {
         return new UserDataValue(typeHash, obj);
     }
+
+    void* EvaluateUserDataObj(UserDataValue *v){
+        return v -> GetObjectPointer();
+    }
+
     }
 }

src/UserData/UserDataValue.hpp

@@ -56,6 +56,10 @@ namespace Porygon::UserData {
             auto field = _userData->GetField(fieldId);
             field->Set(_obj, value.get());
         }
+
+        void* GetObjectPointer(){
+            return _obj;
+        }
     };
 }