Lines Matching defs:rrr
93 ccccccccccccccccc RRR rrr XXXXX
96 cccccccccccccccccccc rrr XXXXX
103 and `rrr' are CCL register number, `XXXXX' is one of the following
115 reg[rrr] = reg[RRR];
121 reg[rrr] = CCCCCCCCCCCCCCCCCCC;
128 reg[rrr] = CONSTANT;
139 reg[rrr] = ELEMENT[reg[RRR]];
154 if (!reg[rrr])
162 write (reg[rrr]);
170 write (reg[rrr]);
172 read (reg[rrr]);
193 read (reg[rrr]);
217 if (0 <= reg[rrr] < LENGTH)
218 write (ELEMENT[reg[rrr]]);
220 read (reg[rrr]);
229 read (reg[rrr]);
239 if (0 <= reg[rrr] < CC..C)
240 IC += ADDRESS[reg[rrr]];
251 read (reg[rrr]);
272 read (read[rrr]);
273 if (0 <= reg[rrr] < CC..C)
274 IC += ADDRESS[reg[rrr]];
285 write (reg[rrr]);
315 if (!rrr)
328 if (0 <= reg[rrr] < CC..C)
329 write (ELEMENT[reg[rrr]]);
346 reg[rrr] OPERATION= CONSTANT;
352 reg[rrr] OPERATION= reg[RRR];
362 reg[rrr] = reg[RRR] OPERATION CONSTANT;
369 reg[rrr] = reg[RRR] OPERATION reg[Rrr];
378 reg[7] = reg[rrr] OPERATION CONSTANT;
391 reg[7] = reg[rrr] OPERATION reg[RRR];
404 read (reg[rrr]);
405 reg[7] = reg[rrr] OPERATION CONSTANT;
418 read (reg[rrr]);
419 reg[7] = reg[rrr] OPERATION reg[RRR];
431 extended_command (rrr,RRR,Rrr,ARGS)
441 A code point is stored into reg[rrr]. A charset ID is stored into
448 Write a character whose code point is reg[rrr] and the charset ID
454 /* Translate a character whose code point is reg[rrr] and the charset
457 A translated character is set in reg[rrr] (code point) and reg[RRR]
463 /* Translate a character whose code point is reg[rrr] and the charset
466 A translated character is set in reg[rrr] (code point) and reg[RRR]
474 /* Iterate looking up MAPs for reg[rrr] starting from the Nth (N =
480 If the element is t or lambda, finish without changing reg[rrr].
481 If the element is a number, set reg[rrr] to the number and finish.
494 /* Map the code in reg[rrr] by MAPs starting from the Nth (N =
534 reg[rrr]), the mapping is treated as identity.
540 At first, VAL0 is set to reg[rrr], and it is translated by the
554 In VALn is t, VALm is reverted to reg[rrr] and the mapping of VALm
561 Then, use reg[rrr] as a mapped value except for -1, -2 and -3.
653 Map reg[rrr] by MAP-ID.
655 set reg[rrr] to the result,
965 #define rrr field2
974 reg[rrr] = reg[RRR];
978 reg[rrr] = field1;
982 reg[rrr] = XINT (ccl_prog[ic]);
990 reg[rrr] = XINT (ccl_prog[ic + i]);
999 if (!reg[rrr])
1004 i = reg[rrr];
1010 i = reg[rrr];
1013 CCL_READ_CHAR (reg[rrr]);
1027 CCL_READ_CHAR (reg[rrr]);
1039 i = reg[rrr];
1047 CCL_READ_CHAR (reg[rrr]);
1052 CCL_READ_CHAR (reg[rrr]);
1057 CCL_READ_CHAR (reg[rrr]);
1060 if ((unsigned int) reg[rrr] < field1)
1061 ic += XINT (ccl_prog[ic + reg[rrr]]);
1069 CCL_READ_CHAR (reg[rrr]);
1078 rrr = 7;
1088 i = reg[rrr];
1098 rrr = 7;
1112 if (rrr)
1146 if (!rrr)
1156 i = reg[rrr];
1196 case CCL_PLUS: reg[rrr] += i; break;
1197 case CCL_MINUS: reg[rrr] -= i; break;
1198 case CCL_MUL: reg[rrr] *= i; break;
1199 case CCL_DIV: reg[rrr] /= i; break;
1200 case CCL_MOD: reg[rrr] %= i; break;
1201 case CCL_AND: reg[rrr] &= i; break;
1202 case CCL_OR: reg[rrr] |= i; break;
1203 case CCL_XOR: reg[rrr] ^= i; break;
1204 case CCL_LSH: reg[rrr] <<= i; break;
1205 case CCL_RSH: reg[rrr] >>= i; break;
1206 case CCL_LSH8: reg[rrr] <<= 8; reg[rrr] |= i; break;
1207 case CCL_RSH8: reg[7] = reg[rrr] & 0xFF; reg[rrr] >>= 8; break;
1208 case CCL_DIVMOD: reg[7] = reg[rrr] % i; reg[rrr] /= i; break;
1209 case CCL_LS: reg[rrr] = reg[rrr] < i; break;
1210 case CCL_GT: reg[rrr] = reg[rrr] > i; break;
1211 case CCL_EQ: reg[rrr] = reg[rrr] == i; break;
1212 case CCL_LE: reg[rrr] = reg[rrr] <= i; break;
1213 case CCL_GE: reg[rrr] = reg[rrr] >= i; break;
1214 case CCL_NE: reg[rrr] = reg[rrr] != i; break;
1234 CCL_READ_CHAR (reg[rrr]);
1236 i = reg[rrr];
1241 rrr = 7;
1245 CCL_READ_CHAR (reg[rrr]);
1247 i = reg[rrr];
1252 rrr = 7;
1257 case CCL_PLUS: reg[rrr] = i + j; break;
1258 case CCL_MINUS: reg[rrr] = i - j; break;
1259 case CCL_MUL: reg[rrr] = i * j; break;
1260 case CCL_DIV: reg[rrr] = i / j; break;
1261 case CCL_MOD: reg[rrr] = i % j; break;
1262 case CCL_AND: reg[rrr] = i & j; break;
1263 case CCL_OR: reg[rrr] = i | j; break;
1264 case CCL_XOR: reg[rrr] = i ^ j;; break;
1265 case CCL_LSH: reg[rrr] = i << j; break;
1266 case CCL_RSH: reg[rrr] = i >> j; break;
1267 case CCL_LSH8: reg[rrr] = (i << 8) | j; break;
1268 case CCL_RSH8: reg[rrr] = i >> 8; reg[7] = i & 0xFF; break;
1269 case CCL_DIVMOD: reg[rrr] = i / j; reg[7] = i % j; break;
1270 case CCL_LS: reg[rrr] = i < j; break;
1271 case CCL_GT: reg[rrr] = i > j; break;
1272 case CCL_EQ: reg[rrr] = i == j; break;
1273 case CCL_LE: reg[rrr] = i <= j; break;
1274 case CCL_GE: reg[rrr] = i >= j; break;
1275 case CCL_NE: reg[rrr] = i != j; break;
1276 case CCL_DECODE_SJIS: DECODE_SJIS (i, j, reg[rrr], reg[7]); break;
1277 case CCL_ENCODE_SJIS: ENCODE_SJIS (i, j, reg[rrr], reg[7]); break;
1283 i = reg[rrr];
1287 else if (!reg[rrr])
1310 reg[rrr] = *src++;
1331 reg[rrr] = i;
1337 reg[rrr] = i;
1348 reg[rrr] = i;
1357 reg[rrr] = i;
1359 reg[rrr] = ((i << 7) | (*src++ & 0x7F));
1368 reg[rrr] = (*src++ & 0x7F);
1377 reg[rrr] = ((i << 7) | (*src & 0x7F));
1385 reg[rrr] = (*src++ - 0x20);
1390 reg[rrr] = i;
1396 reg[rrr] = i;
1404 reg[rrr] = i;
1424 i = reg[rrr] & 0xFF;
1426 i = ((i - 0x70) << 7) | (reg[rrr] & 0x7F);
1428 i = ((i - 0x8F) << 14) | reg[rrr];
1430 i = ((i - 0xE0) << 14) | reg[rrr];
1437 CCL_MAKE_CHAR (reg[RRR], reg[rrr], i);
1444 reg[rrr] = i;
1450 CCL_MAKE_CHAR (reg[RRR], reg[rrr], i);
1456 reg[rrr] = i;
1475 reg[rrr] = i;
1486 CCL_MAKE_CHAR (reg[RRR], reg[rrr], i);
1512 op = reg[rrr];
1569 reg[rrr] = XINT(content);
1584 reg[rrr] = XUINT (value);
1622 op = reg[rrr];
1651 POP_MAPPING_STACK (map_set_rest_length, reg[rrr]);
1663 op = reg[rrr];
1679 POP_MAPPING_STACK (map_set_rest_length, reg[rrr]);
1697 reg[rrr]);
1699 reg[rrr] = op;
1746 POP_MAPPING_STACK (map_set_rest_length, reg[rrr]);
1758 POP_MAPPING_STACK (map_set_rest_length, reg[rrr]);
1763 op = reg[rrr];
1776 PUSH_MAPPING_STACK (map_set_rest_length, reg[rrr]);
1786 POP_MAPPING_STACK (map_set_rest_length, reg[rrr]);
1789 POP_MAPPING_STACK (map_set_rest_length, reg[rrr]);
1794 reg[rrr] = op;
1802 op = reg[rrr];
1834 reg[rrr] = XINT (content);
1842 reg[rrr] = XUINT(value);