common/conv.c

   1 /*-
   2  * Copyright (c) 1993, 1994
   3  *      The Regents of the University of California.  All rights reserved.
   4  * Copyright (c) 1993, 1994, 1995, 1996
   5  *      Keith Bostic.  All rights reserved.
   6  *
   7  * See the LICENSE file for redistribution information.
   8  */
   9
  10 #include "config.h"
  11
  12 #ifndef lint
  13 static const char sccsid[] = "$Id: conv.c,v 1.5 2000/07/21 17:35:02 skimo Exp $ (Berkeley) $Date: 2000/07/21 17:35:02 $";
  14 #endif /* not lint */
  15
  16 #include <sys/types.h>
  17 #include <sys/queue.h>
  18 #include <sys/time.h>
  19
  20 #include <bitstring.h>
  21 #include <errno.h>
  22 #include <limits.h>
  23 #include <stdio.h>
  24 #include <stdlib.h>
  25 #include <string.h>
  26 #include <unistd.h>
  27
  28 #include "common.h"
  29
  30 int
  31 default_char2int(CONV *conv, const char * str, ssize_t len, CHAR_T **tostr, size_t *tolen)
  32 {
  33     int i;
  34
  35     BINC_RETW(NULL, conv->buffer, conv->size, len);
  36     *tostr = conv->buffer;
  37
  38     *tolen = len;
  39     for (i = 0; i < len; ++i)
  40         (*tostr)[i] = (u_char) str[i];
  41
  42     return 0;
  43 }
  44
  45 int
  46 default_int2char(CONV *conv, const CHAR_T * str, ssize_t len, char **tostr, size_t *tolen)
  47 {
  48     int i;
  49
  50     BINC_RET(NULL, conv->buffer, conv->size, len);
  51     *tostr = conv->buffer;
  52
  53     *tolen = len;
  54     for (i = 0; i < len; ++i)
  55         (*tostr)[i] = str[i];
  56
  57     return 0;
  58 }
  59
  60 int
  61 default_int2disp(CONV *conv, const CHAR_T * str, ssize_t len, char **tostr, size_t *tolen)
  62 {
  63     int i, j;
  64
  65     BINC_RET(NULL, conv->buffer, conv->size, len * 2);
  66     *tostr = conv->buffer;
  67
  68     for (i = 0, j = 0; i < len; ++i)
  69         if (CHAR_WIDTH(NULL, str[i]) > 1) {
  70             (*tostr)[j++] = '[';
  71             (*tostr)[j++] = ']';
  72         } else
  73             (*tostr)[j++] = str[i];
  74     *tolen = j;
  75
  76     return 0;
  77 }
  78
  79 int
  80 gb2int(CONV *conv, const char * str, ssize_t len, CHAR_T **tostr, size_t *tolen)
  81 {
  82     int i, j;
  83
  84     BINC_RETW(NULL, conv->buffer, conv->size, len);
  85     *tostr = conv->buffer;
  86
  87     for (i = 0, j = 0; i < len; ++i) {
  88         if (str[i] & 0x80) {
  89             if (i+1 < len && str[i] & 0x80) {
  90                 (*tostr)[j++] = INT9494(F_GB,str[i]&0x7F,str[i+1]&0x7F);
  91                 ++i;
  92             } else {
  93                 (*tostr)[j++] = INTILL(str[i]);
  94             }
  95         } else
  96             (*tostr)[j++] = str[i];
  97     }
  98     *tolen = j;
  99
 100     return 0;
 101 }
 102
 103 int
 104 int2gb(CONV *conv, const CHAR_T * str, ssize_t len, char **tostr, size_t *tolen)
 105 {
 106     int i, j;
 107
 108     BINC_RET(NULL, conv->buffer, conv->size, len * 2);
 109     *tostr = conv->buffer;
 110
 111     for (i = 0, j = 0; i < len; ++i) {
 112         if (INTIS9494(str[i])) {
 113             (*tostr)[j++] = INT9494R(str[i]) | 0x80;
 114             (*tostr)[j++] = INT9494C(str[i]) | 0x80;
 115         } else {
 116             (*tostr)[j++] = str[i] & 0xFF;
 117         }
 118     }
 119     *tolen = j;
 120
 121     return 0;
 122 }
 123
 124 CONV default_conv = { 0, 0, default_char2int, default_int2char,
 125                       default_char2int, default_int2char, default_int2disp };
 126 CONV gb_conv = { 0, 0, default_char2int, default_int2char,
 127                       gb2int, int2gb, default_int2disp };
 128
 129 void
 130 conv_init (SCR *orig, SCR *sp)
 131 {
 132     if (orig != NULL)
 133         sp->conv = orig->conv;
 134     else
 135         sp->conv = &default_conv;
 136 }
 137
 138 int
 139 conv_enc (SCR *sp, char *enc)
 140 {
 141     if (!*enc) {
 142         sp->conv = &default_conv;
 143         return 0;
 144     }
 145     if (!strcmp(enc,"GB")) {
 146         sp->conv = &gb_conv;
 147         return 0;
 148     }
 149     return 1;
 150 }
 151