Wrap _gr_poly_divexact in gr/polynomial

fredrik-johansson · fredrik-johansson · commit 06c9515927fc · 2025-04-27T21:39:40.000+02:00
diff --git a/src/gr/polynomial.c b/src/gr/polynomial.c
@@ -559,6 +559,12 @@ polynomial_div(gr_poly_t res, const gr_poly_t x, const gr_poly_t y, const gr_ctx
     }
 }
 
+int
+polynomial_divexact(gr_poly_t res, const gr_poly_t x, const gr_poly_t y, const gr_ctx_t ctx)
+{
+    return gr_poly_divexact(res, x, y, POLYNOMIAL_ELEM_CTX(ctx));
+}
+
 int
 polynomial_euclidean_div(gr_poly_t res, const gr_poly_t x, const gr_poly_t y, const gr_ctx_t ctx)
 {
@@ -707,6 +713,7 @@ gr_method_tab_input _gr_poly_methods_input[] =
     {GR_METHOD_POW_SI,      (gr_funcptr) polynomial_pow_si},
     {GR_METHOD_POW_FMPZ,    (gr_funcptr) polynomial_pow_fmpz},
     {GR_METHOD_DIV,         (gr_funcptr) polynomial_div},
+    {GR_METHOD_DIVEXACT,    (gr_funcptr) polynomial_divexact},
     {GR_METHOD_INV,         (gr_funcptr) polynomial_inv},
 
     {GR_METHOD_EUCLIDEAN_DIV,         (gr_funcptr) polynomial_euclidean_div},

Original file line number	Diff line number	Diff line change
`@@ -559,6 +559,12 @@ polynomial_div(gr_poly_t res, const gr_poly_t x, const gr_poly_t y, const gr_ctx`
`559`	`559`	`}`
`560`	`560`	`}`
`561`	`561`
	`562`	`+int`
	`563`	`+polynomial_divexact(gr_poly_t res, const gr_poly_t x, const gr_poly_t y, const gr_ctx_t ctx)`
	`564`	`+{`
	`565`	`+ return gr_poly_divexact(res, x, y, POLYNOMIAL_ELEM_CTX(ctx));`
	`566`	`+}`
	`567`	`+`
`562`	`568`	`int`
`563`	`569`	`polynomial_euclidean_div(gr_poly_t res, const gr_poly_t x, const gr_poly_t y, const gr_ctx_t ctx)`
`564`	`570`	`{`
`@@ -707,6 +713,7 @@ gr_method_tab_input _gr_poly_methods_input[] =`
`707`	`713`	`{GR_METHOD_POW_SI, (gr_funcptr) polynomial_pow_si},`
`708`	`714`	`{GR_METHOD_POW_FMPZ, (gr_funcptr) polynomial_pow_fmpz},`
`709`	`715`	`{GR_METHOD_DIV, (gr_funcptr) polynomial_div},`
	`716`	`+ {GR_METHOD_DIVEXACT, (gr_funcptr) polynomial_divexact},`
`710`	`717`	`{GR_METHOD_INV, (gr_funcptr) polynomial_inv},`
`711`	`718`
`712`	`719`	`{GR_METHOD_EUCLIDEAN_DIV, (gr_funcptr) polynomial_euclidean_div},`