if (!function_exists('version_compare')) {
      function version_compare($version1,$version2, // Check input
          if (!is_scalar(version1)) {
              user_error('version_compare() expects parameter 1 to be string, ' .
                  gettype($version1)\; .\; \text{'}\; given\text{'},\; E\_USER\_WARNING);\; return;\; \}\; if\; (!is\_scalar($version2)) {
              user_error('version_compare() expects parameter 2 to be string, ' .
                  gettype($version2)\; .\; \text{'}\; given\text{'},\; E\_USER\_WARNING);\; return;\; \}\; if\; (!is\_scalar($operator)) {
              user_error('version_compare() expects parameter 3 to be string, ' .
                  gettype($operator)\; .\; \text{'}\; given\text{'},\; E\_USER\_WARNING);\; return;\; \}$// Standardise versions
          v1 = explode('.',
              str_replace('..', '.',
                  preg_replace('/([^0-9\.]+)/', '.$1.',
                      str_replace(array('-', '_', '+'), '.',
                          trim($version1)))));$v2 = explode('.',
              str_replace('..', '.',
                  preg_replace('/([^0-9\.]+)/', '.$1.',
                      str_replace(array('-', '_', '+'), '.',
                          trim($version2)))));$// Replace empty entries at the start of the array
          while (empty(v1[0]) && array_shift($v1))\; \{\}\; while\; (empty($v2[0]) && array_shift($v2))\; \{\}$// Release state order
          // '#' stands for any number
          versions = array(
              'dev'   => 0,
              'alpha' => 1,
              'a'     => 1,
              'beta'  => 2,
              'b'     => 2,
              'RC'    => 3,
              '#'     => 4,
              'p'     => 5,
              'pl'    => 5);
  
          // Loop through each segment in the version string
          $compare\; =\; 0;\; for\; ($i = 0, $x\; =\; min(count($v1), count($v2));$i < $x;$i++) {
              if ($v1[$i] == $v2[$i]) {
                  continue;
              }
              $i1\; =$v1[$i];$i2 = $v2[$i];
              if (is_numeric(i2)) {
                  $compare\; =\; ($i1 < $i2)\; ?\; -1\; :\; 1;\; break;\; \}$// We use the position of '#' in the versions list
              // for numbers... (so take care of # in original string)
              if (i1 == '#') {
                  $i1\; =\; \text{'}\text{'};\; \}\; elseif\; (is\_numeric($i1)) {
                  $i1\; =\; \text{'}\#\text{'};\; \}\; if\; ($i2 == '#') {
                  $i2\; =\; \text{'}\text{'};\; \}\; elseif\; (is\_numeric($i2)) {
                  $i2\; =\; \text{'}\#\text{'};\; \}\; if\; (isset($versions[versions[$i2]))\; \{$compare = ($versions[$i1] < $versions[$i2]) ? -1 : 1;
              } elseif (isset($versions[$i1])) {
                  $compare\; =\; 1;\; \}\; elseif\; (isset($versions[$i2]))\; \{$compare = -1;
              } else {
                  $compare\; =\; 0;\; \}\; break;\; \}$// If previous loop didn't find anything, compare the "extra" segments
          if (compare == 0) {
              if (count($v2)\; >\; count($v1)) {
                  if (isset($versions[$v2[$i]]))\; \{$compare = ($versions[$v2[compare = -1;
                  }
              } elseif (count(v1)) {
                  if (isset($versions[$v1[$i]]))\; \{$compare = ($versions[$v1[compare = 1;
                  }
              }
          }
  
          // Compare the versions
          if (func_num_args() > 2) {
              switch ($operator)\; \{\; case\; \text{'}>\text{'}:\; case\; \text{'}gt\text{'}:\; return\; (bool)\; ($compare > 0);
                      break;
                  case '>=':
                  case 'ge':
                      return (bool) (compare <= 0);
                      break;
                  case '==':
                  case '=':
                  case 'eq':
                      return (bool) (compare != 0);
                      break;
                  case '':
                  case '<':
                  case 'lt':
                      return (bool) (compare;
      }
  }
  
  ?>