Lines Matching refs:leaf

563 my %leaf;
720 	if (!defined($leaf{$leave})) {
723 	my @expr = @{$leaf{$leave}->{expr}};
724 	die ("\rmissing rules for $leave") if (!defined($leaf{$leave}));
751 		my @expr = @{$leaf{"others"}->{expr}};
765 		my $what = $leaf{$leave}->{what};
838 	$leaf{"others"}->{what} = "";
909 				if (defined($leaf{$l})) {
910 					next if ($leaf{$l}->{what} =~ m/\b$what\b/);
911 					$leaf{$l}->{what} .= "\xac" . $what;
914 					$leaf{$l}->{what} = $what;
925 	foreach my $l (sort keys %leaf) {
927 		foreach my $w(sort split /\xac/, $leaf{$l}->{what}) {
930 		$leaf{$l}->{expr} = \@expr;