@Added new experimental module pcntl (Process Control) (Jason)

Initial Import

15 files changed, 500 insertions, 0 deletions

diff --git a/ext/pcntl/CREDITS b/ext/pcntl/CREDITS
new file mode 100644
index 0000000000..1d629d7adf
--- /dev/null
+++ b/ext/pcntl/CREDITS
@@ -0,0 +1,2 @@
+pcntl
+Jason Greene
diff --git a/ext/pcntl/EXPERIMENTAL b/ext/pcntl/EXPERIMENTAL
new file mode 100644
index 0000000000..6443e99646
--- /dev/null
+++ b/ext/pcntl/EXPERIMENTAL
@@ -0,0 +1,5 @@
+this extension is experimental,
+its functions may change their names 
+or move to extension all together 
+so do not rely to much on them 
+you have been warned!
diff --git a/ext/pcntl/Makefile.in b/ext/pcntl/Makefile.in
new file mode 100644
index 0000000000..d778a61943
--- /dev/null
+++ b/ext/pcntl/Makefile.in
@@ -0,0 +1,8 @@
+# $Id$
+
+LTLIBRARY_NAME        = libpcntl.la
+LTLIBRARY_SOURCES     = pcntl.c php_signal.c
+LTLIBRARY_SHARED_NAME = pcntl.la
+LTLIBRARY_SHARED_LIBADD  = $(PCNTL_SHARED_LIBADD)
+
+include $(top_srcdir)/build/dynlib.mk
diff --git a/ext/pcntl/README b/ext/pcntl/README
new file mode 100644
index 0000000000..fe452fdb84
--- /dev/null
+++ b/ext/pcntl/README
@@ -0,0 +1,11 @@
+Process Control Module for PHP (pcntl)
+
+This module will attempt to implement all features related to process spawning and
+control (fork(), waitpid(), signal(), WIF's, etc). This is extremly experimental, 
+with hope to become stable on most UNIX's. I greatly apreciate any feedback, fixes, 
+and or suggestions on how to improve/better implement
+this functionality.
+
+Thanks,
+
+Jason Greeme < jason@inetgurus.net / jason@php.net >
diff --git a/ext/pcntl/config.m4 b/ext/pcntl/config.m4
new file mode 100644
index 0000000000..865b831f49
--- /dev/null
+++ b/ext/pcntl/config.m4
@@ -0,0 +1,15 @@
+dnl $Id$
+dnl config.m4 for extension pcntl
+
+dnl Process Control (pcntl) extentsion --EXPERIMENTAL--
+dnl TODO - Add platform checks 
+PHP_ARG_ENABLE(pcntl, whether to enable pcntl support,
+[  --enable-pcntl           Enable experimental pcntl support (CGI ONLY!)])
+
+if test "$PHP_PCNTL" != "no"; then
+  if test "$PHP_SAPI" != "cgi"; then
+      AC_MSG_ERROR(pcntl currently only accepts the CGI SAPI, this will save you from harming your webserver.)
+  else
+      PHP_EXTENSION(pcntl, $ext_shared)
+  fi
+fi
diff --git a/ext/pcntl/libs.mk b/ext/pcntl/libs.mk
new file mode 100644
index 0000000000..7c6e176717
--- /dev/null
+++ b/ext/pcntl/libs.mk
@@ -0,0 +1,7 @@
+include $(top_builddir)/config_vars.mk
+LTLIBRARY_OBJECTS = $(LTLIBRARY_SOURCES:.c=.lo) $(LTLIBRARY_OBJECTS_X)
+LTLIBRARY_SHARED_OBJECTS = $(LTLIBRARY_OBJECTS:.lo=.slo)
+$(LTLIBRARY_NAME): $(LTLIBRARY_OBJECTS) $(LTLIBRARY_DEPENDENCIES)
+	$(LINK) $(LTLIBRARY_LDFLAGS) $(LTLIBRARY_OBJECTS) $(LTLIBRARY_LIBADD)
+
+targets = $(LTLIBRARY_NAME)
diff --git a/ext/pcntl/pcntl.c b/ext/pcntl/pcntl.c
new file mode 100755
index 0000000000..f8faef5bd3
--- /dev/null
+++ b/ext/pcntl/pcntl.c
@@ -0,0 +1,244 @@
+/*
+   +----------------------------------------------------------------------+
+   | PHP version 4.0                                                      |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997, 1998, 1999, 2000, 2001 The PHP Group             |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 2.02 of the PHP license,      |
+   | that is bundled with this package in the file LICENSE, and is        |
+   | available at through the world-wide-web at                           |
+   | http://www.php.net/license/2_02.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.               |
+   +----------------------------------------------------------------------+
+   | Authors: Jason Greene <jason@inetgurus.net>                          |
+   +----------------------------------------------------------------------+
+ */
+
+#ifdef HAVE_CONFIG_H
+#include "config.h"
+#endif
+
+#include "php.h"
+#include "php_ini.h"
+#include "php_pcntl.h"
+
+ZEND_DECLARE_MODULE_GLOBALS(pcntl)
+
+static int le_pcntl;
+
+function_entry pcntl_functions[] = {
+	PHP_FE(pcntl_fork,	NULL)	
+	PHP_FE(pcntl_waitpid,	NULL)	
+       	PHP_FE(pcntl_signal,	NULL)	
+	{NULL, NULL, NULL}	
+};
+
+zend_module_entry pcntl_module_entry = {
+	"pcntl",	pcntl_functions,
+	PHP_MINIT(pcntl),
+	PHP_MSHUTDOWN(pcntl),
+	NULL,
+	NULL,
+	PHP_MINFO(pcntl),
+	STANDARD_MODULE_PROPERTIES
+};
+
+#ifdef COMPILE_DL_PCNTL
+ZEND_GET_MODULE(pcntl)
+#endif
+
+void php_register_signal_constants(INIT_FUNC_ARGS)
+{
+   REGISTER_LONG_CONSTANT("SIG_IGN",  (long) SIG_IGN, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIG_DFL",  (long) SIG_DFL, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIG_ERR",  (long) SIG_ERR, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGHUP",   (long) SIGHUP,  CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGINT",   (long) SIGINT,  CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGQUIT",  (long) SIGQUIT, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGILL",   (long) SIGILL,  CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGTRAP",  (long) SIGTRAP, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGABRT",  (long) SIGABRT, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGIOT",   (long) SIGIOT, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGBUS",   (long) SIGBUS, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGFPE",   (long) SIGFPE, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGKILL",  (long) SIGKILL, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGUSR1",  (long) SIGUSR1, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGSEGV",  (long) SIGSEGV, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGUSR2",  (long) SIGUSR2, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGPIPE",  (long) SIGPIPE, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGALRM",  (long) SIGALRM, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGTERM",  (long) SIGTERM, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGSTKFLT",(long) SIGSTKFLT, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGCLD",   (long) SIGCLD, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGCHLD",  (long) SIGCHLD, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGCONT",  (long) SIGCONT, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGSTOP",  (long) SIGSTOP, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGTSTP",  (long) SIGTSTP, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGTTIN",  (long) SIGTTIN, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGTTOU",  (long) SIGTTOU, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGURG",   (long) SIGURG , CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGXCPU",  (long) SIGXCPU, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGXFSZ",  (long) SIGXFSZ, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGVTALRM",(long) SIGVTALRM, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGPROF",  (long) SIGPROF, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGWINCH", (long) SIGWINCH, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGPOLL",  (long) SIGPOLL, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGIO",    (long) SIGIO, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGPWR",   (long) SIGPWR, CONST_CS | CONST_PERSISTENT);
+   REGISTER_LONG_CONSTANT("SIGSYS",   (long) SIGSYS, CONST_CS | CONST_PERSISTENT);
+}
+   
+  
+PHP_MINIT_FUNCTION(pcntl)
+{
+ 	PCNTL_LS_FETCH();
+
+   	php_register_signal_constants(INIT_FUNC_ARGS_PASSTHRU);
+	zend_hash_init(&PCNTL_G(php_signal_table), 16, NULL, NULL, 1);
+	return SUCCESS;
+}
+
+PHP_MSHUTDOWN_FUNCTION(pcntl)
+{
+	PCNTL_LS_FETCH();
+   
+	zend_hash_destroy(&PCNTL_G(php_signal_table));
+	return SUCCESS;
+}
+
+PHP_MINFO_FUNCTION(pcntl)
+{
+	php_info_print_table_start();
+	php_info_print_table_header(2, "pcntl support", "enabled");
+	php_info_print_table_end();
+}
+/* {{{ proto long pcntl_fork()
+   Forks the currently running process following the same behavior as the UNIX fork() system call*/
+PHP_FUNCTION(pcntl_fork)
+{
+	pid_t id;
+
+	id=fork();
+	if (id == -1) {
+		php_error(E_ERROR, "Error %d in %s", errno, get_active_function_name());
+	}
+	
+	RETURN_LONG((long) id);
+}
+/* }}} */
+
+/* {{{ proto long pcntl_waitpid(long pid, long status, long options)
+      Waits on or returns the status of a forked child as defined by the waitpid() system call */
+PHP_FUNCTION(pcntl_waitpid)
+{
+	zval **pid, **status, **options;
+	int temp_options, temp_status=0;
+	pid_t temp_id;
+
+	if (ZEND_NUM_ARGS() > 3 || ZEND_NUM_ARGS() < 2 || zend_get_parameters_ex(ZEND_NUM_ARGS(), &pid, &status, &options) == FAILURE) {
+		WRONG_PARAM_COUNT;
+	}
+
+	convert_to_long_ex(pid);
+	convert_to_long_ex(options);
+   
+   	SEPARATE_ZVAL(status);
+	convert_to_long_ex(status);
+
+        if (ZEND_NUM_ARGS()==2) temp_options=0;
+		else temp_options=Z_LVAL_PP(options);
+		
+	temp_id = waitpid((pid_t) Z_LVAL_PP(pid), &temp_status, temp_options);
+	Z_LVAL_PP(status)=temp_status;
+	RETURN_LONG((long) temp_id);
+}
+/* }}} */
+
+/* {{{ proto bool pcntl_signal(long signo, mixed handle)
+      Assigns a system signal handler to a php function  */
+PHP_FUNCTION(pcntl_signal)
+{
+	zval **signo, **handle;
+   	char *func_name;
+	PCNTL_LS_FETCH();
+
+	if (ZEND_NUM_ARGS() != 2 || zend_get_parameters_ex(2, &signo, &handle) == FAILURE) {
+		WRONG_PARAM_COUNT;
+	}
+
+	convert_to_long_ex(signo);
+
+	/* Special long value case for SIG_DFL and SIG_IGN */
+	if (Z_TYPE_PP(handle)==IS_LONG) {
+ 		if (Z_LVAL_PP(handle)!= (long) SIG_DFL && Z_LVAL_PP(handle) != (long) SIG_IGN) {
+ 			php_error(E_WARNING, "Invalid value for handle argument specifEied in %s", get_active_function_name());
+		}
+		if (php_signal(Z_LVAL_PP(signo), (Sigfunc *) Z_LVAL_PP(handle))==SIG_ERR) {
+			php_error(E_WARNING, "Error assigning singal in %s", get_active_function_name());
+		   	RETURN_FALSE;
+		}
+		RETURN_TRUE;
+	} 
+	
+        if (Z_TYPE_PP(handle)!=IS_STRING) {
+		php_error(E_WARNING, "Invalid type specified for handle argument in %s", get_active_function_name());
+		RETURN_FALSE;
+	}
+
+	convert_to_string_ex(handle); /* Just in case */
+	if (!zend_is_callable(*handle, 0, &func_name)) {
+		php_error(E_WARNING, "%s: %s is not a callable function name error", get_active_function_name(), func_name);
+	   	efree(func_name);
+		RETURN_FALSE;
+	}
+   	efree(func_name);
+
+        /* Add the function name to our signal table */
+	zend_hash_index_update(&PCNTL_G(php_signal_table), Z_LVAL_PP(signo), Z_STRVAL_PP(handle),  (Z_STRLEN_PP(handle) + 1) * sizeof(char), NULL);
+	
+	if (php_signal(Z_LVAL_PP(signo), pcntl_signal_handler)==SIG_ERR) {
+ 			php_error(E_WARNING, "Error assigning singal in %s", get_active_function_name());
+		   	RETURN_FALSE;
+	}
+	RETURN_TRUE;	
+}
+/* }}} */
+
+/* Our custom signal handler that calls the appropriate php_function */
+static void pcntl_signal_handler(int signo)
+{
+	char *func_name;
+	zval *param, *call_name, *retval;
+   
+	PCNTL_LS_FETCH();
+	/* printf("Caught signal: %d\n", signo); */
+        if (zend_hash_index_find(&PCNTL_G(php_signal_table), (long) signo, (void *) &func_name)==FAILURE) {
+		/* printf("Signl handler not fount"); */
+		return;
+	}
+	/* printf("Signal handler found, Calling %s\n", func_name); */
+	MAKE_STD_ZVAL(param);
+	MAKE_STD_ZVAL(call_name);
+	MAKE_STD_ZVAL(retval);
+	ZVAL_LONG(param, signo);
+ 	ZVAL_STRING(call_name, func_name, 1);
+
+	/* Call php singal handler - Note that we do not report errors, and we ignore the return value */ 
+	call_user_function(EG(function_table), NULL, call_name, retval, 1, &param);
+	
+ 	zval_dtor(call_name);
+	efree(call_name);
+	efree(param);
+
+	return;
+}
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * indent-tabs-mode: t
+ * End:
+ */
diff --git a/ext/pcntl/php_pcntl.h b/ext/pcntl/php_pcntl.h
new file mode 100644
index 0000000000..a4b169a66d
--- /dev/null
+++ b/ext/pcntl/php_pcntl.h
@@ -0,0 +1,65 @@
+/*
+   +----------------------------------------------------------------------+
+   | PHP version 4.0                                                      |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997, 1998, 1999, 2000, 2001 The PHP Group             |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 2.02 of the PHP license,      |
+   | that is bundled with this package in the file LICENSE, and is        |
+   | available at through the world-wide-web at                           |
+   | http://www.php.net/license/2_02.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.               |
+   +----------------------------------------------------------------------+
+   | Authors:  Jason Greene <jason@inetgurus.net>                         |
+   +----------------------------------------------------------------------+
+ */
+
+#ifndef PHP_PCNTL_H
+#define PHP_PCNTL_H
+
+#include "php_signal.h"
+
+extern zend_module_entry pcntl_module_entry;
+#define phpext_pcntl_ptr &pcntl_module_entry
+
+#ifdef PHP_WIN32
+#define PHP_PCNTL_API __declspec(dllexport)
+#else
+#define PHP_PCNTL_API
+#endif
+
+PHP_MINIT_FUNCTION(pcntl);
+PHP_MSHUTDOWN_FUNCTION(pcntl);
+PHP_RINIT_FUNCTION(pcntl);
+PHP_RSHUTDOWN_FUNCTION(pcntl);
+PHP_MINFO_FUNCTION(pcntl);
+
+PHP_FUNCTION(pcntl_fork);	
+PHP_FUNCTION(pcntl_waitpid);
+PHP_FUNCTION(pcntl_signal);
+static void pcntl_signal_handler(int);
+
+ZEND_BEGIN_MODULE_GLOBALS(pcntl)
+	HashTable php_signal_table;
+ZEND_END_MODULE_GLOBALS(pcntl)
+
+#ifdef ZTS
+#define PCNTL_G(v) (pcntl_globals->v)
+#define PCNTL_LS_FETCH() zend_pcntl_globals *pcntl_globals = ts_resource(pcntl_globals_id)
+#else
+#define PCNTL_G(v) (pcntl_globals.v)
+#define PCNTL_LS_FETCH()
+#endif
+
+#endif	/* PHP_PCNTL_H */
+
+
+/*
+ * Local variables:
+ * tab-width: 4
+ * c-basic-offset: 4
+ * indent-tabs-mode: t
+ * End:
+ */
diff --git a/ext/pcntl/php_signal.c b/ext/pcntl/php_signal.c
new file mode 100644
index 0000000000..a47c39bd77
--- /dev/null
+++ b/ext/pcntl/php_signal.c
@@ -0,0 +1,45 @@
+
+/*
+   +----------------------------------------------------------------------+
+   | PHP version 4.0                                                      |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997, 1998, 1999, 2000, 2001 The PHP Group             |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 2.02 of the PHP license,      |
+   | that is bundled with this package in the file LICENSE, and is        |
+   | available at through the world-wide-web at                           |
+   | http://www.php.net/license/2_02.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.               |
+   +----------------------------------------------------------------------+
+   | Authors: Jason Greene <jason@inetgurus.net>                          |
+   +----------------------------------------------------------------------+
+*/
+
+#include "php_signal.h"
+
+/* php_signal using sigaction is taken verbatim from Advanced Programing
+ * in the Unix Environment by W. Richard Stevens p 298. */
+Sigfunc *php_signal(int signo, Sigfunc *func)
+{
+ 
+	struct sigaction act,oact;
+	act.sa_handler = func;
+	sigemptyset(&act.sa_mask);
+	act.sa_flags = 0;
+	if (signo == SIGALRM) {
+#ifdef SA_INTERRUPT
+		act.sa_flags |= SA_INTERRUPT; /* SunOS */
+#endif
+	} else {
+#ifdef SA_RESTART
+		act.sa_flags |= SA_RESTART; /* SVR4, 4.3+BSD */
+#endif
+	}
+	if (sigaction(signo, &act, &oact) < 0)
+		return SIG_ERR;
+ 
+	return oact.sa_handler;
+}
+
diff --git a/ext/pcntl/php_signal.h b/ext/pcntl/php_signal.h
new file mode 100644
index 0000000000..3f763a55f3
--- /dev/null
+++ b/ext/pcntl/php_signal.h
@@ -0,0 +1,26 @@
+/*
+   +----------------------------------------------------------------------+
+   | PHP version 4.0                                                      |
+   +----------------------------------------------------------------------+
+   | Copyright (c) 1997, 1998, 1999, 2000, 2001 The PHP Group             |
+   +----------------------------------------------------------------------+
+   | This source file is subject to version 2.02 of the PHP license,      |
+   | that is bundled with this package in the file LICENSE, and is        |
+   | available at through the world-wide-web at                           |
+   | http://www.php.net/license/2_02.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.               |
+   +----------------------------------------------------------------------+
+   | Authors: Jason Greene <jason@inetgurus.net>                          |
+   +----------------------------------------------------------------------+
+*/
+
+#include <signal.h>
+#ifndef PHP_SIGNAL_H
+#define PHP_SIGNAL_H
+
+typedef void Sigfunc(int);
+Sigfunc *php_signal(int signo, Sigfunc *func);
+
+#endif
diff --git a/ext/pcntl/test-pcntl.php b/ext/pcntl/test-pcntl.php
new file mode 100755
index 0000000000..c611bfe504
--- /dev/null
+++ b/ext/pcntl/test-pcntl.php
@@ -0,0 +1,35 @@
+#!/opt/devel/php4/php -q
+<?
+function alarm_handle($signal){
+	 if ($signal==SIGALRM) print "Caught SIGALRM!!!\n";
+}
+function usr1_handle($signal){
+	 if ($signal==SIGUSR1) print "Caught SIGUSR1!!!\n";
+}
+
+print "This test will demonstrate a fork followed by ipc via signals.\n";
+
+$pid=pcntl_fork();
+if ($pid==0) {
+   pcntl_signal(SIGUSR1, "usr1_handle");
+   pcntl_signal(SIGALRM, "alarm_handle");
+   print "Child: Waiting for alarm.....\n";
+   sleep(100);
+   print "Child: Waiting for usr1......\n";
+   sleep(100);
+   print "Child: Resetting Alarm handler to Ignore....\n";
+   pcntl_signal(SIGALRM, SIG_IGN);
+   sleep(10);
+   print "Done\n";
+} else {
+   print "Parent: Waiting 10 seconds....\n";
+   sleep(10);
+   print "Parent: Sending SIGALRM to Child\n";
+   posix_kill($pid,SIGALRM);
+   sleep(1);
+   print "Parent: Senging SIGUSR1 to Child\n";
+   posix_kill($pid,SIGUSR1);
+   sleep(1);
+   print "Parent: Sending SIGALRM to Child\n";
+   pcntl_waitpid($pid, $status, $options);
+}
diff --git a/ext/pcntl/tests/001.exp b/ext/pcntl/tests/001.exp
new file mode 100755
index 0000000000..e69de29bb2
--- /dev/null
+++ b/ext/pcntl/tests/001.exp
diff --git a/ext/pcntl/tests/001.out b/ext/pcntl/tests/001.out
new file mode 100755
index 0000000000..efbc584688
--- /dev/null
+++ b/ext/pcntl/tests/001.out
@@ -0,0 +1 @@
+pcntl extension is available
\ No newline at end of file
diff --git a/ext/pcntl/tests/001.php b/ext/pcntl/tests/001.php
new file mode 100755
index 0000000000..d3be528a2a
--- /dev/null
+++ b/ext/pcntl/tests/001.php
@@ -0,0 +1,14 @@
+<?php 
+echo "pcntl extension is available";
+/*
+	you can add regression tests for your extension here
+
+  the output of your test code has to be equal to the
+  text in the --EXPECT-- section below for the tests
+  to pass, differences between the output and the
+  expected text are interpreted as failure
+
+	see php4/tests/README for further information on
+  writing regression tests
+*/
+?>
diff --git a/ext/pcntl/tests/001.phpt b/ext/pcntl/tests/001.phpt
new file mode 100644
index 0000000000..af214d0f62
--- /dev/null
+++ b/ext/pcntl/tests/001.phpt
@@ -0,0 +1,22 @@
+--TEST--
+Check for pcntl presence
+--SKIPIF--
+<?php if (!extension_loaded("pcntl")) print "skip"; ?>
+--POST--
+--GET--
+--FILE--
+<?php 
+echo "pcntl extension is available";
+/*
+	you can add regression tests for your extension here
+
+  the output of your test code has to be equal to the
+  text in the --EXPECT-- section below for the tests
+  to pass, differences between the output and the
+  expected text are interpreted as failure
+
+	see php4/tests/README for further information on
+  writing regression tests
+*/
+?>
+--EXPECT--