Cross Reference: /osnet-11/usr/src/cmd/perl/5.8.4/distrib/lib/unicore/mktables

Lines Matching refs:Type
124     my $Type = shift; ## "Is" or "In";
137     if (%Args or ($Type ne 'Is' and $Type ne 'In') or not ref $Table) {
141     if (not $TableInfo{$Type}->{$Name})
143         $TableInfo{$Type}->{$Name} = $Table;
144         $TableDesc{$Type}->{$Name} = $Desc;
146             $FuzzyNames{$Type}->{$Name} = $Name;
173     for my $Type ('Is', 'In')
175         if (my $Name = delete $Args{$Type}) {
176             New_Prop($Type => $Name, $Table, Desc => $Desc, Fuzzy => $Fuzzy);
491     my $Type   = shift; ## "Is" or "In"
502     if (%Args or ($Type ne 'Is' and $Type ne 'In') or $SameAs ne 'SameAs') {
508     if (not $TableInfo{$Type}->{$Name})
511         if ($TableInfo{$Type}->{$CName}) {
514             confess "$0: don't have orignial $Type => $Name to make alias";
518         confess "$0: already have original $Type => $Alias; can't make alias";
520     $AliasInfo{$Type}->{$Name} = $Alias;
522         $FuzzyNames{$Type}->{$Alias} = $Name;
1362     my $Type     = shift;
1368     ## Now in details for the mapping. $Type eq 'Is' has the
1376         if ($Type eq 'Is') {
1380             die "oops[$Type$Name]" if $Exact{"$Type$Name"};
1381             $Exact{"$Type$Name"} = $filename;
1388         if ($Type eq 'Is') {
1393             die "oops[$Type$CName]" if $Canonical{lc "$Type$CName"};
1394             $Canonical{lc "$Type$CName"} = $filename;
1395             $CaComment{lc "$Type$CName"} = "$Type$Name";
1398                 $CaComment{$CName} = "$Type$Name";
1419     for my $Type ('Is', 'In')
1421         my %RawNameToFile; ## a per-$Type cache
1423         for my $Name (sort {length $a <=> length $b} keys %{$TableInfo{$Type}})
1426             my $Table   = $TableInfo{$Type}->{$Name};
1427             my $IsFuzzy = $FuzzyNames{$Type}->{$Name};
1433                 $filename = $Type eq 'Is' ? $Name : "$Type$Name";
1469                 my $Desc = $TableDesc{$Type}->{$Name} || "";
1472                 while (my ($Orig, $Alias) = each %{ $AliasInfo{$Type} })
1479                 my $TypeToShow = $Type eq 'Is' ? "" : $Type;
1485                     my $IsFuzzy = $FuzzyNames{$Type}->{$N};
1510             RegisterFileForName($Type => $Name, $IsFuzzy, $filename);
1514                 my $CName = CanonicalName($Type . '_'. $Name);
1524         for my $Name (sort {length $a <=> length $b} keys %{$AliasInfo{$Type}})
1526             my $Alias    = $AliasInfo{$Type}->{$Name};
1527             my $IsFuzzy  = $FuzzyNames{$Type}->{$Alias};
1530             RegisterFileForName($Type => $Alias, $IsFuzzy, $filename);
1532             my $Table = $TableInfo{$Type}->{$Name};
1536                 my $CName = CanonicalName($Type .'_'. $Alias);