Lines Matching refs:sn
50 my %sn;
69 $sn{$1} = $d;
118 my $sn = defined $sn{$nid{$i}} ? "$sn{$nid{$i}}" : "NULL";
120 if ($sn eq "NULL") {
121 $sn = $ln;
122 $sn{$nid{$i}} = $ln;
125 $ln = $sn;
126 $ln{$nid{$i}} = $sn;
129 my $out = " {\"$sn\", \"$ln\", NID_$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", $_;