Mercurial > hg > xemacs-beta

comparison src/mule-ccl.c @ 438:84b14dcb0985 r21-2-27

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
Import from CVS: tag r21-2-27
author cvs
date Mon, 13 Aug 2007 11:32:25 +0200
parents 3ecd8885ac67
children 8de8e3f6228a
comparison
equal deleted inserted replaced
437:e2a4e8b94b82 438:84b14dcb0985
643 #define CCL_ENCODE_SJIS 0x17 /* X = HIGHER_BYTE (SJIS (Y, Z)) 643 #define CCL_ENCODE_SJIS 0x17 /* X = HIGHER_BYTE (SJIS (Y, Z))
644 r[7] = LOWER_BYTE (SJIS (Y, Z) */ 644 r[7] = LOWER_BYTE (SJIS (Y, Z) */
645 645
646 /* Suspend CCL program because of reading from empty input buffer or 646 /* Suspend CCL program because of reading from empty input buffer or
647 writing to full output buffer. When this program is resumed, the 647 writing to full output buffer. When this program is resumed, the
648 same I/O command is executed. */ 648 same I/O command is executed. The `if (1)' is for warning suppression. */
649 #define CCL_SUSPEND(stat) \ 649 #define CCL_SUSPEND(stat) \
650 do { \ 650 do { \
651 ic--; \ 651 ic--; \
652 ccl->status = stat; \ 652 ccl->status = stat; \
653 goto ccl_finish; \ 653 if (1) goto ccl_finish; \
654 } while (0) 654 } while (0)
655 655
656 /* Terminate CCL program because of invalid command. Should not occur 656 /* Terminate CCL program because of invalid command. Should not occur
657 in the normal case. */ 657 in the normal case. The `if (1)' is for warning suppression. */
658 #define CCL_INVALID_CMD \ 658 #define CCL_INVALID_CMD \
659 do { \ 659 do { \
660 ccl->status = CCL_STAT_INVALID_CMD; \ 660 ccl->status = CCL_STAT_INVALID_CMD; \
661 goto ccl_error_handler; \ 661 if (1) goto ccl_error_handler; \
662 } while (0) 662 } while (0)
663 663
664 /* Encode one character CH to multibyte form and write to the current 664 /* Encode one character CH to multibyte form and write to the current
665 output buffer. If CH is less than 256, CH is written as is. */ 665 output buffer. If CH is less than 256, CH is written as is. */
666 #define CCL_WRITE_CHAR(ch) do { \ 666 #define CCL_WRITE_CHAR(ch) do { \