Final prototype changes in source code

* Add `static' to function declarations
* Add prototypes to headers

Author: albinahlback

src/ca/asin.c

@@ -11,7 +11,7 @@
 
 #include "ca.h"
 
-void
+static void
 ca_asin_special(ca_t res, const ca_t x, ca_ctx_t ctx)
 {
     if (ca_check_is_signed_inf(x, ctx) == T_TRUE)

src/ca/atan.c

@@ -11,7 +11,7 @@
 
 #include "ca.h"
 
-void
+static void
 ca_atan_special(ca_t res, const ca_t x, ca_ctx_t ctx)
 {
     if (ca_check_is_signed_inf(x, ctx) == T_TRUE)

src/ca/check_is_zero.c

@@ -13,7 +13,7 @@
 #include "ca.h"
 #include "ca/impl.h"
 
-truth_t
+static truth_t
 _ca_check_is_zero_qqbar(const ca_t x, ca_ctx_t ctx)
 {
     qqbar_t t;
@@ -71,13 +71,13 @@ ca_is_zero_check_fast(const ca_t x, ca_ctx_t ctx)
     return T_UNKNOWN;
 }
 
-int
+static int
 _ca_generic_has_nontrivial_denominator(const ca_t x, ca_ctx_t ctx)
 {
     return !fmpz_mpoly_is_fmpz(fmpz_mpoly_q_denref(CA_MPOLY_Q(x)), CA_FIELD_MCTX(CA_FIELD(x, ctx), ctx));
 }
 
-truth_t
+static truth_t
 ca_check_is_zero_no_factoring(const ca_t x, ca_ctx_t ctx)
 {
     acb_t v;

src/ca/conj.c

@@ -64,7 +64,7 @@ ca_set_ext(ca_t res, ca_ext_srcptr ext, ca_ctx_t ctx)
     }
 }
 
-void
+static void
 ca_conj_ext(ca_t res, ca_ext_ptr ext, ca_ctx_t ctx)
 {
     slong p;
@@ -218,7 +218,7 @@ ca_conj_ext(ca_t res, ca_ext_ptr ext, ca_ctx_t ctx)
 }
 
 /* Complex conjugate assuming that the generator is pure imaginary. */
-void nf_elem_conj_imag(nf_elem_t a, const nf_elem_t b, const nf_t nf)
+static void nf_elem_conj_imag(nf_elem_t a, const nf_elem_t b, const nf_t nf)
 {
     nf_elem_set(a, b, nf);
 

src/ca/exp.c

@@ -11,7 +11,7 @@
 
 #include "ca.h"
 
-int ca_as_fmpq_pi_i(fmpq_t res, const ca_t x, ca_ctx_t ctx)
+static int ca_as_fmpq_pi_i(fmpq_t res, const ca_t x, ca_ctx_t ctx)
 {
     ca_field_ptr K;
     ca_t t;
@@ -44,7 +44,7 @@ int ca_as_fmpq_pi_i(fmpq_t res, const ca_t x, ca_ctx_t ctx)
     return found;
 }
 
-ca_ext_ptr
+static ca_ext_ptr
 ca_is_fmpq_times_gen_as_ext(fmpq_t c, const ca_t x, ca_ctx_t ctx)
 {
     ca_field_ptr K;

src/ca/factor.c

@@ -15,7 +15,7 @@
 
 #define HAVE_MPOLY_FAC 1
 
-void
+static void
 _ca_factor_fmpz(ca_factor_t res, const fmpz_t x, int inv, ulong flags, ca_ctx_t ctx)
 {
     slong i;
@@ -62,7 +62,7 @@ _ca_factor_fmpz(ca_factor_t res, const fmpz_t x, int inv, ulong flags, ca_ctx_t
     ca_clear(e, ctx);
 }
 
-void
+static void
 _ca_factor_fmpq(ca_factor_t res, const fmpq_t x, ulong flags, ca_ctx_t ctx)
 {
     if (flags & (CA_FACTOR_ZZ_SMOOTH | CA_FACTOR_ZZ_FULL))

src/ca/fmpz_mpoly_evaluate.c

@@ -372,8 +372,9 @@ ca_fmpz_mpoly_evaluate_horner(ca_t A, const fmpz_mpoly_t B, ca_srcptr C, const f
     TMP_END;
 }
 
+#if 0
 /* todo: accept fmpz exponents */
-void
+static void
 ca_evaluate_fmpz_mpoly_iter(ca_t res, const fmpz_mpoly_t pol, ca_srcptr x, const fmpz_mpoly_ctx_t ctx, ca_ctx_t cactx)
 {
     slong i, j, len, nvars;
@@ -432,6 +433,7 @@ ca_evaluate_fmpz_mpoly_iter(ca_t res, const fmpz_mpoly_t pol, ca_srcptr x, const
     ca_clear(t, cactx);
     ca_clear(u, cactx);
 }
+#endif
 
 void
 ca_fmpz_mpoly_evaluate(ca_t res, const fmpz_mpoly_t f, ca_srcptr x, const fmpz_mpoly_ctx_t ctx, ca_ctx_t cactx)

src/ca/gamma.c

@@ -11,7 +11,8 @@
 
 #include "ca.h"
 
-void
+#if 0
+static void
 ca_gamma_inert(ca_t res, const ca_t x, ca_ctx_t ctx)
 {
     if (CA_IS_SPECIAL(x))
@@ -23,8 +24,9 @@ ca_gamma_inert(ca_t res, const ca_t x, ca_ctx_t ctx)
         _ca_function_fx(res, CA_Gamma, x, ctx);
     }
 }
+#endif
 
-void
+static void
 _ca_gamma_verbatim(ca_t res, const ca_t x, ca_ctx_t ctx)
 {
     ca_t y, tmp;
@@ -39,7 +41,7 @@ _ca_gamma_verbatim(ca_t res, const ca_t x, ca_ctx_t ctx)
     ca_clear(tmp, ctx);
 }
 
-truth_t
+static truth_t
 ca_re_is_positive(const ca_t x, ca_ctx_t ctx)
 {
     ca_t t, u;

src/ca/get_fexpr.c

@@ -17,7 +17,7 @@
 #include "fexpr.h"
 #include "fexpr_builtin.h"
 
-void
+static void
 _fexpr_set_fmpz_poly_decreasing(fexpr_t res, const fmpz * coeffs, slong len, const fexpr_t var)
 {
     slong i, j, num_terms;

src/ca/io.c

@@ -65,7 +65,7 @@ calcium_write_fmpz(calcium_stream_t out, const fmpz_t x)
     calcium_write_free(out, fmpz_get_str(NULL, 10, x));
 }
 
-void
+static void
 qqbar_write_n(calcium_stream_t out, const qqbar_t x, slong n)
 {
     acb_t t;
@@ -81,7 +81,7 @@ qqbar_write_n(calcium_stream_t out, const qqbar_t x, slong n)
     acb_clear(t);
 }
 
-void
+static void
 calcium_write_nf_elem(calcium_stream_t out,
     const nf_elem_t a, const char * var, const nf_t nf)
 {
@@ -129,7 +129,7 @@ calcium_write_nf_elem(calcium_stream_t out,
     }
 }
 
-void
+static void
 fmpz_mpoly_q_write_pretty(calcium_stream_t out, const fmpz_mpoly_q_t f, const char ** x, const fmpz_mpoly_ctx_t ctx)
 {
     if (fmpz_mpoly_is_one(fmpz_mpoly_q_denref(f), ctx))
@@ -153,7 +153,7 @@ fmpz_mpoly_q_write_pretty(calcium_stream_t out, const fmpz_mpoly_q_t f, const ch
     }
 }
 
-void
+static void
 _ca_field_print(calcium_stream_t out, const ca_field_t K, ca_print_info_t * info, ca_ctx_t ctx)
 {
     slong i, j, len, ideal_len;
@@ -446,7 +446,7 @@ _ca_print(calcium_stream_t out, const ca_t x, ca_print_info_t * info, ca_ctx_t c
 
 /* todo: something that doesn't run in quadratic time */
 
-void
+static void
 _ca_ext_insert_extension(ca_ext_ptr ** extensions, slong * length, ca_ext_t x, ca_ctx_t ctx)
 {
     slong i, j;
@@ -488,7 +488,7 @@ _ca_ext_insert_extension(ca_ext_ptr ** extensions, slong * length, ca_ext_t x, c
     }
 }
 
-void
+static void
 _ca_ext_all_extensions(ca_ext_ptr ** extensions, slong * length, ca_ext_t x, ca_ctx_t ctx)
 {
     slong i;