Lines Matching refs:tc
38 the size of two similar termcap entries with the "tc" option.
63 my $tc = "";
68 $tc .= $l;
71 $tc =~ s/:\\\s+:/:/g;
73 my @a = split(/:/, $tc);
77 $tcs{$b[0]} = $tc;
79 $tcs{$a[0]} = $tc;
81 if (length($tc) - length($a[0]) > 1023) {
82 print "$a[0] has a length of ", length($tc) - length($a[0]), "\n";
85 $tc = "";
88 my %tc = ();
96 foreach my $tc (split(/:/, $tcs{$tcs})) {
98 foreach my $ref (split(/\|/, $tc)) {
103 next if ($tc =~ /^\\/);
104 $tc{$tcs}{$tc} = 0 if (!defined $tc{$tcs}{$tc});
105 $tc{$tcs}{$tc}++;
106 $len{$tcs} += length($tc) + 1;
107 $keys{$tc} = 0;
119 next if (!defined $tc{$tca}{$key} && !defined $tc{$tcb}{$key});
121 defined $tc{$tca}{$key} ? "+" : "",
122 defined $tc{$tcb}{$key} ? "+" : "",
140 next if (!defined $tc{$tca}{$key});
146 foreach my $key (keys(%{$tc{$tca}})) {
147 next if ($key !~ /^tc=/);
148 $key =~ s/tc=//;
154 foreach my $tc (sort(keys(%tcs))) {
155 if (defined $tc{$tc}{"tc=$ref"}) {
161 print "$ref -> $tc\n";