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

Comparing Convert-UUlib/example-decoder (file contents):
Revision 1.19 by root, Mon Aug 24 04:38:23 2009 UTC vs.
Revision 1.21 by root, Tue Dec 14 21:19:33 2010 UTC

… …
20 0 20 0
21} 21}
22 22
23SetOption OPT_RBUF, 128*1024; 23SetOption OPT_RBUF, 128*1024;
24SetOption OPT_WBUF, 1024*1024; 24SetOption OPT_WBUF, 1024*1024;
25SetOption OPT_IGNMODE, 1;
26SetOption OPT_IGNMODE, 1; 25SetOption OPT_IGNMODE, 1;
27SetOption OPT_VERBOSE, 1; 26SetOption OPT_VERBOSE, 1;
28SetOption OPT_DOTDOT, 1; 27SetOption OPT_DOTDOT, 1;
29SetOption OPT_AUTOCHECK, 0; 28SetOption OPT_AUTOCHECK, 0;
30 29
… …
81for(<uusrc/*>) { 80for(<uusrc/*>) {
82 my ($retval, $count) = LoadFile ($_, $_, 1); 81 my ($retval, $count) = LoadFile ($_, $_, 1);
83 print "file($_), status(", strerror $retval, ") parts($count)\n"; 82 print "file($_), status(", strerror $retval, ") parts($count)\n";
84} 83}
85 84
86CheckGlobalList; 85Smerge -1;
87 86
88SetOption OPT_SAVEPATH, "uudst/"; 87SetOption OPT_SAVEPATH, "uudst/";
89 88
90# now wade through all files and their source parts 89# now wade through all files and their source parts
91$i = 0; 90$i = 0;
… …
112 111
113 print $uu->filename; 112 print $uu->filename;
114 113
115 $uu->remove_temp; 114 $uu->remove_temp;
116 115
116 print "<s", $uu->state, ">";#d#
117 if (my $err = $uu->decode) { 117 if (my $err = $uu->decode) {
118 print ", ", strerror $err, "\n"; 118 print ", ", strerror $err, "\n";
119 } else { 119 } else {
120 print ", saved as uudst/", $uu->filename, "\n"; 120 print ", saved as uudst/", $uu->filename, "\n";
121 } 121 }

Diff Legend

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