]>
Commit | Line | Data |
---|---|---|
f9995f31 MG |
1 | #define PERL_NO_GET_CONTEXT |
2 | #include "EXTERN.h" | |
3 | #include "perl.h" | |
4 | #include "XSUB.h" | |
5 | ||
6 | #include "ppport.h" | |
7 | ||
8 | #include <dec/decode.h> | |
09cf7186 | 9 | #include <enc/encode.h> |
fd0f6b13 | 10 | #include <common/dictionary.h> |
f9995f31 MG |
11 | |
12 | #define BUFFER_SIZE 1048576 | |
f9995f31 | 13 | |
d3f7abb9 QR |
14 | typedef struct brotli_decoder { |
15 | BrotliDecoderState *decoder; | |
16 | }* IO__Uncompress__Brotli; | |
17 | ||
18 | typedef struct brotli_encoder { | |
19 | BrotliEncoderState *encoder; | |
20 | }* IO__Compress__Brotli; | |
21 | ||
22 | ||
f9995f31 MG |
23 | MODULE = IO::Compress::Brotli PACKAGE = IO::Uncompress::Brotli |
24 | PROTOTYPES: ENABLE | |
25 | ||
d3f7abb9 QR |
26 | SV* |
27 | unbro(buffer) | |
f9995f31 MG |
28 | SV* buffer |
29 | PREINIT: | |
30 | size_t decoded_size; | |
31 | STRLEN encoded_size; | |
32 | uint8_t *encoded_buffer, *decoded_buffer; | |
33 | CODE: | |
34 | encoded_buffer = (uint8_t*) SvPV(buffer, encoded_size); | |
35 | if(!BrotliDecompressedSize(encoded_size, encoded_buffer, &decoded_size)){ | |
36 | croak("Error in BrotliDecompressedSize"); | |
37 | } | |
38 | Newx(decoded_buffer, decoded_size+1, uint8_t); | |
39 | decoded_buffer[decoded_size]=0; | |
ea94b872 QR |
40 | if(!BrotliDecoderDecompress(encoded_size, encoded_buffer, &decoded_size, decoded_buffer)){ |
41 | croak("Error in BrotliDecoderDecompress"); | |
f9995f31 MG |
42 | } |
43 | RETVAL = newSV(0); | |
44 | sv_usepvn_flags(RETVAL, decoded_buffer, decoded_size, SV_HAS_TRAILING_NUL); | |
45 | OUTPUT: | |
46 | RETVAL | |
47 | ||
d3f7abb9 QR |
48 | IO::Uncompress::Brotli |
49 | create(class) | |
50 | SV* class | |
f9995f31 | 51 | CODE: |
d3f7abb9 QR |
52 | Newx(RETVAL, 1, struct brotli_decoder); |
53 | RETVAL->decoder = BrotliDecoderCreateInstance(NULL, NULL, NULL); | |
f9995f31 MG |
54 | OUTPUT: |
55 | RETVAL | |
56 | ||
d3f7abb9 QR |
57 | void |
58 | DESTROY(self) | |
59 | IO::Uncompress::Brotli self | |
f9995f31 | 60 | CODE: |
d3f7abb9 QR |
61 | BrotliDecoderDestroyInstance(self->decoder); |
62 | Safefree(self); | |
f9995f31 | 63 | |
d3f7abb9 QR |
64 | SV* |
65 | decompress(self, in) | |
66 | IO::Uncompress::Brotli self | |
f9995f31 MG |
67 | SV* in |
68 | PREINIT: | |
261eae0a | 69 | uint8_t *next_in, *next_out, *buffer; |
29037568 | 70 | size_t available_in, available_out; |
ea94b872 | 71 | BrotliDecoderResult result; |
f9995f31 MG |
72 | CODE: |
73 | next_in = (uint8_t*) SvPV(in, available_in); | |
261eae0a | 74 | Newx(buffer, BUFFER_SIZE, uint8_t); |
f9995f31 MG |
75 | RETVAL = newSVpv("", 0); |
76 | result = BROTLI_RESULT_NEEDS_MORE_OUTPUT; | |
77 | while(result == BROTLI_RESULT_NEEDS_MORE_OUTPUT) { | |
78 | next_out = buffer; | |
79 | available_out=BUFFER_SIZE; | |
d3f7abb9 | 80 | result = BrotliDecoderDecompressStream( self->decoder, |
782ccd86 QR |
81 | &available_in, |
82 | (const uint8_t**) &next_in, | |
83 | &available_out, | |
84 | &next_out, | |
29037568 | 85 | NULL ); |
f9995f31 | 86 | if(!result){ |
261eae0a QR |
87 | Safefree(buffer); |
88 | croak("Error in BrotliDecoderDecompressStream"); | |
f9995f31 MG |
89 | } |
90 | sv_catpvn(RETVAL, (const char*)buffer, BUFFER_SIZE-available_out); | |
91 | } | |
261eae0a | 92 | Safefree(buffer); |
f9995f31 MG |
93 | OUTPUT: |
94 | RETVAL | |
95 | ||
d3f7abb9 QR |
96 | void |
97 | set_dictionary(self, dict) | |
98 | IO::Uncompress::Brotli self | |
f9995f31 MG |
99 | SV* dict |
100 | PREINIT: | |
101 | size_t size; | |
102 | uint8_t *data; | |
103 | CODE: | |
104 | data = SvPV(dict, size); | |
d3f7abb9 | 105 | BrotliDecoderSetCustomDictionary(self->decoder, size, data); |
09cf7186 QR |
106 | |
107 | ||
108 | MODULE = IO::Compress::Brotli PACKAGE = IO::Compress::Brotli | |
109 | PROTOTYPES: ENABLE | |
110 | ||
d3f7abb9 QR |
111 | SV* |
112 | bro(buffer, quality=BROTLI_DEFAULT_QUALITY, lgwin=BROTLI_DEFAULT_WINDOW) | |
09cf7186 QR |
113 | SV* buffer |
114 | U32 quality | |
115 | U32 lgwin | |
116 | PREINIT: | |
117 | size_t encoded_size; | |
118 | STRLEN decoded_size; | |
119 | uint8_t *encoded_buffer, *decoded_buffer; | |
120 | BROTLI_BOOL result; | |
121 | CODE: | |
122 | if( quality < BROTLI_MIN_QUALITY || quality > BROTLI_MAX_QUALITY ) { | |
9d6eec24 QR |
123 | croak("Invalid quality value"); |
124 | } | |
125 | if( lgwin < kBrotliMinWindowBits || lgwin > kBrotliMaxWindowBits ) { | |
126 | croak("Invalid window value"); | |
09cf7186 QR |
127 | } |
128 | decoded_buffer = (uint8_t*) SvPV(buffer, decoded_size); | |
129 | encoded_size = BrotliEncoderMaxCompressedSize(decoded_size); | |
130 | if(!encoded_size){ | |
131 | croak("Compressed size overflow"); | |
132 | } | |
133 | Newx(encoded_buffer, encoded_size+1, uint8_t); | |
134 | result = BrotliEncoderCompress( quality, | |
135 | lgwin, | |
136 | BROTLI_DEFAULT_MODE, | |
137 | decoded_size, | |
138 | decoded_buffer, | |
139 | &encoded_size, | |
140 | encoded_buffer ); | |
141 | if(!result){ | |
aaed23cf | 142 | Safefree(buffer); |
09cf7186 QR |
143 | croak("Error in BrotliEncoderCompress"); |
144 | } | |
145 | encoded_buffer[encoded_size]=0; | |
146 | RETVAL = newSV(0); | |
147 | sv_usepvn_flags(RETVAL, encoded_buffer, encoded_size, SV_SMAGIC | SV_HAS_TRAILING_NUL); | |
148 | OUTPUT: | |
149 | RETVAL | |
150 | ||
d3f7abb9 QR |
151 | IO::Compress::Brotli |
152 | create(class) | |
153 | SV* class | |
09cf7186 | 154 | CODE: |
d3f7abb9 QR |
155 | Newx(RETVAL, 1, struct brotli_encoder); |
156 | RETVAL->encoder = BrotliEncoderCreateInstance(NULL, NULL, NULL); | |
09cf7186 QR |
157 | OUTPUT: |
158 | RETVAL | |
159 | ||
d3f7abb9 QR |
160 | SV* |
161 | window(self, window) | |
162 | IO::Compress::Brotli self | |
09cf7186 QR |
163 | U32 window |
164 | CODE: | |
9d6eec24 QR |
165 | if( window < kBrotliMinWindowBits || window > kBrotliMaxWindowBits ) { |
166 | croak("Invalid window value"); | |
167 | } | |
d3f7abb9 | 168 | if( BrotliEncoderSetParameter(self->encoder, BROTLI_PARAM_LGWIN, window) ) |
09cf7186 QR |
169 | RETVAL = newSVuv(1); |
170 | else | |
171 | RETVAL = newSVuv(0); | |
172 | OUTPUT: | |
173 | RETVAL | |
174 | ||
d3f7abb9 QR |
175 | SV* |
176 | quality(self, quality) | |
177 | IO::Compress::Brotli self | |
09cf7186 QR |
178 | U32 quality |
179 | CODE: | |
180 | if( quality < BROTLI_MIN_QUALITY || quality > BROTLI_MAX_QUALITY ) { | |
9d6eec24 | 181 | croak("Invalid quality value"); |
09cf7186 | 182 | } |
d3f7abb9 | 183 | if( BrotliEncoderSetParameter(self->encoder, BROTLI_PARAM_QUALITY, quality) ) |
09cf7186 QR |
184 | RETVAL = newSVuv(1); |
185 | else | |
186 | RETVAL = newSVuv(0); | |
187 | OUTPUT: | |
188 | RETVAL | |
189 | ||
d3f7abb9 QR |
190 | SV* |
191 | _mode(self, mode) | |
192 | IO::Compress::Brotli self | |
09cf7186 QR |
193 | U32 mode |
194 | CODE: | |
d3f7abb9 | 195 | if( BrotliEncoderSetParameter(self->encoder, BROTLI_PARAM_MODE, mode) ) |
09cf7186 QR |
196 | RETVAL = newSVuv(1); |
197 | else | |
198 | RETVAL = newSVuv(0); | |
199 | OUTPUT: | |
200 | RETVAL | |
201 | ||
0cea41a5 | 202 | SV* |
bcdfc2c8 | 203 | _compress(self, in = &PL_sv_undef) |
0cea41a5 ÆAB |
204 | IO::Compress::Brotli self |
205 | SV* in | |
bcdfc2c8 MG |
206 | ALIAS: |
207 | compress = 1 | |
208 | flush = 2 | |
209 | finish = 3 | |
09cf7186 QR |
210 | PREINIT: |
211 | uint8_t *next_in, *next_out, *buffer; | |
212 | size_t available_in, available_out; | |
213 | BROTLI_BOOL result; | |
bcdfc2c8 | 214 | BrotliEncoderOperation op; |
09cf7186 | 215 | CODE: |
bcdfc2c8 MG |
216 | switch(ix) { |
217 | case 0: | |
218 | croak("_compress may not be called directly"); | |
219 | break; | |
220 | case 1: | |
221 | op = BROTLI_OPERATION_PROCESS; | |
222 | break; | |
223 | case 2: | |
224 | op = BROTLI_OPERATION_FLUSH; | |
225 | break; | |
226 | case 3: | |
227 | op = BROTLI_OPERATION_FINISH; | |
228 | break; | |
229 | default: | |
230 | croak("Impossible ix in _compress"); | |
231 | break; | |
232 | } | |
233 | ||
09cf7186 | 234 | Newx(buffer, BUFFER_SIZE, uint8_t); |
bcdfc2c8 MG |
235 | if(in == &PL_sv_undef) |
236 | next_in = (uint8_t*) buffer, available_in = 0; | |
237 | else | |
238 | next_in = (uint8_t*) SvPV(in, available_in); | |
09cf7186 QR |
239 | RETVAL = newSVpv("", 0); |
240 | while(1) { | |
241 | next_out = buffer; | |
242 | available_out = BUFFER_SIZE; | |
d3f7abb9 | 243 | result = BrotliEncoderCompressStream( self->encoder, |
09cf7186 QR |
244 | (BrotliEncoderOperation) op, |
245 | &available_in, | |
246 | (const uint8_t**) &next_in, | |
247 | &available_out, | |
248 | &next_out, | |
249 | NULL ); | |
250 | if(!result) { | |
251 | Safefree(buffer); | |
252 | croak("Error in BrotliEncoderCompressStream"); | |
253 | } | |
254 | ||
255 | if( available_out != BUFFER_SIZE ) { | |
256 | sv_catpvn(RETVAL, (const char*)buffer, BUFFER_SIZE-available_out); | |
257 | } | |
258 | ||
259 | if( | |
d3f7abb9 QR |
260 | BrotliEncoderIsFinished(self->encoder) || |
261 | (!available_in && !BrotliEncoderHasMoreOutput(self->encoder)) | |
09cf7186 QR |
262 | ) break; |
263 | } | |
264 | Safefree(buffer); | |
265 | OUTPUT: | |
266 | RETVAL | |
267 | ||
d3f7abb9 QR |
268 | void |
269 | DESTROY(self) | |
270 | IO::Compress::Brotli self | |
09cf7186 | 271 | CODE: |
d3f7abb9 | 272 | BrotliEncoderDestroyInstance(self->encoder); |
21c71a39 | 273 | Safefree(self); |
09cf7186 | 274 | |
d3f7abb9 QR |
275 | void |
276 | set_dictionary(self, dict) | |
277 | IO::Compress::Brotli self | |
09cf7186 QR |
278 | SV* dict |
279 | PREINIT: | |
280 | size_t size; | |
281 | uint8_t *data; | |
282 | CODE: | |
283 | data = SvPV(dict, size); | |
d3f7abb9 | 284 | BrotliEncoderSetCustomDictionary(self->encoder, size, data); |