geshifilter.inc in GeSHi Filter for syntax highlighting 7

General GeSHi filter helper functions.

File

geshifilter.inc

<?php

/**
 * @file
 * General GeSHi filter helper functions.
 */

/**
 * List of available languages.
 *
 * @return an array mapping language code to array with the language path and full language name.
 */
function _geshifilter_get_available_languages() {

  // try to get it from cache (database actually)
  $available_languages = variable_get('geshifilter_available_languages_cache', NULL);
  if ($available_languages === NULL) {

    // not in cache: build the array of available_languages
    $geshi_library = libraries_load('geshi');
    $available_languages = array();
    if ($geshi_library['loaded']) {
      $dirs = array(
        $geshi_library['library path'] . '/geshi',
        drupal_get_path('module', 'geshifilter') . '/geshi-extra',
      );
      foreach ($dirs as $dir) {
        foreach (file_scan_directory($dir, '/.[pP][hH][pP]$/i') as $filename => $fileinfo) {

          // short name
          $name = $fileinfo->name;

          // get full name
          $geshi = new GeSHi('', $name);
          $geshi
            ->set_language_path($dir);
          $fullname = $geshi
            ->get_language_name();
          unset($geshi);

          // store
          $available_languages[$name] = array(
            'language_path' => $dir,
            'fullname' => $fullname,
          );
        }
      }
      ksort($available_languages);

      // save array to database
      variable_set('geshifilter_available_languages_cache', $available_languages);
    }
  }
  return $available_languages;
}

/**
 * List of enabled languages.
 * (with caching)
 * @return array with enabled languages mapping language code to full name.
 */
function _geshifilter_get_enabled_languages() {
  static $enabled_languages = NULL;
  if ($enabled_languages === NULL) {
    $enabled_languages = array();
    $languages = _geshifilter_get_available_languages();
    foreach ($languages as $language => $language_data) {
      if (variable_get('geshifilter_language_enabled_' . $language, FALSE)) {
        $enabled_languages[$language] = $language_data['fullname'];
      }
    }
  }
  return $enabled_languages;
}

/**
 * Helper function for gettings the tags.
 * (with caching)
 */
function _geshifilter_get_tags($format) {
  static $geshifilter_tags_cache = array();
  if (!isset($geshifilter_tags_cache[$format])) {
    $generic_code_tags = _geshifilter_tag_split(geshifilter_tags($format));
    $language_tags = array();
    $tag_to_lang = array();
    $enabled_languages = _geshifilter_get_enabled_languages();
    foreach ($enabled_languages as $language => $fullname) {
      $lang_tags = _geshifilter_tag_split(geshifilter_language_tags($language, $format));
      foreach ($lang_tags as $lang_tag) {
        $language_tags[] = $lang_tag;
        $tag_to_lang[$lang_tag] = $language;
      }
    }
    $geshifilter_tags_cache[$format] = array(
      $generic_code_tags,
      $language_tags,
      $tag_to_lang,
    );
  }
  return $geshifilter_tags_cache[$format];
}

/**
 * Helper function for generating a GeSHi object.
 * @param $language the language to generate a GeSHi object for
 */
function _geshifilter_geshi_factory($source_code, $language) {
  $available_languages = _geshifilter_get_available_languages();
  $geshi = new GeSHi($source_code, $language);
  $geshi
    ->set_language_path($available_languages[$language]['language_path']);
  return $geshi;
}

/**
 * Helper function for splitting a string on white spaces.
 * Using explode(' ', $string) is not enough because it returns empty elements
 * if $string contains consecutive spaces.
 */
function _geshifilter_whitespace_explode($string) {
  return preg_split('/\\s+/', $string, -1, PREG_SPLIT_NO_EMPTY);
}
function _geshifilter_tag_split($string) {
  return preg_split('/\\s+|<|>|\\[|\\]/', $string, -1, PREG_SPLIT_NO_EMPTY);
}

// General settings
function geshifilter_use_format_specific_options() {
  return variable_get('geshifilter_format_specific_options', FALSE);
}
function geshifilter_tags($format = NULL) {
  if (!geshifilter_use_format_specific_options() || $format === NULL) {
    return variable_get('geshifilter_tags', 'code blockcode');
  }
  return variable_get("geshifilter_tags_{$format}", geshifilter_tags());
}
function geshifilter_decode_entities($format = NULL) {
  if (!geshifilter_use_format_specific_options() || $format === NULL) {
    return variable_get('geshifilter_decode_entities', 0);
  }
  return variable_get("geshifilter_decode_entities_{$format}", geshifilter_decode_entities());
}
function _geshifilter_tag_styles($format = NULL) {
  if (!geshifilter_use_format_specific_options() || $format === NULL) {
    return variable_get('geshifilter_tag_styles', array(
      GESHIFILTER_BRACKETS_ANGLE => GESHIFILTER_BRACKETS_ANGLE,
      GESHIFILTER_BRACKETS_SQUARE => GESHIFILTER_BRACKETS_SQUARE,
    ));
  }
  return variable_get("geshifilter_tag_styles_{$format}", _geshifilter_tag_styles());
}
function geshifilter_language_tags($language, $format = NULL) {
  if (!geshifilter_use_format_specific_options() || $format === NULL) {
    return variable_get("geshifilter_language_tags_{$language}", '');
  }
  return variable_get("geshifilter_language_tags_{$language}_{$format}", geshifilter_language_tags($language));
}

Functions

Name	Description
geshifilter_decode_entities
geshifilter_language_tags
geshifilter_tags
geshifilter_use_format_specific_options
_geshifilter_geshi_factory	Helper function for generating a GeSHi object.
_geshifilter_get_available_languages	List of available languages.
_geshifilter_get_enabled_languages	List of enabled languages. (with caching)
_geshifilter_get_tags	Helper function for gettings the tags. (with caching)
_geshifilter_tag_split
_geshifilter_tag_styles
_geshifilter_whitespace_explode	Helper function for splitting a string on white spaces. Using explode(' ', $string) is not enough because it returns empty elements if $string contains consecutive spaces.