src/chxj_conv_z2h_num.c

   1 /*
   2  * Copyright (C) 2005-2011 Atsushi Konno All rights reserved.
   3  * Copyright (C) 2005 QSDN,Inc. All rights reserved.
   4  *
   5  * Licensed under the Apache License, Version 2.0 (the "License");
   6  * you may not use this file except in compliance with the License.
   7  * You may obtain a copy of the License at
   8  *
   9  *     http://www.apache.org/licenses/LICENSE-2.0
  10  *
  11  * Unless required by applicable law or agreed to in writing, software
  12  * distributed under the License is distributed on an "AS IS" BASIS,
  13  * WITHOUT WARRANTIES OR CONDITIONS OF ANY KIND, either express or implied.
  14  * See the License for the specific language governing permissions and
  15  * limitations under the License.
  16  */
  17 #include "mod_chxj.h"
  18 #include "chxj_conv_z2h.h"
  19 #include "chxj_url_encode.h"
  20 #include "qs_parse_string.h"
  21 #include <errno.h>
  22
  23 /**
  24  */
  25 char *
  26 chxj_conv_z2h_num(request_rec *r, const char *src, apr_size_t *len, chxjconvrule_entry *entryp)
  27 {
  28   apr_size_t          ii;
  29   apr_size_t          ilen;
  30   apr_pool_t          *pool;
  31   char                *obuf;
  32   apr_size_t          olen;
  33
  34   DBG(r,"REQ[%X] start %s()",TO_ADDR(r),__func__);
  35
  36   if (entryp->action & CONVRULE_Z2H_NUM_OFF_BIT) {
  37     DBG(r,"REQ[%X] Detect Z2hNumOff", TO_ADDR(r));
  38     DBG(r,"REQ[%X] end %s()",TO_ADDR(r),__func__);
  39     return (char *)src;
  40   }
  41   if (! (entryp->action & CONVRULE_Z2H_NUM_ON_BIT)) {
  42     DBG(r,"REQ[%X] Detect Z2hNumOff", TO_ADDR(r));
  43     DBG(r,"REQ[%X] end %s()",TO_ADDR(r),__func__);
  44     return (char *)src;
  45   }
  46
  47   apr_pool_create(&pool, r->pool);
  48
  49   olen = 0;
  50   ilen = *len;
  51
  52   obuf = apr_palloc(pool, ilen + 1);
  53   if (! obuf) {
  54     ERR(r,"%s:%d REQ[%X] memory allocation error", __FILE__,__LINE__,(unsigned int)(apr_size_t)r);
  55     return (char*)src;
  56   }
  57
  58   memset(obuf, 0, ilen + 1);
  59   for (ii=0; ii<ilen; ii++) {
  60     /* sjis only */
  61     if (is_sjis_kana(src[ii])) {
  62       obuf[olen++] = src[ii];
  63     }
  64     else if (is_sjis_kanji(src[ii])) {
  65       unsigned char firstbyte  = src[ii + 0];
  66       unsigned char secondbyte = src[ii + 1];
  67       if (   firstbyte == 0x82
  68           && (secondbyte >= 0x4F && secondbyte <= 0x58)) {
  69         unsigned char p = secondbyte - 0x4F;
  70         /* Detect Zenkaku Number */
  71         obuf[olen] = '0' + p;
  72         olen++;
  73       }
  74       else {
  75         obuf[olen++] = src[ii + 0];
  76         obuf[olen++] = src[ii + 1];
  77       }
  78       ii++;
  79     }
  80     else {
  81       obuf[olen++] = src[ii];
  82     }
  83   }
  84   *len = olen;
  85
  86   DBG(r,"REQ[%X] end %s()",TO_ADDR(r),__func__);
  87   return obuf;
  88 }
  89 /*
  90  * vim: ts=2 et
  91  */