[GR-39997] [GR-40001] Auto-generate HPy backends.

PullRequest: graalpython/2806

Author: fangerer

graalpython/com.oracle.graal.python.cext/hpy/hpy.c

@@ -96,6 +96,10 @@ int Py_EXPORTED_SYMBOL graal_hpy_init(HPyContext *context, void *initObject) {
 	return 0;
 }
 
+void *graal_hpy_long2ptr(int64_t lval) {
+	return (void *)lval;
+}
+
 /* Call from Java if the HPy debug context is initialized. */
 void graal_hpy_set_debug_context(HPyContext *debug_ctx) {
 	g_debug_ctx = debug_ctx;
@@ -339,11 +343,11 @@ int graal_hpy_get_errno() {
 	return errno;
 }
 
-void* graal_hpy_get_strerror(int i) {
+char *graal_hpy_get_strerror(int i) {
 	if (i != 0) {
-		return polyglot_from_string(strerror(i), SRC_CS);
+		return strerror(i);
 	}
-	return polyglot_from_string("Error", SRC_CS);
+	return "Error";
 }
 
 uint64_t graal_hpy_strlen(const char *ptr) {
@@ -1523,7 +1527,7 @@ HPyAPI_STORAGE HPy _HPy_IMPL_NAME(SeqIter_New)(HPyContext *ctx, HPy seq) {
 #include "hpynative.h"
 
 /* Allocate a native HPy context structure and fill it. */
-HPyContext *graal_hpy_context_to_native(HPyContext *managed_context, HPyContext *overrides) {
+HPyContext *graal_hpy_context_to_native(HPyContext *managed_context) {
 	GraalHPyContext *full_native_context = (GraalHPyContext *) malloc(sizeof(GraalHPyContext));
 
 	HPyContext *native_context = graal_native_context_get_hpy_context(full_native_context);
@@ -1615,183 +1619,6 @@ HPyContext *graal_hpy_context_to_native(HPyContext *managed_context, HPyContext
     COPY(h_SliceType);
 #undef COPY
 
-#define HPY_CTX_UPCALL(__fun) { void* v = overrides->__fun; if (v != NULL) native_context->__fun = v; else native_context->__fun = __fun; }
-    HPY_CTX_UPCALL(ctx_Module_Create);
-    HPY_CTX_UPCALL(ctx_Dup);
-    HPY_CTX_UPCALL(ctx_Close);
-    HPY_CTX_UPCALL(ctx_Long_FromLong)
-    HPY_CTX_UPCALL(ctx_Long_FromUnsignedLong)
-    HPY_CTX_UPCALL(ctx_Long_FromLongLong)
-    HPY_CTX_UPCALL(ctx_Long_FromUnsignedLongLong)
-    HPY_CTX_UPCALL(ctx_Long_FromSize_t)
-    HPY_CTX_UPCALL(ctx_Long_FromSsize_t)
-    HPY_CTX_UPCALL(ctx_Long_AsLong);
-    HPY_CTX_UPCALL(ctx_Long_AsUnsignedLong);
-    HPY_CTX_UPCALL(ctx_Long_AsUnsignedLongMask);
-    HPY_CTX_UPCALL(ctx_Long_AsLongLong);
-    HPY_CTX_UPCALL(ctx_Long_AsUnsignedLongLong);
-    HPY_CTX_UPCALL(ctx_Long_AsUnsignedLongLongMask);
-    HPY_CTX_UPCALL(ctx_Long_AsSize_t);
-    HPY_CTX_UPCALL(ctx_Long_AsSsize_t);
-    HPY_CTX_UPCALL(ctx_Float_FromDouble);
-    HPY_CTX_UPCALL(ctx_Float_AsDouble);
-    HPY_CTX_UPCALL(ctx_Bool_FromLong);
-    HPY_CTX_UPCALL(ctx_Length);
-    HPY_CTX_UPCALL(ctx_Number_Check);
-    HPY_CTX_UPCALL(ctx_Add);
-    HPY_CTX_UPCALL(ctx_Subtract);
-    HPY_CTX_UPCALL(ctx_Multiply);
-    HPY_CTX_UPCALL(ctx_MatrixMultiply);
-    HPY_CTX_UPCALL(ctx_FloorDivide);
-    HPY_CTX_UPCALL(ctx_TrueDivide);
-    HPY_CTX_UPCALL(ctx_Remainder);
-    HPY_CTX_UPCALL(ctx_Divmod);
-    HPY_CTX_UPCALL(ctx_Power);
-    HPY_CTX_UPCALL(ctx_Negative);
-    HPY_CTX_UPCALL(ctx_Positive);
-    HPY_CTX_UPCALL(ctx_Absolute);
-    HPY_CTX_UPCALL(ctx_Invert);
-    HPY_CTX_UPCALL(ctx_Lshift);
-    HPY_CTX_UPCALL(ctx_Rshift);
-    HPY_CTX_UPCALL(ctx_And);
-    HPY_CTX_UPCALL(ctx_Xor);
-    HPY_CTX_UPCALL(ctx_Or);
-    HPY_CTX_UPCALL(ctx_Index);
-    HPY_CTX_UPCALL(ctx_Long);
-    HPY_CTX_UPCALL(ctx_Float);
-    HPY_CTX_UPCALL(ctx_InPlaceAdd);
-    HPY_CTX_UPCALL(ctx_InPlaceSubtract);
-    HPY_CTX_UPCALL(ctx_InPlaceMultiply);
-    HPY_CTX_UPCALL(ctx_InPlaceMatrixMultiply);
-    HPY_CTX_UPCALL(ctx_InPlaceFloorDivide);
-    HPY_CTX_UPCALL(ctx_InPlaceTrueDivide);
-    HPY_CTX_UPCALL(ctx_InPlaceRemainder);
-    HPY_CTX_UPCALL(ctx_InPlacePower);
-    HPY_CTX_UPCALL(ctx_InPlaceLshift);
-    HPY_CTX_UPCALL(ctx_InPlaceRshift);
-    HPY_CTX_UPCALL(ctx_InPlaceAnd);
-    HPY_CTX_UPCALL(ctx_InPlaceXor);
-    HPY_CTX_UPCALL(ctx_InPlaceOr);
-    HPY_CTX_UPCALL(ctx_Callable_Check);
-    HPY_CTX_UPCALL(ctx_CallTupleDict);
-    HPY_CTX_UPCALL(ctx_Err_SetString);
-    HPY_CTX_UPCALL(ctx_Err_SetObject);
-    HPY_CTX_UPCALL(ctx_Err_Occurred);
-    HPY_CTX_UPCALL(ctx_Err_NoMemory);
-    HPY_CTX_UPCALL(ctx_Err_Clear);
-    HPY_CTX_UPCALL(ctx_Err_NewException);
-    HPY_CTX_UPCALL(ctx_Err_NewExceptionWithDoc);
-    HPY_CTX_UPCALL(ctx_IsTrue);
-    HPY_CTX_UPCALL(ctx_Type_FromSpec);
-    HPY_CTX_UPCALL(ctx_Type_GenericNew);
-    HPY_CTX_UPCALL(ctx_GetAttr);
-    HPY_CTX_UPCALL(ctx_GetAttr_s);
-    HPY_CTX_UPCALL(ctx_HasAttr);
-    HPY_CTX_UPCALL(ctx_HasAttr_s);
-    HPY_CTX_UPCALL(ctx_SetAttr);
-    HPY_CTX_UPCALL(ctx_SetAttr_s);
-    HPY_CTX_UPCALL(ctx_GetItem);
-    HPY_CTX_UPCALL(ctx_GetItem_i);
-    HPY_CTX_UPCALL(ctx_GetItem_s);
-    HPY_CTX_UPCALL(ctx_Contains);
-    HPY_CTX_UPCALL(ctx_SetItem);
-    HPY_CTX_UPCALL(ctx_SetItem_i);
-    HPY_CTX_UPCALL(ctx_SetItem_s);
-    HPY_CTX_UPCALL(ctx_Type);
-    HPY_CTX_UPCALL(ctx_TypeCheck);
-    HPY_CTX_UPCALL(ctx_TypeCheck_g);
-    HPY_CTX_UPCALL(ctx_Is);
-    HPY_CTX_UPCALL(ctx_Is_g);
-    HPY_CTX_UPCALL(ctx_AsStruct);
-    HPY_CTX_UPCALL(ctx_AsStructLegacy);
-    HPY_CTX_UPCALL(ctx_New);
-    HPY_CTX_UPCALL(ctx_Repr);
-    HPY_CTX_UPCALL(ctx_Str);
-    HPY_CTX_UPCALL(ctx_ASCII);
-    HPY_CTX_UPCALL(ctx_Bytes);
-    HPY_CTX_UPCALL(ctx_RichCompare);
-    HPY_CTX_UPCALL(ctx_RichCompareBool);
-    HPY_CTX_UPCALL(ctx_Hash);
-    HPY_CTX_UPCALL(ctx_Bytes_Check);
-    HPY_CTX_UPCALL(ctx_Bytes_Size);
-    HPY_CTX_UPCALL(ctx_Bytes_GET_SIZE);
-    HPY_CTX_UPCALL(ctx_Bytes_AsString);
-    HPY_CTX_UPCALL(ctx_Bytes_AS_STRING);
-    HPY_CTX_UPCALL(ctx_Bytes_FromString);
-    HPY_CTX_UPCALL(ctx_Bytes_FromStringAndSize);
-    HPY_CTX_UPCALL(ctx_Unicode_FromString);
-    HPY_CTX_UPCALL(ctx_Unicode_Check);
-    HPY_CTX_UPCALL(ctx_Unicode_AsUTF8String);
-    HPY_CTX_UPCALL(ctx_Unicode_AsUTF8AndSize);
-    HPY_CTX_UPCALL(ctx_Unicode_FromWideChar);
-    HPY_CTX_UPCALL(ctx_Unicode_DecodeFSDefault);
-    HPY_CTX_UPCALL(ctx_List_Check);
-    HPY_CTX_UPCALL(ctx_List_New);
-    HPY_CTX_UPCALL(ctx_List_Append);
-    HPY_CTX_UPCALL(ctx_Dict_Check);
-    HPY_CTX_UPCALL(ctx_Dict_New);
-    HPY_CTX_UPCALL(ctx_Tuple_Check);
-    HPY_CTX_UPCALL(ctx_Tuple_FromArray);
-    HPY_CTX_UPCALL(ctx_Import_ImportModule);
-    HPY_CTX_UPCALL(ctx_FromPyObject);
-    HPY_CTX_UPCALL(ctx_AsPyObject);
-    HPY_CTX_UPCALL(ctx_ListBuilder_New);
-    HPY_CTX_UPCALL(ctx_ListBuilder_Set);
-    HPY_CTX_UPCALL(ctx_ListBuilder_Build);
-    HPY_CTX_UPCALL(ctx_ListBuilder_Cancel);
-    HPY_CTX_UPCALL(ctx_TupleBuilder_New);
-    HPY_CTX_UPCALL(ctx_TupleBuilder_Set);
-    HPY_CTX_UPCALL(ctx_TupleBuilder_Build);
-    HPY_CTX_UPCALL(ctx_TupleBuilder_Cancel);
-    HPY_CTX_UPCALL(ctx_Tracker_New);
-    HPY_CTX_UPCALL(ctx_Tracker_Add);
-    HPY_CTX_UPCALL(ctx_Tracker_ForgetAll);
-    HPY_CTX_UPCALL(ctx_Tracker_Close);
-    HPY_CTX_UPCALL(ctx_Field_Store);
-    HPY_CTX_UPCALL(ctx_Field_Load);
-    HPY_CTX_UPCALL(ctx_LeavePythonExecution);
-    HPY_CTX_UPCALL(ctx_ReenterPythonExecution);
-    HPY_CTX_UPCALL(ctx_Global_Store);
-    HPY_CTX_UPCALL(ctx_Global_Load);
-    HPY_CTX_UPCALL(ctx_Dump);
-    HPY_CTX_UPCALL(ctx_Long_AsVoidPtr);
-    HPY_CTX_UPCALL(ctx_Long_AsDouble);
-    HPY_CTX_UPCALL(ctx_Err_SetFromErrnoWithFilename);
-    HPY_CTX_UPCALL(ctx_Err_SetFromErrnoWithFilenameObjects);
-    HPY_CTX_UPCALL(ctx_Err_ExceptionMatches);
-    HPY_CTX_UPCALL(ctx_Err_WarnEx);
-    HPY_CTX_UPCALL(ctx_Err_WriteUnraisable);
-    HPY_CTX_UPCALL(ctx_FatalError);
-    HPY_CTX_UPCALL(ctx_Unicode_AsASCIIString);
-    HPY_CTX_UPCALL(ctx_Unicode_AsLatin1String);
-    HPY_CTX_UPCALL(ctx_Unicode_DecodeFSDefaultAndSize);
-    HPY_CTX_UPCALL(ctx_Unicode_EncodeFSDefault);
-    HPY_CTX_UPCALL(ctx_Unicode_ReadChar);
-    HPY_CTX_UPCALL(ctx_Unicode_DecodeLatin1);
-    HPY_CTX_UPCALL(ctx_Unicode_DecodeASCII);
-    HPY_CTX_UPCALL(ctx_MaybeGetAttr_s);
-    HPY_CTX_UPCALL(ctx_SetType);
-    HPY_CTX_UPCALL(ctx_Type_IsSubtype);
-    HPY_CTX_UPCALL(ctx_Type_GetName);
-    HPY_CTX_UPCALL(ctx_Unicode_FromEncodedObject);
-    HPY_CTX_UPCALL(ctx_Unicode_InternFromString);
-    HPY_CTX_UPCALL(ctx_Unicode_Substring);
-    HPY_CTX_UPCALL(ctx_Dict_Keys);
-    HPY_CTX_UPCALL(ctx_Dict_GetItem);
-    HPY_CTX_UPCALL(ctx_ContextVar_New);
-    HPY_CTX_UPCALL(ctx_ContextVar_Get);
-    HPY_CTX_UPCALL(ctx_ContextVar_Set);
-    HPY_CTX_UPCALL(ctx_Capsule_New);
-    HPY_CTX_UPCALL(ctx_Capsule_Get);
-    HPY_CTX_UPCALL(ctx_Capsule_IsValid);
-    HPY_CTX_UPCALL(ctx_Capsule_Set);
-    HPY_CTX_UPCALL(ctx_Type_CheckSlot);
-    HPY_CTX_UPCALL(ctx_Sequence_Check);
-    HPY_CTX_UPCALL(ctx_Slice_Unpack);
-    HPY_CTX_UPCALL(ctx_SeqIter_New);
-
-#undef HPY_CTX_UPCALL
-
 	return native_context;
 }
 

graalpython/com.oracle.graal.python.cext/hpy/hpynative.h

@@ -1,5 +1,5 @@
 /*
- * Copyright (c) 2021, Oracle and/or its affiliates. All rights reserved.
+ * Copyright (c) 2021, 2023, Oracle and/or its affiliates. All rights reserved.
  * DO NOT ALTER OR REMOVE COPYRIGHT NOTICES OR THIS FILE HEADER.
  *
  * The Universal Permissive License (UPL), Version 1.0
@@ -47,6 +47,7 @@
 #include "hpy.h"
 
 typedef struct {
+    void *jni_backend;
     void *jni_context;
 
 	/* embed HPy context */