/Support/bootstrap.php

<?php

$basename = 'hook';
if (empty($_SERVER['TM_DRUPAL_VERSION'])) {
  $_SERVER['TM_DRUPAL_VERSION'] = '7';
}
if (empty($_SERVER['TM_DRUPAL_API'])) {
  $_SERVER['TM_DRUPAL_API'] = 'http://api.drupal.org';
}

function textmate_detect_settings($filepath, $_basename = 'hook', $_version = NULL) {
  $settings = array(
    'basename' => array(
      'default' => TRUE,
      'value' => $_basename,
    ),
    'version' => array(
      'default' => TRUE,
      'value' => ($_version == NULL) ? $_SERVER['TM_DRUPAL_VERSION'] : $_version,
    ),
  );

  $nomask = array('.', '..', 'CVS');
  $path = explode('/', dirname($filepath));

  while($path) {
    if ($file = textmate_scan_directory(implode('/', $path), "/.*\.info$/", $nomask, 0, FALSE)) {
      $file = array_shift($file);

      if (isset($file->name) && $settings['basename']['default'] == TRUE) {
        $settings['basename']['value'] = $file->name;
        $settings['basename']['default'] = FALSE;
      }

      // search [module].info file
      if ($settings['version']['default'] == TRUE) {
        $info = textmate_parse_info_file($file->filename);
        if (!empty($info['core'])) {
          $settings['version']['value'] = (int) $info['core'];
          $settings['version']['default'] = FALSE;
        }
      }
    }

    // search system.info file in drupal core
    if ($settings['version']['default'] == TRUE) {
      $info = textmate_parse_info_file(implode('/', $path) . '/modules/system/system.info');
      if (!empty($info['core'])) {
        $settings['version']['value'] = (int) $info['core'];
        $settings['version']['default'] = FALSE;
      }
    }

    if ($settings['basename']['default'] == FALSE && $settings['version']['default'] == FALSE) {
      return $settings;
    }

    array_pop($path);
  }

  return $settings;
}

function textmate_find_command($name) {
  $fallback = NULL;

  if (strpos($name, 'theme_') === 0) {
    $folder = 'theme/';
    $fallback = 'theme';
  }

  elseif (strpos($name, 'hook_') === 0) {
    $folder = 'hooks/';
    $fallback = 'hook';
  }

  elseif (strpos($name, 'drupal_') === 0) {
    $folder = 'drupal/';
  }

  elseif (strpos($name, 'js_') === 0) {
    $folder = 'js/';
  }

  elseif (strpos($name, 'content_') === 0) {
    $folder = 'cck/';
  }

  elseif (strpos($name, 'menu_') === 0) {
    $folder = 'menu/';
  }

  elseif (strpos($name, 'template_preprocess_') === 0) {
    $folder = 'preprocess/';
    $fallback = 'template';
  }

  elseif (strpos($name, 'schema_') === 0) {
    $folder = 'schema/';
    $name = str_replace('schema_', '', $name);
  }

  elseif (strpos($name, 'unit_test_') === 0 || strpos($name, 'web_test_') === 0) {
    $folder = 'simpletest/';
  }

  elseif (strpos($name, 'element_') === 0) {
    $folder = 'fapi/elements/';
    $name = str_replace('element_', '', $name);
  }

  elseif (strpos($name, 'fapi_') === 0) {
    $folder = 'fapi/controls/';
    $name = str_replace('fapi_', '', $name);
  }

  else {
    $folder = '';
  }

  $settings = textmate_detect_settings($_SERVER['TM_FILEPATH'], $fallback);
  $basename = $GLOBALS['basename'] = $settings['basename']['value'];
  $version = $GLOBALS['version'] = $settings['version']['value'];

  $files = array(
    $_SERVER['TM_BUNDLE_SUPPORT'] . '/commands/overrides/' . $folder . $version . '/' . $name . '.' . $version . '.php',
    $_SERVER['TM_BUNDLE_SUPPORT'] . '/commands/generated/' . $folder . $version . '/' . $name . '.' . $version . '.php',
    $_SERVER['TM_BUNDLE_SUPPORT'] . '/commands/overrides/' . $folder . '/' . $name . '.php',
    $_SERVER['TM_BUNDLE_SUPPORT'] . '/commands/generated/' . $folder . '/' . $name . '.php',
    $_SERVER['TM_BUNDLE_SUPPORT'] . '/does_not_exist.php',
  );

  foreach ($files as $file)
    if (file_exists($file))
      return $file;
}

function textmate_parse_info_file($filename) {
  if (!file_exists($filename)) {
    return array();
  }

  $data = file_get_contents($filename);
  return textmate_parse_info_format($data);
}

