ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/Convert-UUlib/UUlib.pm
(Generate patch)

Comparing Convert-UUlib/UUlib.pm (file contents):
Revision 1.50 by root, Fri Feb 28 18:02:01 2020 UTC vs.
Revision 1.54 by root, Sat Dec 12 10:48:39 2020 UTC

5use Carp; 5use Carp;
6 6
7require Exporter; 7require Exporter;
8require DynaLoader; 8require DynaLoader;
9 9
10our $VERSION = 1.62; 10our $VERSION = 1.71;
11 11
12our @ISA = qw(Exporter DynaLoader); 12our @ISA = qw(Exporter DynaLoader);
13 13
14our @_consts = qw( 14our @_consts = qw(
15 ACT_COPYING ACT_DECODING ACT_ENCODING ACT_IDLE ACT_SCANNING 15 ACT_COPYING ACT_DECODING ACT_ENCODING ACT_IDLE ACT_SCANNING
292if you want to iterate over all items, it is usually faster to use 292if you want to iterate over all items, it is usually faster to use
293C<GetFileList>. 293C<GetFileList>.
294 294
295=item @items = GetFileList 295=item @items = GetFileList
296 296
297Similar to C<GetFileListItem>, but returns all files in one go. 297Similar to C<GetFileListItem>, but returns all files in one go, which is
298very much faster for large number of items, and has no drawbacks when used
299for a small number of items.
298 300
299=back 301=back
300 302
301=head2 Decoding files 303=head2 Decoding files
302 304
482 SetOption OPT_RBUF, 128*1024; 484 SetOption OPT_RBUF, 128*1024;
483 SetOption OPT_WBUF, 1024*1024; 485 SetOption OPT_WBUF, 1024*1024;
484 SetOption OPT_IGNMODE, 1; 486 SetOption OPT_IGNMODE, 1;
485 SetOption OPT_IGNMODE, 1; 487 SetOption OPT_IGNMODE, 1;
486 SetOption OPT_VERBOSE, 1; 488 SetOption OPT_VERBOSE, 1;
489 SetOption OPT_AUTOCHK, 0;
487 490
488 # show the three ways you can set callback functions. I normally 491 # show the three ways you can set callback functions. I normally
489 # prefer the one with the sub inplace. 492 # prefer the one with the sub inplace.
490 SetFNameFilter \&namefilter; 493 SetFNameFilter \&namefilter;
491 494
529 # now read all files in the directory uusrc/* 532 # now read all files in the directory uusrc/*
530 for (<uusrc/*>) { 533 for (<uusrc/*>) {
531 my ($retval, $count) = LoadFile ($_, $_, 1); 534 my ($retval, $count) = LoadFile ($_, $_, 1);
532 print "file($_), status(", strerror $retval, ") parts($count)\n"; 535 print "file($_), status(", strerror $retval, ") parts($count)\n";
533 } 536 }
537
538 Smerge -1;
534 539
535 SetOption OPT_SAVEPATH, "uudst/"; 540 SetOption OPT_SAVEPATH, "uudst/";
536 541
537 # now wade through all files and their source parts 542 # now wade through all files and their source parts
538 for my $uu (GetFileList) { 543 for my $uu (GetFileList) {

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines