Mercurial > emacs
diff src/ccl.c @ 49600:23a1cea22d13
Trailing whitespace deleted.
| author | Juanma Barranquero <lekktu@gmail.com> |
|---|---|
| date | Tue, 04 Feb 2003 14:56:31 +0000 |
| parents | fc51841e5d97 |
| children | 92b845a3d3a6 d7ddb3e565de |
line wrap: on
line diff
--- a/src/ccl.c Tue Feb 04 13:30:45 2003 +0000 +++ b/src/ccl.c Tue Feb 04 14:56:31 2003 +0000 @@ -426,7 +426,7 @@ extended_command (rrr,RRR,Rrr,ARGS) */ -/* +/* Here after, Extended CCL Instructions. Bit length of extended command is 14. Therefore, the instruction code range is 0..16384(0x3fff). @@ -484,7 +484,7 @@ 3:MAP-ID1 4:MAP-ID2 ... - */ + */ /* Map the code in reg[rrr] by MAPs starting from the Nth (N = reg[RRR]) map. @@ -562,7 +562,7 @@ where STARTPOINT is an offset to be used for indexing a map, ENDPOINT is a maximum index number of a map, - VAL and VALn is a number, nil, t, or lambda. + VAL and VALn is a number, nil, t, or lambda. Valid index range of a map of type (a) is: STARTPOINT <= index < STARTPOINT + map_size - 1 @@ -862,7 +862,7 @@ int ic; /* Instruction Counter. */ }; -/* For the moment, we only support depth 256 of stack. */ +/* For the moment, we only support depth 256 of stack. */ static struct ccl_prog_stack ccl_prog_stack_struct[256]; int @@ -1096,7 +1096,7 @@ } CCL_INVALID_CMD; } - + ccl_prog_stack_struct[stack_idx].ccl_prog = ccl_prog; ccl_prog_stack_struct[stack_idx].ic = ic; stack_idx++; @@ -1260,7 +1260,7 @@ src++; goto ccl_read_multibyte_character_suspend; } - + if (!ccl->multibyte) { int bytes; @@ -1274,7 +1274,7 @@ i = *src++; if (i == '\n' && ccl->eol_type != CODING_EOL_LF) { - /* We are encoding. */ + /* We are encoding. */ if (ccl->eol_type == CODING_EOL_CRLF) { if (ccl->cr_consumed) @@ -1399,7 +1399,7 @@ SPLIT_CHAR (op, reg[RRR], i, j); if (j != -1) i = (i << 7) | j; - + reg[rrr] = i; break; @@ -1411,14 +1411,14 @@ SPLIT_CHAR (op, reg[RRR], i, j); if (j != -1) i = (i << 7) | j; - + reg[rrr] = i; break; case CCL_LookupIntConstTbl: op = XINT (ccl_prog[ic]); /* table */ ic++; - { + { struct Lisp_Hash_Table *h = GET_HASH_TABLE (op); op = hash_lookup (h, make_number (reg[RRR]), NULL); @@ -1443,7 +1443,7 @@ op = XINT (ccl_prog[ic]); /* table */ ic++; CCL_MAKE_CHAR (reg[RRR], reg[rrr], i); - { + { struct Lisp_Hash_Table *h = GET_HASH_TABLE (op); op = hash_lookup (h, make_number (i), NULL); @@ -1517,7 +1517,7 @@ else continue; } - else + else continue; if (NILP (content)) @@ -1553,7 +1553,7 @@ ic = fin_ic; } break; - + case CCL_MapMultiple: { Lisp_Object map, content, attrib, value; @@ -1640,7 +1640,7 @@ } } map_vector_size = ASIZE (Vcode_conversion_map_vector); - + do { for (;map_set_rest_length > 0;i++, ic++, map_set_rest_length--) { @@ -1690,7 +1690,7 @@ else continue; } - else + else continue; if (NILP (content)) @@ -1808,7 +1808,7 @@ } } break; - + default: CCL_INVALID_CMD; } @@ -1881,7 +1881,7 @@ bcopy (msg, dst, msglen); dst += msglen; } - + if (ccl->status == CCL_STAT_INVALID_CMD) { #if 0 /* If the remaining bytes contain 0x80..0x9F, copying them @@ -2317,7 +2317,7 @@ CHECK_SYMBOL (symbol); CHECK_VECTOR (map); - + for (i = 0; i < len; i++) { Lisp_Object slot = AREF (Vcode_conversion_map_vector, i);
