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

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

Diff Legend

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

Comparing Convert-UUlib/UUlib.xs (file contents): Revision 1.1 by root, Mon Jun 11 19:48:55 2001 UTC vs. Revision 1.23 by root, Sat Sep 24 04:07:17 2022 UTC

Diff Legend

Comparing Convert-UUlib/UUlib.xs (file contents):
Revision 1.1 by root, Mon Jun 11 19:48:55 2001 UTC vs.
Revision 1.23 by root, Sat Sep 24 04:07:17 2022 UTC