ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Convert-UUlib/UUlib.xs
(Generate patch)

Comparing Convert-UUlib/UUlib.xs (file contents):
Revision 1.7 by root, Sun Oct 13 13:47:09 2002 UTC vs.
Revision 1.19 by root, Fri Feb 28 17:19:02 2020 UTC

1#include "EXTERN.h" 1#include "EXTERN.h"
2#include "perl.h" 2#include "perl.h"
3#include "XSUB.h" 3#include "XSUB.h"
4 4
5#include "perlmulticore.h"
6
5#include "uulib/fptools.h" 7#include "uulib/fptools.h"
6#include "uulib/uudeview.h" 8#include "uulib/uudeview.h"
7#include "uulib/uuint.h" 9#include "uulib/uuint.h"
8 10
11static int perlinterp_released;
12
13#define RELEASE do { perlinterp_released = 1; perlinterp_release (); } while (0)
14#define ACQUIRE do { perlinterp_acquire (); perlinterp_released = 0; } while (0)
15
16#define TEMP_ACQUIRE if (perlinterp_released) perlinterp_acquire ();
17#define TEMP_RELEASE if (perlinterp_released) perlinterp_release ();
18
9static int 19static int
10not_here(char *s) 20not_here (char *s)
11{ 21{
12 croak("%s not implemented on this architecture", s); 22 croak("%s not implemented", s);
13 return -1; 23 return -1;
14} 24}
15 25
16static int 26static int
17constant(char *name) 27constant (char *name)
18{ 28{
19 errno = 0; 29 errno = 0;
20 switch (*name) { 30 switch (*name)
31 {
21 case 'A': 32 case 'A':
22 if (strEQ(name, "ACT_COPYING")) return UUACT_COPYING; 33 if (strEQ (name, "ACT_COPYING")) return UUACT_COPYING;
23 if (strEQ(name, "ACT_DECODING")) return UUACT_DECODING; 34 if (strEQ (name, "ACT_DECODING")) return UUACT_DECODING;
24 if (strEQ(name, "ACT_ENCODING")) return UUACT_ENCODING; 35 if (strEQ (name, "ACT_ENCODING")) return UUACT_ENCODING;
25 if (strEQ(name, "ACT_IDLE")) return UUACT_IDLE; 36 if (strEQ (name, "ACT_IDLE")) return UUACT_IDLE;
26 if (strEQ(name, "ACT_SCANNING")) return UUACT_SCANNING; 37 if (strEQ (name, "ACT_SCANNING")) return UUACT_SCANNING;
27 case 'F': 38 case 'F':
28 if (strEQ(name, "FILE_DECODED")) return UUFILE_DECODED; 39 if (strEQ (name, "FILE_DECODED")) return UUFILE_DECODED;
29 if (strEQ(name, "FILE_ERROR")) return UUFILE_ERROR; 40 if (strEQ (name, "FILE_ERROR")) return UUFILE_ERROR;
30 if (strEQ(name, "FILE_MISPART")) return UUFILE_MISPART; 41 if (strEQ (name, "FILE_MISPART")) return UUFILE_MISPART;
31 if (strEQ(name, "FILE_NOBEGIN")) return UUFILE_NOBEGIN; 42 if (strEQ (name, "FILE_NOBEGIN")) return UUFILE_NOBEGIN;
32 if (strEQ(name, "FILE_NODATA")) return UUFILE_NODATA; 43 if (strEQ (name, "FILE_NODATA")) return UUFILE_NODATA;
33 if (strEQ(name, "FILE_NOEND")) return UUFILE_NOEND; 44 if (strEQ (name, "FILE_NOEND")) return UUFILE_NOEND;
34 if (strEQ(name, "FILE_OK")) return UUFILE_OK; 45 if (strEQ (name, "FILE_OK")) return UUFILE_OK;
35 if (strEQ(name, "FILE_READ")) return UUFILE_READ; 46 if (strEQ (name, "FILE_READ")) return UUFILE_READ;
36 if (strEQ(name, "FILE_TMPFILE")) return UUFILE_TMPFILE; 47 if (strEQ (name, "FILE_TMPFILE")) return UUFILE_TMPFILE;
37 break; 48 break;
38 case 'M': 49 case 'M':
39 if (strEQ(name, "MSG_ERROR")) return UUMSG_ERROR; 50 if (strEQ (name, "MSG_ERROR")) return UUMSG_ERROR;
40 if (strEQ(name, "MSG_FATAL")) return UUMSG_FATAL; 51 if (strEQ (name, "MSG_FATAL")) return UUMSG_FATAL;
41 if (strEQ(name, "MSG_MESSAGE")) return UUMSG_MESSAGE; 52 if (strEQ (name, "MSG_MESSAGE")) return UUMSG_MESSAGE;
42 if (strEQ(name, "MSG_NOTE")) return UUMSG_NOTE; 53 if (strEQ (name, "MSG_NOTE")) return UUMSG_NOTE;
43 if (strEQ(name, "MSG_PANIC")) return UUMSG_PANIC; 54 if (strEQ (name, "MSG_PANIC")) return UUMSG_PANIC;
44 if (strEQ(name, "MSG_WARNING")) return UUMSG_WARNING; 55 if (strEQ (name, "MSG_WARNING")) return UUMSG_WARNING;
45 case 'O': 56 case 'O':
46 if (strEQ(name, "OPT_VERSION")) return UUOPT_VERSION; 57 if (strEQ (name, "OPT_VERSION")) return UUOPT_VERSION;
47 if (strEQ(name, "OPT_FAST")) return UUOPT_FAST; 58 if (strEQ (name, "OPT_FAST")) return UUOPT_FAST;
48 if (strEQ(name, "OPT_DUMBNESS")) return UUOPT_DUMBNESS; 59 if (strEQ (name, "OPT_DUMBNESS")) return UUOPT_DUMBNESS;
49 if (strEQ(name, "OPT_BRACKPOL")) return UUOPT_BRACKPOL; 60 if (strEQ (name, "OPT_BRACKPOL")) return UUOPT_BRACKPOL;
50 if (strEQ(name, "OPT_VERBOSE")) return UUOPT_VERBOSE; 61 if (strEQ (name, "OPT_VERBOSE")) return UUOPT_VERBOSE;
51 if (strEQ(name, "OPT_DESPERATE")) return UUOPT_DESPERATE; 62 if (strEQ (name, "OPT_DESPERATE")) return UUOPT_DESPERATE;
52 if (strEQ(name, "OPT_IGNREPLY")) return UUOPT_IGNREPLY; 63 if (strEQ (name, "OPT_IGNREPLY")) return UUOPT_IGNREPLY;
53 if (strEQ(name, "OPT_OVERWRITE")) return UUOPT_OVERWRITE; 64 if (strEQ (name, "OPT_OVERWRITE")) return UUOPT_OVERWRITE;
54 if (strEQ(name, "OPT_SAVEPATH")) return UUOPT_SAVEPATH; 65 if (strEQ (name, "OPT_SAVEPATH")) return UUOPT_SAVEPATH;
55 if (strEQ(name, "OPT_IGNMODE")) return UUOPT_IGNMODE; 66 if (strEQ (name, "OPT_IGNMODE")) return UUOPT_IGNMODE;
56 if (strEQ(name, "OPT_DEBUG")) return UUOPT_DEBUG; 67 if (strEQ (name, "OPT_DEBUG")) return UUOPT_DEBUG;
57 if (strEQ(name, "OPT_ERRNO")) return UUOPT_ERRNO; 68 if (strEQ (name, "OPT_ERRNO")) return UUOPT_ERRNO;
58 if (strEQ(name, "OPT_PROGRESS")) return UUOPT_PROGRESS; 69 if (strEQ (name, "OPT_PROGRESS")) return UUOPT_PROGRESS;
59 if (strEQ(name, "OPT_USETEXT")) return UUOPT_USETEXT; 70 if (strEQ (name, "OPT_USETEXT")) return UUOPT_USETEXT;
60 if (strEQ(name, "OPT_PREAMB")) return UUOPT_PREAMB; 71 if (strEQ (name, "OPT_PREAMB")) return UUOPT_PREAMB;
61 if (strEQ(name, "OPT_TINYB64")) return UUOPT_TINYB64; 72 if (strEQ (name, "OPT_TINYB64")) return UUOPT_TINYB64;
62 if (strEQ(name, "OPT_ENCEXT")) return UUOPT_ENCEXT; 73 if (strEQ (name, "OPT_ENCEXT")) return UUOPT_ENCEXT;
63 if (strEQ(name, "OPT_REMOVE")) return UUOPT_REMOVE; 74 if (strEQ (name, "OPT_REMOVE")) return UUOPT_REMOVE;
64 if (strEQ(name, "OPT_MOREMIME")) return UUOPT_MOREMIME; 75 if (strEQ (name, "OPT_MOREMIME")) return UUOPT_MOREMIME;
65 if (strEQ(name, "OPT_DOTDOT")) return UUOPT_DOTDOT; 76 if (strEQ (name, "OPT_DOTDOT")) return UUOPT_DOTDOT;
77 if (strEQ (name, "OPT_RBUF")) return UUOPT_RBUF;
78 if (strEQ (name, "OPT_WBUF")) return UUOPT_WBUF;
79 if (strEQ (name, "OPT_AUTOCHECK")) return UUOPT_AUTOCHECK;
66 case 'R': 80 case 'R':
67 if (strEQ(name, "RET_CANCEL")) return UURET_CANCEL; 81 if (strEQ (name, "RET_CANCEL")) return UURET_CANCEL;
68 if (strEQ(name, "RET_CONT")) return UURET_CONT; 82 if (strEQ (name, "RET_CONT")) return UURET_CONT;
69 if (strEQ(name, "RET_EXISTS")) return UURET_EXISTS; 83 if (strEQ (name, "RET_EXISTS")) return UURET_EXISTS;
70 if (strEQ(name, "RET_ILLVAL")) return UURET_ILLVAL; 84 if (strEQ (name, "RET_ILLVAL")) return UURET_ILLVAL;
71 if (strEQ(name, "RET_IOERR")) return UURET_IOERR; 85 if (strEQ (name, "RET_IOERR")) return UURET_IOERR;
72 if (strEQ(name, "RET_NODATA")) return UURET_NODATA; 86 if (strEQ (name, "RET_NODATA")) return UURET_NODATA;
73 if (strEQ(name, "RET_NOEND")) return UURET_NOEND; 87 if (strEQ (name, "RET_NOEND")) return UURET_NOEND;
74 if (strEQ(name, "RET_NOMEM")) return UURET_NOMEM; 88 if (strEQ (name, "RET_NOMEM")) return UURET_NOMEM;
75 if (strEQ(name, "RET_OK")) return UURET_OK; 89 if (strEQ (name, "RET_OK")) return UURET_OK;
76 if (strEQ(name, "RET_UNSUP")) return UURET_UNSUP; 90 if (strEQ (name, "RET_UNSUP")) return UURET_UNSUP;
77 case 'B': 91 case 'B':
78 if (strEQ(name, "B64_ENCODED")) return B64ENCODED; 92 if (strEQ (name, "B64_ENCODED")) return B64ENCODED;
79 if (strEQ(name, "BH_ENCODED")) return BH_ENCODED; 93 if (strEQ (name, "BH_ENCODED")) return BH_ENCODED;
80 case 'P': 94 case 'P':
81 if (strEQ(name, "PT_ENCODED")) return PT_ENCODED; 95 if (strEQ (name, "PT_ENCODED")) return PT_ENCODED;
82 case 'Q': 96 case 'Q':
83 if (strEQ(name, "QP_ENCODED")) return QP_ENCODED; 97 if (strEQ (name, "QP_ENCODED")) return QP_ENCODED;
84 case 'U': 98 case 'U':
85 if (strEQ(name, "UU_ENCODED")) return UU_ENCODED; 99 if (strEQ (name, "UU_ENCODED")) return UU_ENCODED;
86 case 'X': 100 case 'X':
87 if (strEQ(name, "XX_ENCODED")) return XX_ENCODED; 101 if (strEQ (name, "XX_ENCODED")) return XX_ENCODED;
88 case 'Y': 102 case 'Y':
89 if (strEQ(name, "YENC_ENCODED")) return YENC_ENCODED; 103 if (strEQ (name, "YENC_ENCODED")) return YENC_ENCODED;
90 } 104 }
105
91 errno = EINVAL; 106 errno = EINVAL;
92 return 0; 107 return 0;
93} 108}
94 109
110static void
95static void uu_msg_callback (void *cb, char *msg, int level) 111uu_msg_callback (void *cb, char *msg, int level)
96{ 112{
113 TEMP_ACQUIRE {
114
97 dSP; 115 dSP;
98 116
99 ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,2); 117 ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 2);
100 118
101 PUSHs(sv_2mortal(newSVpv(msg,0))); 119 PUSHs (sv_2mortal (newSVpv (msg, 0)));
102 PUSHs(sv_2mortal(newSViv(level))); 120 PUSHs (sv_2mortal (newSViv (level)));
103 121
104 PUTBACK; (void) perl_call_sv ((SV *)cb, G_VOID|G_DISCARD); SPAGAIN; 122 PUTBACK; (void) perl_call_sv ((SV *)cb, G_VOID|G_DISCARD); SPAGAIN;
105 PUTBACK; FREETMPS; LEAVE; 123 PUTBACK; FREETMPS; LEAVE;
106}
107 124
125 } TEMP_RELEASE;
126}
127
128static int
108static int uu_busy_callback (void *cb, uuprogress *uup) 129uu_busy_callback (void *cb, uuprogress *uup)
109{ 130{
110 dSP;
111 int count;
112 int retval; 131 int retval;
132
133 TEMP_ACQUIRE {
134
135 dSP;
136 int count;
113 137
114 ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,6); 138 ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 6);
115 139
116 PUSHs(sv_2mortal(newSViv(uup->action))); 140 PUSHs (sv_2mortal (newSViv (uup->action)));
117 PUSHs(sv_2mortal(newSVpv(uup->curfile,0))); 141 PUSHs (sv_2mortal (newSVpv (uup->curfile, 0)));
118 PUSHs(sv_2mortal(newSViv(uup->partno))); 142 PUSHs (sv_2mortal (newSViv (uup->partno)));
119 PUSHs(sv_2mortal(newSViv(uup->numparts))); 143 PUSHs (sv_2mortal (newSViv (uup->numparts)));
120 PUSHs(sv_2mortal(newSViv(uup->fsize))); 144 PUSHs (sv_2mortal (newSViv (uup->fsize)));
121 PUSHs(sv_2mortal(newSViv(uup->percent))); 145 PUSHs (sv_2mortal (newSViv (uup->percent)));
122 146
123 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; 147 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
124 148
125 if (count != 1) 149 if (count != 1)
126 croak ("busycallback perl callback returned more than one argument"); 150 croak ("busycallback perl callback returned more than one argument");
127 151
128 retval = POPi; 152 retval = POPi;
129 153
130 PUTBACK; FREETMPS; LEAVE; 154 PUTBACK; FREETMPS; LEAVE;
155
156 } TEMP_RELEASE;
131 157
132 return retval; 158 return retval;
133} 159}
134 160
161static char *
135static char *uu_fnamefilter_callback (void *cb, char *fname) 162uu_fnamefilter_callback (void *cb, char *fname)
136{ 163{
137 dSP;
138 int count;
139 static char *str; 164 static char *str;
165
166 TEMP_ACQUIRE {
167
168 dSP;
169 int count;
140 170
141 ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,1); 171 ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 1);
142 172
143 PUSHs(sv_2mortal(newSVpv(fname,0))); 173 PUSHs (sv_2mortal (newSVpv (fname, 0)));
144 174
145 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; 175 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
146 176
147 if (count != 1) 177 if (count != 1)
148 croak ("fnamefilter perl callback returned more than one argument"); 178 croak ("fnamefilter perl callback MUST return a single filename exactly");
149 179
150 _FP_free(str); str = _FP_strdup (POPp); 180 _FP_free (str); str = _FP_strdup (SvPV_nolen (TOPs));
151 181
152 PUTBACK; FREETMPS; LEAVE; 182 PUTBACK; FREETMPS; LEAVE;
183
184 } TEMP_RELEASE;
153 185
154 return str; 186 return str;
155} 187}
156 188
189static int
157static int uu_file_callback (void *cb, char *id, char *fname, int retrieve) 190uu_file_callback (void *cb, char *id, char *fname, int retrieve)
158{ 191{
159 dSP;
160 int count;
161 int retval; 192 int retval;
193
194 TEMP_ACQUIRE {
195
196 dSP;
197 int count;
162 SV *xfname = newSVpv ("", 0); 198 SV *xfname = newSVpv ("", 0);
163 STRLEN dc;
164 199
165 ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,3); 200 ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 3);
166 201
167 PUSHs(sv_2mortal(newSVpv(id,0))); 202 PUSHs (sv_2mortal (newSVpv (id, 0)));
168 PUSHs(sv_2mortal(xfname)); 203 PUSHs (sv_2mortal (xfname));
169 PUSHs(sv_2mortal(newSViv(retrieve))); 204 PUSHs (sv_2mortal (newSViv (retrieve)));
170 205
171 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; 206 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
172 207
173 if (count != 1) 208 if (count != 1)
174 croak ("filecallback perl callback returned more than one argument"); 209 croak ("filecallback perl callback must return a single return status");
175 210
176 strcpy (fname, SvPV (xfname, dc)); 211 strcpy (fname, SvPV_nolen (xfname));
177
178 retval = POPi; 212 retval = POPi;
179 213
180 PUTBACK; FREETMPS; LEAVE; 214 PUTBACK; FREETMPS; LEAVE;
215
216 } TEMP_RELEASE;
181 217
182 return retval; 218 return retval;
183} 219}
184 220
221static char *
185static char *uu_filename_callback (void *cb, char *subject, char *filename) 222uu_filename_callback (void *cb, char *subject, char *filename)
186{ 223{
224 TEMP_ACQUIRE {
225
187 dSP; 226 dSP;
188 int count; 227 int count;
189 SV *retval;
190 STRLEN dc;
191 228
192 ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,3); 229 ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 2);
193 230
194 PUSHs(sv_2mortal(newSVpv(subject, 0))); 231 PUSHs (sv_2mortal(newSVpv(subject, 0)));
195 PUSHs(filename ? sv_2mortal(newSVpv(filename, 0)) : &PL_sv_undef); 232 PUSHs (filename ? sv_2mortal(newSVpv(filename, 0)) : &PL_sv_undef);
196 233
197 PUTBACK; count = perl_call_sv ((SV *)cb, G_ARRAY); SPAGAIN; 234 PUTBACK; count = perl_call_sv ((SV *)cb, G_ARRAY); SPAGAIN;
198 235
199 if (count > 1) 236 if (count > 1)
200 croak ("filenamecallback perl callback returned more than one argument"); 237 croak ("filenamecallback perl callback must return nothing or a single filename");
201 238
202 if (count) 239 if (count)
203 { 240 {
204 _FP_free (filename); 241 _FP_free (filename);
205 242
206 retval = POPs; 243 filename = SvOK (TOPs)
207 244 ? _FP_strdup (SvPV_nolen (TOPs))
208 if (SvOK (retval))
209 {
210 STRLEN len;
211 char *fn = SvPV (retval, len);
212
213 filename = malloc (len + 1);
214
215 if (filename)
216 { 245 : 0;
217 memcpy (filename, fn, len);
218 filename[len] = 0;
219 }
220 } 246 }
221 else
222 filename = 0;
223 }
224 247
225 PUTBACK; FREETMPS; LEAVE; 248 PUTBACK; FREETMPS; LEAVE;
249
250 } TEMP_RELEASE;
226 251
227 return filename; 252 return filename;
228} 253}
229 254
230static SV *uu_msg_sv, *uu_busy_sv, *uu_file_sv, *uu_fnamefilter_sv, *uu_filename_sv; 255static SV *uu_msg_sv, *uu_busy_sv, *uu_file_sv, *uu_fnamefilter_sv, *uu_filename_sv;
231 256
232#define FUNC_CB(cb) (void *)(sv_setsv (cb ## _sv, func), cb ## _sv), func ? cb ## _callback : NULL 257#define FUNC_CB(cb) (void *)(sv_setsv (cb ## _sv, func), cb ## _sv), func ? cb ## _callback : NULL
233 258
259static int
234static int uu_info_file(void *cb, char *info) 260uu_info_file (void *cb, char *info)
235{ 261{
236 dSP;
237 int count;
238 int retval; 262 int retval;
263
264 TEMP_ACQUIRE {
265
266 dSP;
267 int count;
239 268
240 ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,1); 269 ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,1);
241 270
242 PUSHs(sv_2mortal(newSVpv(info,0))); 271 PUSHs(sv_2mortal(newSVpv(info,0)));
243 272
244 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; 273 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
245 274
246 if (count != 1) 275 if (count != 1)
247 croak ("info_file perl callback returned more than one argument"); 276 croak ("info_file perl callback returned more than one argument");
248 277
249 retval = POPi; 278 retval = POPi;
250 279
251 PUTBACK; FREETMPS; LEAVE; 280 PUTBACK; FREETMPS; LEAVE;
281
282 } TEMP_RELEASE;
252 283
253 return retval; 284 return retval;
254} 285}
255 286
256static int 287static int
… …
265 default: 296 default:
266 return 0; 297 return 0;
267 } 298 }
268} 299}
269 300
270static int uu_initialized; 301static void
302initialise (void)
303{
304 int retval = UUInitialize ();
305
306 if (retval != UURET_OK)
307 croak ("unable to initialize uudeview library (%s)", UUstrerror (retval));
308}
271 309
272MODULE = Convert::UUlib PACKAGE = Convert::UUlib PREFIX = UU 310MODULE = Convert::UUlib PACKAGE = Convert::UUlib PREFIX = UU
273 311
274PROTOTYPES: ENABLE 312PROTOTYPES: ENABLE
275 313
276int 314int
277constant(name) 315constant (name)
278 char * name 316 char * name
279 317
280
281void 318void
282UUInitialize() 319UUCleanUp ()
283 CODE: 320 CODE:
284 if (!uu_initialized) 321 UUCleanUp ();
322 initialise ();
323
324SV *
325UUGetOption (opt)
326 int opt
327 CODE:
328{
329 if (opt == UUOPT_PROGRESS)
330 croak ("GetOption(UUOPT_PROGRESS) is not yet implemented");
331 else if (uu_opt_isstring (opt))
285 { 332 {
286 int retval; 333 char cval[8192];
287 334
288 if ((retval = UUInitialize ()) != UURET_OK) 335 UUGetOption (opt, 0, cval, sizeof cval);
289 croak ("unable to initialize uudeview library (%s)", UUstrerror (retval)); 336 RETVAL = newSVpv (cval, 0);
290
291 uu_initialized = 1;
292 } 337 }
293
294void
295UUCleanUp()
296 CODE:
297 if (uu_initialized)
298 UUCleanUp ();
299
300 uu_initialized = 0;
301
302SV *
303UUGetOption(opt)
304 int opt
305 CODE:
306 {
307 if (opt == UUOPT_PROGRESS)
308 croak ("GetOption(UUOPT_PROGRESS) is not yet implemented");
309 else if (uu_opt_isstring (opt))
310 {
311 char cval[8192];
312
313 UUGetOption (opt, 0, cval, sizeof cval);
314 RETVAL = newSVpv (cval, 0);
315 }
316 else 338 else
317 { 339 {
318 RETVAL = newSViv (UUGetOption (opt, 0, 0, 0)); 340 RETVAL = newSViv (UUGetOption (opt, 0, 0, 0));
319 } 341 }
320 } 342}
321 OUTPUT: 343 OUTPUT:
322 RETVAL 344 RETVAL
323 345
324int 346int
325UUSetOption(opt,val) 347UUSetOption (opt, val)
326 int opt 348 int opt
327 SV * val 349 SV * val
328 CODE: 350 CODE:
329 { 351{
330 STRLEN dc; 352 STRLEN dc;
331 353
332 if (uu_opt_isstring (opt)) 354 if (uu_opt_isstring (opt))
333 RETVAL = UUSetOption (opt, 0, SvPV (val, dc)); 355 RETVAL = UUSetOption (opt, 0, SvPV (val, dc));
334 else 356 else
335 RETVAL = UUSetOption (opt, SvIV (val), (void *)0); 357 RETVAL = UUSetOption (opt, SvIV (val), (void *)0);
336 } 358}
337 OUTPUT: 359 OUTPUT:
338 RETVAL 360 RETVAL
339 361
340char * 362char *
341UUstrerror(errcode) 363UUstrerror (errcode)
342 int errcode 364 int errcode
343 365
344void 366void
345UUSetMsgCallback(func=0) 367UUSetMsgCallback (func = 0)
346 SV * func 368 SV * func
347 CODE: 369 CODE:
348 UUSetMsgCallback (FUNC_CB(uu_msg)); 370 UUSetMsgCallback (FUNC_CB (uu_msg));
349 371
350void 372void
351UUSetBusyCallback(func=0,msecs=1000) 373UUSetBusyCallback (func = 0,msecs = 1000)
352 SV * func 374 SV * func
353 long msecs 375 long msecs
354 CODE: 376 CODE:
355 UUSetBusyCallback (FUNC_CB(uu_busy), msecs); 377 UUSetBusyCallback (FUNC_CB (uu_busy), msecs);
356 378
357void 379void
358UUSetFileCallback(func=0) 380UUSetFileCallback (func = 0)
359 SV * func 381 SV * func
360 CODE: 382 CODE:
361 UUSetFileCallback (FUNC_CB(uu_file)); 383 UUSetFileCallback (FUNC_CB (uu_file));
362 384
363void 385void
364UUSetFNameFilter(func=0) 386UUSetFNameFilter (func = 0)
365 SV * func 387 SV * func
366 CODE: 388 CODE:
367 UUSetFNameFilter (FUNC_CB(uu_fnamefilter)); 389 UUSetFNameFilter (FUNC_CB (uu_fnamefilter));
368 390
369void 391void
370UUSetFileNameCallback(func=0) 392UUSetFileNameCallback (func = 0)
371 SV * func 393 SV * func
372 CODE: 394 CODE:
373 UUSetFileNameCallback (FUNC_CB(uu_filename)); 395 UUSetFileNameCallback (FUNC_CB (uu_filename));
374 396
375char * 397char *
376UUFNameFilter(fname) 398UUFNameFilter (fname)
377 char * fname 399 char * fname
378 400
379void 401void
380UULoadFile(fname,id=0,delflag=0) 402UULoadFile (fname, id = 0, delflag = 0, partno = -1)
381 char * fname 403 char * fname
382 char * id 404 char * id
383 int delflag 405 int delflag
406 int partno
384 PPCODE: 407 PPCODE:
385 { 408{
386 int count; 409 int count;
387 410 IV ret;
388 XPUSHs(sv_2mortal(newSViv(UULoadFile (fname, id, delflag, &count)))); 411
412 RELEASE;
413 ret = UULoadFileWithPartNo (fname, id, delflag, partno, &count);
414 ACQUIRE;
415
416 XPUSHs (sv_2mortal (newSViv (ret)));
389 if (GIMME_V == G_ARRAY) 417 if (GIMME_V == G_ARRAY)
390 XPUSHs(sv_2mortal(newSViv(count))); 418 XPUSHs (sv_2mortal (newSViv (count)));
391 } 419}
392 420
393int 421int
394UUSmerge(pass) 422UUSmerge (pass)
395 int pass 423 int pass
396 424
397int 425int
398UUQuickDecode(datain,dataout,boundary,maxpos) 426UUQuickDecode(datain,dataout,boundary,maxpos)
399 FILE * datain 427 FILE * datain
… …
469 char * from 497 char * from
470 char * subject 498 char * subject
471 int isemail 499 int isemail
472 500
473uulist * 501uulist *
474UUGetFileListItem(num) 502UUGetFileListItem (num)
475 int num 503 int num
476 504
505void
506GetFileList ()
507 PPCODE:
508 for (uulist *iter = UUGlobalFileList; iter; iter = iter->NEXT)
509 XPUSHs (sv_setref_pv (sv_newmortal (), "Convert::UUlib::Item", iter));
510
511MODULE = Convert::UUlib PACKAGE = Convert::UUlib::Item
512
477int 513int
478UURenameFile(item,newname) 514rename (item, newname)
479 uulist *item 515 uulist *item
480 char * newname 516 char * newname
481 ALIAS: 517 CODE:
482 Convert::UUlib::Item::rename = 1 518 RETVAL = UURenameFile (item, newname);
519 OUTPUT:
520 RETVAL
483 521
484int 522int
485UUDecodeToTemp(item) 523decode_temp (item)
486 uulist *item 524 uulist *item
487 ALIAS: 525 CODE:
488 Convert::UUlib::Item::decode_temp = 1 526 RELEASE;
527 RETVAL = UUDecodeToTemp (item);
528 ACQUIRE;
529 OUTPUT:
530 RETVAL
489 531
490int 532int
491UURemoveTemp(item) 533remove_temp (item)
492 uulist *item 534 uulist *item
493 ALIAS: 535 CODE:
494 Convert::UUlib::Item::remove_temp = 1 536 RELEASE;
537 RETVAL = UURemoveTemp (item);
538 ACQUIRE;
539 OUTPUT:
540 RETVAL
495 541
496int 542int
497UUDecodeFile(item,target=0) 543decode (item, target = 0)
498 uulist *item 544 uulist *item
499 char * target 545 char * target
500 ALIAS: 546 CODE:
501 Convert::UUlib::Item::decode = 1 547 RELEASE;
548 RETVAL = UUDecodeFile (item, target);
549 ACQUIRE;
550 OUTPUT:
551 RETVAL
502 552
503void 553void
504UUInfoFile(item,func) 554info (item, func)
505 uulist *item 555 uulist *item
506 SV * func 556 SV * func
507 CODE: 557 CODE:
558 RELEASE;
508 UUInfoFile(item,(void *)func,uu_info_file); 559 UUInfoFile (item, (void *)func, uu_info_file);
509 ALIAS: 560 ACQUIRE;
510 Convert::UUlib::Item::info = 1
511
512MODULE = Convert::UUlib PACKAGE = Convert::UUlib::Item
513 561
514short 562short
515state(li) 563state(li)
516 uulist *li 564 uulist *li
517 CODE: 565 CODE:
… …
545 RETVAL = li->size; 593 RETVAL = li->size;
546 OUTPUT: 594 OUTPUT:
547 RETVAL 595 RETVAL
548 596
549char * 597char *
550filename(li,newfilename=0) 598filename (li, newfilename = 0)
551 uulist *li 599 uulist *li
552 char * newfilename 600 char * newfilename
553 CODE: 601 CODE:
554 if (newfilename) 602 if (newfilename)
555 { 603 {
… …
559 RETVAL = li->filename; 607 RETVAL = li->filename;
560 OUTPUT: 608 OUTPUT:
561 RETVAL 609 RETVAL
562 610
563char * 611char *
564subfname(li) 612subfname (li)
565 uulist *li 613 uulist *li
566 CODE: 614 CODE:
567 RETVAL = li->subfname; 615 RETVAL = li->subfname;
568 OUTPUT: 616 OUTPUT:
569 RETVAL 617 RETVAL
570 618
571char * 619char *
572mimeid(li) 620mimeid (li)
573 uulist *li 621 uulist *li
574 CODE: 622 CODE:
575 RETVAL = li->mimeid; 623 RETVAL = li->mimeid;
576 OUTPUT: 624 OUTPUT:
577 RETVAL 625 RETVAL
578 626
579char * 627char *
580mimetype(li) 628mimetype (li)
581 uulist *li 629 uulist *li
582 CODE: 630 CODE:
583 RETVAL = li->mimetype; 631 RETVAL = li->mimetype;
584 OUTPUT: 632 OUTPUT:
585 RETVAL 633 RETVAL
586 634
587char * 635char *
588binfile(li) 636binfile (li)
589 uulist *li 637 uulist *li
590 CODE: 638 CODE:
591 RETVAL = li->binfile; 639 RETVAL = li->binfile;
592 OUTPUT: 640 OUTPUT:
593 RETVAL 641 RETVAL
594 642
595# functions accessing internal data(!) 643# methods accessing internal data(!)
596 644
597void 645void
598parts(li) 646parts (li)
599 uulist *li 647 uulist *li
600 PPCODE: 648 PPCODE:
601 { 649{
602 struct _uufile *p = li->thisfile; 650 struct _uufile *p = li->thisfile;
603 651
604 while (p) 652 while (p)
605 { 653 {
606 HV *pi = newHV (); 654 HV *pi = newHV ();
607 655
608 hv_store (pi, "partno" , 6, newSViv (p->partno) , 0); 656 hv_store (pi, "partno" , 6, newSViv (p->partno) , 0);
609 657
610 if (p->filename) 658 if (p->filename)
611 hv_store (pi, "filename", 8, newSVpv (p->filename, 0) , 0); 659 hv_store (pi, "filename", 8, newSVpv (p->filename, 0) , 0);
612 if(p->subfname) 660 if(p->subfname)
613 hv_store (pi, "subfname", 8, newSVpv (p->subfname, 0) , 0); 661 hv_store (pi, "subfname", 8, newSVpv (p->subfname, 0) , 0);
614 if(p->mimeid) 662 if(p->mimeid)
615 hv_store (pi, "mimeid" , 6, newSVpv (p->mimeid , 0) , 0); 663 hv_store (pi, "mimeid" , 6, newSVpv (p->mimeid , 0) , 0);
616 if(p->mimetype) 664 if(p->mimetype)
617 hv_store (pi, "mimetype", 8, newSVpv (p->mimetype, 0) , 0); 665 hv_store (pi, "mimetype", 8, newSVpv (p->mimetype, 0) , 0);
618 if (p->data->subject) 666 if (p->data->subject)
619 hv_store (pi, "subject" , 7, newSVpv (p->data->subject,0), 0); 667 hv_store (pi, "subject" , 7, newSVpv (p->data->subject,0), 0);
620 if (p->data->origin) 668 if (p->data->origin)
621 hv_store (pi, "origin" , 6, newSVpv (p->data->origin ,0), 0); 669 hv_store (pi, "origin" , 6, newSVpv (p->data->origin ,0), 0);
622 if (p->data->sfname) 670 if (p->data->sfname)
623 hv_store (pi, "sfname" , 6, newSVpv (p->data->sfname ,0), 0); 671 hv_store (pi, "sfname" , 6, newSVpv (p->data->sfname ,0), 0);
624 672
625 XPUSHs (sv_2mortal (newRV_noinc ((SV *)pi))); 673 XPUSHs (sv_2mortal (newRV_noinc ((SV *)pi)));
626 674
627 p = p->NEXT; 675 p = p->NEXT;
628 }
629 } 676 }
677}
630 678
631BOOT: 679BOOT:
632 uu_msg_sv = newSVsv(&PL_sv_undef); 680 uu_msg_sv = newSVsv (&PL_sv_undef);
633 uu_busy_sv = newSVsv(&PL_sv_undef); 681 uu_busy_sv = newSVsv (&PL_sv_undef);
634 uu_file_sv = newSVsv(&PL_sv_undef); 682 uu_file_sv = newSVsv (&PL_sv_undef);
635 uu_fnamefilter_sv = newSVsv(&PL_sv_undef); 683 uu_fnamefilter_sv = newSVsv (&PL_sv_undef);
636 uu_filename_sv = newSVsv(&PL_sv_undef); 684 uu_filename_sv = newSVsv (&PL_sv_undef);
685 initialise ();
637 686

Diff Legend

– Removed lines
+ Added lines
< Changed lines
> Changed lines