|
| 1 | +#define PG_PRELUDE_IMPL |
1 | 2 | #include "pg_prelude.h" |
2 | 3 |
|
3 | | -PG_MODULE_MAGIC; |
4 | | - |
5 | | -static const char NEWLINE = '\n'; |
6 | | -static const char DQUOTE = '"'; |
7 | | -static const char CR = '\r'; |
8 | | -static const char BOM[3] = "\xEF\xBB\xBF"; |
9 | | - |
10 | | -typedef struct { |
11 | | - char delim; |
12 | | - bool with_bom; |
13 | | - bool header; |
14 | | -} CsvOptions; |
15 | | - |
16 | | -typedef struct { |
17 | | - StringInfoData accum_buf; |
18 | | - bool header_done; |
19 | | - bool first_row; |
20 | | - TupleDesc tupdesc; |
21 | | - CsvOptions *options; |
22 | | -} CsvAggState; |
23 | | - |
24 | | -static inline bool is_reserved(char c) { |
25 | | - return c == DQUOTE || c == NEWLINE || c == CR; |
26 | | -} |
27 | | - |
28 | | -// Any comma, quote, CR, LF requires quoting as per RFC https://www.ietf.org/rfc/rfc4180.txt |
29 | | -static inline bool needs_quote(const char *s, size_t n, char delim) { |
30 | | - while (n--) { |
31 | | - char c = *s++; |
32 | | - if (c == delim || is_reserved(c)) return true; |
33 | | - } |
34 | | - return false; |
35 | | -} |
36 | | - |
37 | | -static inline void csv_append_field(StringInfo buf, const char *s, size_t n, char delim) { |
38 | | - if (!needs_quote(s, n, delim)) { |
39 | | - appendBinaryStringInfo(buf, s, n); |
40 | | - } else { |
41 | | - appendStringInfoChar(buf, DQUOTE); |
42 | | - for (size_t j = 0; j < n; j++) { |
43 | | - char c = s[j]; |
44 | | - if (c == DQUOTE) appendStringInfoChar(buf, DQUOTE); |
45 | | - appendStringInfoChar(buf, c); |
46 | | - } |
47 | | - appendStringInfoChar(buf, DQUOTE); |
48 | | - } |
49 | | -} |
| 4 | +#include "aggs.h" |
| 5 | +#include "general.h" |
50 | 6 |
|
51 | | -static char *datum_to_cstring(Datum datum, Oid typeoid) { |
52 | | - Oid out_func; |
53 | | - bool is_varlena; |
54 | | - getTypeOutputInfo(typeoid, &out_func, &is_varlena); |
55 | | - |
56 | | - return OidOutputFunctionCall(out_func, datum); |
57 | | -} |
58 | | - |
59 | | -static void parse_csv_options(HeapTupleHeader opts_hdr, CsvOptions *csv_opts) { |
60 | | - // defaults |
61 | | - csv_opts->delim = ','; |
62 | | - csv_opts->with_bom = false; |
63 | | - csv_opts->header = true; |
64 | | - |
65 | | - if (opts_hdr == NULL) return; |
66 | | - |
67 | | - TupleDesc desc = lookup_rowtype_tupdesc(HeapTupleHeaderGetTypeId(opts_hdr), |
68 | | - HeapTupleHeaderGetTypMod(opts_hdr)); |
69 | | - |
70 | | - Datum values[3]; |
71 | | - bool nulls[3]; |
| 7 | +PG_MODULE_MAGIC; |
72 | 8 |
|
73 | | - heap_deform_tuple( |
74 | | - &(HeapTupleData){.t_len = HeapTupleHeaderGetDatumLength(opts_hdr), .t_data = opts_hdr}, desc, |
75 | | - values, nulls); |
76 | | - |
77 | | - if (!nulls[0]) { |
78 | | - csv_opts->delim = DatumGetChar(values[0]); |
79 | | - if (is_reserved(csv_opts->delim)) |
80 | | - ereport(ERROR, (errcode(ERRCODE_INVALID_PARAMETER_VALUE), |
81 | | - errmsg("delimiter cannot be newline, carriage return or " |
82 | | - "double quote"))); |
83 | | - } |
| 9 | +PG_FUNCTION_INFO_V1(csv_agg_finalfn); |
| 10 | +Datum csv_agg_finalfn(PG_FUNCTION_ARGS) { |
| 11 | + if (PG_ARGISNULL(0)) PG_RETURN_NULL(); |
84 | 12 |
|
85 | | - if (!nulls[1]) { |
86 | | - csv_opts->with_bom = DatumGetBool(values[1]); |
87 | | - } |
| 13 | + CsvAggState *state = (CsvAggState *)PG_GETARG_POINTER(0); |
88 | 14 |
|
89 | | - if (!nulls[2]) { |
90 | | - csv_opts->header = DatumGetBool(values[2]); |
91 | | - } |
| 15 | + if (state->tupdesc != NULL) ReleaseTupleDesc(state->tupdesc); |
92 | 16 |
|
93 | | - ReleaseTupleDesc(desc); |
| 17 | + PG_RETURN_TEXT_P(cstring_to_text_with_len(state->accum_buf.data, state->accum_buf.len)); |
94 | 18 | } |
95 | 19 |
|
96 | 20 | PG_FUNCTION_INFO_V1(csv_agg_transfn); |
@@ -188,14 +112,3 @@ Datum csv_agg_transfn(PG_FUNCTION_ARGS) { |
188 | 112 |
|
189 | 113 | PG_RETURN_POINTER(state); |
190 | 114 | } |
191 | | - |
192 | | -PG_FUNCTION_INFO_V1(csv_agg_finalfn); |
193 | | -Datum csv_agg_finalfn(PG_FUNCTION_ARGS) { |
194 | | - if (PG_ARGISNULL(0)) PG_RETURN_NULL(); |
195 | | - |
196 | | - CsvAggState *state = (CsvAggState *)PG_GETARG_POINTER(0); |
197 | | - |
198 | | - if (state->tupdesc != NULL) ReleaseTupleDesc(state->tupdesc); |
199 | | - |
200 | | - PG_RETURN_TEXT_P(cstring_to_text_with_len(state->accum_buf.data, state->accum_buf.len)); |
201 | | -} |
0 commit comments