Mercurial > emacs
comparison src/ccl.c @ 35495:74e192d083e9
(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; \ |