From 2fb2e75ae082492e5efea1016632528698505fe3 Mon Sep 17 00:00:00 2001 From: Ulrich Drepper Date: Sun, 26 Apr 1998 18:47:24 +0000 Subject: Update. 1998-04-26 18:44 Ulrich Drepper * iconvdata/Makefile: Correct rules to generate gap table. * iconvdata/gap.pl: Simplify. --- iconvdata/Makefile | 12 ++++----- iconvdata/gap.pl | 6 ++--- iconvdata/iso-2022-jp.c | 2 +- iconvdata/iso-2022-kr.c | 71 ++++++++++++++++++++++++++++--------------------- 4 files changed, 51 insertions(+), 40 deletions(-) (limited to 'iconvdata') diff --git a/iconvdata/Makefile b/iconvdata/Makefile index 276ae88..2b44ec1 100644 --- a/iconvdata/Makefile +++ b/iconvdata/Makefile @@ -250,12 +250,12 @@ $(make-target-directory) ( echo "static const uint32_t to_ucs4[256] = {"; \ sed -e '/^[^[:space:]]*[[:space:]]*.x00/d' -e 's/^[^[:space:]]*[[:space:]]*.x\(..\)[[:space:]]*.*/ [0x\1] = 0x\2,/p' -e d $^ | sort -u; \ echo "};"; \ - echo "static struct gap from_idx[] = {"; \ - sed -e '/^[^[:space:]]*[[:space:]]*.x00/d' -e 's/^[^[:space:]]*[[:space:]]*.x\(..\)[[:space:]]*.*/0x\2 0x\1/p' -e d $^ | sort -u | $(PERL) gap.pl; \ + echo "static const struct gap from_idx[] = {"; \ + sed -e 's/^[^[:space:]]*[[:space:]]*.x\(..\)[[:space:]]*.*/0x\2 0x\1/p' -e d $^ | sort -u | $(PERL) gap.pl; \ echo " { start: 0xffff, end: 0xffff, idx: 0 }"; \ echo "};"; \ echo "static const char from_ucs4[] = {"; \ - sed -e '/^[^[:space:]]*[[:space:]]*.x00/d' -e 's/^[^[:space:]]*[[:space:]]*.x\(..\)[[:space:]]*.*/0x\2 0x\1/p' -e d $^ | sort -u | $(PERL) gaptab.pl; \ + sed -e 's/^[^[:space:]]*[[:space:]]*.x\(..\)[[:space:]]*.*/0x\2 0x\1/p' -e d $^ | sort -u | $(PERL) gaptab.pl; \ echo "};" ) > $@.new && rm -f $@ && mv $@.new $@ endef @@ -358,12 +358,12 @@ $(objpfx)iso8859-7jp.h: ../localedata/charmaps/ISO-8859-7 Makefile ( echo "static const uint32_t iso88597_to_ucs4[96] = {"; \ sed -e '/^[^[:space:]]*[[:space:]]*.x00/d' -e 's/^[^[:space:]]*[[:space:]]*.x\([A-F].\)[[:space:]]*.*/ [0x\1 - 0xA0] = 0x\2,/p' -e d $^ | sort -u; \ echo "};"; \ - echo "static struct gap from_idx[] = {"; \ - sed -e '/^[^[:space:]]*[[:space:]]*.x00/d' -e 's/^[^[:space:]]*[[:space:]]*.x\([A-F].\)[[:space:]]*.*/0x\2 0x\1/p' -e d $^ | sort -u | $(PERL) gap.pl; \ + echo "static const struct gap from_idx[] = {"; \ + sed -e 's/^[^[:space:]]*[[:space:]]*.x\([A-F].\)[[:space:]]*.*/0x\2 0x\1/p' -e d $^ | sort -u | $(PERL) gap.pl; \ echo " { start: 0xffff, end: 0xffff, idx: 0 }"; \ echo "};"; \ echo "static const char iso88597_from_ucs4[] = {"; \ - sed -e '/^[^[:space:]]*[[:space:]]*.x00/d' -e 's/^[^[:space:]]*[[:space:]]*.x\([A-F].\)[[:space:]]*.*/0x\2 0x\1/p' -e d $^ | sort -u | $(PERL) gaptab.pl; \ + sed -e 's/^[^[:space:]]*[[:space:]]*.x\([A-F].\)[[:space:]]*.*/0x\2 0x\1/p' -e d $^ | sort -u | $(PERL) gaptab.pl; \ echo "};" ) > $@.new && rm -f $@ && mv $@.new $@ diff --git a/iconvdata/gap.pl b/iconvdata/gap.pl index 8d595e3..2a06adc 100644 --- a/iconvdata/gap.pl +++ b/iconvdata/gap.pl @@ -5,12 +5,12 @@ while (<>) { if ($u - $last > 6) { if ($last != 0) { printf (" { start: 0x%04x, end: 0x%04x, idx: %5d },\n", - $first, $last, $idx - $first); - $idx += $last - $first + 1; + $first, $last, $idx); + $idx -= $u - $last - 1; } $first=$u; } $last=$u; } printf (" { start: 0x%04x, end: 0x%04x, idx: %5d },\n", - $first, $last, $idx - $first); + $first, $last, $idx); diff --git a/iconvdata/iso-2022-jp.c b/iconvdata/iso-2022-jp.c index 9ca648c..2c0f701 100644 --- a/iconvdata/iso-2022-jp.c +++ b/iconvdata/iso-2022-jp.c @@ -54,7 +54,7 @@ struct gap #define PREPARE_LOOP \ enum direction dir = ((struct iso2022jp_data *) step->data)->dir; \ enum variant var = ((struct iso2022jp_data *) step->data)->var; \ - int save_state; \ + int save_set; \ int set = data->statep->count; #define END_LOOP \ data->statep->count = set; diff --git a/iconvdata/iso-2022-kr.c b/iconvdata/iso-2022-kr.c index 16e656a..69a1f5f 100644 --- a/iconvdata/iso-2022-kr.c +++ b/iconvdata/iso-2022-kr.c @@ -23,11 +23,17 @@ #include #include "ksc5601.h" +#include + /* This makes obvious what everybody knows: 0x1b is the Esc character. */ +#define ESC 0x1b + +/* The shift sequences for this charset (we it does not use ESC). */ #define SI 0x0f #define SO 0x0e /* Definitions used in the body of the `gconv' function. */ +#define CHARSET_NAME "ISO-2022-KR//" #define DEFINE_INIT 1 #define DEFINE_FINI 1 #define FROM_LOOP from_iso2022kr_loop @@ -37,8 +43,10 @@ #define MIN_NEEDED_TO 4 #define MAX_NEEDED_TO 4 #define PREPARE_LOOP \ - int save_set; + int save_set; \ int set = data->statep->count; +#define EXTRA_LOOP_ARGS , set + /* The COUNT element of the state keeps track of the currently selected character set. The possible values are: */ @@ -58,7 +66,7 @@ enum if (step->data == &from_object) \ /* It's easy, we don't have to emit anything, we just reset the \ state for the input. */ \ - set = 0; \ + data->statep->count = 0; \ else \ { \ char *outbuf = data->outbuf; \ @@ -73,7 +81,7 @@ enum /* Write out the shift sequence. */ \ *outbuf++ = SO; \ data->outbuf = outbuf; \ - set = 0; \ + data->statep->count = 0; \ } \ } \ } @@ -221,43 +229,46 @@ enum later and now simply use a fixed order in which we test for \ availability */ \ \ - if (ch <= 0x7f) \ - { \ - /* We must encode using ASCII. First write out the \ - escape sequence. */ \ - *outptr++ = SO; \ - set = ASCII_set; \ - \ - if (NEED_LENGTH_TEST && outptr == outend) \ - { \ - result = GCONV_FULL_OUTPUT; \ - break; \ - } \ - \ - *outptr++ = ch; \ - } \ - else \ - { \ - written = ucs4_to_ksc5601 (ch, buf, 2); \ - if (written != UNKNOWN_10646_CHAR) \ + if (ch <= 0x7f) \ { \ - /* We use KSC 5601. */ \ - *outptr++ = SI; \ - set = KSC5601_set; \ + /* We must encode using ASCII. First write out the \ + escape sequence. */ \ + *outptr++ = SO; \ + set = ASCII_set; \ \ - if (NEED_LENGTH_TEST && outptr + 2 > outend) \ + if (NEED_LENGTH_TEST && outptr == outend) \ { \ result = GCONV_FULL_OUTPUT; \ break; \ } \ \ - *outptr++ = buf[0]; \ - *outptr++ = buf[1]; \ + *outptr++ = ch; \ } \ else \ { \ - result = GCONV_ILLEGAL_INPUT; \ - break; \ + char buf[2]; \ + \ + written = ucs4_to_ksc5601 (ch, buf, 2); \ + if (written != UNKNOWN_10646_CHAR) \ + { \ + /* We use KSC 5601. */ \ + *outptr++ = SI; \ + set = KSC5601_set; \ + \ + if (NEED_LENGTH_TEST && outptr + 2 > outend) \ + { \ + result = GCONV_FULL_OUTPUT; \ + break; \ + } \ + \ + *outptr++ = buf[0]; \ + *outptr++ = buf[1]; \ + } \ + else \ + { \ + result = GCONV_ILLEGAL_INPUT; \ + break; \ + } \ } \ } \ } \ -- cgit v1.1