]>
Commit | Line | Data |
---|---|---|
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 <base91.c> | |
9 | ||
10 | typedef struct base91 { | |
11 | struct basE91 b91; | |
12 | SV* output; | |
13 | }* Convert__Base91; | |
14 | ||
15 | Convert__Base91 new(SV* class) { | |
16 | Convert__Base91 self; | |
17 | Newxc(self, 1, struct base91, struct base91); | |
18 | basE91_init(&self->b91); | |
19 | self->output = newSVpvs(""); | |
20 | return self; | |
21 | } | |
22 | ||
23 | void encode(Convert__Base91 self, SV* input) { | |
24 | void *o; | |
25 | char* i; | |
26 | size_t len, max_out_len, ret; | |
27 | ||
28 | i = SvPVbyte(input, len); | |
29 | max_out_len = len + (len / 4) + 1; /* technically ceil(len * 16 / 13) */ | |
30 | Newx(o, max_out_len, char); | |
31 | ||
32 | ret = basE91_encode(&self->b91, i, len, o); | |
33 | sv_catpvn_nomg(self->output, o, ret); | |
34 | Safefree(o); | |
35 | } | |
36 | ||
37 | SV* encode_end(Convert__Base91 self) { | |
38 | char o[2]; | |
39 | size_t ret; | |
40 | SV* out; | |
41 | ret = basE91_encode_end(&self->b91, o); | |
42 | sv_catpvn_nomg(self->output, o, ret); | |
43 | ||
44 | out = self->output; | |
45 | self->output = newSVpvs(""); | |
46 | return out; | |
47 | } | |
48 | ||
49 | void decode(Convert__Base91 self, SV* input) { | |
50 | void *o; | |
51 | char* i; | |
52 | size_t len, max_out_len, ret; | |
53 | ||
54 | i = SvPVbyte(input, len); | |
55 | Newx(o, len, char); | |
56 | ||
57 | ret = basE91_decode(&self->b91, i, len, o); | |
58 | sv_catpvn_nomg(self->output, o, ret); | |
59 | Safefree(o); | |
60 | } | |
61 | ||
62 | SV* decode_end(Convert__Base91 self) { | |
63 | char o; | |
64 | size_t ret; | |
65 | SV* out; | |
66 | ret = basE91_decode_end(&self->b91, &o); | |
67 | sv_catpvn_nomg(self->output, &o, ret); | |
68 | ||
69 | out = self->output; | |
70 | self->output = newSVpvs(""); | |
71 | return out; | |
72 | } | |
73 | ||
74 | void DESTROY(Convert__Base91 self) { | |
75 | sv_2mortal(self->output); | |
76 | Safefree(self); | |
77 | } | |
78 | ||
79 | MODULE = Convert::Base91 PACKAGE = Convert::Base91 | |
80 | PROTOTYPES: ENABLE | |
81 | ||
82 | Convert::Base91 new(SV* class) | |
83 | ||
84 | void encode(Convert::Base91 self, SV* input) | |
85 | ||
86 | SV* encode_end(Convert::Base91 self) | |
87 | ||
88 | void decode(Convert::Base91 self, SV* input) | |
89 | ||
90 | SV* decode_end(Convert::Base91 self) | |
91 | ||
92 | void DESTROY(Convert::Base91 self) |