From 033224784b0f687c0db2c5c6bc3d6b6a3398e26e Mon Sep 17 00:00:00 2001
From: Jon Parise <jon@php.net>
Date: Mon, 30 Sep 2002 03:02:52 +0000
Subject: [PATCH] @ - Added getopt() for parsing command line options and
 arguments. (Jon)

---
 ext/standard/basic_functions.c | 103 +++++++++++++++++++++++++++++++++
 ext/standard/basic_functions.h |   2 +
 2 files changed, 105 insertions(+)

diff --git a/ext/standard/basic_functions.c b/ext/standard/basic_functions.c
index 6fd30daf19..5512154e84 100644
--- a/ext/standard/basic_functions.c
+++ b/ext/standard/basic_functions.c
@@ -498,6 +498,10 @@ function_entry basic_functions[] = {
 	PHP_FE(putenv,															NULL)
 #endif
 
+#ifdef HAVE_GETOPT
+	PHP_FE(getopt,															NULL)
+#endif
+
 	PHP_FE(microtime,														NULL)
 	PHP_FE(gettimeofday,													NULL)
 
@@ -1341,6 +1345,105 @@ PHP_FUNCTION(putenv)
 /* }}} */
 #endif
 
+#ifdef HAVE_GETOPT
+/* {{{ free_argv
+   Free the memory allocated to an argv array. */
+static void free_argv(char **argv, int argc)
+{
+	int i;
+
+	if (argv) {
+		for (i = 0; i < argc; i++) {
+			if (argv[i]) {
+				efree(argv[i]);
+			}
+		}
+		efree(argv);
+	}
+}
+/* }}} */
+
+/* {{{ proto array getopt(string options)
+   Get options from the command line argument list */
+PHP_FUNCTION(getopt)
+{
+	char *options = NULL, **argv = NULL;
+	char opt[1] = { '\0' };
+	int argc = 0, options_len = 0;
+	zval *val, **args = NULL;
+	
+	if (zend_parse_parameters(ZEND_NUM_ARGS() TSRMLS_CC, "s",
+							  &options, &options_len) == FAILURE) {
+		return;
+	}
+
+	/*
+	 * Get argv from the global symbol table.  We calculate argc ourselves
+	 * in order to be on the safe side, even though it is also available
+	 * from the symbol table.
+	 */
+	if (zend_hash_find(&EG(symbol_table), "argv", sizeof("argv"),
+					   (void **) &args) != FAILURE) {
+		int pos = 0;
+		zval **arg;
+
+		argc = zend_hash_num_elements(Z_ARRVAL_PP(args));
+
+		/* Attempt to allocate enough memory to hold all of the arguments. */
+		if ((argv = (char **) emalloc(argc * sizeof(char *))) == NULL) {
+			RETURN_FALSE;
+		}
+
+		/* Reset the array indexes. */
+		zend_hash_internal_pointer_reset(Z_ARRVAL_PP(args));
+
+		/* Iterate over the hash to construct the argv array. */
+		while (zend_hash_get_current_data(Z_ARRVAL_PP(args),
+										  (void **)&arg) == SUCCESS) {
+			argv[pos++] = estrdup(Z_STRVAL_PP(arg));
+			zend_hash_move_forward(Z_ARRVAL_PP(args));
+		}
+	}
+
+	/* Initialize the return value as an array. */
+	if (array_init(return_value)) {
+		RETURN_FALSE;
+	}
+
+	/* Disable getopt()'s error messages. */
+	opterr = 0;
+
+	/* Invoke getopt(3) on the argument array. */
+	while (getopt(argc, argv, options) != -1) {
+
+		/* Skip unknown arguments. */
+		if (optopt == '?') {
+			continue;
+		}
+
+		/* Prepare the option character and the argument string. */
+		opt[0] = optopt;
+
+		MAKE_STD_ZVAL(val);
+		if (optarg != NULL) {
+			ZVAL_STRING(val, optarg, 1);
+		} else {
+			ZVAL_NULL(val);
+		}
+
+		/* Add this option / argument pair to the result hash. */
+		if (zend_hash_add(HASH_OF(return_value), opt, 1, (void *)&val,
+							 sizeof(zval *), NULL) == FAILURE) {
+			free_argv(argv, argc);
+			RETURN_FALSE;
+		}
+	}
+
+	free_argv(argv, argc);
+}
+/* }}} */
+#endif
+
 /* {{{ proto void flush(void)
    Flush the output buffer */
 PHP_FUNCTION(flush)
diff --git a/ext/standard/basic_functions.h b/ext/standard/basic_functions.h
index 07bd240fdc..83cc764fd6 100644
--- a/ext/standard/basic_functions.h
+++ b/ext/standard/basic_functions.h
@@ -50,6 +50,8 @@ PHP_FUNCTION(long2ip);
 PHP_FUNCTION(getenv);
 PHP_FUNCTION(putenv);
 
+PHP_FUNCTION(getopt);
+
 PHP_FUNCTION(get_current_user);
 PHP_FUNCTION(set_time_limit);
 
-- 
2.50.1