Added uuencode() & uudecode() functions.

1 files changed, 205 insertions, 0 deletions

diff --git a/ext/standard/uuencode.c b/ext/standard/uuencode.c
new file mode 100644
index 0000000000..fa6d981928
--- /dev/null
+++ b/ext/standard/uuencode.c
@@ -0,0 +1,205 @@
+/*
+   +----------------------------------------------------------------------+
+   | PHP Version 4                                                        |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997-2003 The PHP Group                                |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 3.0 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_0.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: Ilia Alshanetsky <ilia@php.net>                              |
+   +----------------------------------------------------------------------+
+ */
+
+/* $Id$ */
+
+/*
+ * Portions of this code are based on Berkeley's uuencode/uudecode
+ * implementation.
+ *
+ * Copyright (c) 1983, 1993
+ *  The Regents of the University of California.  All rights reserved.
+ *
+ * Redistribution and use in source and binary forms, with or without
+ * modification, are permitted provided that the following conditions
+ * are met:
+ * 1. Redistributions of source code must retain the above copyright
+ *    notice, this list of conditions and the following disclaimer.
+ * 2. Redistributions in binary form must reproduce the above copyright
+ *    notice, this list of conditions and the following disclaimer in the
+ *    documentation and/or other materials provided with the distribution.
+ * 3. All advertising materials mentioning features or use of this software
+ *    must display the following acknowledgement:
+ *  This product includes software developed by the University of
+ *  California, Berkeley and its contributors.
+ * 4. Neither the name of the University nor the names of its contributors
+ *    may be used to endorse or promote products derived from this software
+ *    without specific prior written permission.
+ *
+ * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND
+ * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+ * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+ * ARE DISCLAIMED.  IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE
+ * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL
+ * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS
+ * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION)
+ * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT
+ * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY
+ * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF
+ * SUCH DAMAGE.
+ */
+
+#include <math.h>
+
+#include "php.h"
+#include "php_uuencode.h"
+
+#define PHP_UU_ENC(c) ((c) ? ((c) & 077) + ' ' : '`')
+#define PHP_UU_ENC_C2(c) PHP_UU_ENC(((*(c) << 4) & 060) | ((*((c) + 1) >> 4) & 017))
+#define PHP_UU_ENC_C3(c) PHP_UU_ENC(((*(c + 1) << 2) & 074) | ((*((c) + 2) >> 6) & 03))
+
+#define PHP_UU_DEC(c) (((c) - ' ') & 077)
+
+PHPAPI int php_uuencode(char *src, int src_len, char **dest)
+{
+	int len = 45;
+	char *p, *s, *e, *ee;
+
+	/* encoded length is ~ 38% greater then the original */
+	p = *dest = emalloc((ceil(src_len * 1.38) + 45 + 1));
+	s = src;
+	e = src + src_len;
+
+	while ((s + 3) < e) {
+		ee = s + len;
+		if (ee > e) {
+			ee = e;
+			len = ee - s;
+			if (len % 3) {
+				ee = s + (int) (floor(len / 3) * 3);
+			}
+		}
+		*p++ = PHP_UU_ENC(len);
+
+		while (s < ee) {
+			*p++ = PHP_UU_ENC(*s >> 2);
+			*p++ = PHP_UU_ENC_C2(s);
+			*p++ = PHP_UU_ENC_C3(s);
+			*p++ = PHP_UU_ENC(*(s + 2) & 077);
+
+			s += 3;
+		}
+
+		if (len == 45) {
+			*p++ = '\n';
+		}
+	}
+
+	if (s < e) {
+		if (len == 45) {
+			*p++ = PHP_UU_ENC(e - s);
+			len = 0;
+		}
+
+		*p++ = PHP_UU_ENC(*s >> 2);
+		*p++ = PHP_UU_ENC_C2(s);
+		*p++ = ((e - s) > 1) ? PHP_UU_ENC_C3(s) : PHP_UU_ENC('\0');
+		*p++ = ((e - s) > 2) ? PHP_UU_ENC(*(s + 2) & 077) : PHP_UU_ENC('\0');
+	}
+
+	if (len < 45) {
+		*p++ = '\n';
+	}
+
+	*p++ = PHP_UU_ENC('\0');
+	*p++ = '\n';
+	*p = '\0';
+
+	return (p - *dest);
+}
+
+PHPAPI int php_uudecode(char *src, int src_len, char **dest)
+{
+	int len, total_len=0;
+	char *s, *e, *p, *ee;
+
+	p = *dest = emalloc(ceil(src_len * 0.75) + 1);
+	s = src;
+	e = src + src_len;
+
+	while (s < e) {
+		if ((len = PHP_UU_DEC(*s++)) <= 0) {
+			break;
+		}
+		total_len += len;
+
+		ee = s + (len == 45 ? 60 : (int) floor(len * 1.33));
+
+		while (s < ee) {
+			*p++ = PHP_UU_DEC(*s) << 2 | PHP_UU_DEC(*(s + 1)) >> 4;
+			*p++ = PHP_UU_DEC(*(s + 1)) << 4 | PHP_UU_DEC(*(s + 2)) >> 2;
+			*p++ = PHP_UU_DEC(*(s + 2)) << 6 | PHP_UU_DEC(*(s + 3));
+			s += 4;
+		}
+
+		if (len < 45) {
+			break;
+		}
+
+		/* skip \n */
+		s++;
+	}
+
+	if ((len = total_len > (p - *dest))) {
+		*p++ = PHP_UU_DEC(*s) << 2 | PHP_UU_DEC(*(s + 1)) >> 4;
+		if (len > 1) {
+			*p++ = PHP_UU_DEC(*(s + 1)) << 4 | PHP_UU_DEC(*(s + 2)) >> 2;
+			if (len > 2) {
+				*p++ = PHP_UU_DEC(*(s + 2)) << 6 | PHP_UU_DEC(*(s + 3));
+			}
+		}
+	}
+
+	*(*dest + total_len) = '\0';
+
+	return total_len;
+}
+
+/* {{{ proto string uuencode(string data) 
+   uuencode a string */
+PHP_FUNCTION(uuencode)
+{
+	char *src, *dst;
+	int src_len, dst_len;
+
+	if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &src, &src_len) == FAILURE || src_len < 1) {
+		RETURN_FALSE;
+	}
+
+	dst_len = php_uuencode(src, src_len, &dst);
+
+	RETURN_STRINGL(dst, dst_len, 0);
+}
+/* }}} */
+
+/* {{{ proto string uudecode(string data)
+   decode a uuencoded string */
+PHP_FUNCTION(uudecode)
+{
+	char *src, *dst;
+	int src_len, dst_len;
+
+	if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s", &src, &src_len) == FAILURE || src_len < 1) {
+		RETURN_FALSE;
+	}
+
+	dst_len = php_uudecode(src, src_len, &dst);
+
+	RETURN_STRINGL(dst, dst_len, 0);
+}
+/* }}} */