<?php

/**
 * @file
 * latlon.inc
 */

$plugin = array(
  'title' => t('Latitude / Longitude'),
  'description' => t('Parse location from freeform latitude and longitude string'),
  'callback' => 'geocoder_latlon',
  'field_types' => array('text', 'text_long', 'text_with_summary', 'computed'),
  'field_callback' => 'geocoder_latlon_field',
);

/**
 * Process Markup.
 */
function geocoder_latlon($latlon_string, $options = array()) {
  geophp_load();

  $delims = array(',' , '/' , ' ' , "\t");

  foreach ($delims as $delim) {
    $parts = explode($delim, $latlon_string);
    if (count($parts) === 2) {
      $lat = geocoder_latlon_dms_to_dec(trim($parts[0]));
      $lon = geocoder_latlon_dms_to_dec(trim($parts[1]));

      return new Point($lon, $lat);
    }
  }

  // Failed to parse.
  return FALSE;
}

/**
 * Plugin callback.
 */
function geocoder_latlon_dms_to_dec($dms) {
  if (is_numeric($dms)) {
    // It's already decimal degrees, just return it.
    return $dms;
  }

  // If it contains both an H and M, then it's an angular hours.
  if (stripos($dms, 'H') !== FALSE && stripos($dms, 'M') !== FALSE) {
    $dms = strtr($dms, "'\"HOURSMINTECNDAhoursmintecnda", '  ');
    $dms = preg_replace('/\s\s+/', ' ', $dms);

    $dms = explode(' ', $dms);
    $deg = $dms[0];
    $min = $dms[1];
    $sec = $dms[2];

    $dec = floatval(($deg * 15) + ($min / 4) + ($sec / 240));

    return $dec;
  }

  // If it contains an S or a W, then it's a negative.
  if (stripos($dms, 'S') !== FALSE || stripos($dms, 'W') !== FALSE) {
    $direction = -1;
  }
  else {
    $direction = 1;
  }

  // Strip all characters and replace them with empty space.
  $dms = strtr($dms, "�'\"NORTHSEAWnorthseaw'", ' ');
  $dms = preg_replace('/\s\s+/', ' ', $dms);

  $dms = explode(' ', $dms);
  $deg = $dms[0];
  $min = $dms[1];
  $sec = $dms[2];

  // Direction should be checked only for nonnegative coordinates.
  $dec = floatval($deg + ((($min * 60) + ($sec)) / 3600));
  if ($dec > 0) {
    $dec = $direction * $dec;
  }

  return $dec;
}

/**
 * Plugin callback.
 */
function geocoder_latlon_field($field, $field_item) {
  return geocoder_latlon($field_item['value']);
}