Lines Matching refs:code
119 local($code,$tmp) = @_;
121 @tmp = ($tmp,$code);
125 $code = $2;
127 if ($code eq 'd') {
130 elsif ($code eq '.') {
143 elsif ($code eq '+') {
148 elsif ($code eq 'r') {
149 ($code,$tmp) = @tmp;
150 @tmp = ($tmp,$code);
153 elsif ($code eq '>') {
154 ($code,$tmp,$string) = unpack("CCa99",$string);
155 if ($tmp[$[] > $code) {
159 elsif ($code eq '2') {
163 elsif ($code eq '3') {
167 elsif ($code eq 'i') {
168 ($code,$tmp) = @tmp;
169 @tmp = ($code+1,$tmp+1);