Lines Matching refs:dec
117 my $dec = [ _getHexArray($tab[2]) ]; # decomposition
121 @$dec == 2 ? sprintf("${structname}_%06x", $dec->[0]) : 'USELESS';
125 $Compat{ $ini } = $dec;
128 $Canon{ $ini } = $dec;
130 if (@$dec == 2) {
131 if ($Combin{ $dec->[0] }) {
134 $CompList{ $listname }{ $dec->[1] } = $ini;
135 $Comp1st{ $dec->[0] } = $listname;
136 $Comp2nd{ $dec->[1] } = 1 if ! $Exclus{$ini};
138 } elsif (@$dec == 1) {
146 $Compat{ $u } = $dec;
149 $Canon{ $u } = $dec;
151 if (@$dec == 2) {
152 if ($Combin{ $dec->[0] }) {
155 $CompList{ $listname }{ $dec->[1] } = $u;
156 $Comp1st{ $dec->[0] } = $listname;
157 $Comp2nd{ $dec->[1] } = 1 if ! $Exclus{$u};
159 } elsif (@$dec == 1) {
176 my @dec = map {
180 return join(" ",@src) eq join(" ",@dec) ? @dec : getCanonList(@dec);
181 # condition @src == @dec is not ok.
186 my @dec = map {
190 return join(" ",@src) eq join(" ",@dec) ? @dec : getCompatList(@dec);
191 # condition @src == @dec is not ok.