<?php
- function getCmdOpt($aArg, $aSpec, &$aResult, $bExitOnError = false, $bExitOnUnknown = false)
- {
- $aQuick = array();
- $aCounts = array();
+function getCmdOpt($aArg, $aSpec, &$aResult, $bExitOnError = false, $bExitOnUnknown = false)
+{
+ $aQuick = array();
+ $aCounts = array();
- foreach($aSpec as $aLine)
- {
- if (is_array($aLine))
- {
- if ($aLine[0]) $aQuick['--'.$aLine[0]] = $aLine;
- if ($aLine[1]) $aQuick['-'.$aLine[1]] = $aLine;
- $aCounts[$aLine[0]] = 0;
- }
- }
+ foreach($aSpec as $aLine)
+ {
+ if (is_array($aLine))
+ {
+ if ($aLine[0]) $aQuick['--'.$aLine[0]] = $aLine;
+ if ($aLine[1]) $aQuick['-'.$aLine[1]] = $aLine;
+ $aCounts[$aLine[0]] = 0;
+ }
+ }
- $aResult = array();
- $bUnknown = false;
- $iSize = sizeof($aArg);
- for ($i = 1; $i < $iSize; $i++)
- {
- if (isset($aQuick[$aArg[$i]]))
- {
- $aLine = $aQuick[$aArg[$i]];
- $aCounts[$aLine[0]]++;
- $xVal = null;
- if ($aLine[4] == $aLine[5])
- {
- if ($aLine[4])
- {
- $xVal = array();
- for($n = $aLine[4]; $i < $iSize && $n; $n--)
- {
- $i++;
- if ($i >= $iSize || $aArg[$i][0] == '-') showUsage($aSpec, $bExitOnError, 'Parameter of \''.$aLine[0].'\' is missing');
+ $aResult = array();
+ $bUnknown = false;
+ $iSize = sizeof($aArg);
+ for ($i = 1; $i < $iSize; $i++)
+ {
+ if (isset($aQuick[$aArg[$i]]))
+ {
+ $aLine = $aQuick[$aArg[$i]];
+ $aCounts[$aLine[0]]++;
+ $xVal = null;
+ if ($aLine[4] == $aLine[5])
+ {
+ if ($aLine[4])
+ {
+ $xVal = array();
+ for($n = $aLine[4]; $i < $iSize && $n; $n--)
+ {
+ $i++;
+ if ($i >= $iSize || $aArg[$i][0] == '-') showUsage($aSpec, $bExitOnError, 'Parameter of \''.$aLine[0].'\' is missing');
- switch ($aLine[6])
- {
- case 'realpath':
- $xVal[] = realpath($aArg[$i]);
- break;
- case 'realdir':
- $sPath = realpath(dirname($aArg[$i]));
- if ($sPath)
- $xVal[] = $sPath . '/' . basename($aArg[$i]);
- else
- $xVal[] = $sPath;
- break;
- case 'bool':
- $xVal[] = (bool)$aArg[$i];
- break;
- case 'int':
- $xVal[] = (int)$aArg[$i];
- break;
- case 'float':
- $xVal[] = (float)$aArg[$i];
- break;
- default:
- $xVal[] = $aArg[$i];
- break;
- }
- }
- if ($aLine[4] == 1) $xVal = $xVal[0];
- }
- else
- {
- $xVal = true;
- }
- }
- else
- {
- fail('Variable numbers of params not yet supported');
- }
+ switch ($aLine[6])
+ {
+ case 'realpath':
+ $xVal[] = realpath($aArg[$i]);
+ break;
+ case 'realdir':
+ $sPath = realpath(dirname($aArg[$i]));
+ if ($sPath)
+ $xVal[] = $sPath . '/' . basename($aArg[$i]);
+ else
+ $xVal[] = $sPath;
+ break;
+ case 'bool':
+ $xVal[] = (bool)$aArg[$i];
+ break;
+ case 'int':
+ $xVal[] = (int)$aArg[$i];
+ break;
+ case 'float':
+ $xVal[] = (float)$aArg[$i];
+ break;
+ default:
+ $xVal[] = $aArg[$i];
+ break;
+ }
+ }
+ if ($aLine[4] == 1) $xVal = $xVal[0];
+ }
+ else
+ {
+ $xVal = true;
+ }
+ }
+ else
+ {
+ fail('Variable numbers of params not yet supported');
+ }
- if ($aLine[3] > 1)
- {
- if (!array_key_exists($aLine[0], $aResult)) $aResult[$aLine[0]] = array();
- $aResult[$aLine[0]][] = $xVal;
- }
- else
- {
- $aResult[$aLine[0]] = $xVal;
- }
- }
- else
- {
- $bUnknown = $aArg[$i];
- }
- }
+ if ($aLine[3] > 1)
+ {
+ if (!array_key_exists($aLine[0], $aResult)) $aResult[$aLine[0]] = array();
+ $aResult[$aLine[0]][] = $xVal;
+ }
+ else
+ {
+ $aResult[$aLine[0]] = $xVal;
+ }
+ }
+ else
+ {
+ $bUnknown = $aArg[$i];
+ }
+ }
- if (array_key_exists('help', $aResult)) showUsage($aSpec);
- if ($bUnknown && $bExitOnUnknown) showUsage($aSpec, $bExitOnError, 'Unknown option \''.$bUnknown.'\'');
+ if (array_key_exists('help', $aResult)) showUsage($aSpec);
+ if ($bUnknown && $bExitOnUnknown) showUsage($aSpec, $bExitOnError, 'Unknown option \''.$bUnknown.'\'');
- foreach($aSpec as $aLine)
- {
- if (is_array($aLine))
- {
- if ($aCounts[$aLine[0]] < $aLine[2]) showUsage($aSpec, $bExitOnError, 'Option \''.$aLine[0].'\' is missing');
- if ($aCounts[$aLine[0]] > $aLine[3]) showUsage($aSpec, $bExitOnError, 'Option \''.$aLine[0].'\' is pressent too many times');
- switch ($aLine[6])
- {
- case 'bool':
- if (!array_key_exists($aLine[0], $aResult))
- $aResult[$aLine[0]] = false;
- break;
- }
- }
- }
- return $bUnknown;
- }
+ foreach($aSpec as $aLine)
+ {
+ if (is_array($aLine))
+ {
+ if ($aCounts[$aLine[0]] < $aLine[2]) showUsage($aSpec, $bExitOnError, 'Option \''.$aLine[0].'\' is missing');
+ if ($aCounts[$aLine[0]] > $aLine[3]) showUsage($aSpec, $bExitOnError, 'Option \''.$aLine[0].'\' is pressent too many times');
+ switch ($aLine[6])
+ {
+ case 'bool':
+ if (!array_key_exists($aLine[0], $aResult))
+ $aResult[$aLine[0]] = false;
+ break;
+ }
+ }
+ }
+ return $bUnknown;
+}
- function showUsage($aSpec, $bExit = false, $sError = false)
- {
- if ($sError)
- {
- echo basename($_SERVER['argv'][0]).': '.$sError."\n";
- echo 'Try `'.basename($_SERVER['argv'][0]).' --help` for more information.'."\n";
- exit;
- }
- echo "Usage: ".basename($_SERVER['argv'][0])."\n";
- $bFirst = true;
- foreach($aSpec as $aLine)
- {
- if (is_array($aLine))
- {
- if ($bFirst)
- {
- $bFirst = false;
- echo "\n";
- }
- $aNames = array();
- if ($aLine[1]) $aNames[] = '-'.$aLine[1];
- if ($aLine[0]) $aNames[] = '--'.$aLine[0];
- $sName = join(', ',$aNames);
- echo ' '.$sName.str_repeat(' ',30-strlen($sName)).$aLine[7]."\n";
- }
- else
- {
- echo $aLine."\n";
- }
- }
- echo "\n";
- exit;
- }
+function showUsage($aSpec, $bExit = false, $sError = false)
+{
+ if ($sError)
+ {
+ echo basename($_SERVER['argv'][0]).': '.$sError."\n";
+ echo 'Try `'.basename($_SERVER['argv'][0]).' --help` for more information.'."\n";
+ exit;
+ }
+ echo "Usage: ".basename($_SERVER['argv'][0])."\n";
+ $bFirst = true;
+ foreach($aSpec as $aLine)
+ {
+ if (is_array($aLine))
+ {
+ if ($bFirst)
+ {
+ $bFirst = false;
+ echo "\n";
+ }
+ $aNames = array();
+ if ($aLine[1]) $aNames[] = '-'.$aLine[1];
+ if ($aLine[0]) $aNames[] = '--'.$aLine[0];
+ $sName = join(', ',$aNames);
+ echo ' '.$sName.str_repeat(' ',30-strlen($sName)).$aLine[7]."\n";
+ }
+ else
+ {
+ echo $aLine."\n";
+ }
+ }
+ echo "\n";
+ exit;
+}
- function chksql($oSql, $sMsg = false)
- {
- if (PEAR::isError($oSql))
- {
- fail($sMsg || $oSql->getMessage(), $oSql->userinfo);
- }
+function chksql($oSql, $sMsg = false)
+{
+ if (PEAR::isError($oSql))
+ {
+ fail($sMsg || $oSql->getMessage(), $oSql->userinfo);
+ }
- return $oSql;
- }
+ return $oSql;
+}