Github/emacs
2
0
Fork 1
mirror of git://git.sv.gnu.org/emacs.git synced 2026-02-24 05:47:36 +00:00
Code Issues Projects Releases Packages Wiki Activity

(CCL_WRITE_CHAR): Convert NL according to ccl->eol_type.

Browse source 
(setup_ccl_program): Initialize ccl->eol_type to CODING_EOL_LF.
This commit is contained in:
Kenichi Handa 2000-06-19 05:16:57 +00:00
parent 8538ed9a98
commit 5b8ca8222e
1 changed files with 13 additions and 1 deletions
Show stats Download patch file Download diff file Expand all files Collapse all files

14
src/ccl.c
View file

@ -669,11 +669,22 @@ static tr_stack *mapping_stack_pointer;
#define CCL_WRITE_CHAR(ch) \
do { \
int bytes = SINGLE_BYTE_CHAR_P (ch) ? 1: CHAR_BYTES (ch); \
if (ch == '\n' && ccl->eol_type == CODING_EOL_CRLF) \
bytes++; \
if (!dst) \
CCL_INVALID_CMD; \
else if (dst + bytes <= (dst_bytes ? dst_end : src)) \
{ \
if (bytes == 1) \
if (ch == '\n') \
{ \
if (ccl->eol_type == CODING_EOL_CRLF) \
*dst++ = '\r', *dst++ = '\n'; \
else if (ccl->eol_type == CODING_EOL_CR) \
*dst++ = '\r'; \
else \
*dst++ = '\n'; \
} \
else if (bytes == 1) \
*dst++ = (ch); \
else \
dst += CHAR_STRING (ch, dst); \
@ -1755,6 +1766,7 @@ setup_ccl_program (ccl, ccl_prog)
ccl->private_state = 0;
ccl->status = 0;
ccl->stack_idx = 0;
ccl->eol_type = CODING_EOL_LF;
return 0;
}