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

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

Diff Legend

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

Comparing Convert-UUlib/UUlib.xs (file contents): Revision 1.5 by root, Sun Mar 31 21:42:35 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.5 by root, Sun Mar 31 21:42:35 2002 UTC vs.
Revision 1.14 by root, Mon Aug 24 04:38:23 2009 UTC