src/libpspp/legacy-encoding.c

   1 /* PSPP - a program for statistical analysis.
   2    Copyright (C) 2006 Free Software Foundation, Inc.
   3
   4    This program is free software: you can redistribute it and/or modify
   5    it under the terms of the GNU General Public License as published by
   6    the Free Software Foundation, either version 3 of the License, or
   7    (at your option) any later version.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program.  If not, see <http://www.gnu.org/licenses/>. */
  16
  17 #include <config.h>
  18
  19 #include <libpspp/legacy-encoding.h>
  20
  21 #include "str.h"
  22
  23 static const char ascii_to_ebcdic[256];
  24 static const char ebcdic_to_ascii[256];
  25
  26 void
  27 legacy_recode (const char *from, const char *src,
  28              const char *to, char *dst,
  29              size_t size)
  30 {
  31   if (0 != strcmp (from, to))
  32     {
  33       const char *table;
  34       size_t i;
  35
  36       table = (0 == strcmp (from, "PSPP-LEGACY-ASCII")) ? ascii_to_ebcdic : ebcdic_to_ascii;
  37       for (i = 0; i < size; i++)
  38         dst[i] = table[(unsigned char) src[i]];
  39     }
  40   else
  41     {
  42       if (src != dst)
  43         memcpy (dst, src, size);
  44     }
  45 }
  46
  47 char
  48 legacy_to_native (const char *from, char c)
  49 {
  50   legacy_recode (from, &c, LEGACY_NATIVE, &c, 1);
  51   return c;
  52 }
  53
  54 char
  55 legacy_from_native (const char *to, char c)
  56 {
  57   legacy_recode (LEGACY_NATIVE, &c, to, &c, 1);
  58   return c;
  59 }
  60
  61 static const char ascii_to_ebcdic[256] =
  62   {
  63     0x00, 0x01, 0x02, 0x03, 0x37, 0x2d, 0x2e, 0x2f,
  64     0x16, 0x05, 0x25, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
  65     0x10, 0x11, 0x12, 0x13, 0x3c, 0x3d, 0x32, 0x26,
  66     0x18, 0x19, 0x3f, 0x27, 0x1c, 0x1d, 0x1e, 0x1f,
  67     0x40, 0x5a, 0x7f, 0x7b, 0x5b, 0x6c, 0x50, 0x7d,
  68     0x4d, 0x5d, 0x5c, 0x4e, 0x6b, 0x60, 0x4b, 0x61,
  69     0xf0, 0xf1, 0xf2, 0xf3, 0xf4, 0xf5, 0xf6, 0xf7,
  70     0xf8, 0xf9, 0x7a, 0x5e, 0x4c, 0x7e, 0x6e, 0x6f,
  71     0x7c, 0xc1, 0xc2, 0xc3, 0xc4, 0xc5, 0xc6, 0xc7,
  72     0xc8, 0xc9, 0xd1, 0xd2, 0xd3, 0xd4, 0xd5, 0xd6,
  73     0xd7, 0xd8, 0xd9, 0xe2, 0xe3, 0xe4, 0xe5, 0xe6,
  74     0xe7, 0xe8, 0xe9, 0xad, 0xe0, 0xbd, 0x9a, 0x6d,
  75     0x79, 0x81, 0x82, 0x83, 0x84, 0x85, 0x86, 0x87,
  76     0x88, 0x89, 0x91, 0x92, 0x93, 0x94, 0x95, 0x96,
  77     0x97, 0x98, 0x99, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6,
  78     0xa7, 0xa8, 0xa9, 0xc0, 0x4f, 0xd0, 0x5f, 0x07,
  79     0x20, 0x21, 0x22, 0x23, 0x24, 0x15, 0x06, 0x17,
  80     0x28, 0x29, 0x2a, 0x2b, 0x2c, 0x09, 0x0a, 0x1b,
  81     0x30, 0x31, 0x1a, 0x33, 0x34, 0x35, 0x36, 0x08,
  82     0x38, 0x39, 0x3a, 0x3b, 0x04, 0x14, 0x3e, 0xe1,
  83     0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47, 0x48,
  84     0x49, 0x51, 0x52, 0x53, 0x54, 0x55, 0x56, 0x57,
  85     0x58, 0x59, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
  86     0x68, 0x69, 0x70, 0x71, 0x72, 0x73, 0x74, 0x75,
  87     0x76, 0x77, 0x78, 0x80, 0x8a, 0x8b, 0x8c, 0x8d,
  88     0x8e, 0x8f, 0x90, 0x6a, 0x9b, 0x9c, 0x9d, 0x9e,
  89     0x9f, 0xa0, 0xaa, 0xab, 0xac, 0x4a, 0xae, 0xaf,
  90     0xb0, 0xb1, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7,
  91     0xb8, 0xb9, 0xba, 0xbb, 0xbc, 0xa1, 0xbe, 0xbf,
  92     0xca, 0xcb, 0xcc, 0xcd, 0xce, 0xcf, 0xda, 0xdb,
  93     0xdc, 0xdd, 0xde, 0xdf, 0xea, 0xeb, 0xec, 0xed,
  94     0xee, 0xef, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xff,
  95   };
  96
  97 static const char ebcdic_to_ascii[256] =
  98   {
  99     0x00, 0x01, 0x02, 0x03, 0x9c, 0x09, 0x86, 0x7f,
 100     0x97, 0x8d, 0x8e, 0x0b, 0x0c, 0x0d, 0x0e, 0x0f,
 101     0x10, 0x11, 0x12, 0x13, 0x9d, 0x85, 0x08, 0x87,
 102     0x18, 0x19, 0x92, 0x8f, 0x1c, 0x1d, 0x1e, 0x1f,
 103     0x80, 0x81, 0x82, 0x83, 0x84, 0x0a, 0x17, 0x1b,
 104     0x88, 0x89, 0x8a, 0x8b, 0x8c, 0x05, 0x06, 0x07,
 105     0x90, 0x91, 0x16, 0x93, 0x94, 0x95, 0x96, 0x04,
 106     0x98, 0x99, 0x9a, 0x9b, 0x14, 0x15, 0x9e, 0x1a,
 107     0x20, 0xa0, 0xa1, 0xa2, 0xa3, 0xa4, 0xa5, 0xa6,
 108     0xa7, 0xa8, 0xd5, 0x2e, 0x3c, 0x28, 0x2b, 0x7c,
 109     0x26, 0xa9, 0xaa, 0xab, 0xac, 0xad, 0xae, 0xaf,
 110     0xb0, 0xb1, 0x21, 0x24, 0x2a, 0x29, 0x3b, 0x7e,
 111     0x2d, 0x2f, 0xb2, 0xb3, 0xb4, 0xb5, 0xb6, 0xb7,
 112     0xb8, 0xb9, 0xcb, 0x2c, 0x25, 0x5f, 0x3e, 0x3f,
 113     0xba, 0xbb, 0xbc, 0xbd, 0xbe, 0xbf, 0xc0, 0xc1,
 114     0xc2, 0x60, 0x3a, 0x23, 0x40, 0x27, 0x3d, 0x22,
 115     0xc3, 0x61, 0x62, 0x63, 0x64, 0x65, 0x66, 0x67,
 116     0x68, 0x69, 0xc4, 0xc5, 0xc6, 0xc7, 0xc8, 0xc9,
 117     0xca, 0x6a, 0x6b, 0x6c, 0x6d, 0x6e, 0x6f, 0x70,
 118     0x71, 0x72, 0x5e, 0xcc, 0xcd, 0xce, 0xcf, 0xd0,
 119     0xd1, 0xe5, 0x73, 0x74, 0x75, 0x76, 0x77, 0x78,
 120     0x79, 0x7a, 0xd2, 0xd3, 0xd4, 0x5b, 0xd6, 0xd7,
 121     0xd8, 0xd9, 0xda, 0xdb, 0xdc, 0xdd, 0xde, 0xdf,
 122     0xe0, 0xe1, 0xe2, 0xe3, 0xe4, 0x5d, 0xe6, 0xe7,
 123     0x7b, 0x41, 0x42, 0x43, 0x44, 0x45, 0x46, 0x47,
 124     0x48, 0x49, 0xe8, 0xe9, 0xea, 0xeb, 0xec, 0xed,
 125     0x7d, 0x4a, 0x4b, 0x4c, 0x4d, 0x4e, 0x4f, 0x50,
 126     0x51, 0x52, 0xee, 0xef, 0xf0, 0xf1, 0xf2, 0xf3,
 127     0x5c, 0x9f, 0x53, 0x54, 0x55, 0x56, 0x57, 0x58,
 128     0x59, 0x5a, 0xf4, 0xf5, 0xf6, 0xf7, 0xf8, 0xf9,
 129     0x30, 0x31, 0x32, 0x33, 0x34, 0x35, 0x36, 0x37,
 130     0x38, 0x39, 0xfa, 0xfb, 0xfc, 0xfd, 0xfe, 0xff,
 131   };
 132