GNU General Public License for more details.
*/
+/* $Id$ */
#include "silcincludes.h"
#include "silcstrutil.h"
if (!bin || !bin_len)
return 0;
+ if (silc_utf8_valid(bin, bin_len) && bin_len <= utf8_size) {
+ memcpy(utf8, bin, bin_len);
+ return bin_len;
+ }
+
+ if (bin_encoding == SILC_STRING_LANGUAGE) {
+#if defined(HAVE_ICONV) && defined(HAVE_NL_LANGINFO) && defined(CODESET)
+ char *fromconv, *icp, *ocp;
+ iconv_t icd;
+ size_t inlen, outlen;
+
+ setlocale(LC_CTYPE, "");
+ fromconv = nl_langinfo(CODESET);
+ if (fromconv && strlen(fromconv)) {
+ icd = iconv_open("UTF-8", fromconv);
+ icp = (char *)bin;
+ ocp = (char *)utf8;
+ inlen = bin_len;
+ outlen = utf8_size;
+ if (icd != (iconv_t)-1 &&
+ (iconv(icd, &icp, &inlen, &ocp, &outlen) != -1)) {
+ utf8_size -= outlen;
+ iconv_close(icd);
+ return utf8_size;
+ } else {
+ if (icd != (iconv_t)-1)
+ iconv_close(icd);
+ }
+ }
+#endif
+
+ /* Fallback to 8-bit ASCII */
+ bin_encoding = SILC_STRING_ASCII;
+ }
+
for (i = 0; i < bin_len; i++) {
switch (bin_encoding) {
case SILC_STRING_ASCII:
charval = bin[i];
break;
case SILC_STRING_ASCII_ESC:
+ SILC_NOT_IMPLEMENTED("SILC_STRING_ASCII_ESC");
+ return 0;
break;
case SILC_STRING_BMP:
+ SILC_GET16_MSB(charval, bin + i);
+ i += 1;
+ break;
+ case SILC_STRING_BMP_LSB:
+ SILC_GET16_LSB(charval, bin + i);
+ i += 1;
break;
case SILC_STRING_UNIVERSAL:
+ SILC_GET32_MSB(charval, bin + i);
+ i += 3;
+ break;
+ case SILC_STRING_UNIVERSAL_LSB:
+ SILC_GET32_LSB(charval, bin + i);
+ i += 3;
+ break;
+ case SILC_STRING_LANGUAGE:
break;
}
if (!utf8 || !utf8_len)
return 0;
+ if (bin_encoding == SILC_STRING_LANGUAGE) {
+#if defined(HAVE_ICONV) && defined(HAVE_NL_LANGINFO) && defined(CODESET)
+ char *toconv, *icp, *ocp;
+ iconv_t icd;
+ size_t inlen, outlen;
+
+ setlocale(LC_CTYPE, "");
+ toconv = nl_langinfo(CODESET);
+ if (toconv && strlen(toconv)) {
+ icd = iconv_open(toconv, "UTF-8");
+ icp = (char *)utf8;
+ ocp = (char *)bin;
+ inlen = utf8_len;
+ outlen = bin_size;
+ if (icd != (iconv_t)-1 &&
+ (iconv(icd, &icp, &inlen, &ocp, &outlen) != -1)) {
+ bin_size -= outlen;
+ iconv_close(icd);
+ return bin_size;
+ } else {
+ if (icd != (iconv_t)-1)
+ iconv_close(icd);
+ }
+ }
+#endif
+
+ /* Fallback to 8-bit ASCII */
+ bin_encoding = SILC_STRING_ASCII;
+ }
+
for (i = 0; i < utf8_len; i++) {
if ((utf8[i] & 0x80) == 0x00) {
charval = utf8[i] & 0x7f;
enclen++;
break;
case SILC_STRING_ASCII_ESC:
+ SILC_NOT_IMPLEMENTED("SILC_STRING_ASCII_ESC");
return 0;
break;
case SILC_STRING_BMP:
- return 0;
+ SILC_PUT16_MSB(charval, bin + enclen);
+ enclen += 2;
+ break;
+ case SILC_STRING_BMP_LSB:
+ SILC_PUT16_LSB(charval, bin + enclen);
+ enclen += 2;
break;
case SILC_STRING_UNIVERSAL:
- return 0;
+ SILC_PUT32_MSB(charval, bin + enclen);
+ enclen += 4;
+ break;
+ case SILC_STRING_UNIVERSAL_LSB:
+ SILC_PUT32_LSB(charval, bin + enclen);
+ enclen += 4;
+ break;
+ case SILC_STRING_LANGUAGE:
break;
}
}
{
return silc_utf8_decode(utf8, utf8_len, 0, NULL, 0) != 0;
}
+
+/* Mime constants and macros */
+#define MIME_VERSION "MIME-Version: "
+#define MIME_VERSION_LEN 14
+#define MIME_CONTENT_TYPE "Content-Type: "
+#define MIME_CONTENT_TYPE_LEN 14
+#define MIME_TRANSFER_ENCODING "Content-Transfer-Encoding: "
+#define MIME_TRANSFER_ENCODING_LEN 27
+
+#define MIME_GET_FIELD(header, mime, mime_len, field, field_len, \
+ dest, dest_size) \
+do { \
+ if (dest) { \
+ char *f = strstr(header, field); \
+ if (f) { \
+ f = (char *)mime + (f - header) + field_len; \
+ for (i = 0; i < (mime_len - (f - (char *)mime)); i++) { \
+ if (f[i] == '\r' || f[i] == '\n' || i == dest_size) \
+ break; \
+ dest[i] = f[i]; \
+ } \
+ } \
+ } \
+} while(0)
+
+/* Parses MIME object and MIME header in it. */
+
+bool
+silc_mime_parse(const unsigned char *mime, SilcUInt32 mime_len,
+ char *version, SilcUInt32 version_size,
+ char *content_type, SilcUInt32 content_type_size,
+ char *transfer_encoding, SilcUInt32 transfer_encoding_size,
+ unsigned char **mime_data_ptr, SilcUInt32 *mime_data_len)
+{
+ int i;
+ char header[256];
+
+ memcpy(header, mime, 256 > mime_len ? mime_len : 256);
+ header[sizeof(header) - 1] = '\0';
+
+ /* Check for mandatory Content-Type field */
+ if (!strstr(header, MIME_CONTENT_TYPE))
+ return FALSE;
+
+ /* Get the pointer to the data area in the object */
+ for (i = 0; i < mime_len; i++) {
+ if (mime_len >= i + 4 &&
+ mime[i ] == '\r' && mime[i + 1] == '\n' &&
+ mime[i + 2] == '\r' && mime[i + 3] == '\n')
+ break;
+ }
+ if (i >= mime_len)
+ return FALSE;
+
+ if (mime_data_ptr)
+ *mime_data_ptr = (unsigned char *)mime + i + 4;
+ if (mime_data_len)
+ *mime_data_len = mime_len - ((mime + i + 4) - mime);
+
+ /* Get MIME version, Content-Type and Transfer Encoding fields */
+ MIME_GET_FIELD(header, mime, mime_len,
+ MIME_VERSION, MIME_VERSION_LEN,
+ version, version_size);
+ MIME_GET_FIELD(header, mime, mime_len,
+ MIME_CONTENT_TYPE, MIME_CONTENT_TYPE_LEN,
+ content_type, content_type_size);
+ MIME_GET_FIELD(header, mime, mime_len,
+ MIME_TRANSFER_ENCODING, MIME_TRANSFER_ENCODING_LEN,
+ transfer_encoding, transfer_encoding_size);
+
+ return TRUE;
+}