cvs: php4 /ext/pcntl config.m4 pcntl.c php_pcntl.h

iliaa Mon Feb 17 20:41:06 2003 EDT Modified files: /php4/ext/pcntl config.m4 pcntl.c php_pcntl.h Log: Added pcntl_setpriority & pcntl_getpriority(). These functions can be used to fetch and alter the priority of a process. Index: php4/ext/pcntl/config.m4 diff -u php4/ext/pcntl/config.m4:1.7 php4/ext/pcntl/config.m4:1.8 --- php4/ext/pcntl/config.m4:1.7 Tue Mar 12 11:49:27 2002 +++ php4/ext/pcntl/config.m4 Mon Feb 17 20:41:06 2003 @@ -1,5 +1,5 @@ dnl -dnl $Id: config.m4,v 1.7 2002/03/12 16:49:27 sas Exp $ +dnl $Id: config.m4,v 1.8 2003/02/18 01:41:06 iliaa Exp $ dnl dnl Process Control (pcntl) extentsion --EXPERIMENTAL-- @@ -13,6 +13,9 @@ AC_CHECK_FUNCS(fork, [ AC_DEFINE(HAVE_FORK,1,[ ]) ], [ AC_MSG_ERROR(pcntl: fork() not supported by this platform) ]) AC_CHECK_FUNCS(waitpid, [ AC_DEFINE(HAVE_WAITPID,1,[ ]) ], [ AC_MSG_ERROR(pcntl: fork() not supported by this platform) ]) AC_CHECK_FUNCS(sigaction, [ AC_DEFINE(HAVE_SIGACTION,1,[ ]) ], [ AC_MSG_ERROR(pcntl: sigaction() not supported by this platform) ]) - + + PHP_CHECK_FUNC(getpriority) + PHP_CHECK_FUNC(setpriority) + PHP_NEW_EXTENSION(pcntl, pcntl.c php_signal.c, $ext_shared, cli) fi Index: php4/ext/pcntl/pcntl.c diff -u php4/ext/pcntl/pcntl.c:1.31 php4/ext/pcntl/pcntl.c:1.32 --- php4/ext/pcntl/pcntl.c:1.31 Tue Dec 31 11:07:11 2002 +++ php4/ext/pcntl/pcntl.c Mon Feb 17 20:41:06 2003 @@ -16,7 +16,7 @@ +----------------------------------------------------------------------+ */ -/* $Id: pcntl.c,v 1.31 2002/12/31 16:07:11 sebastian Exp $ */ +/* $Id: pcntl.c,v 1.32 2003/02/18 01:41:06 iliaa Exp $ */ #define PCNTL_DEBUG 0 @@ -36,6 +36,11 @@ #include "ext/standard/info.h" #include "php_pcntl.h" +#if HAVE_GETPRIORITY || HAVE_SETPRIORITY +#include <sys/time.h> +#include <sys/resource.h> +#endif + ZEND_DECLARE_MODULE_GLOBALS(pcntl) function_entry pcntl_functions[] = { @@ -50,6 +55,8 @@ PHP_FE(pcntl_wstopsig, NULL) PHP_FE(pcntl_exec, NULL) PHP_FE(pcntl_alarm, NULL) + PHP_FE(pcntl_getpriority, NULL) + PHP_FE(pcntl_setpriority, NULL) {NULL, NULL, NULL} }; @@ -132,6 +139,12 @@ #endif REGISTER_LONG_CONSTANT("SIGSYS", (long) SIGSYS, CONST_CS | CONST_PERSISTENT); REGISTER_LONG_CONSTANT("SIGBABY", (long) SIGSYS, CONST_CS | CONST_PERSISTENT); + +#if HAVE_GETPRIORITY || HAVE_SETPRIORITY + REGISTER_LONG_CONSTANT("PRIO_PGRP", PRIO_PGRP, CONST_CS | CONST_PERSISTENT); + REGISTER_LONG_CONSTANT("PRIO_USER", PRIO_USER, CONST_CS | CONST_PERSISTENT); + REGISTER_LONG_CONSTANT("PRIO_PROCESS", PRIO_PROCESS, CONST_CS | CONST_PERSISTENT); +#endif } static void php_pcntl_init_globals(zend_pcntl_globals *pcntl_globals) @@ -493,6 +506,83 @@ RETURN_TRUE; } /* }}} */ + +#ifdef HAVE_GETPRIORITY +/* {{{ proto int pcntl_getpriority(int pid, [int process_identifier]]) + Get the priority of any process */ +PHP_FUNCTION(pcntl_getpriority) +{ + long who = PRIO_PROCESS; + long pid = getpid(); + int pri; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "|ll", &pid, &who) == FAILURE) { + RETURN_FALSE; + } + + /* needs to be cleared, since any returned value is valid */ + errno = 0; + + pri = getpriority(who, pid); + + if (errno) { + switch (errno) { + case ESRCH: + php_error_docref(NULL TSRMLS_CC, E_WARNING, "%l: No process was located using the given parameters.", errno); + break; + case EINVAL: + php_error_docref(NULL TSRMLS_CC, E_WARNING, "%l: Invalid identifier flag.", errno); + break; + default: + php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unknown error %l has occured.", errno); + break; + } + RETURN_FALSE; + } + + RETURN_LONG(pri); +} +/* }}} */ +#endif + +#ifdef HAVE_SETPRIORITY +/* {{{ proto bool pcntl_setpriority(int priority, [int pid, [int process_identifier]]) + Change the priority of any process */ +PHP_FUNCTION(pcntl_setpriority) +{ + long who = PRIO_PROCESS; + long pid = getpid(); + long pri; + + if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "l|ll", &pri, &pid, &who) == FAILURE) { + RETURN_FALSE; + } + + if (setpriority(who, pid, pri)) { + switch (errno) { + case ESRCH: + php_error_docref(NULL TSRMLS_CC, E_WARNING, "%l: No process was located using the given parameters.", errno); + break; + case EINVAL: + php_error_docref(NULL TSRMLS_CC, E_WARNING, "%l: Invalid identifier flag.", errno); + break; + case EPERM: + php_error_docref(NULL TSRMLS_CC, E_WARNING, "%l: A process was located, but neither its effective nor real user ID matched the effective user ID of the caller.", errno); + break; + case EACCES: + php_error_docref(NULL TSRMLS_CC, E_WARNING, "%l: Only a super user may attempt to increase the process priority.", errno); + break; + default: + php_error_docref(NULL TSRMLS_CC, E_WARNING, "Unknown error %l has occured.", errno); + break; + } + RETURN_FALSE; + } + + RETURN_TRUE; +} +/* }}} */ +#endif /* Our custom signal handler that calls the appropriate php_function */ static void pcntl_signal_handler(int signo) Index: php4/ext/pcntl/php_pcntl.h diff -u php4/ext/pcntl/php_pcntl.h:1.12 php4/ext/pcntl/php_pcntl.h:1.13 --- php4/ext/pcntl/php_pcntl.h:1.12 Tue Dec 31 11:07:11 2002 +++ php4/ext/pcntl/php_pcntl.h Mon Feb 17 20:41:06 2003 @@ -16,7 +16,7 @@ +----------------------------------------------------------------------+ */ -/* $Id: php_pcntl.h,v 1.12 2002/12/31 16:07:11 sebastian Exp $ */ +/* $Id: php_pcntl.h,v 1.13 2003/02/18 01:41:06 iliaa Exp $ */ #ifndef PHP_PCNTL_H #define PHP_PCNTL_H @@ -50,6 +50,8 @@ PHP_FUNCTION(pcntl_wstopsig); PHP_FUNCTION(pcntl_signal); PHP_FUNCTION(pcntl_exec); +PHP_FUNCTION(pcntl_getpriority); +PHP_FUNCTION(pcntl_setpriority); static void pcntl_signal_handler(int); static void pcntl_tick_handler();