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.52 by root, Mon Mar 16 23:54:29 2020 UTC vs.
Revision 1.54 by root, Sat Dec 12 10:48:39 2020 UTC

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