diff options
Diffstat (limited to 'pear/Console')
| -rw-r--r-- | pear/Console/Getopt.php | 64 |
1 files changed, 28 insertions, 36 deletions
diff --git a/pear/Console/Getopt.php b/pear/Console/Getopt.php index ed07753f37..52b2dea049 100644 --- a/pear/Console/Getopt.php +++ b/pear/Console/Getopt.php @@ -52,12 +52,8 @@ class Console_Getopt { * Long and short options can be mixed. * * Most of the semantics of this function are based on GNU getopt_long(). - * - * <b>WARNING</b>: this function does not maintain full compatibility with GNU getopt_long(). - * To have full compatibility, use {@link getopt2()} * - * @param array $args an array of command-line arguments. The first argument - * should be the filename (like $argv[0]), unless it begins with - + * @param array $args an array of command-line arguments * @param string $short_options specifies the list of allowed short options * @param array $long_options specifies the list of allowed long options * @@ -67,32 +63,25 @@ class Console_Getopt { * @access public * */ - function getopt($args, $short_options, $long_options = null) + function getopt2($args, $short_options, $long_options = null) { - // in case you pass directly readPHPArgv() as the first arg - if (PEAR::isError($args)) { - return $args; - } - if (empty($args)) { - return array(array(), array()); - } - - settype($args, 'array'); - - if ($long_options) { - sort($long_options); - } - if (isset($args[0]{0}) && $args[0]{0} != '-') { - array_shift($args); - } - return Console_Getopt::doGetopt($args, $short_options, $long_options); + return Console_Getopt::doGetopt(2, $args, $short_options, $long_options); } /** - * This function expects $args to contain only options and values - * @see getopt() + * This function expects $args to start with the script name (POSIX-style). + * Preserved for backwards compatibility. + * @see getopt2() */ - function getopt2($args, $short_options, $long_options = null) + function getopt($args, $short_options, $long_options = null) + { + return Console_Getopt::doGetopt(1, $args, $short_options, $long_options); + } + + /** + * The actual implementation of the argument parsing code. + */ + function doGetopt($version, $args, $short_options, $long_options = null) { // in case you pass directly readPHPArgv() as the first arg if (PEAR::isError($args)) { @@ -101,22 +90,25 @@ class Console_Getopt { if (empty($args)) { return array(array(), array()); } + $opts = array(); + $non_opts = array(); settype($args, 'array'); if ($long_options) { sort($long_options); } - return Console_Getopt::doGetopt($args, $short_options, $long_options); - } - - /** - * The meat of {@link getopt()} and {@link getopt2()} - */ - function doGetopt($args, $short_options, $long_options = null) - { - $opts = array(); - $non_opts = array(); + + /* + * Preserve backwards compatibility with callers that relied on + * erroneous POSIX fix. + */ + if ($version < 2) { + if (isset($args[0]{0}) && $args[0]{0} != '-') { + array_shift($args); + } + } + reset($args); while (list($i, $arg) = each($args)) { |