1537 |
|
|
1538 |
char emacs_mule_bytes[256]; |
char emacs_mule_bytes[256]; |
1539 |
|
|
|
/* Leading-code followed by extended leading-code. */ |
|
|
#define LEADING_CODE_PRIVATE_11 0x9A /* for private DIMENSION1 of 1-column */ |
|
|
#define LEADING_CODE_PRIVATE_12 0x9B /* for private DIMENSION1 of 2-column */ |
|
|
#define LEADING_CODE_PRIVATE_21 0x9C /* for private DIMENSION2 of 1-column */ |
|
|
#define LEADING_CODE_PRIVATE_22 0x9D /* for private DIMENSION2 of 2-column */ |
|
|
|
|
|
|
|
1540 |
int |
int |
1541 |
emacs_mule_char (coding, src, nbytes, nchars) |
emacs_mule_char (coding, src, nbytes, nchars) |
1542 |
struct coding_system *coding; |
struct coding_system *coding; |
1562 |
break; |
break; |
1563 |
|
|
1564 |
case 3: |
case 3: |
1565 |
if (c == LEADING_CODE_PRIVATE_11 |
if (c == EMACS_MULE_LEADING_CODE_PRIVATE_11 |
1566 |
|| c == LEADING_CODE_PRIVATE_12) |
|| c == EMACS_MULE_LEADING_CODE_PRIVATE_12) |
1567 |
{ |
{ |
1568 |
ONE_MORE_BYTE (c); |
ONE_MORE_BYTE (c); |
1569 |
if (! (charset = emacs_mule_charset[c])) |
if (! (charset = emacs_mule_charset[c])) |
4095 |
decode_coding_ccl (coding) |
decode_coding_ccl (coding) |
4096 |
struct coding_system *coding; |
struct coding_system *coding; |
4097 |
{ |
{ |
4098 |
unsigned char *src = coding->source + coding->consumed; |
const unsigned char *src = coding->source + coding->consumed; |
4099 |
unsigned char *src_end = coding->source + coding->src_bytes; |
unsigned char *src_end = coding->source + coding->src_bytes; |
4100 |
int *charbuf = coding->charbuf; |
int *charbuf = coding->charbuf; |
4101 |
int *charbuf_end = charbuf + coding->charbuf_size; |
int *charbuf_end = charbuf + coding->charbuf_size; |
4109 |
|
|
4110 |
while (src < src_end) |
while (src < src_end) |
4111 |
{ |
{ |
4112 |
unsigned char *p = src; |
const unsigned char *p = src; |
4113 |
int *source, *source_end; |
int *source, *source_end; |
4114 |
int i = 0; |
int i = 0; |
4115 |
|
|
5612 |
int *buf = coding->charbuf; |
int *buf = coding->charbuf; |
5613 |
/* -1 is to compensate for CRLF. */ |
/* -1 is to compensate for CRLF. */ |
5614 |
int *buf_end = coding->charbuf + coding->charbuf_size - 1; |
int *buf_end = coding->charbuf + coding->charbuf_size - 1; |
5615 |
unsigned char *src = coding->source + coding->consumed; |
const unsigned char *src = coding->source + coding->consumed; |
5616 |
int pos = coding->src_pos + coding->consumed_char; |
int pos = coding->src_pos + coding->consumed_char; |
5617 |
int end_pos = coding->src_pos + coding->src_chars; |
int end_pos = coding->src_pos + coding->src_chars; |
5618 |
int multibytep = coding->src_multibyte; |
int multibytep = coding->src_multibyte; |
6450 |
{ |
{ |
6451 |
Lisp_Object coding_attrs_list, safe_codings; |
Lisp_Object coding_attrs_list, safe_codings; |
6452 |
EMACS_INT start_byte, end_byte; |
EMACS_INT start_byte, end_byte; |
6453 |
unsigned char *p, *pbeg, *pend; |
const unsigned char *p, *pbeg, *pend; |
6454 |
int c; |
int c; |
6455 |
Lisp_Object tail, elt; |
Lisp_Object tail, elt; |
6456 |
|
|
6580 |
Lisp_Object list; |
Lisp_Object list; |
6581 |
EMACS_INT start_byte, end_byte; |
EMACS_INT start_byte, end_byte; |
6582 |
int pos; |
int pos; |
6583 |
unsigned char *p, *pbeg, *pend; |
const unsigned char *p, *pbeg, *pend; |
6584 |
int c; |
int c; |
6585 |
Lisp_Object tail, elt; |
Lisp_Object tail, elt; |
6586 |
|
|
7883 |
{ |
{ |
7884 |
emacs_mule_bytes[i] = 1; |
emacs_mule_bytes[i] = 1; |
7885 |
} |
} |
7886 |
emacs_mule_bytes[LEADING_CODE_PRIVATE_11] = 3; |
emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_11] = 3; |
7887 |
emacs_mule_bytes[LEADING_CODE_PRIVATE_12] = 3; |
emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_12] = 3; |
7888 |
emacs_mule_bytes[LEADING_CODE_PRIVATE_21] = 4; |
emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_21] = 4; |
7889 |
emacs_mule_bytes[LEADING_CODE_PRIVATE_22] = 4; |
emacs_mule_bytes[EMACS_MULE_LEADING_CODE_PRIVATE_22] = 4; |
7890 |
} |
} |
7891 |
|
|
7892 |
#ifdef emacs |
#ifdef emacs |