1271 |
{ |
{ |
1272 |
unsigned char *src = coding->source + coding->consumed; |
unsigned char *src = coding->source + coding->consumed; |
1273 |
unsigned char *src_end = coding->source + coding->src_bytes; |
unsigned char *src_end = coding->source + coding->src_bytes; |
1274 |
unsigned char *src_base, *surrogate_high_base; |
unsigned char *src_base; |
1275 |
int *charbuf = coding->charbuf; |
int *charbuf = coding->charbuf; |
1276 |
int *charbuf_end = charbuf + coding->charbuf_size; |
int *charbuf_end = charbuf + coding->charbuf_size; |
1277 |
int consumed_chars = 0, consumed_chars_base; |
int consumed_chars = 0, consumed_chars_base; |
1943 |
unsigned char *dst = coding->destination + coding->produced; |
unsigned char *dst = coding->destination + coding->produced; |
1944 |
unsigned char *dst_end = coding->destination + coding->dst_bytes; |
unsigned char *dst_end = coding->destination + coding->dst_bytes; |
1945 |
int safe_room = 8; |
int safe_room = 8; |
|
unsigned char *adjusted_dst_end =dst_end - 8; |
|
1946 |
int produced_chars = 0; |
int produced_chars = 0; |
1947 |
Lisp_Object attrs, eol_type, charset_list; |
Lisp_Object attrs, eol_type, charset_list; |
1948 |
int c; |
int c; |
4412 |
Lisp_Object coding_system; |
Lisp_Object coding_system; |
4413 |
struct coding_system *coding; |
struct coding_system *coding; |
4414 |
{ |
{ |
|
int id; |
|
4415 |
Lisp_Object attrs; |
Lisp_Object attrs; |
4416 |
Lisp_Object eol_type; |
Lisp_Object eol_type; |
4417 |
Lisp_Object coding_type; |
Lisp_Object coding_type; |
4579 |
raw_text_coding_system (coding_system) |
raw_text_coding_system (coding_system) |
4580 |
Lisp_Object coding_system; |
Lisp_Object coding_system; |
4581 |
{ |
{ |
4582 |
Lisp_Object spec, attrs, coding_type; |
Lisp_Object spec, attrs; |
4583 |
Lisp_Object eol_type, raw_text_eol_type; |
Lisp_Object eol_type, raw_text_eol_type; |
4584 |
|
|
4585 |
spec = CODING_SYSTEM_SPEC (coding_system); |
spec = CODING_SYSTEM_SPEC (coding_system); |
4614 |
if (VECTORP (eol_type)) |
if (VECTORP (eol_type)) |
4615 |
{ |
{ |
4616 |
Lisp_Object parent_spec; |
Lisp_Object parent_spec; |
|
Lisp_Object parent_attrs; |
|
4617 |
Lisp_Object parent_eol_type; |
Lisp_Object parent_eol_type; |
4618 |
|
|
4619 |
parent_spec |
parent_spec |
4760 |
unsigned char c; |
unsigned char c; |
4761 |
int total = 0; |
int total = 0; |
4762 |
int eol_seen = EOL_SEEN_NONE; |
int eol_seen = EOL_SEEN_NONE; |
|
int first_eol_seen; |
|
4763 |
|
|
4764 |
attrs = CODING_ID_ATTRS (coding->id); |
attrs = CODING_ID_ATTRS (coding->id); |
4765 |
coding_type = CODING_ATTR_TYPE (attrs); |
coding_type = CODING_ATTR_TYPE (attrs); |
4841 |
struct coding_system *coding; |
struct coding_system *coding; |
4842 |
int eol_seen; |
int eol_seen; |
4843 |
{ |
{ |
4844 |
Lisp_Object eol_type, coding_system; |
Lisp_Object eol_type; |
4845 |
|
|
4846 |
eol_type = CODING_ID_EOL_TYPE (coding->id); |
eol_type = CODING_ID_EOL_TYPE (coding->id); |
4847 |
if (eol_seen & EOL_SEEN_LF) |
if (eol_seen & EOL_SEEN_LF) |
5572 |
encode_coding (coding) |
encode_coding (coding) |
5573 |
struct coding_system *coding; |
struct coding_system *coding; |
5574 |
{ |
{ |
|
int error = 0; |
|
5575 |
Lisp_Object attrs; |
Lisp_Object attrs; |
5576 |
|
|
5577 |
attrs = CODING_ID_ATTRS (coding->id); |
attrs = CODING_ID_ATTRS (coding->id); |
6281 |
Lisp_Object attrs; |
Lisp_Object attrs; |
6282 |
{ |
{ |
6283 |
Lisp_Object tail; |
Lisp_Object tail; |
|
int id; |
|
6284 |
struct charset *charset; |
struct charset *charset; |
6285 |
|
|
6286 |
for (tail = CODING_ATTR_CHARSET_LIST (attrs); |
for (tail = CODING_ATTR_CHARSET_LIST (attrs); |
6687 |
Lisp_Object string, coding_system; |
Lisp_Object string, coding_system; |
6688 |
int encodep; |
int encodep; |
6689 |
{ |
{ |
6690 |
code_convert_string (string, coding_system, Qt, encodep, 0, 1); |
return code_convert_string (string, coding_system, Qt, encodep, 0, 1); |
6691 |
} |
} |
6692 |
|
|
6693 |
|
|
7343 |
{ |
{ |
7344 |
Lisp_Object initial, reg_usage, request, flags; |
Lisp_Object initial, reg_usage, request, flags; |
7345 |
struct charset *charset; |
struct charset *charset; |
7346 |
int i, id, max_id = -1; |
int i, id; |
7347 |
|
|
7348 |
if (nargs < coding_arg_iso2022_max) |
if (nargs < coding_arg_iso2022_max) |
7349 |
goto short_args; |
goto short_args; |