[ViewVC] Diff of: cvs/Convert-UUlib/UUlib.xs

Comparing Convert-UUlib/UUlib.xs (file contents):
Revision 1.7 by root, Sun Oct 13 13:47:09 2002 UTC vs.
Revision 1.14 by root, Mon Aug 24 04:38:23 2009 UTC

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

Diff Legend

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

Comparing Convert-UUlib/UUlib.xs (file contents): Revision 1.7 by root, Sun Oct 13 13:47:09 2002 UTC vs. Revision 1.14 by root, Mon Aug 24 04:38:23 2009 UTC

Diff Legend

Comparing Convert-UUlib/UUlib.xs (file contents):
Revision 1.7 by root, Sun Oct 13 13:47:09 2002 UTC vs.
Revision 1.14 by root, Mon Aug 24 04:38:23 2009 UTC