text: /*
     +----------------------------------------------------------------------+
     | PHP Version 7                                                        |
     +----------------------------------------------------------------------+
     | Copyright (c) 1997-2015 The PHP Group                                |
     +----------------------------------------------------------------------+
     | This source file is subject to version 3.01 of the PHP license,      |
     | that is bundled with this package in the file LICENSE, and is        |
     | available through the world-wide-web at the following url:           |
     | http://www.php.net/license/3_01.txt                                  |
     | If you did not receive a copy of the PHP license and are unable to   |
     | obtain it through the world-wide-web, please send a note to          |
     | license@php.net so we can mail you a copy immediately.               |
     +----------------------------------------------------------------------+
     | Author: Kirill Maximov <kir@actimind.com>                            |
     +----------------------------------------------------------------------+
   */
  
  /* $Id$ */
  
  #include <stdlib.h>
  
  #ifdef HAVE_UNISTD_H
  #include <unistd.h>
  #endif
  #include <string.h>
  #include <errno.h>
  
  #include "php.h"
  #include "quot_print.h"
  
  #include <stdio.h>
  
  /*
  *  Converting HEX char to INT value
  */
  static char php_hex2int(int c) /* {{{ */
  {
  	if (isdigit(c)) {
  		return c - '0';
  	}
  	else if (c >= 'A' && c <= 'F') {
  		return c - 'A' + 10;
  	}
  	else if (c >= 'a' && c <= 'f') {
  		return c - 'a' + 10;
  	}
  	else {
  		return -1;
  	}
  }
  /* }}} */
  
  PHPAPI zend_string *php_quot_print_decode(const unsigned char *str, size_t length, int replace_us_by_ws) /* {{{ */
  {
  	register size_t i;
  	register unsigned const char *p1;
  	register unsigned char *p2;
  	register unsigned int h_nbl, l_nbl;
  
  	size_t decoded_len, buf_size;
  	zend_string *retval;
  
  	static unsigned int hexval_tbl[256] = {
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 32, 16, 64, 64, 16, 64, 64,
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		32, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		 0,  1,  2,  3,  4,  5,  6,  7,  8,  9, 64, 64, 64, 64, 64, 64,
  		64, 10, 11, 12, 13, 14, 15, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		64, 10, 11, 12, 13, 14, 15, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64,
  		64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64, 64
  	};
  
  	if (replace_us_by_ws) {
  		replace_us_by_ws = '_';
  	}
  
  	i = length, p1 = str; buf_size = length;
  
  	while (i > 1 && *p1 != '\0') {
  		if (*p1 == '=') {
  			buf_size -= 2;
  			p1++;
  			i--;
  		}
  		p1++;
  		i--;
  	}
  
  	retval = zend_string_alloc(buf_size, 0);
  	i = length; p1 = str; p2 = (unsigned char*)retval->val;
  	decoded_len = 0;
  
  	while (i > 0 && *p1 != '\0') {
  		if (*p1 == '=') {
  			i--, p1++;
  			if (i == 0 || *p1 == '\0') {
  				break;
  			}
  			h_nbl = hexval_tbl[*p1];
  			if (h_nbl < 16) {
  				/* next char should be a hexadecimal digit */
  				if ((--i) == 0 || (l_nbl = hexval_tbl[*(++p1)]) >= 16) {
  					efree(retval);
  					return NULL;
  				}
  				*(p2++) = (h_nbl << 4) | l_nbl, decoded_len++;
  				i--, p1++;
  			} else if (h_nbl < 64) {
  				/* soft line break */
  				while (h_nbl == 32) {
  					if (--i == 0 || (h_nbl = hexval_tbl[*(++p1)]) == 64) {
  						efree(retval);
  						return NULL;
  					}
  				}
  				if (p1[0] == '\r' && i >= 2 && p1[1] == '\n') {
  					i--, p1++;
  				}
  				i--, p1++;
  			} else {
  				efree(retval);
  				return NULL;
  			}
  		} else {
  			*(p2++) = (replace_us_by_ws == *p1 ? '\x20': *p1);
  			i--, p1++, decoded_len++;
  		}
  	}
  
  	*p2 = '\0';
  	retval->len = decoded_len;
  	return retval;
  }
  /* }}} */
  
  #define PHP_QPRINT_MAXL 75
  
  PHPAPI zend_string *php_quot_print_encode(const unsigned char *str, size_t length) /* {{{ */
  {
  	zend_ulong lp = 0;
  	unsigned char c, *d;
  	char *hex = "0123456789ABCDEF";
  	zend_string *ret;
  
  	ret = zend_string_safe_alloc(3, (length + (((3 * length)/(PHP_QPRINT_MAXL-9)) + 1)), 0, 0);
  	d = (unsigned char*)ret->val;
  
  	while (length--) {
  		if (((c = *str++) == '\015') && (*str == '\012') && length > 0) {
  			*d++ = '\015';
  			*d++ = *str++;
  			length--;
  			lp = 0;
  		} else {
  			if (iscntrl (c) || (c == 0x7f) || (c & 0x80) || (c == '=') || ((c == ' ') && (*str == '\015'))) {
  				if ((((lp+= 3) > PHP_QPRINT_MAXL) && (c <= 0x7f))
              || ((c > 0x7f) && (c <= 0xdf) && ((lp + 3) > PHP_QPRINT_MAXL))
              || ((c > 0xdf) && (c <= 0xef) && ((lp + 6) > PHP_QPRINT_MAXL))
              || ((c > 0xef) && (c <= 0xf4) && ((lp + 9) > PHP_QPRINT_MAXL))) {
  					*d++ = '=';
  					*d++ = '\015';
  					*d++ = '\012';
  					lp = 3;
  				}
  				*d++ = '=';
  				*d++ = hex[c >> 4];
  				*d++ = hex[c & 0xf];
  			} else {
  				if ((++lp) > PHP_QPRINT_MAXL) {
  					*d++ = '=';
  					*d++ = '\015';
  					*d++ = '\012';
  					lp = 1;
  				}
  				*d++ = c;
  			}
  		}
  	}
  	*d = '\0';
  	ret = zend_string_realloc(ret, d - (unsigned char*)ret->val, 0);
  	return ret;
  }
  /* }}} */
  
  /*
  *
  * Decoding  Quoted-printable string.
  *
  */
  /* {{{ proto string quoted_printable_decode(string str)
     Convert a quoted-printable string to an 8 bit string */
  PHP_FUNCTION(quoted_printable_decode)
  {
  	zend_string *arg1;
  	char *str_in;
  	zend_string *str_out;
  	size_t i = 0, j = 0, k;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "S", &arg1) == FAILURE) {
  		return;
  	}
  
  	if (arg1->len == 0) {
  		/* shortcut */
  		RETURN_EMPTY_STRING();
  	}
  
  	str_in = arg1->val;
  	str_out = zend_string_alloc(arg1->len, 0);
  	while (str_in[i]) {
  		switch (str_in[i]) {
  		case '=':
  			if (str_in[i + 1] && str_in[i + 2] &&
  				isxdigit((int) str_in[i + 1]) &&
  				isxdigit((int) str_in[i + 2]))
  			{
  				str_out->val[j++] = (php_hex2int((int) str_in[i + 1]) << 4)
  						+ php_hex2int((int) str_in[i + 2]);
  				i += 3;
  			} else  /* check for soft line break according to RFC 2045*/ {
  				k = 1;
  				while (str_in[i + k] && ((str_in[i + k] == 32) || (str_in[i + k] == 9))) {
  					/* Possibly, skip spaces/tabs at the end of line */
  					k++;
  				}
  				if (!str_in[i + k]) {
  					/* End of line reached */
  					i += k;
  				}
  				else if ((str_in[i + k] == 13) && (str_in[i + k + 1] == 10)) {
  					/* CRLF */
  					i += k + 2;
  				}
  				else if ((str_in[i + k] == 13) || (str_in[i + k] == 10)) {
  					/* CR or LF */
  					i += k + 1;
  				}
  				else {
  					str_out->val[j++] = str_in[i++];
  				}
  			}
  			break;
  		default:
  			str_out->val[j++] = str_in[i++];
  		}
  	}
  	str_out->val[j] = '\0';
  	str_out->len = j;
  
  	RETVAL_NEW_STR(str_out);
  }
  /* }}} */
  
  /* {{{ proto string quoted_printable_encode(string str) */
  PHP_FUNCTION(quoted_printable_encode)
  {
  	zend_string *str;
  	zend_string *new_str;
  
  	if (zend_parse_parameters(ZEND_NUM_ARGS(), "S", &str) != SUCCESS) {
  		return;
  	}
  
  	if (!str->len) {
  		RETURN_EMPTY_STRING();
  	}
  
  	new_str = php_quot_print_encode((unsigned char *)str->val, (size_t)str->len);
  	RETURN_STR(new_str);
  }
  /* }}} */
  
  /*
   * Local variables:
   * tab-width: 4
   * c-basic-offset: 4
   * End:
   * vim600: sw=4 ts=4 fdm=marker
   * vim<600: sw=4 ts=4
   */
  