diff options
Diffstat (limited to 'src/math/gens.c')
| -rw-r--r-- | src/math/gens.c | 27 |
1 files changed, 22 insertions, 5 deletions
diff --git a/src/math/gens.c b/src/math/gens.c index ac81960..f211a82 100644 --- a/src/math/gens.c +++ b/src/math/gens.c @@ -1,11 +1,11 @@ - +/* + * ecgen, tool for generating Elliptic curve domain parameters + * Copyright (C) 2017 J08nY + */ #include "gens.h" #include "point.h" -int gens_init(curve_t *curve, config_t *config, arg_t *args) { - // TODO stack code!!! - GEN generators = ellff_get_gens(curve->curve); - long len = glength(generators); +int gens_put(curve_t *curve, GEN generators, long len) { curve->generators = points_new((size_t)len); curve->ngens = (size_t)len; @@ -19,3 +19,20 @@ int gens_init(curve_t *curve, config_t *config, arg_t *args) { return 1; } + +int gens_any(curve_t *curve, config_t *config, arg_t *args) { + GEN generators = ellff_get_gens(curve->curve); + long len = glength(generators); + return gens_put(curve, generators, len); +} + +int gens_one(curve_t *curve, config_t *config, arg_t *args) { + pari_sp ltop = avma; + GEN generators = ellff_get_gens(curve->curve); + long len = glength(generators); + if (len == 2) { + avma = ltop; + return -5; + } + return gens_put(curve, generators, len); +} |