Lines Matching refs:nid
53 my %nid;
80 $nid{$d} = $1;
101 my @a = sort { $a <=> $b } keys %nid;
113 if (!defined $nid{$i}) {
118 my $sn = defined $sn{$nid{$i}} ? "$sn{$nid{$i}}" : "NULL";
119 my $ln = defined $ln{$nid{$i}} ? "$ln{$nid{$i}}" : "NULL";
122 $sn{$nid{$i}} = $ln;
126 $ln{$nid{$i}} = $sn;
129 my $out = " {\"$sn\", \"$ln\", NID_$nid{$i}";
130 if (defined $obj{$nid{$i}} && $objd{$obj{$nid{$i}}} =~ /,/) {
131 my $v = $objd{$obj{$nid{$i}}};
142 $obj_der{$obj{$nid{$i}}} = $z;
143 $obj_len{$obj{$nid{$i}}} = $length;
147 $z, $lvalues, $obj{$nid{$i}}));
182 @a = grep(defined $sn{$nid{$_}}, 0 .. $n);
186 foreach (sort { $sn{$nid{$a}} cmp $sn{$nid{$b}} } @a) {
187 printf " %4d, /* \"$sn{$nid{$_}}\" */\n", $_;
193 @a = grep(defined $ln{$nid{$_}}, 0 .. $n);
197 foreach (sort { $ln{$nid{$a}} cmp $ln{$nid{$b}} } @a) {
198 printf " %4d, /* \"$ln{$nid{$_}}\" */\n", $_;
204 @a = grep(defined $obj{$nid{$_}}, 0 .. $n);
213 my $A = $obj_len{$obj{$nid{$a}}};
214 my $B = $obj_len{$obj{$nid{$b}}};
218 $A = $obj_der{$obj{$nid{$a}}};
219 $B = $obj_der{$obj{$nid{$b}}};
223 my $m = $obj{$nid{$_}};
