Add gr_series compatibility shim for FLINT<3.4.0

Author: oscarbenjamin

src/flint/flintlib/functions/compat.pxd

@@ -1,9 +1,27 @@
 from flint.flintlib.types.flint cimport slong
 from flint.flintlib.types.fmpz_mod cimport fmpz_mod_mpoly_ctx_t, fmpz_mod_mpoly_t
+from flint.flintlib.types.gr cimport gr_ctx_t
 
 
 cdef extern from *:
     """
+    #include "flint/gr.h"
+    #if __FLINT_RELEASE >= 30400 /* Flint 3.4.0 or later */
+    #include "flint/gr_series.h"
+    #endif
+
+    #if __FLINT_RELEASE >= 30400 /* Flint 3.4.0 or later */
+
+    #define compat_gr_ctx_init_gr_series(...) gr_series_ctx_init(__VA_ARGS__)
+    #define compat_gr_ctx_init_series_mod_gr_poly(...) gr_series_mod_ctx_init(__VA_ARGS__)
+
+    #else
+
+    #define compat_gr_ctx_init_gr_series(...) gr_ctx_init_gr_series(__VA_ARGS__)
+    #define compat_gr_ctx_init_series_mod_gr_poly(...) gr_ctx_init_series_mod_gr_poly(__VA_ARGS__)
+
+    #endif
+
     #if __FLINT_RELEASE < 30200 /* Flint < 3.2.0 */
 
     #define compat_fmpz_mod_mpoly_compose_fmpz_mod_mpoly_gen(...) (void)0
@@ -14,4 +32,6 @@ cdef extern from *:
 
     #endif
     """
+    void compat_gr_ctx_init_gr_series(gr_ctx_t ctx, gr_ctx_t base_ring, slong prec)
+    void compat_gr_ctx_init_series_mod_gr_poly(gr_ctx_t ctx, gr_ctx_t base_ring, slong n)
     void compat_fmpz_mod_mpoly_compose_fmpz_mod_mpoly_gen(fmpz_mod_mpoly_t A, const fmpz_mod_mpoly_t B, const slong * c, const fmpz_mod_mpoly_ctx_t ctxB, const fmpz_mod_mpoly_ctx_t ctxAC)

src/flint/types/_gr.pxd

@@ -29,6 +29,10 @@ from flint.flintlib.functions.fmpq_poly cimport (
     fmpq_poly_init,
     fmpq_poly_set,
 )
+from flint.flintlib.functions.compat cimport (
+    compat_gr_ctx_init_gr_series,
+    # compat_gr_ctx_init_series_mod_gr_poly,
+)
 
 
 from flint.flintlib.types.gr cimport (
@@ -81,8 +85,6 @@ from flint.flintlib.functions.gr_domains cimport (
     gr_ctx_init_gr_poly,
     gr_ctx_init_gr_mpoly,
     # gr_ctx_init_fmpz_mpoly_q,
-    # gr_ctx_init_series_mod_gr_poly,
-    gr_ctx_init_gr_series,
 )
 from flint.flintlib.functions.gr cimport (
     gr_heap_init,
@@ -1514,7 +1516,7 @@ cdef class gr_gr_mpoly_ctx(gr_mpoly_ctx):
 #     cdef inline gr_series_mod_gr_poly_ctx _new(gr_ctx base_ctx, slong n):
 #         cdef gr_series_mod_gr_poly_ctx ctx
 #         ctx = gr_series_mod_gr_poly_ctx.__new__(gr_series_mod_gr_poly_ctx)
-#         gr_ctx_init_series_mod_gr_poly(ctx.ctx_t, base_ctx.ctx_t, n)
+#         compat_gr_ctx_init_series_mod_gr_poly(ctx.ctx_t, base_ctx.ctx_t, n)
 #         ctx._init = True
 #         ctx.base_ctx = base_ctx
 #         ctx._n = n
@@ -1530,7 +1532,7 @@ cdef class gr_series_ctx(gr_ctx):
     cdef inline gr_series_ctx _new(gr_ctx base_ctx, slong prec):
         cdef gr_series_ctx ctx
         ctx = gr_series_ctx.__new__(gr_series_ctx)
-        gr_ctx_init_gr_series(ctx.ctx_t, base_ctx.ctx_t, prec)
+        compat_gr_ctx_init_gr_series(ctx.ctx_t, base_ctx.ctx_t, prec)
         ctx._init = True
         ctx.base_ctx = base_ctx
         ctx._prec = prec