Imported from /home/lorry/working-area/delta_php2/php-5.4.13.tar.bz2.HEADphp-5.4.13master

1 files changed, 255 insertions, 0 deletions

diff --git a/ext/standard/versioning.c b/ext/standard/versioning.c
new file mode 100644
index 0000000..aadbcaf
--- /dev/null
+++ b/ext/standard/versioning.c
@@ -0,0 +1,255 @@
+/*
+   +----------------------------------------------------------------------+
+   | PHP Version 5                                                        |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997-2013 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: Stig Sæther Bakken <ssb@php.net>                             |
+   +----------------------------------------------------------------------+
+ */
+
+/* $Id$ */
+
+#include <stdio.h>
+#include <sys/types.h>
+#include <ctype.h>
+#include <stdlib.h>
+#include <string.h>
+#include "php.h"
+#include "php_versioning.h"
+
+#define sign(n) ((n)<0?-1:((n)>0?1:0))
+
+/* {{{ php_canonicalize_version() */
+
+PHPAPI char *
+php_canonicalize_version(const char *version)
+{
+    int len = strlen(version);
+    char *buf = safe_emalloc(len, 2, 1), *q, lp, lq;
+    const char *p;
+
+    if (len == 0) {
+        *buf = '\0';
+        return buf;
+    }
+
+    p = version;
+    q = buf;
+    *q++ = lp = *p++;
+
+    while (*p) {
+/*  s/[-_+]/./g;
+ *  s/([^\d\.])([^\D\.])/$1.$2/g;
+ *  s/([^\D\.])([^\d\.])/$1.$2/g;
+ */
+#define isdig(x) (isdigit(x)&&(x)!='.')
+#define isndig(x) (!isdigit(x)&&(x)!='.')
+#define isspecialver(x) ((x)=='-'||(x)=='_'||(x)=='+')
+
+		lq = *(q - 1);
+		if (isspecialver(*p)) {
+			if (lq != '.') {
+				*q++ = '.';
+			}
+		} else if ((isndig(lp) && isdig(*p)) || (isdig(lp) && isndig(*p))) {
+			if (lq != '.') {
+				*q++ = '.';
+			}
+			*q++ = *p;
+		} else if (!isalnum(*p)) {
+			if (lq != '.') {
+				*q++ = '.';
+			}
+		} else {
+			*q++ = *p;
+		}
+		lp = *p++;
+    }
+    *q++ = '\0';
+    return buf;
+}
+
+/* }}} */
+/* {{{ compare_special_version_forms() */
+
+typedef struct {
+	const char *name;
+	int order;
+} special_forms_t;
+
+static int
+compare_special_version_forms(char *form1, char *form2)
+{
+	int found1 = -1, found2 = -1;
+	special_forms_t special_forms[11] = {
+		{"dev", 0},
+		{"alpha", 1},
+		{"a", 1},
+		{"beta", 2},
+		{"b", 2},
+		{"RC", 3},
+		{"rc", 3},
+		{"#", 4},
+		{"pl", 5},
+		{"p", 5},
+		{NULL, 0},
+	};
+	special_forms_t *pp;
+
+	for (pp = special_forms; pp && pp->name; pp++) {
+		if (strncmp(form1, pp->name, strlen(pp->name)) == 0) {
+			found1 = pp->order;
+			break;
+		}
+	}
+	for (pp = special_forms; pp && pp->name; pp++) {
+		if (strncmp(form2, pp->name, strlen(pp->name)) == 0) {
+			found2 = pp->order;
+			break;
+		}
+	}
+	return sign(found1 - found2);
+}
+
+/* }}} */
+/* {{{ php_version_compare() */
+
+PHPAPI int
+php_version_compare(const char *orig_ver1, const char *orig_ver2)
+{
+	char *ver1;
+	char *ver2;
+	char *p1, *p2, *n1, *n2;
+	long l1, l2;
+	int compare = 0;
+
+	if (!*orig_ver1 || !*orig_ver2) {
+		if (!*orig_ver1 && !*orig_ver2) {
+			return 0;
+		} else {
+			return *orig_ver1 ? 1 : -1;
+		}
+	}
+	if (orig_ver1[0] == '#') {
+		ver1 = estrdup(orig_ver1);
+	} else {
+		ver1 = php_canonicalize_version(orig_ver1);
+	}
+	if (orig_ver2[0] == '#') {
+		ver2 = estrdup(orig_ver2);
+	} else {
+		ver2 = php_canonicalize_version(orig_ver2);
+	}
+	p1 = n1 = ver1;
+	p2 = n2 = ver2;
+	while (*p1 && *p2 && n1 && n2) {
+		if ((n1 = strchr(p1, '.')) != NULL) {
+			*n1 = '\0';
+		}
+		if ((n2 = strchr(p2, '.')) != NULL) {
+			*n2 = '\0';
+		}
+		if (isdigit(*p1) && isdigit(*p2)) {
+			/* compare element numerically */
+			l1 = strtol(p1, NULL, 10);
+			l2 = strtol(p2, NULL, 10);
+			compare = sign(l1 - l2);
+		} else if (!isdigit(*p1) && !isdigit(*p2)) {
+			/* compare element names */
+			compare = compare_special_version_forms(p1, p2);
+		} else {
+			/* mix of names and numbers */
+			if (isdigit(*p1)) {
+				compare = compare_special_version_forms("#N#", p2);
+			} else {
+				compare = compare_special_version_forms(p1, "#N#");
+			}
+		}
+		if (compare != 0) {
+			break;
+		}
+		if (n1 != NULL) {
+			p1 = n1 + 1;
+		}
+		if (n2 != NULL) {
+			p2 = n2 + 1;
+		}
+	}
+	if (compare == 0) {
+		if (n1 != NULL) {
+			if (isdigit(*p1)) {
+				compare = 1;
+			} else {
+				compare = php_version_compare(p1, "#N#");
+			}
+		} else if (n2 != NULL) {
+			if (isdigit(*p2)) {
+				compare = -1;
+			} else {
+				compare = php_version_compare("#N#", p2);
+			}
+		}
+	}
+	efree(ver1);
+	efree(ver2);
+	return compare;
+}
+
+/* }}} */
+/* {{{ proto int version_compare(string ver1, string ver2 [, string oper])
+  Compares two "PHP-standardized" version number strings */
+
+PHP_FUNCTION(version_compare)
+{
+	char *v1, *v2, *op = NULL;
+	int v1_len, v2_len, op_len = 0;
+	int compare, argc;
+
+	argc = ZEND_NUM_ARGS();
+	if (zend_parse_parameters(argc TSRMLS_CC, "ss|s", &v1, &v1_len, &v2,
+							  &v2_len, &op, &op_len) == FAILURE) {
+		return;
+	}
+	compare = php_version_compare(v1, v2);
+	if (argc == 2) {
+		RETURN_LONG(compare);
+	}
+	if (!strncmp(op, "<", op_len) || !strncmp(op, "lt", op_len)) {
+		RETURN_BOOL(compare == -1);
+	}
+	if (!strncmp(op, "<=", op_len) || !strncmp(op, "le", op_len)) {
+		RETURN_BOOL(compare != 1);
+	}
+	if (!strncmp(op, ">", op_len) || !strncmp(op, "gt", op_len)) {
+		RETURN_BOOL(compare == 1);
+	}
+	if (!strncmp(op, ">=", op_len) || !strncmp(op, "ge", op_len)) {
+		RETURN_BOOL(compare != -1);
+	}
+	if (!strncmp(op, "==", op_len) || !strncmp(op, "=", op_len) || !strncmp(op, "eq", op_len)) {
+		RETURN_BOOL(compare == 0);
+	}
+	if (!strncmp(op, "!=", op_len) || !strncmp(op, "<>", op_len) || !strncmp(op, "ne", op_len)) {
+		RETURN_BOOL(compare != 0);
+	}
+	RETURN_NULL();
+}
+
+/* }}} */
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * indent-tabs-mode: t
+ * End:
+ */