Support PG18beta1. (#298)

Author: adamguo0

include/compatibility.h

@@ -459,7 +459,37 @@ CastCreate(Oid sourcetypeid, Oid targettypeid, Oid funcid, char castcontext,
 			   typeCollation)
 #endif
 
-#if PG_VERSION_NUM >= 140000
+#if PG_VERSION_NUM >= 180000
+#define PROCEDURE_CREATE(procedureName, procNamespace, replace, returnsSet, returnType, proowner, languageObjectId, languageValidator, prosrc, probin, prokind, security_definer, isLeakProof, isStrict, volatility, parallel, parameterTypes, allParameterTypes, parameterModes, parameterNames, parameterDefaults, trftypes, proconfig, procost, prorows) \
+	ProcedureCreate(procedureName, \
+					procNamespace, \
+					replace, \
+					returnsSet, \
+					returnType, \
+					proowner, \
+					languageObjectId, \
+					languageValidator, \
+					prosrc, \
+					probin, \
+					NULL, /* prosqlbody */ \
+					prokind, \
+					security_definer, \
+					isLeakProof, \
+					isStrict, \
+					volatility, \
+					parallel, \
+					parameterTypes, \
+					allParameterTypes, \
+					parameterModes, \
+					parameterNames, \
+					parameterDefaults, \
+					trftypes, \
+					NIL, /* trfoids */ \
+					proconfig, \
+					InvalidOid,	/* prosupport */ \
+					procost, \
+					prorows)
+#elif PG_VERSION_NUM >= 140000
 #define PROCEDURE_CREATE(procedureName, procNamespace, replace, returnsSet, returnType, proowner, languageObjectId, languageValidator, prosrc, probin, prokind, security_definer, isLeakProof, isStrict, volatility, parallel, parameterTypes, allParameterTypes, parameterModes, parameterNames, parameterDefaults, trftypes, proconfig, procost, prorows) \
 	ProcedureCreate(procedureName, \
 					procNamespace, \

test/expected/pg_tle_extension_schema.out

@@ -251,16 +251,19 @@ SELECT * from pgtle.available_extension_versions() ORDER BY name;
  my_tle_4 | 1.0     | f         | f       | f           | my_tle_schema_2 | {my_tle_3,pg_tle} | My TLE
 (4 rows)
 
-\dx
-                           List of installed extensions
-   Name   | Version |     Schema      |                Description                 
-----------+---------+-----------------+--------------------------------------------
- my_tle_1 | 1.0     | public          | My TLE
- my_tle_2 | 1.0     | public          | My TLE
- my_tle_3 | 1.0     | my_tle_schema_1 | My TLE
- my_tle_4 | 1.0     | my_tle_schema_2 | My TLE
- pg_tle   | 1.5.0   | pgtle           | Trusted Language Extensions for PostgreSQL
- plpgsql  | 1.0     | pg_catalog      | PL/pgSQL procedural language
+SELECT e.extname, n.nspname, e.extrelocatable, e.extversion
+    FROM pg_extension e
+    INNER JOIN pg_namespace n
+    ON e.extnamespace = n.oid
+    ORDER BY extname ASC;
+ extname  |     nspname     | extrelocatable | extversion 
+----------+-----------------+----------------+------------
+ my_tle_1 | public          | f              | 1.0
+ my_tle_2 | public          | f              | 1.0
+ my_tle_3 | my_tle_schema_1 | f              | 1.0
+ my_tle_4 | my_tle_schema_2 | f              | 1.0
+ pg_tle   | pgtle           | f              | 1.5.0
+ plpgsql  | pg_catalog      | f              | 1.0
 (6 rows)
 
 -- Clean up. Drop the SQL and control functions explicitly to make sure the

test/sql/pg_tle_extension_schema.sql

@@ -156,7 +156,11 @@ CREATE EXTENSION my_tle_4;
 -- Validate the output of these functions.
 SELECT * FROM pgtle.available_extensions() ORDER BY name;
 SELECT * from pgtle.available_extension_versions() ORDER BY name;
-\dx
+SELECT e.extname, n.nspname, e.extrelocatable, e.extversion
+    FROM pg_extension e
+    INNER JOIN pg_namespace n
+    ON e.extnamespace = n.oid
+    ORDER BY extname ASC;
 
 -- Clean up. Drop the SQL and control functions explicitly to make sure the
 -- drops happen in the expected order and avoid random errors.