latlon.inc in Geocoder 7

File

plugins/geocoder_handler/latlon.inc

<?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']);
}

Functions

Name	Description
geocoder_latlon	Process Markup.
geocoder_latlon_dms_to_dec	Plugin callback.
geocoder_latlon_field	Plugin callback.