Miscellany

function parseCline() {
    $res = array();
  $cur = "";
  foreach ($GLOBALS["argv"] as $clinearg) {
    if (substr($clinearg,0,1) == "-") {
        $par = substr($clinearg,1,1);
      $clinearg = substr($clinearg,2,strlen($clinearg));
     # $res[$par] = "";
      $cur = strtolower($par);
        $res[$cur] .= $clinearg;
    } elseif ($cur) {
        if ($res[$cur])
            $res[$cur] .= ' '.$clinearg;
      else
        $res[$cur] .= $clinearg;
    }
  } 
  foreach ($res as $key => $val) {
    print "$key = $val\n";
  } 
  return $res;
}