function textmate_parse_info_format($data) {
  $info = array();
  $constants = get_defined_constants();

  if (preg_match_all('
    @^\s*                           # Start at the beginning of a line, ignoring leading whitespace
    ((?:
      [^=;\[\]]|                    # Key names cannot contain equal signs, semi-colons or square brackets,
      \[[^\[\]]*\]                  # unless they are balanced and not nested
    )+?)
    \s*=\s*                         # Key/value pairs are separated by equal signs (ignoring white-space)
    (?:
      ("(?:[^"]|(?<=\\\\)")*")|     # Double-quoted string, which may contain slash-escaped quotes/slashes
      (\'(?:[^\']|(?<=\\\\)\')*\')| # Single-quoted string, which may contain slash-escaped quotes/slashes
      ([^\r\n]*?)                   # Non-quoted string
    )\s*$                           # Stop at the next end of a line, ignoring trailing whitespace
    @msx', $data, $matches, PREG_SET_ORDER)) {
    foreach ($matches as $match) {
      // Fetch the key and value string
      $i = 0;
      foreach (array('key', 'value1', 'value2', 'value3') as $var) {
        $$var = isset($match[++$i]) ? $match[$i] : '';
      }
      $value = stripslashes(substr($value1, 1, -1)) . stripslashes(substr($value2, 1, -1)) . $value3;

      // Parse array syntax
      $keys = preg_split('/\]?\[/', rtrim($key, ']'));
      $last = array_pop($keys);
      $parent = &$info;

      // Create nested arrays
      foreach ($keys as $key) {
        if ($key == '') {
          $key = count($parent);
        }
        if (!isset($parent[$key]) || !is_array($parent[$key])) {
          $parent[$key] = array();
        }
        $parent = &$parent[$key];
      }

      // Handle PHP constants.
      if (isset($constants[$value])) {
        $value = $constants[$value];
      }

      // Insert actual value
      if ($last == '') {
        $last = count($parent);
      }
      $parent[$last] = $value;
    }
  }

  return $info;
}

function textmate_scan_directory($dir, $mask, $nomask = array('.', '..', 'CVS'), $callback = 0, $recurse_max_depth = TRUE, $key = 'filename', $min_depth = 0, $include_dot_files = FALSE, $depth = 0) {
  $key = (in_array($key, array('filename', 'basename', 'name')) ? $key : 'filename');
  $files = array();

  if (is_dir($dir) && $handle = opendir($dir)) {
    while (FALSE !== ($file = readdir($handle))) {
      if (!in_array($file, $nomask) && (($include_dot_files && (!preg_match("/\.\+/",$file))) || ($file[0] != '.'))) {
        if (is_dir("$dir/$file") && (($recurse_max_depth === TRUE) || ($depth < $recurse_max_depth))) {
          // Give priority to files in this folder by merging them in after any subdirectory files.
          $files = array_merge(textmate_scan_directory("$dir/$file", $mask, $nomask, $callback, $recurse_max_depth, $key, $min_depth, $include_dot_files, $depth + 1), $files);
        }
        elseif ($depth >= $min_depth && preg_match($mask, $file)) {
          // Always use this match over anything already set in $files with the same $$key.
          $filename = "$dir/$file";
          $basename = basename($file);
          $name = substr($basename, 0, strrpos($basename, '.'));
          $files[$$key] = new stdClass();
          $files[$$key]->filename = $filename;
          $files[$$key]->basename = $basename;
          $files[$$key]->name = $name;
          if ($callback) {
            $callback($filename);
          }
        }
      }
    }

    closedir($handle);
  }

  return $files;
}

function textmate_docs_for_word($function) {
  $settings = textmate_detect_settings($_SERVER['TM_FILEPATH']);
  $basename = $settings['basename']['value'];
  $version = $settings['version']['value'];

  if (strpos($_SERVER['TM_DRUPAL_API'], 'drupalcontrib.org') !== FALSE) {
    $suggestions = array();
    $suggestions[] = preg_replace('/\A' . $basename .'_/', 'hook_', $function, 1);
    $suggestions[] = preg_replace('/\A' . $basename .'_/', 'theme_', $function, 1);
    $suggestions[] = preg_replace('/\A' . $basename .'_/', 'template_', $function, 1);
    $suggestions[] = $function;

    $suggestions = array_unique($suggestions);
    return $_SERVER['TM_DRUPAL_API'] . '/textmate_api/search/' . $version . '/' . implode('/', $suggestions);
  }

  return $_SERVER['TM_DRUPAL_API'] . '/api/search/' . $version . '/' . $function;
}

function textmate_docs_for_theme_hook($line) {
  preg_match("/theme\('([a-z_]+)'/", $line, $matches);
  return textmate_docs_for_word('theme_' . $matches[1]);
}