1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
70
71
72
73
74
|
/*
* ecgen, tool for generating Elliptic curve domain parameters
* Copyright (C) 2017 J08nY
*/
#include "output.h"
#include <parson/parson.h>
FILE *out;
char *output_scsv(const char *format, char delim, GEN vector) {
long len = lg(vector) - 1;
char *params[len];
size_t lengths[len];
size_t total = 0;
for (long i = 0; i < len; ++i) {
params[i] = pari_sprintf(format, gel(vector, i + 1));
lengths[i] = strlen(params[i]);
total += lengths[i];
}
char *result = (char *)malloc(total + len);
if (!result) {
perror("Couldn't malloc.");
exit(1);
}
size_t offset = 0;
for (long i = 0; i < len; ++i) {
memcpy(result + offset, params[i], lengths[i]);
free(params[i]);
offset += lengths[i];
if (i != len - 1) {
result[offset] = delim;
offset++;
}
}
memset(result + offset, 0, 1);
return result;
}
void output_csv(FILE *out, const char *format, char delim, GEN vector) {
char *string = output_scsv(format, delim, vector);
fprintf(out, "%s", string);
free(string);
}
char *output_sjson(GEN vector) {}
void output_json(FILE *out, GEN vector) {}
FILE *output_open(const char *output, bool append) {
json_set_allocation_functions(pari_malloc, pari_free);
if (output) {
FILE *out = fopen(output, append ? "a" : "w");
if (!out) {
// fallback to stdout and output err
out = stdout;
perror("Failed to open output file.");
}
return out;
} else {
return stdout;
}
}
void output_close(FILE *out) {
if (out != NULL && out != stdout) {
fclose(out);
}
}
|
