summaryrefslogtreecommitdiff
path: root/Build/source/texk/ptexenc/kanjicnv.c
diff options
context:
space:
mode:
authorDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
committerDenis Bitouzé <dbitouze@wanadoo.fr>2021-02-25 18:23:07 +0000
commitc6101f91d071883b48b1b4b51e5eba0f36d9a78d (patch)
tree1bf7f5a881d7a4f5c5bf59d0b2821943dd822372 /Build/source/texk/ptexenc/kanjicnv.c
parent07ee7222e389b0777456b427a55c22d0e6ffd267 (diff)
French translation for tlmgr updated
git-svn-id: svn://tug.org/texlive/trunk@57912 c570f23f-e606-0410-a88d-b1316a301751
Diffstat (limited to 'Build/source/texk/ptexenc/kanjicnv.c')
-rw-r--r--Build/source/texk/ptexenc/kanjicnv.c101
1 files changed, 0 insertions, 101 deletions
diff --git a/Build/source/texk/ptexenc/kanjicnv.c b/Build/source/texk/ptexenc/kanjicnv.c
deleted file mode 100644
index 75793863add..00000000000
--- a/Build/source/texk/ptexenc/kanjicnv.c
+++ /dev/null
@@ -1,101 +0,0 @@
-/*
- * KANJI Code conversion routines.
- */
-
-#include <ptexenc/c-auto.h>
-#include <ptexenc/kanjicnv.h>
-
-boolean isEUCkanji1(int c)
-{
- c &= 0xff;
- return (0xa1 <= c && c <= 0xfe);
-}
-
-boolean isEUCkanji2(int c)
-{
- c &= 0xff;
- return (0xa1 <= c && c <= 0xfe);
-}
-
-boolean isSJISkanji1(int c)
-{
- c &= 0xff;
- return ((0x81 <= c && c <= 0x9f) || (0xe0 <= c && c <= 0xfc));
-}
-
-boolean isSJISkanji2(int c)
-{
- c &= 0xff;
- return (0x40 <= c && c <= 0xfc && c != 0x7f);
-}
-
-/* EUC <=> JIS X 0208 code conversion */
-int EUCtoJIS(int kcode)
-{
- return (kcode & 0x7f7f);
-}
-
-int JIStoEUC(int kcode)
-{
- return (kcode | 0x8080);
-}
-
-/* Shift JIS <=> JIS Kanji code conversion */
-int SJIStoJIS(int kcode)
-{
- int byte1, byte2;
-
- byte1 = HI(kcode);
- byte2 = LO(kcode);
- byte1 -= ( byte1>=0xa0 ) ? 0xc1 : 0x81;
- kcode = ((byte1<<1) + 0x21)<<8;
- if ( byte2 >= 0x9f ) {
- kcode += 0x0100;
- kcode |= (byte2 - 0x7e) & 0xff;
- } else {
- kcode |= (byte2 - ((byte2<=0x7e) ? 0x1f : 0x20 )) & 0xff;
- }
- return kcode;
-}
-
-int JIStoSJIS(int kcode)
-{
- int high, low;
- int nh, nl;
-
- high = HI(kcode);
- low = LO(kcode);
- nh = ((high-0x21)>>1) + 0x81;
- if (nh > 0x9f) nh += 0x40;
- if (high & 1) {
- nl = low + 0x1f;
- if (low > 0x5f) nl++;
- } else
- nl = low + 0x7e;
- if (isSJISkanji1(nh) && isSJISkanji2(nl)) {
- return HILO(nh, nl);
- } else {
- return 0x813f;
- }
-}
-
-/* Shift JIS <=> EUC Kanji code conversion */
-int SJIStoEUC(int kcode)
-{
- return JIStoEUC(SJIStoJIS(kcode));
-}
-
-int EUCtoSJIS(int kcode)
-{
- return JIStoSJIS(EUCtoJIS(kcode));
-}
-
-/* KUTEN to JIS kanji code conversion */
-int KUTENtoJIS(int kcode)
-{
- /* in case of undefined in kuten code table */
- if (HI(kcode) == 0 || HI(kcode) > 95) return -1;
- if (LO(kcode) == 0 || LO(kcode) > 95) return -1;
-
- return kcode + 0x2020;
-}