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,"REQ[%X] %s:%d memory allocation error", TO_ADDR(r),__FILE__,__LINE__);
  55     DBG(r,"REQ[%X] end %s()", TO_ADDR(r),__func__);
  56     return (char*)src;
  57   }
  58
  59   memset(obuf, 0, ilen + 1);
  60   for (ii=0; ii<ilen; ii++) {
  61     /* sjis only */
  62     if (is_sjis_kana(src[ii])) {
  63       obuf[olen++] = src[ii];
  64     }
  65     else if (is_sjis_kanji(src[ii])) {
  66       unsigned char firstbyte  = src[ii + 0];
  67       unsigned char secondbyte = src[ii + 1];
  68       if (   firstbyte == 0x82
  69           && (secondbyte >= 0x4F && secondbyte <= 0x58)) {
  70         unsigned char p = secondbyte - 0x4F;
  71         /* Detect Zenkaku Number */
  72         obuf[olen] = '0' + p;
  73         olen++;
  74       }
  75       else {
  76         obuf[olen++] = src[ii + 0];
  77         obuf[olen++] = src[ii + 1];
  78       }
  79       ii++;
  80     }
  81     else {
  82       obuf[olen++] = src[ii];
  83     }
  84   }
  85   *len = olen;
  86
  87   DBG(r,"REQ[%X] end %s()", TO_ADDR(r),__func__);
  88   return obuf;
  89 }
  90 /*
  91  * vim: ts=2 et
  92  */