Mercurial > emacs

comparison src/ccl.c @ 35495:74e192d083e9

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
(CCL_READ_CHAR): Change the argument name from r to REG as a workaround for SunOS 4's cc.
author Kenichi Handa <handa@m17n.org>
date Wed, 24 Jan 2001 00:12:24 +0000
parents f4c8b11d4d36
children add3de5a4293
comparison
equal deleted inserted replaced
35494:afce7f1c2ba5 35495:74e192d083e9
732 >> ((2 - (i % 3)) * 8)) & 0xFF; \ 732 >> ((2 - (i % 3)) * 8)) & 0xFF; \
733 else \ 733 else \
734 CCL_SUSPEND (CCL_STAT_SUSPEND_BY_DST); \ 734 CCL_SUSPEND (CCL_STAT_SUSPEND_BY_DST); \
735 } while (0) 735 } while (0)
736 736
737 /* Read one byte from the current input buffer into Rth register. */ 737 /* Read one byte from the current input buffer into REGth register. */
738 #define CCL_READ_CHAR(r) \ 738 #define CCL_READ_CHAR(REG) \
739 do { \ 739 do { \
740 if (!src) \ 740 if (!src) \
741 CCL_INVALID_CMD; \ 741 CCL_INVALID_CMD; \
742 else if (src < src_end) \ 742 else if (src < src_end) \
743 { \ 743 { \
744 r = *src++; \ 744 REG = *src++; \
745 if (r == '\n' \ 745 if (REG == '\n' \
746 && ccl->eol_type != CODING_EOL_LF) \ 746 && ccl->eol_type != CODING_EOL_LF) \
747 { \ 747 { \
748 /* We are encoding. */ \ 748 /* We are encoding. */ \
749 if (ccl->eol_type == CODING_EOL_CRLF) \ 749 if (ccl->eol_type == CODING_EOL_CRLF) \
750 { \ 750 { \
751 if (ccl->cr_consumed) \ 751 if (ccl->cr_consumed) \
752 ccl->cr_consumed = 0; \ 752 ccl->cr_consumed = 0; \
753 else \ 753 else \
754 { \ 754 { \
755 ccl->cr_consumed = 1; \ 755 ccl->cr_consumed = 1; \
756 r = '\r'; \ 756 REG = '\r'; \
757 src--; \ 757 src--; \
758 } \ 758 } \
759 } \ 759 } \
760 else \ 760 else \
761 r = '\r'; \ 761 REG = '\r'; \
762 } \ 762 } \
763 if (r == LEADING_CODE_8_BIT_CONTROL \ 763 if (REG == LEADING_CODE_8_BIT_CONTROL \
764 && ccl->multibyte) \ 764 && ccl->multibyte) \
765 r = *src++ - 0x20; \ 765 REG = *src++ - 0x20; \
766 } \ 766 } \
767 else if (ccl->last_block) \ 767 else if (ccl->last_block) \
768 { \ 768 { \
769 ic = ccl->eof_ic; \ 769 ic = ccl->eof_ic; \
770 goto ccl_repeat; \ 770 goto ccl_repeat; \