Lines Matching full:my
15 my $extra = 0 ;
25 my $OriginalContent1 = <<EOM ;
31 my $OriginalContent2 = <<EOM ;
40 my $CompressClass = identify();
41 my $UncompressClass = getInverse($CompressClass);
42 my $Error = getErrorRef($CompressClass);
43 my $UnError = getErrorRef($UncompressClass);
44 my $TopFuncName = getTopFuncName($CompressClass);
47 my @MultiValues = getMultiValues($CompressClass);
49 foreach my $bit ($CompressClass, $UncompressClass,
53 my $Error = getErrorRef($bit);
54 my $Func = getTopFuncRef($bit);
55 my $TopType = getTopFuncName($bit);
57 #my $inverse = getInverse($bit);
58 #my $InverseFunc = getTopFuncRef($inverse);
62 my $a;
63 my $x ;
74 my $in ;
85 my $lex1 = LexFile->new( my $in );
87 my $out = $in ;
94 my $dir ;
95 my $lex = LexDir->new( $dir );
96 my $d = quotemeta $dir;
121 my $lex = LexFile->new( my $out_file );
132 my %x = () ;
133 my $object = bless \%x, "someClass" ;
157 my $filename = 'abc.def';
180 foreach my $bit ($UncompressClass,
184 my $Error = getErrorRef($bit);
185 my $Func = getTopFuncRef($bit);
186 my $TopType = getTopFuncName($bit);
189 my $in ;
190 my $out ;
191 my @x ;
214 foreach my $bit ($UncompressClass,
218 my $Error = getErrorRef($bit);
219 my $Func = getTopFuncRef($bit);
220 my $TopType = getTopFuncName($bit);
222 my $data = "mary had a little lamb" ;
223 my $keep = $data ;
225 for my $trans ( 0, 1)
228 my $a;
229 my $x ;
230 my $out = '' ;
251 foreach my $bit ($CompressClass
254 my $Error = getErrorRef($bit);
255 my $Func = getTopFuncRef($bit);
256 my $TopType = getTopFuncName($bit);
257 my $TopTypeInverse = getInverse($bit);
258 my $FuncInverse = getTopFuncRef($TopTypeInverse);
259 my $ErrorInverse = getErrorRef($TopTypeInverse);
263 my $data = "abcd" x 100 ;
264 my $out;
272 my $result;
283 foreach my $bit ($CompressClass
286 my $Error = getErrorRef($bit);
287 my $Func = getTopFuncRef($bit);
288 my $TopType = getTopFuncName($bit);
289 my $TopTypeInverse = getInverse($bit);
290 my $FuncInverse = getTopFuncRef($TopTypeInverse);
292 my @opts = ();
296 for my $append ( 1, 0 )
298 my $already = '';
301 for my $buffer ( undef, '', $OriginalContent1 )
303 my $disp_content = defined $buffer ? $buffer : '<undef>' ;
305 my $keep = $buffer;
306 my $out_file = "abcde.out";
307 my $in_file = "abcde.in";
312 my $output = $already;
316 my $got = anyUncompress(\$output, $already);
325 my @output = ('first') ;
330 my $got = anyUncompress($output[1]);
338 my $lex = LexFile->new( my $in_file );
340 my @output = ('first') ;
341 my @input = ($in_file);
345 my $got = anyUncompress($output[1]);
353 my $lex = LexFile->new( my $out_file );
360 my $got = anyUncompress($out_file, $already);
368 my $lex = LexFile->new( my $out_file );
372 my $of = IO::File->new( ">>$out_file" );
378 my $got = anyUncompress($out_file, $already);
387 my $lex = LexFile->new( my $in_file, my $out_file) ;
396 my $got = anyUncompress($out_file, $already);
405 my $lex = LexFile->new( my $in_file, my $out_file) ;
410 my $out = IO::File->new( ">>$out_file" );
415 my $got = anyUncompress($out_file, $already);
424 my $lex = LexFile->new( my $in_file, my $out_file) ;
427 my $out = $already;
431 my $got = anyUncompress(\$out, $already);
440 my $lex = LexFile->new( my $in_file, my $out_file) ;
442 my $in = IO::File->new( "<$in_file" );
451 my $got = anyUncompress($out_file, $already);
460 my $lex = LexFile->new( my $in_file, my $out_file) ;
462 my $in = IO::File->new( "<$in_file" );
466 my $out = IO::File->new( ">>$out_file" );
471 my $got = anyUncompress($out_file, $already);
480 my $lex = LexFile->new( my $in_file, my $out_file) ;
482 my $in = IO::File->new( "<$in_file" );
484 my $out = $already ;
488 my $got = anyUncompress(\$out, $already);
502 my $lex = LexFile->new( my $in_file, my $out_file) ;
507 my $dummy = fileno SAVEIN ;
510 my $out = $already;
517 my $got = anyUncompress(\$out, $already);
527 foreach my $bit ($CompressClass)
529 my $Error = getErrorRef($bit);
530 my $Func = getTopFuncRef($bit);
531 my $TopType = getTopFuncName($bit);
533 my $TopTypeInverse = getInverse($bit);
534 my $FuncInverse = getTopFuncRef($TopTypeInverse);
535 my $ErrorInverse = getErrorRef($TopTypeInverse);
537 my $lex = LexFile->new( my $file1, my $file2) ;
541 my $of = IO::File->new( "<$file1" );
544 #my @input = ( undef, "", $file2, \undef, \'', \"abcde", $of) ;
545 #my @expected = ("", "", $file2, "", "", "abcde", $OriginalContent1);
546 #my @uexpected = ("", "", $OriginalContent2, "", "", "abcde", $OriginalContent1);
547 #my @input = ( $file2, \"abcde", $of) ;
548 #my @expected = ( $file2, "abcde", $OriginalContent1);
549 #my @uexpected = ($OriginalContent2, "abcde", $OriginalContent1);
551 my @input = ( $file1, $file2) ;
552 #my @expected = ( $file1, $file2);
553 my @expected = ($OriginalContent1, $OriginalContent2);
554 my @uexpected = ($OriginalContent1, $OriginalContent2);
556 my @keep = @input ;
561 my @output = ('first') ;
567 my @got = shift @output;
574 foreach my $ms (@MultiValues)
582 my $output ;
586 my $got = anyUncompress([ \$output, MultiStream => $ms ]);
589 my @headers = getHeaders(\$output);
596 my $lex = LexFile->new( my $file3) ;
601 my $output ;
604 my $got = anyUncompress([ $file3, MultiStream => $ms ]);
607 my @headers = getHeaders($file3);
614 my $lex = LexFile->new( my $file3) ;
616 my $fh3 = IO::File->new( ">$file3" );
621 my $output ;
626 my $got = anyUncompress([ $file3, MultiStream => $ms ]);
629 my @headers = getHeaders($file3);
639 my @in ;
644 my $out;
653 my $got;
654 my $status ;
663 foreach my $bit ($CompressClass)
666 my $Error = getErrorRef($bit);
667 my $Func = getTopFuncRef($bit);
668 my $TopType = getTopFuncName($bit);
670 my $TopTypeInverse = getInverse($bit);
671 my $FuncInverse = getTopFuncRef($TopTypeInverse);
672 my $ErrorInverse = getErrorRef($TopTypeInverse);
676 my $lex = LexFile->new( my $file1, my $file2, my $file3) ;
678 my $original = join '', map { chr } 0x00 .. 0xff ;
690 foreach my $bit ($UncompressClass,
694 my $Error = getErrorRef($bit);
695 my $Func = getTopFuncRef($bit);
696 my $TopType = getTopFuncName($bit);
697 my $CompressClass = getInverse($bit);
698 my $C_Func = getTopFuncRef($CompressClass);
702 my $data = "mary had a little lamb" ;
703 my $keep = $data ;
704 my $extra = "after the main event";
707 foreach my $fb ( qw( filehandle buffer ) )
714 my $lex = LexFile->new( my $name );
715 my $input ;
717 my $compressed ;
732 my $trailing;
733 my $out;
737 my $rest = '';
749 # foreach my $bit ($CompressClass)
751 # my $Error = getErrorRef($bit);
752 # my $Func = getTopFuncRef($bit);
753 # my $TopType = getTopFuncName($bit);
755 # my $TopTypeInverse = getInverse($bit);
756 # my $FuncInverse = getTopFuncRef($TopTypeInverse);
758 # my @inFiles = map { "in$_.tmp" } 1..4;
759 # my @outFiles = map { "out$_.tmp" } 1..4;
760 # my $lex = LexFile->new( @inFiles, @outFiles);
767 # my $output ;
774 # my $got = anyUncompress($outFiles[$_]);
782 # my @buffer ;
789 # my $got = anyUncompress(\$buffer[$_]);
797 # my @buffer ;
798 # my %hash = ( $inFiles[0] => undef,
807 # my $got = anyUncompress(\$hash{$_});
815 # my %output ;
819 # my ($k, $v) = each %output;
821 # my $got = anyUncompress($v);
828 # my %output ;
832 # foreach my $fil (@inFiles)
835 # my $got = anyUncompress($output{$fil});
843 # foreach my $bit ($CompressClass)
845 # my $Error = getErrorRef($bit);
846 # my $Func = getTopFuncRef($bit);
847 # my $TopType = getTopFuncName($bit);
849 # my $TopTypeInverse = getInverse($bit);
850 # my $FuncInverse = getTopFuncRef($TopTypeInverse);
852 # my @inFiles = map { "in$_.tmp" } 1..4;
853 # my @outFiles = map { "out$_.tmp" } 1..4;
854 # my $lex = LexFile->new( @inFiles, @outFiles);
864 # # my @output = ('first') ;
870 # # my @got = shift @output;
884 # # my $output ;
887 # # my $got = anyUncompress(\$output);
896 # # my ($file3) = ("file3");
897 # # my $lex = LexFile->new( $file3) ;
902 # # my $output ;
905 # # my $got = anyUncompress($file3);
914 # # my ($file3) = ("file3");
915 # # my $lex = LexFile->new( $file3) ;
917 # # my $fh3 = IO::File->new( ">$file3" );
922 # # my $output ;
927 # # my $got = anyUncompress($file3);
933 foreach my $bit ($CompressClass
936 my $Error = getErrorRef($bit);
937 my $Func = getTopFuncRef($bit);
938 my $TopType = getTopFuncName($bit);
940 for my $files ( [qw(a1)], [qw(a1 a2 a3)] )
943 my $tmpDir1 ;
944 my $tmpDir2 ;
945 my $lex = LexDir->new($tmpDir1, $tmpDir2) ;
946 my $d1 = quotemeta $tmpDir1 ;
947 my $d2 = quotemeta $tmpDir2 ;
951 my @files = map { "$tmpDir1/$_.tmp" } @$files ;
954 my @expected = map { "abc $_" } @files ;
955 my @outFiles = map { s/$d1/$tmpDir2/; $_ } @files ;
963 my @copy = @expected;
964 for my $file (@outFiles)
975 my @buffer = ('first') ;
981 my @copy = @expected;
982 for my $buffer (@buffer)
990 foreach my $ms (@MultiValues)
995 my $buffer ;
1002 my $got = anyUncompress([ \$buffer, MultiStream => $ms ]);
1005 my @headers = getHeaders(\$buffer);
1012 my $lex = LexFile->new( my $filename) ;
1020 my $got = anyUncompress([$filename, MultiStream => $ms]);
1023 my @headers = getHeaders($filename);
1030 my $lex = LexFile->new( my $filename) ;
1031 my $fh = IO::File->new( ">$filename" );
1039 my $got = anyUncompress([$filename, MultiStream => $ms]);
1042 my @headers = getHeaders($filename);
1050 foreach my $bit ($UncompressClass,
1054 my $Error = getErrorRef($bit);
1055 my $Func = getTopFuncRef($bit);
1056 my $TopType = getTopFuncName($bit);
1058 my $buffer = $OriginalContent1;
1059 my $buffer2 = $OriginalContent2;
1060 my $keep_orig = $buffer;
1062 my $comp = compressBuffer($UncompressClass, $buffer) ;
1063 my $comp2 = compressBuffer($UncompressClass, $buffer2) ;
1064 my $keep_comp = $comp;
1066 my $incumbent = "incumbent data" ;
1068 my @opts = (Strict => 1);
1072 for my $append (0, 1)
1074 my $expected = $buffer ;
1080 my $output ;
1091 my @output = ('first');
1105 my $lex = LexFile->new( my $out_file) ;
1114 my $content = readFile($out_file) ;
1123 my $lex = LexFile->new( my $out_file) ;
1124 my $of ;
1138 my $content = readFile($out_file) ;
1147 my $lex = LexFile->new( my $in_file, my $out_file) ;
1158 my $content = readFile($out_file) ;
1167 my $lex = LexFile->new( my $in_file, my $out_file) ;
1168 my $out ;
1184 my $content = readFile($out_file) ;
1193 my $lex = LexFile->new( my $in_file) ;
1196 my $output ;
1208 my $lex = LexFile->new( my $in_file, my $out_file) ;
1215 my $in = IO::File->new( "<$in_file" );
1220 my $content = readFile($out_file) ;
1229 my $lex = LexFile->new( my $in_file, my $out_file) ;
1230 my $out ;
1242 my $in = IO::File->new( "<$in_file" );
1247 my $content = readFile($out_file) ;
1256 my $lex = LexFile->new( my $in_file) ;
1258 my $in = IO::File->new( "<$in_file" );
1260 my $output ;
1277 my $lex = LexFile->new( my $in_file) ;
1282 my $dummy = fileno SAVEIN ;
1285 my $output ;
1301 my $lex = LexFile->new( my $in_file, my $out_file) ;
1302 my $out ;
1304 my $expected = $buffer ;
1305 my $appended = 'appended';
1306 my $len_appended = length $appended;
1308 my $in = IO::File->new( "<$in_file" );
1314 my $buff;
1335 for my $stdin ('-', *STDIN) # , \*STDIN)
1341 my $lex = LexFile->new( my $in_file );
1342 my $expected = $buffer ;
1343 my $appended = 'appended';
1344 my $len_appended = length $appended;
1348 my $dummy = fileno SAVEIN ;
1351 my $output ;
1356 my $buff ;
1367 foreach my $bit ($UncompressClass,
1373 my $Error = getErrorRef($bit);
1374 my $Func = getTopFuncRef($bit);
1375 my $TopType = getTopFuncName($bit);
1377 my $buffer = "abcde" ;
1378 my $keep_orig = $buffer;
1380 my $null = compressBuffer($UncompressClass, "") ;
1381 my $undef = compressBuffer($UncompressClass, undef) ;
1382 my $comp = compressBuffer($UncompressClass, $buffer) ;
1383 my $keep_comp = $comp;
1385 my @opts = ();
1389 my $incumbent = "incumbent data" ;
1391 my $lex = LexFile->new( my $file1, my $file2) ;
1396 my $of = IO::File->new( "<$file1" );
1399 #my @input = ($file2, \$undef, \$null, \$comp, $of) ;
1400 #my @expected = ('data2', '', '', 'abcde', 'data1');
1401 my @input = ($file1, $file2);
1402 my @expected = ($OriginalContent1, $OriginalContent2);
1404 my @keep = @input ;
1409 my $output ;
1418 my $lex = LexFile->new( my $output );
1429 my $lex = LexFile->new( my $output );
1430 my $fh = IO::File->new( ">$output" );
1442 my @output = (\'first') ;
1454 foreach my $bit ($UncompressClass,
1460 my $Error = getErrorRef($bit);
1461 my $Func = getTopFuncRef($bit);
1462 my $TopType = getTopFuncName($bit);
1464 my $tmpDir1 ;
1465 my $tmpDir2 ;
1466 my $lex = LexDir->new($tmpDir1, $tmpDir2) ;
1467 my $d1 = quotemeta $tmpDir1 ;
1468 my $d2 = quotemeta $tmpDir2 ;
1470 my @opts = ();
1476 my @files = map { "$tmpDir1/$_.tmp" } qw( a1 a2 a3) ;
1479 my @expected = map { "abc $_" } @files ;
1480 my @outFiles = map { s/$d1/$tmpDir2/; $_ } @files ;
1488 my @copy = @expected;
1489 for my $file (@outFiles)
1500 my @output = (\'first');
1504 my @copy = ('first', @expected);
1505 for my $data (@output)
1516 my $output ;
1526 my $lex = LexFile->new( my $output );
1538 my $lex = LexFile->new( my $output );
1539 my $fh = IO::File->new( ">$output" );
1549 foreach my $TopType ($CompressClass
1553 my $Error = getErrorRef($TopType);
1554 my $Func = getTopFuncRef($TopType);
1555 my $Name = getTopFuncName($TopType);
1559 my $lex = LexFile->new( my $file1, my $file2, my $file3) ;
1565 # my @data = (
1572 # foreach my $data (@data)
1574 # my ($send, $get) = @$data ;
1576 # my $fh1 = IO::File->new( "< $file1" );
1577 # my $fh2 = IO::File->new( "< $file2" );
1578 # my $fh3 = IO::File->new( "< $file3" );
1581 # my ($copy);
1583 # my $Answer ;
1586 # my $got = anyUncompress(\$Answer);
1595 my @data = (
1608 foreach my $data (@data)
1610 my ($send, $get) = @$data ;
1612 my $fh1 = IO::File->new( "< $file1" );
1613 my $fh2 = IO::File->new( "< $file2" );
1614 my $fh3 = IO::File->new( "< $file3" );
1617 my($copy);
1619 my $Answer ;
1620 my $a ;
1634 foreach my $send (@data)
1637 my($copy);
1639 my $Answer ;
1651 my $CompFunc = getTopFuncRef($CompressClass);
1652 my $UncompFunc = getTopFuncRef($UncompressClass);
1653 my $lex = LexFile->new( my $file );
1656 my $input = "hello world";
1657 my $compressed ;
1658 my $output;
1661 my $content = readFile($file) ;
1673 my $CompFunc = getTopFuncRef($CompressClass);
1674 my $UncompFunc = getTopFuncRef($UncompressClass);
1676 my $input = "hello world";
1677 my $compressed ;
1678 ok open my $fh_in1, '<', \$input ;
1679 ok open my $fh_out1, '>', \$compressed ;
1682 my $output;
1683 ok open my $fh_in2, '<', \$compressed ;
1684 ok open my $fh_out2, '>', \$output ;