Assembly library started

c/buildasm/fr.c

@@ -0,0 +1,39 @@
+#include "fr.h"
+#include <stdio.h>
+#include <stdlib.h>
+#include <gmp.h>
+
+void Fr_str2element(PFrElement pE, char *s) {
+    mpz_t r;
+    mpz_init(r);
+    mpz_set_str(r, s, 10);
+    pE->type = Fr_LONG;
+    for (int i=0; i<Fr_N64; i++) pE->longVal[i] = 0;
+    mpz_export((void *)pE->longVal, NULL, -1, 8, -1, 0, r);
+}
+
+char *Fr_element2str(PFrElement pE) {
+    mpz_t r;
+    mpz_t q;
+    if (pE->type == Fr_SHORT) {
+        if (pE->shortVal>=0) {
+            char *r = new char[32];
+            sprintf(r, "%d", pE->shortVal);
+            return r;
+        } else {
+            mpz_init(q);
+            mpz_import(q, Fr_N64, -1, 8, -1, 0, (const void *)Fr_q.longVal);
+            mpz_init_set_si(r, pE->shortVal);
+            mpz_add(r, r, q);
+            mpz_clear(q);
+        }
+    } else {
+        Fr_toNormal(pE);
+        mpz_init(r);
+        mpz_import(r, Fr_N64, -1, 8, -1, 0, (const void *)pE->longVal);
+    }
+    char *res = mpz_get_str (0, 10, r);
+    mpz_clear(r);
+    return res;
+}
+