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.22 by root, Fri Dec 11 20:09:22 2020 UTC vs.
Revision 1.25 by root, Sat Sep 24 17:40:45 2022 UTC

… …
4 4
5#include "perlmulticore.h" 5#include "perlmulticore.h"
6 6
7#include "uulib/fptools.h" 7#include "uulib/fptools.h"
8#include "uulib/uudeview.h" 8#include "uulib/uudeview.h"
9#include "uulib/uuint.h"
10 9
11static int perlinterp_released; 10static int perlinterp_released;
12 11
13#define RELEASE do { perlinterp_released = 1; perlinterp_release (); } while (0) 12#define RELEASE do { perlinterp_released = 1; perlinterp_release (); } while (0)
14#define ACQUIRE do { perlinterp_acquire (); perlinterp_released = 0; } while (0) 13#define ACQUIRE do { perlinterp_acquire (); perlinterp_released = 0; } while (0)
… …
135 dSP; 134 dSP;
136 int count; 135 int count;
137 136
138 ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 2); 137 ENTER; SAVETMPS; PUSHMARK (SP); EXTEND (SP, 2);
139 138
140 PUSHs (sv_2mortal(newSVpv(subject, 0))); 139 PUSHs (sv_2mortal (newSVpv (subject, 0)));
141 PUSHs (filename ? sv_2mortal(newSVpv(filename, 0)) : &PL_sv_undef); 140 PUSHs (filename ? sv_2mortal (newSVpv (filename, 0)) : &PL_sv_undef);
142 141
143 PUTBACK; count = perl_call_sv ((SV *)cb, G_ARRAY); SPAGAIN; 142 PUTBACK; count = perl_call_sv ((SV *)cb, G_ARRAY); SPAGAIN;
144 143
145 if (count > 1) 144 if (count > 1)
146 croak ("filenamecallback perl callback must return nothing or a single filename"); 145 croak ("filenamecallback perl callback must return nothing or a single filename");
… …
343 char * outfname 342 char * outfname
344 char * mimetype 343 char * mimetype
345 int filemode 344 int filemode
346 345
347int 346int
348UUEncodePartial(outfile,infile,infname,encoding,outfname,mimetype,filemode,partno,linperfile) 347UUEncodePartial(outfile,infile,infname,encoding,outfname,mimetype,filemode,partno,linperfile,crc)
349 FILE * outfile 348 FILE * outfile
350 FILE * infile 349 FILE * infile
351 char * infname 350 char * infname
352 int encoding 351 int encoding
353 char * outfname 352 char * outfname
354 char * mimetype 353 char * mimetype
355 int filemode 354 int filemode
356 int partno 355 int partno
357 long linperfile 356 long linperfile
357 U32 &crc
358 OUTPUT:
359 RETVAL
360 crc
358 361
359int 362int
360UUEncodeToStream(outfile,infile,infname,encoding,outfname,filemode) 363UUEncodeToStream(outfile,infile,infname,encoding,outfname,filemode)
361 FILE * outfile 364 FILE * outfile
362 FILE * infile 365 FILE * infile

Diff Legend

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