/*
Copyright (C) 2013 Mike Hansen
This file is part of FLINT.
FLINT is free software: you can redistribute it and/or modify it under
the terms of the GNU Lesser General Public License (LGPL) as published
by the Free Software Foundation; either version 2.1 of the License, or
(at your option) any later version. See .
*/
#include
#include
#include "fq.h"
#include "fq_poly.h"
void
fq_ctx_init(fq_ctx_t ctx, const fmpz_t p, slong d, const char *var)
{
flint_rand_t state;
fmpz_mod_poly_t poly;
fmpz_mod_ctx_t ctxp;
if (_fq_ctx_init_conway(ctx, p, d, var))
{
ctx->is_conway = 1;
return;
}
else
{
ctx->is_conway = 0;
}
flint_randinit(state);
fmpz_mod_ctx_init(ctxp, p);
fmpz_mod_poly_init2(poly, d + 1, ctxp);
fmpz_mod_poly_randtest_sparse_irreducible(poly, state, d + 1, ctxp);
fq_ctx_init_modulus(ctx, poly, ctxp, var);
fmpz_mod_poly_clear(poly, ctxp);
fmpz_mod_ctx_clear(ctxp);
flint_randclear(state);
}