| … | |
… | |
| 95 | static void |
95 | static void |
| 96 | uu_msg_callback (void *cb, char *msg, int level) |
96 | uu_msg_callback (void *cb, char *msg, int level) |
| 97 | { |
97 | { |
| 98 | dSP; |
98 | dSP; |
| 99 | |
99 | |
| 100 | ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,2); |
100 | ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 2); |
| 101 | |
101 | |
| 102 | PUSHs(sv_2mortal(newSVpv(msg,0))); |
102 | PUSHs (sv_2mortal (newSVpv (msg, 0))); |
| 103 | PUSHs(sv_2mortal(newSViv(level))); |
103 | PUSHs (sv_2mortal (newSViv (level))); |
| 104 | |
104 | |
| 105 | PUTBACK; (void) perl_call_sv ((SV *)cb, G_VOID|G_DISCARD); SPAGAIN; |
105 | PUTBACK; (void) perl_call_sv ((SV *)cb, G_VOID|G_DISCARD); SPAGAIN; |
| 106 | PUTBACK; FREETMPS; LEAVE; |
106 | PUTBACK; FREETMPS; LEAVE; |
| 107 | } |
107 | } |
| 108 | |
108 | |
| … | |
… | |
| 111 | { |
111 | { |
| 112 | dSP; |
112 | dSP; |
| 113 | int count; |
113 | int count; |
| 114 | int retval; |
114 | int retval; |
| 115 | |
115 | |
| 116 | ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,6); |
116 | ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 6); |
| 117 | |
117 | |
| 118 | PUSHs(sv_2mortal(newSViv(uup->action))); |
118 | PUSHs (sv_2mortal (newSViv (uup->action))); |
| 119 | PUSHs(sv_2mortal(newSVpv(uup->curfile,0))); |
119 | PUSHs (sv_2mortal (newSVpv (uup->curfile, 0))); |
| 120 | PUSHs(sv_2mortal(newSViv(uup->partno))); |
120 | PUSHs (sv_2mortal (newSViv (uup->partno))); |
| 121 | PUSHs(sv_2mortal(newSViv(uup->numparts))); |
121 | PUSHs (sv_2mortal (newSViv (uup->numparts))); |
| 122 | PUSHs(sv_2mortal(newSViv(uup->fsize))); |
122 | PUSHs (sv_2mortal (newSViv (uup->fsize))); |
| 123 | PUSHs(sv_2mortal(newSViv(uup->percent))); |
123 | PUSHs (sv_2mortal (newSViv (uup->percent))); |
| 124 | |
124 | |
| 125 | PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; |
125 | PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; |
| 126 | |
126 | |
| 127 | if (count != 1) |
127 | if (count != 1) |
| 128 | croak ("busycallback perl callback returned more than one argument"); |
128 | croak ("busycallback perl callback returned more than one argument"); |
| … | |
… | |
| 139 | { |
139 | { |
| 140 | dSP; |
140 | dSP; |
| 141 | int count; |
141 | int count; |
| 142 | static char *str; |
142 | static char *str; |
| 143 | |
143 | |
| 144 | ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,1); |
144 | ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 1); |
| 145 | |
145 | |
| 146 | PUSHs(sv_2mortal(newSVpv(fname,0))); |
146 | PUSHs (sv_2mortal (newSVpv (fname, 0))); |
| 147 | |
147 | |
| 148 | PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; |
148 | PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; |
| 149 | |
149 | |
| 150 | if (count != 1) |
150 | if (count != 1) |
| 151 | croak ("fnamefilter perl callback returned more than one argument"); |
151 | croak ("fnamefilter perl callback returned more than one argument"); |
| … | |
… | |
| 164 | int count; |
164 | int count; |
| 165 | int retval; |
165 | int retval; |
| 166 | SV *xfname = newSVpv ("", 0); |
166 | SV *xfname = newSVpv ("", 0); |
| 167 | STRLEN dc; |
167 | STRLEN dc; |
| 168 | |
168 | |
| 169 | ENTER; SAVETMPS; PUSHMARK(SP); EXTEND(SP,3); |
169 | ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 3); |
| 170 | |
170 | |
| 171 | PUSHs(sv_2mortal(newSVpv(id,0))); |
171 | PUSHs (sv_2mortal (newSVpv (id, 0))); |
| 172 | PUSHs(sv_2mortal(xfname)); |
172 | PUSHs (sv_2mortal (xfname)); |
| 173 | PUSHs(sv_2mortal(newSViv(retrieve))); |
173 | PUSHs (sv_2mortal (newSViv (retrieve))); |
| 174 | |
174 | |
| 175 | PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; |
175 | PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; |
| 176 | |
176 | |
| 177 | if (count != 1) |
177 | if (count != 1) |
| 178 | croak ("filecallback perl callback returned more than one argument"); |
178 | croak ("filecallback perl callback returned more than one argument"); |
| … | |
… | |
| 389 | int delflag |
389 | int delflag |
| 390 | PPCODE: |
390 | PPCODE: |
| 391 | { |
391 | { |
| 392 | int count; |
392 | int count; |
| 393 | |
393 | |
| 394 | XPUSHs(sv_2mortal(newSViv(UULoadFile (fname, id, delflag, partno, &count)))); |
394 | XPUSHs (sv_2mortal (newSViv (UULoadFileWithPartNo (fname, id, delflag, partno, &count)))); |
| 395 | if (GIMME_V == G_ARRAY) |
395 | if (GIMME_V == G_ARRAY) |
| 396 | XPUSHs(sv_2mortal(newSViv(count))); |
396 | XPUSHs (sv_2mortal (newSViv (count))); |
| 397 | } |
397 | } |
| 398 | |
398 | |
| 399 | int |
399 | int |
| 400 | UUSmerge (pass) |
400 | UUSmerge (pass) |
| 401 | int pass |
401 | int pass |
