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.9 by root, Thu Nov 6 13:33:40 2003 UTC vs.
Revision 1.12 by root, Mon May 2 19:58:40 2005 UTC

… …
61 if (strEQ(name, "OPT_TINYB64")) return UUOPT_TINYB64; 61 if (strEQ(name, "OPT_TINYB64")) return UUOPT_TINYB64;
62 if (strEQ(name, "OPT_ENCEXT")) return UUOPT_ENCEXT; 62 if (strEQ(name, "OPT_ENCEXT")) return UUOPT_ENCEXT;
63 if (strEQ(name, "OPT_REMOVE")) return UUOPT_REMOVE; 63 if (strEQ(name, "OPT_REMOVE")) return UUOPT_REMOVE;
64 if (strEQ(name, "OPT_MOREMIME")) return UUOPT_MOREMIME; 64 if (strEQ(name, "OPT_MOREMIME")) return UUOPT_MOREMIME;
65 if (strEQ(name, "OPT_DOTDOT")) return UUOPT_DOTDOT; 65 if (strEQ(name, "OPT_DOTDOT")) return UUOPT_DOTDOT;
66 if (strEQ(name, "OPT_RBUF")) return UUOPT_RBUF;
67 if (strEQ(name, "OPT_WBUF")) return UUOPT_WBUF;
66 case 'R': 68 case 'R':
67 if (strEQ(name, "RET_CANCEL")) return UURET_CANCEL; 69 if (strEQ(name, "RET_CANCEL")) return UURET_CANCEL;
68 if (strEQ(name, "RET_CONT")) return UURET_CONT; 70 if (strEQ(name, "RET_CONT")) return UURET_CONT;
69 if (strEQ(name, "RET_EXISTS")) return UURET_EXISTS; 71 if (strEQ(name, "RET_EXISTS")) return UURET_EXISTS;
70 if (strEQ(name, "RET_ILLVAL")) return UURET_ILLVAL; 72 if (strEQ(name, "RET_ILLVAL")) return UURET_ILLVAL;
… …
95static void 97static void
96uu_msg_callback (void *cb, char *msg, int level) 98uu_msg_callback (void *cb, char *msg, int level)
97{ 99{
98 dSP; 100 dSP;
99 101
100 ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,2); 102 ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 2);
101 103
102 PUSHs(sv_2mortal(newSVpv(msg,0))); 104 PUSHs (sv_2mortal (newSVpv (msg, 0)));
103 PUSHs(sv_2mortal(newSViv(level))); 105 PUSHs (sv_2mortal (newSViv (level)));
104 106
105 PUTBACK; (void) perl_call_sv ((SV *)cb, G_VOID|G_DISCARD); SPAGAIN; 107 PUTBACK; (void) perl_call_sv ((SV *)cb, G_VOID|G_DISCARD); SPAGAIN;
106 PUTBACK; FREETMPS; LEAVE; 108 PUTBACK; FREETMPS; LEAVE;
107} 109}
108 110
… …
111{ 113{
112 dSP; 114 dSP;
113 int count; 115 int count;
114 int retval; 116 int retval;
115 117
116 ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,6); 118 ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 6);
117 119
118 PUSHs(sv_2mortal(newSViv(uup->action))); 120 PUSHs (sv_2mortal (newSViv (uup->action)));
119 PUSHs(sv_2mortal(newSVpv(uup->curfile,0))); 121 PUSHs (sv_2mortal (newSVpv (uup->curfile, 0)));
120 PUSHs(sv_2mortal(newSViv(uup->partno))); 122 PUSHs (sv_2mortal (newSViv (uup->partno)));
121 PUSHs(sv_2mortal(newSViv(uup->numparts))); 123 PUSHs (sv_2mortal (newSViv (uup->numparts)));
122 PUSHs(sv_2mortal(newSViv(uup->fsize))); 124 PUSHs (sv_2mortal (newSViv (uup->fsize)));
123 PUSHs(sv_2mortal(newSViv(uup->percent))); 125 PUSHs (sv_2mortal (newSViv (uup->percent)));
124 126
125 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; 127 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
126 128
127 if (count != 1) 129 if (count != 1)
128 croak ("busycallback perl callback returned more than one argument"); 130 croak ("busycallback perl callback returned more than one argument");
… …
139{ 141{
140 dSP; 142 dSP;
141 int count; 143 int count;
142 static char *str; 144 static char *str;
143 145
144 ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,1); 146 ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 1);
145 147
146 PUSHs(sv_2mortal(newSVpv(fname,0))); 148 PUSHs (sv_2mortal (newSVpv (fname, 0)));
147 149
148 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; 150 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
149 151
150 if (count != 1) 152 if (count != 1)
151 croak ("fnamefilter perl callback returned more than one argument"); 153 croak ("fnamefilter perl callback returned more than one argument");
… …
164 int count; 166 int count;
165 int retval; 167 int retval;
166 SV *xfname = newSVpv ("", 0); 168 SV *xfname = newSVpv ("", 0);
167 STRLEN dc; 169 STRLEN dc;
168 170
169 ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,3); 171 ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 3);
170 172
171 PUSHs(sv_2mortal(newSVpv(id,0))); 173 PUSHs (sv_2mortal (newSVpv (id, 0)));
172 PUSHs(sv_2mortal(xfname)); 174 PUSHs (sv_2mortal (xfname));
173 PUSHs(sv_2mortal(newSViv(retrieve))); 175 PUSHs (sv_2mortal (newSViv (retrieve)));
174 176
175 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; 177 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
176 178
177 if (count != 1) 179 if (count != 1)
178 croak ("filecallback perl callback returned more than one argument"); 180 croak ("filecallback perl callback returned more than one argument");
… …
381char * 383char *
382UUFNameFilter (fname) 384UUFNameFilter (fname)
383 char * fname 385 char * fname
384 386
385void 387void
386UULoadFile (fname, id = 0, delflag = 0, int partno = -1) 388UULoadFile (fname, id = 0, delflag = 0, partno = -1)
387 char * fname 389 char * fname
388 char * id 390 char * id
389 int delflag 391 int delflag
392 int partno
390 PPCODE: 393 PPCODE:
391 { 394 {
392 int count; 395 int count;
393 396
394 XPUSHs(sv_2mortal(newSViv(UULoadFile (fname, id, delflag, partno, &count)))); 397 XPUSHs (sv_2mortal (newSViv (UULoadFileWithPartNo (fname, id, delflag, partno, &count))));
395 if (GIMME_V == G_ARRAY) 398 if (GIMME_V == G_ARRAY)
396 XPUSHs(sv_2mortal(newSViv(count))); 399 XPUSHs (sv_2mortal (newSViv (count)));
397 } 400 }
398 401
399int 402int
400UUSmerge (pass) 403UUSmerge (pass)
401 int pass 404 int pass

Diff Legend

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