Lines Matching refs:tmp
119 local($code,$tmp) = @_;
120 local(@tmp);
121 @tmp = ($tmp,$code);
128 $result .= sprintf("%d",shift(@tmp));
131 $tmp = shift(@tmp);
132 if ($tmp == 0 || $tmp == 4 || $tmp == 10) {
134 ++$tmp, $after .= $TC{'up'} if $TC{'up'};
137 ++$tmp, $after .= $TC{'bc'};
140 $result .= sprintf("%c",$tmp);
144 $result .= sprintf("%c",shift(@tmp)+ord($string));
149 ($code,$tmp) = @tmp;
150 @tmp = ($tmp,$code);
154 ($code,$tmp,$string) = unpack("CCa99",$string);
155 if ($tmp[$[] > $code) {
156 $tmp[$[] += $tmp;
160 $result .= sprintf("%02d",shift(@tmp));
164 $result .= sprintf("%03d",shift(@tmp));
168 ($code,$tmp) = @tmp;
169 @tmp = ($code+1,$tmp+1);