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

1 files changed, 71 insertions, 0 deletions

diff --git a/ext/standard/ftok.c b/ext/standard/ftok.c
new file mode 100644
index 0000000..3b01059
--- /dev/null
+++ b/ext/standard/ftok.c
@@ -0,0 +1,71 @@
+/* 
+   +----------------------------------------------------------------------+
+   | 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: Andrew Sitnikov <sitnikov@infonet.ee>                        |
+   +----------------------------------------------------------------------+
+*/
+
+/* $Id$ */
+
+#include "php.h"
+
+#include <sys/types.h>                                                                                                        
+
+#ifdef HAVE_SYS_IPC_H
+#include <sys/ipc.h>
+#endif
+
+#if HAVE_FTOK
+/* {{{ proto int ftok(string pathname, string proj)
+   Convert a pathname and a project identifier to a System V IPC key */
+PHP_FUNCTION(ftok)
+{
+	char *pathname, *proj;
+	int pathname_len, proj_len;
+	key_t k;
+
+	if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "ps", &pathname, &pathname_len, &proj, &proj_len) == FAILURE) {
+		return;
+	}
+
+	if (pathname_len == 0){
+		php_error_docref(NULL TSRMLS_CC, E_WARNING, "Pathname is invalid");
+		RETURN_LONG(-1);
+	}
+
+	if (proj_len != 1){
+		php_error_docref(NULL TSRMLS_CC, E_WARNING, "Project identifier is invalid");
+		RETURN_LONG(-1);
+	}
+
+	if (php_check_open_basedir(pathname TSRMLS_CC)) {
+		RETURN_LONG(-1);
+	}
+
+	k = ftok(pathname, proj[0]);
+	if (k == -1) {
+		php_error_docref(NULL TSRMLS_CC, E_WARNING, "ftok() failed - %s", strerror(errno));
+	}
+
+	RETURN_LONG(k);
+}
+/* }}} */
+#endif
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * End:
+ */