+ return len;
+}
+
+#endif // WC_UTF16
+
+
+// ----------------------------------------------------------------------------
+// UTF-32
+// ----------------------------------------------------------------------------
+
+#ifdef WORDS_BIGENDIAN
+#define wxMBConvUTF32straight wxMBConvUTF32BE
+#define wxMBConvUTF32swap wxMBConvUTF32LE
+#else
+#define wxMBConvUTF32swap wxMBConvUTF32BE
+#define wxMBConvUTF32straight wxMBConvUTF32LE
+#endif
+
+
+WXDLLIMPEXP_DATA_BASE(wxMBConvUTF32LE) wxConvUTF32LE;
+WXDLLIMPEXP_DATA_BASE(wxMBConvUTF32BE) wxConvUTF32BE;
+
+
+#ifdef WC_UTF16
+
+// copy 32bit MB to 16bit String
+size_t wxMBConvUTF32straight::MB2WC(wchar_t *buf, const char *psz, size_t n) const
+{
+ size_t len=0;
+
+ while (*(wxUint32*)psz && (!buf || len < n))
+ {
+ wxUint16 cc[2];
+
+ size_t pa=encode_utf16(*(wxUint32*)psz, cc);
+ if (pa == (size_t)-1)
+ return pa;
+
+ if (buf)
+ {
+ *buf++ = cc[0];
+ if (pa > 1)
+ *buf++ = cc[1];
+ }
+ len += pa;
+ psz += sizeof(wxUint32);
+ }
+ if (buf && len<n) *buf=0;
+
+ return len;
+}
+
+
+// copy 16bit String to 32bit MB
+size_t wxMBConvUTF32straight::WC2MB(char *buf, const wchar_t *psz, size_t n) const
+{
+ size_t len=0;
+
+ while (*psz && (!buf || len < n))
+ {
+ wxUint32 cc;
+
+ // cast is ok for WC_UTF16
+ size_t pa = decode_utf16((const wxUint16 *)psz, cc);
+ if (pa == (size_t)-1)
+ return pa;
+
+ if (buf)
+ {
+ *(wxUint32*)buf = cc;
+ buf += sizeof(wxUint32);
+ }
+ len += sizeof(wxUint32);
+ psz += pa;
+ }
+
+ if (buf && len<=n-sizeof(wxUint32))
+ *(wxUint32*)buf=0;
+
+ return len;
+}
+
+
+
+// swap 32bit MB to 16bit String
+size_t wxMBConvUTF32swap::MB2WC(wchar_t *buf, const char *psz, size_t n) const
+{
+ size_t len=0;
+
+ while (*(wxUint32*)psz && (!buf || len < n))
+ {
+ char tmp[4];
+ tmp[0] = psz[3]; tmp[1] = psz[2];
+ tmp[2] = psz[1]; tmp[3] = psz[0];
+
+
+ wxUint16 cc[2];
+
+ size_t pa=encode_utf16(*(wxUint32*)tmp, cc);
+ if (pa == (size_t)-1)
+ return pa;
+
+ if (buf)
+ {
+ *buf++ = cc[0];
+ if (pa > 1)
+ *buf++ = cc[1];
+ }
+ len += pa;
+ psz += sizeof(wxUint32);
+ }
+
+ if (buf && len<n)
+ *buf=0;
+
+ return len;
+}
+
+
+// swap 16bit String to 32bit MB
+size_t wxMBConvUTF32swap::WC2MB(char *buf, const wchar_t *psz, size_t n) const
+{
+ size_t len=0;
+
+ while (*psz && (!buf || len < n))
+ {
+ char cc[4];
+
+ // cast is ok for WC_UTF16
+ size_t pa=decode_utf16((const wxUint16 *)psz, *(wxUint32*)cc);
+ if (pa == (size_t)-1)
+ return pa;
+
+ if (buf)
+ {
+ *buf++ = cc[3];
+ *buf++ = cc[2];
+ *buf++ = cc[1];
+ *buf++ = cc[0];
+ }
+ len += sizeof(wxUint32);
+ psz += pa;
+ }
+
+ if (buf && len<=n-sizeof(wxUint32))
+ *(wxUint32*)buf=0;
+
+ return len;
+}
+
+#else // WC_UTF16
+
+
+// copy 32bit MB to 32bit String
+size_t wxMBConvUTF32straight::MB2WC(wchar_t *buf, const char *psz, size_t n) const
+{
+ size_t len=0;
+
+ while (*(wxUint32*)psz && (!buf || len < n))
+ {
+ if (buf)
+ *buf++ = *(wxUint32*)psz;
+ len++;
+ psz += sizeof(wxUint32);
+ }
+
+ if (buf && len<n)
+ *buf=0;
+
+ return len;
+}
+
+
+// copy 32bit String to 32bit MB
+size_t wxMBConvUTF32straight::WC2MB(char *buf, const wchar_t *psz, size_t n) const
+{
+ size_t len=0;
+
+ while (*psz && (!buf || len < n))
+ {
+ if (buf)
+ {
+ *(wxUint32*)buf = *psz;
+ buf += sizeof(wxUint32);
+ }
+
+ len += sizeof(wxUint32);
+ psz++;
+ }
+
+ if (buf && len<=n-sizeof(wxUint32))
+ *(wxUint32*)buf=0;
+
+ return len;
+}
+
+
+// swap 32bit MB to 32bit String
+size_t wxMBConvUTF32swap::MB2WC(wchar_t *buf, const char *psz, size_t n) const
+{
+ size_t len=0;
+
+ while (*(wxUint32*)psz && (!buf || len < n))
+ {
+ if (buf)
+ {
+ ((char *)buf)[0] = psz[3];
+ ((char *)buf)[1] = psz[2];
+ ((char *)buf)[2] = psz[1];
+ ((char *)buf)[3] = psz[0];
+ buf++;
+ }
+ len++;
+ psz += sizeof(wxUint32);
+ }
+
+ if (buf && len<n)
+ *buf=0;
+
+ return len;
+}
+
+
+// swap 32bit String to 32bit MB
+size_t wxMBConvUTF32swap::WC2MB(char *buf, const wchar_t *psz, size_t n) const
+{
+ size_t len=0;
+
+ while (*psz && (!buf || len < n))
+ {
+ if (buf)
+ {
+ *buf++ = ((char *)psz)[3];
+ *buf++ = ((char *)psz)[2];
+ *buf++ = ((char *)psz)[1];
+ *buf++ = ((char *)psz)[0];
+ }
+ len += sizeof(wxUint32);
+ psz++;
+ }
+
+ if (buf && len<=n-sizeof(wxUint32))
+ *(wxUint32*)buf=0;
+
+ return len;
+}
+
+
+#endif // WC_UTF16
+
+
+// ============================================================================
+// The classes doing conversion using the iconv_xxx() functions
+// ============================================================================
+
+#ifdef HAVE_ICONV
+
+// VS: glibc 2.1.3 is broken in that iconv() conversion to/from UCS4 fails with E2BIG
+// if output buffer is _exactly_ as big as needed. Such case is (unless there's
+// yet another bug in glibc) the only case when iconv() returns with (size_t)-1
+// (which means error) and says there are 0 bytes left in the input buffer --
+// when _real_ error occurs, bytes-left-in-input buffer is non-zero. Hence,
+// this alternative test for iconv() failure.
+// [This bug does not appear in glibc 2.2.]
+#if defined(__GLIBC__) && __GLIBC__ == 2 && __GLIBC_MINOR__ <= 1
+#define ICONV_FAILED(cres, bufLeft) ((cres == (size_t)-1) && \
+ (errno != E2BIG || bufLeft != 0))
+#else
+#define ICONV_FAILED(cres, bufLeft) (cres == (size_t)-1)
+#endif
+
+#define ICONV_CHAR_CAST(x) ((ICONV_CONST char **)(x))
+
+// ----------------------------------------------------------------------------
+// wxMBConv_iconv: encapsulates an iconv character set
+// ----------------------------------------------------------------------------
+
+class wxMBConv_iconv : public wxMBConv
+{
+public:
+ wxMBConv_iconv(const wxChar *name);
+ virtual ~wxMBConv_iconv();
+
+ virtual size_t MB2WC(wchar_t *buf, const char *psz, size_t n) const;
+ virtual size_t WC2MB(char *buf, const wchar_t *psz, size_t n) const;
+
+ bool IsOk() const
+ { return (m2w != (iconv_t)-1) && (w2m != (iconv_t)-1); }
+
+protected:
+ // the iconv handlers used to translate from multibyte to wide char and in
+ // the other direction
+ iconv_t m2w,
+ w2m;
+
+private:
+ // the name (for iconv_open()) of a wide char charset -- if none is
+ // available on this machine, it will remain NULL
+ static const char *ms_wcCharsetName;
+
+ // true if the wide char encoding we use (i.e. ms_wcCharsetName) has
+ // different endian-ness than the native one
+ static bool ms_wcNeedsSwap;
+};
+
+const char *wxMBConv_iconv::ms_wcCharsetName = NULL;
+bool wxMBConv_iconv::ms_wcNeedsSwap = false;
+
+wxMBConv_iconv::wxMBConv_iconv(const wxChar *name)
+{
+ // Do it the hard way
+ char cname[100];
+ for (size_t i = 0; i < wxStrlen(name)+1; i++)
+ cname[i] = (char) name[i];
+
+ // check for charset that represents wchar_t:
+ if (ms_wcCharsetName == NULL)
+ {
+ ms_wcNeedsSwap = false;
+
+ // try charset with explicit bytesex info (e.g. "UCS-4LE"):
+ ms_wcCharsetName = WC_NAME_BEST;
+ m2w = iconv_open(ms_wcCharsetName, cname);
+
+ if (m2w == (iconv_t)-1)
+ {
+ // try charset w/o bytesex info (e.g. "UCS4")
+ // and check for bytesex ourselves:
+ ms_wcCharsetName = WC_NAME;
+ m2w = iconv_open(ms_wcCharsetName, cname);
+
+ // last bet, try if it knows WCHAR_T pseudo-charset
+ if (m2w == (iconv_t)-1)
+ {
+ ms_wcCharsetName = "WCHAR_T";
+ m2w = iconv_open(ms_wcCharsetName, cname);
+ }
+
+ if (m2w != (iconv_t)-1)
+ {
+ char buf[2], *bufPtr;
+ wchar_t wbuf[2], *wbufPtr;
+ size_t insz, outsz;
+ size_t res;
+
+ buf[0] = 'A';
+ buf[1] = 0;
+ wbuf[0] = 0;
+ insz = 2;
+ outsz = SIZEOF_WCHAR_T * 2;
+ wbufPtr = wbuf;
+ bufPtr = buf;
+
+ res = iconv(m2w, ICONV_CHAR_CAST(&bufPtr), &insz,
+ (char**)&wbufPtr, &outsz);
+
+ if (ICONV_FAILED(res, insz))
+ {
+ ms_wcCharsetName = NULL;
+ wxLogLastError(wxT("iconv"));
+ wxLogError(_("Conversion to charset '%s' doesn't work."), name);
+ }
+ else
+ {
+ ms_wcNeedsSwap = wbuf[0] != (wchar_t)buf[0];
+ }
+ }
+ else
+ {
+ ms_wcCharsetName = NULL;
+
+ // VS: we must not output an error here, since wxWidgets will safely
+ // fall back to using wxEncodingConverter.
+ wxLogTrace(wxT("strconv"), wxT("Impossible to convert to/from charset '%s' with iconv, falling back to wxEncodingConverter."), name);
+ //wxLogError(
+ }
+ }
+ wxLogTrace(wxT("strconv"), wxT("wchar_t charset is '%s', needs swap: %i"), ms_wcCharsetName, ms_wcNeedsSwap);
+ }
+ else // we already have ms_wcCharsetName
+ {
+ m2w = iconv_open(ms_wcCharsetName, cname);
+ }
+
+ // NB: don't ever pass NULL to iconv_open(), it may crash!
+ if ( ms_wcCharsetName )
+ {
+ w2m = iconv_open( cname, ms_wcCharsetName);
+ }
+ else
+ {
+ w2m = (iconv_t)-1;
+ }
+}
+
+wxMBConv_iconv::~wxMBConv_iconv()
+{
+ if ( m2w != (iconv_t)-1 )
+ iconv_close(m2w);
+ if ( w2m != (iconv_t)-1 )
+ iconv_close(w2m);
+}
+
+size_t wxMBConv_iconv::MB2WC(wchar_t *buf, const char *psz, size_t n) const
+{
+ size_t inbuf = strlen(psz);
+ size_t outbuf = n * SIZEOF_WCHAR_T;
+ size_t res, cres;
+ // VS: Use these instead of psz, buf because iconv() modifies its arguments:
+ wchar_t *bufPtr = buf;
+ const char *pszPtr = psz;
+
+ if (buf)
+ {
+ // have destination buffer, convert there
+ cres = iconv(m2w,
+ ICONV_CHAR_CAST(&pszPtr), &inbuf,
+ (char**)&bufPtr, &outbuf);
+ res = n - (outbuf / SIZEOF_WCHAR_T);
+
+ if (ms_wcNeedsSwap)
+ {
+ // convert to native endianness
+ WC_BSWAP(buf /* _not_ bufPtr */, res)
+ }
+
+ // NB: iconv was given only strlen(psz) characters on input, and so
+ // it couldn't convert the trailing zero. Let's do it ourselves
+ // if there's some room left for it in the output buffer.
+ if (res < n)
+ buf[res] = 0;
+ }
+ else
+ {
+ // no destination buffer... convert using temp buffer
+ // to calculate destination buffer requirement
+ wchar_t tbuf[8];
+ res = 0;
+ do {
+ bufPtr = tbuf;
+ outbuf = 8*SIZEOF_WCHAR_T;
+
+ cres = iconv(m2w,
+ ICONV_CHAR_CAST(&pszPtr), &inbuf,
+ (char**)&bufPtr, &outbuf );
+
+ res += 8-(outbuf/SIZEOF_WCHAR_T);
+ } while ((cres==(size_t)-1) && (errno==E2BIG));
+ }
+
+ if (ICONV_FAILED(cres, inbuf))
+ {
+ //VS: it is ok if iconv fails, hence trace only
+ wxLogTrace(wxT("strconv"), wxT("iconv failed: %s"), wxSysErrorMsg(wxSysErrorCode()));
+ return (size_t)-1;
+ }
+
+ return res;
+}
+
+size_t wxMBConv_iconv::WC2MB(char *buf, const wchar_t *psz, size_t n) const
projects / wxWidgets.git / blobdiff