Mercurial > hg > xemacs-beta

comparison src/mule-ccl.c @ 2286:04bc9d2f42c7

Find changesets by keywords (author, files, the commit message), revision number or hash, or revset expression.
[xemacs-hg @ 2004-09-20 19:18:55 by james] Mark all unused parameters as unused. Also eliminate some unneeded local variables.
author james
date Mon, 20 Sep 2004 19:20:08 +0000
parents 804517e16990
children cf4a5f5e87ea
comparison
equal deleted inserted replaced
2285:914c5afaac33 2286:04bc9d2f42c7
726 { \ 726 { \
727 Dynarr_add (destination, ch); \ 727 Dynarr_add (destination, ch); \
728 } \ 728 } \
729 else \ 729 else \
730 { \ 730 { \
731 Ibyte work[MAX_ICHAR_LEN]; \ 731 Ibyte work[MAX_ICHAR_LEN]; \
732 int len; \ 732 int len; \
733 len = non_ascii_set_itext_ichar (work, ch); \ 733 len = non_ascii_set_itext_ichar (work, ch); \
734 Dynarr_add_many (destination, work, len); \ 734 Dynarr_add_many (destination, work, len); \
735 } \ 735 } \
736 } \ 736 } \
737 else \ 737 else \
738 { \ 738 { \
740 { \ 740 { \
741 Dynarr_add (destination, ch); \ 741 Dynarr_add (destination, ch); \
742 } \ 742 } \
743 else \ 743 else \
744 { \ 744 { \
745 Ibyte work[MAX_ICHAR_LEN]; \ 745 Ibyte work[MAX_ICHAR_LEN]; \
746 int len; \ 746 int len; \
747 len = non_ascii_set_itext_ichar (work, ch); \ 747 len = non_ascii_set_itext_ichar (work, ch); \
748 Dynarr_add_many (destination, work, len); \ 748 Dynarr_add_many (destination, work, len); \
749 } \ 749 } \
750 } \ 750 } \
751 } while (0) 751 } while (0)
752 752
753 /* Write a string at ccl_prog[IC] of length LEN to the current output 753 /* Write a string at ccl_prog[IC] of length LEN to the current output
754 buffer. But this macro treat this string as a binary. Therefore, 754 buffer. But this macro treat this string as a binary. Therefore,
755 cannot handle a multibyte string except for Control-1 characters. */ 755 cannot handle a multibyte string except for Control-1 characters. */
756 #define CCL_WRITE_STRING(len) \ 756 #define CCL_WRITE_STRING(len) \
757 do { \ 757 do { \
758 Ibyte work[MAX_ICHAR_LEN]; \ 758 Ibyte work[MAX_ICHAR_LEN]; \
759 int ch, bytes; \ 759 int ch; \
760 if (!destination) \ 760 if (!destination) \
761 CCL_INVALID_CMD; \ 761 CCL_INVALID_CMD; \
762 else if (conversion_mode == CCL_MODE_ENCODING) \ 762 else if (conversion_mode == CCL_MODE_ENCODING) \
763 { \ 763 { \
764 for (i = 0; i < (len); i++) \ 764 for (i = 0; i < (len); i++) \
781 { \ 781 { \
782 Dynarr_add (destination, ch); \ 782 Dynarr_add (destination, ch); \
783 } \ 783 } \
784 else \ 784 else \
785 { \ 785 { \
786 bytes = non_ascii_set_itext_ichar (work, ch); \ 786 non_ascii_set_itext_ichar (work, ch); \
787 Dynarr_add_many (destination, work, len); \ 787 Dynarr_add_many (destination, work, len); \
788 } \ 788 } \
789 } \ 789 } \
790 } \ 790 } \
791 else \ 791 else \
798 { \ 798 { \
799 Dynarr_add (destination, ch); \ 799 Dynarr_add (destination, ch); \
800 } \ 800 } \
801 else \ 801 else \
802 { \ 802 { \
803 bytes = non_ascii_set_itext_ichar (work, ch); \ 803 non_ascii_set_itext_ichar (work, ch); \
804 Dynarr_add_many (destination, work, len); \ 804 Dynarr_add_many (destination, work, len); \
805 } \ 805 } \
806 } \ 806 } \
807 } \ 807 } \
808 } while (0) 808 } while (0)