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.20 by root, Fri Feb 28 17:33:09 2020 UTC vs.
Revision 1.22 by root, Fri Dec 11 20:09:22 2020 UTC

84 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN; 84 PUTBACK; count = perl_call_sv ((SV *)cb, G_SCALAR); SPAGAIN;
85 85
86 if (count != 1) 86 if (count != 1)
87 croak ("fnamefilter perl callback MUST return a single filename exactly"); 87 croak ("fnamefilter perl callback MUST return a single filename exactly");
88 88
89 _FP_free (str); str = _FP_strdup (SvPV_nolen (TOPs)); 89 FP_free (str); str = FP_strdup (SvPV_nolen (TOPs));
90 90
91 PUTBACK; FREETMPS; LEAVE; 91 PUTBACK; FREETMPS; LEAVE;
92 92
93 } TEMP_RELEASE; 93 } TEMP_RELEASE;
94 94
145 if (count > 1) 145 if (count > 1)
146 croak ("filenamecallback perl callback must return nothing or a single filename"); 146 croak ("filenamecallback perl callback must return nothing or a single filename");
147 147
148 if (count) 148 if (count)
149 { 149 {
150 _FP_free (filename); 150 FP_free (filename);
151 151
152 filename = SvOK (TOPs) 152 filename = SvOK (TOPs)
153 ? _FP_strdup (SvPV_nolen (TOPs)) 153 ? FP_strdup (SvPV_nolen (TOPs))
154 : 0; 154 : 0;
155 } 155 }
156 156
157 PUTBACK; FREETMPS; LEAVE; 157 PUTBACK; FREETMPS; LEAVE;
158 158
408 int num 408 int num
409 409
410void 410void
411GetFileList () 411GetFileList ()
412 PPCODE: 412 PPCODE:
413{
414 uulist *iter;
415
413 for (uulist *iter = UUGlobalFileList; iter; iter = iter->NEXT) 416 for (iter = UUGlobalFileList; iter; iter = iter->NEXT)
414 XPUSHs (sv_setref_pv (sv_newmortal (), "Convert::UUlib::Item", iter)); 417 XPUSHs (sv_setref_pv (sv_newmortal (), "Convert::UUlib::Item", iter));
418}
415 419
416MODULE = Convert::UUlib PACKAGE = Convert::UUlib::Item 420MODULE = Convert::UUlib PACKAGE = Convert::UUlib::Item
417 421
418int 422int
419rename (item, newname) 423rename (item, newname)
504 uulist *li 508 uulist *li
505 char * newfilename 509 char * newfilename
506 CODE: 510 CODE:
507 if (newfilename) 511 if (newfilename)
508 { 512 {
509 _FP_free (li->filename); 513 FP_free (li->filename);
510 li->filename = _FP_strdup (newfilename); 514 li->filename = FP_strdup (newfilename);
511 } 515 }
512 RETVAL = li->filename; 516 RETVAL = li->filename;
513 OUTPUT: 517 OUTPUT:
514 RETVAL 518 RETVAL
515 519

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines