/**************************************************************************
 *
 * codecvte.h - Example of user defined codecvt facet. 
 *               See Class Reference Section
 *
 ***************************************************************************
 *
 * (c) Copyright 1994, 1998 Rogue Wave Software, Inc.
 * ALL RIGHTS RESERVED
 *
 * The software and information contained herein are proprietary to, and
 * comprise valuable trade secrets of, Rogue Wave Software, Inc., which
 * intends to preserve as trade secrets such software and information.
 * This software is furnished pursuant to a written license agreement and
 * may be used, copied, transmitted, and stored only in accordance with
 * the terms of such license and with the inclusion of the above copyright
 * notice.  This software and information or any other copies thereof may
 * not be provided or otherwise made available to any other person.
 *
 * Notwithstanding any other lease or license that may pertain to, or
 * accompany the delivery of, this computer software and information, the
 * rights of the Government regarding its use, reproduction and disclosure
 * are as set forth in Section 52.227-19 of the FARS Computer
 * Software-Restricted Rights clause.
 * 
 * Use, duplication, or disclosure by the Government is subject to
 * restrictions as set forth in subparagraph (c)(1)(ii) of the Rights in
 * Technical Data and Computer Software clause at DFARS 252.227-7013.
 * Contractor/Manufacturer is Rogue Wave Software, Inc.,
 * P.O. Box 2328, Corvallis, Oregon 97339.
 *
 * This computer software and information is distributed with "restricted
 * rights."  Use, duplication or disclosure is subject to restrictions as
 * set forth in NASA FAR SUP 18-52.227-79 (April 1985) "Commercial
 * Computer Software-Restricted Rights (April 1985)."  If the Clause at
 * 18-52.227-74 "Rights in Data General" is specified in the contract,
 * then the "Alternate III" clause applies.
 *
 **************************************************************************/
 
#include <locale>
#include <strstream>
#include <functional>
#include <algorithm>

#ifndef _RWSTD_NO_NAMESPACE
using std::codecvt;
using std::min;
#ifdef _RWSTD_NO_MBSTATE_T
using std::mbstate_t;
#endif
#endif

#define RWSTD_TABLE_SIZE 59
// 
// This facet performs a conversion from  Latin Alphabet No. 1 
// (ISO 8859-1) to U.S.  ASCII code page 437.  Some conversions are one
// way (from ISO to ASCII, but not back again) because this ASCII 
// code page has no equivilent to the ISO character.
//
class ex_codecvt : public codecvt<char,char,mbstate_t>
{
private:
    static char table_[RWSTD_TABLE_SIZE][3]; 
                           
protected:
  virtual result do_in(mbstate_t&,
      const char* from, const char* from_end, const char*& from_next,
      char* to, char* to_limit, char*& to_next) const
  {  
    bool match;
    int i = min(to_limit-to,from_end-from);
    from_next = from;
    to_next = to;
    for (int j =0; j < i; j++)
    {
      match = false;
      for (int k = 0; k < RWSTD_TABLE_SIZE; k++)
      {  
        if (*from_next >= table_[k][0] && 
            *from_next <= table_[k][1])
        {
          *to_next = table_[k][2];
          match = true;
          break;
        }
      }
      if (!match)
        *to_next = *from_next;
      from_next++;
      to_next++;
    }
    return ok;
  }

  virtual result do_out(mbstate_t&,
    const char* from, const char* from_end, const char*& from_next,
    char* to, char* to_limit, char*& to_next) const
  {
    bool match;
    int i = min(to_limit-to,from_end-from);
    from_next = from;
    to_next = to;
    for (int j =0; j < i; j++)
    {
      match = false;
      for (int k = 0; k < RWSTD_TABLE_SIZE; k++)
      {  
        if (*from_next == table_[k][2] && 
            table_[k][0] == table_[k][1])
        {
          *to_next = table_[k][1];
          match = true;
          break;
        }
      }
      if (!match)
        *to_next = *from_next;
      from_next++;
      to_next++;
    }
    return ok;
  }

  virtual bool do_always_noconv() const _RWSTD_THROW_SPEC_NULL
  { return false; }

  virtual int do_encoding() const _RWSTD_THROW_SPEC_NULL
  { return 1; }

  virtual int do_length (const mbstate_t&, const char* from,
                         const char* end, size_t max) const
  { return min((size_t)(end - from),max); }

  virtual int do_max_length() const _RWSTD_THROW_SPEC_NULL
  { return INT_MAX; }

};
 
char ex_codecvt::table_[RWSTD_TABLE_SIZE][3] =
                             { 0xa2, 0xa2, 0x9b,
                               0xa3, 0xa3, 0x9c,
                               0xa5, 0xa5, 0x9d,
                               0xa7, 0xa7, 0x15,
                               0xa8, 0xa8, 0x22,
                               0xaa, 0xaa, 0xa6,
                               0xab, 0xab, 0xae,
                               0xb5, 0xb5, 0xe6,
                               0xb6, 0xb6, 0x14,
                               0xb7, 0xb7, 0xfa,
                               0xba, 0xba, 0xa7,
                               0xbb, 0xbb, 0xaf,
                               0xbc, 0xbc, 0xac,
                               0xbd, 0xbd, 0xab,
                               0xbf, 0xbf, 0xa8,
                               0xc0, 0xc3, 0x41,
                               0xc4, 0xc4, 0x8e,
                               0xc5, 0xc5, 0x41,
                               0xc6, 0xc6, 0x92,
                               0xc7, 0xc7, 0x80,
                               0xc8, 0xc8, 0x45,
                               0xc9, 0xc9, 0x90,
                               0xca, 0xcb, 0x45,
                               0xcc, 0xcf, 0x49,
                               0xd1, 0xd1, 0xa5,
                               0xd2, 0xd5, 0x4f,
                               0xd6, 0xd6, 0x99,
                               0xd8, 0xd8, 0xed,
                               0xd9, 0xdb, 0x55,
                               0xdc, 0xdc, 0x9a,
                               0xdd, 0xdd, 0x59,
                               0xdf, 0xdf, 0xe1,
                               0xe0, 0xe0, 0x85,
                               0xe1, 0xe1, 0xa0,
                               0xe2, 0xe2, 0x83,
                               0xe3, 0xe3, 0x61,
                               0xe4, 0xe4, 0x84,
                               0xe5, 0xe5, 0x86,
                               0xe6, 0xe6, 0x91,
                               0xe7, 0xe7, 0x87,
                               0xe8, 0xe8, 0x8a,
                               0xe9, 0xe9, 0x82,
                               0xea, 0xea, 0x88,
                               0xeb, 0xeb, 0x89,
                               0xec, 0xec, 0x8d,
                               0xed, 0xed, 0xa1,
                               0xee, 0xee, 0x8c,
                               0xef, 0xef, 0x8b,
                               0xf1, 0xf1, 0xa4,
                               0xf2, 0xf2, 0x95,
                               0xf3, 0xf3, 0xa2,
                               0xf4, 0xf4, 0x93,
                               0xf5, 0xf5, 0x6f,
                               0xf6, 0xf6, 0x94,
                               0xf9, 0xf9, 0x97,
                               0xfa, 0xfa, 0xa3,
                               0xfb, 0xfb, 0x96,
                               0xfc, 0xfc, 0x81,
                               0xff, 0xff, 0x98 };