original_string: protected function replace_emoticons($text) {
          global $CFG, $OUTPUT, $PAGE;
  
          $lang = current_language();
          $theme = $PAGE->theme->name;
  
          if (!isset(self::$emoticontexts[$lang][$theme]) or !isset(self::$emoticonimgs[$lang][$theme])) {
              // prepare internal caches
              $manager = get_emoticon_manager();
              $emoticons = $manager->get_emoticons();
              self::$emoticontexts[$lang][$theme] = array();
              self::$emoticonimgs[$lang][$theme] = array();
              foreach ($emoticons as $emoticon) {
                  self::$emoticontexts[$lang][$theme][] = $emoticon->text;
                  self::$emoticonimgs[$lang][$theme][] = $OUTPUT->render($manager->prepare_renderable_emoticon($emoticon));
              }
              unset($emoticons);
          }
  
          if (empty(self::$emoticontexts[$lang][$theme])) { // No emoticons defined, nothing to process here.
              return $text;
          }
  
          // Detect all zones that we should not handle (including the nested tags).
          $processing = preg_split('/(<\/?(?:span|script)[^>]*>)/is', $text, 0, PREG_SPLIT_DELIM_CAPTURE | PREG_SPLIT_NO_EMPTY);
  
          // Initialize the results.
          $resulthtml = "";
          $exclude = 0;
  
          // Define the patterns that mark the start of the forbidden zones.
          $excludepattern = array('/^<script/is', '/^<span[^>]+class="nolink[^"]*"/is');
  
          // Loop through the fragments.
          foreach ($processing as $fragment) {
              // If we are not ignoring, we MUST test if we should.
              if ($exclude == 0) {
                  foreach ($excludepattern as $exp) {
                      if (preg_match($exp, $fragment)) {
                          $exclude = $exclude + 1;
                          break;
                      }
                  }
              }
              if ($exclude > 0) {
                  // If we are ignoring the fragment, then we must check if we may have reached the end of the zone.
                  if (strpos($fragment, '</span') !== false || strpos($fragment, '</script') !== false) {
                      $exclude -= 1;
                      // This is needed because of a double increment at the first element.
                      if ($exclude == 1) {
                          $exclude -= 1;
                      }
                  } else if (strpos($fragment, '<span') !== false || strpos($fragment, '<script') !== false) {
                      // If we find a nested tag we increase the exclusion level.
                      $exclude = $exclude + 1;
                  }
              } else if (strpos($fragment, '<span') === false ||
                         strpos($fragment, '</span') === false) {
                  // This is the meat of the code - this is run every time.
                  // This code only runs for fragments that are not ignored (including the tags themselves).
                  $fragment = str_replace(self::$emoticontexts[$lang][$theme], self::$emoticonimgs[$lang][$theme], $fragment);
              }
              $resulthtml .= $fragment;
          }
  
          return $resulthtml;
      }
code: protected function replace_emoticons($text) {
          global $CFG, $OUTPUT, $PAGE;
  
          $lang = current_language();
          $theme = $PAGE->theme->name;
  
          if (!isset(self::$emoticontexts[$lang][$theme]) or !isset(self::$emoticonimgs[$lang][$theme])) {
              // prepare internal caches
              $manager = get_emoticon_manager();
              $emoticons = $manager->get_emoticons();
              self::$emoticontexts[$lang][$theme] = array();
              self::$emoticonimgs[$lang][$theme] = array();
              foreach ($emoticons as $emoticon) {
                  self::$emoticontexts[$lang][$theme][] = $emoticon->text;
                  self::$emoticonimgs[$lang][$theme][] = $OUTPUT->render($manager->prepare_renderable_emoticon($emoticon));
              }
              unset($emoticons);
          }
  
          if (empty(self::$emoticontexts[$lang][$theme])) { // No emoticons defined, nothing to process here.
              return $text;
          }
  
          // Detect all zones that we should not handle (including the nested tags).
          $processing = preg_split('/(<\/?(?:span|script)[^>]*>)/is', $text, 0, PREG_SPLIT_DELIM_CAPTURE | PREG_SPLIT_NO_EMPTY);
  
          // Initialize the results.
          $resulthtml = "";
          $exclude = 0;
  
          // Define the patterns that mark the start of the forbidden zones.
          $excludepattern = array('/^<script/is', '/^<span[^>]+class="nolink[^"]*"/is');
  
          // Loop through the fragments.
          foreach ($processing as $fragment) {
              // If we are not ignoring, we MUST test if we should.
              if ($exclude == 0) {
                  foreach ($excludepattern as $exp) {
                      if (preg_match($exp, $fragment)) {
                          $exclude = $exclude + 1;
                          break;
                      }
                  }
              }
              if ($exclude > 0) {
                  // If we are ignoring the fragment, then we must check if we may have reached the end of the zone.
                  if (strpos($fragment, '</span') !== false || strpos($fragment, '</script') !== false) {
                      $exclude -= 1;
                      // This is needed because of a double increment at the first element.
                      if ($exclude == 1) {
                          $exclude -= 1;
                      }
                  } else if (strpos($fragment, '<span') !== false || strpos($fragment, '<script') !== false) {
                      // If we find a nested tag we increase the exclusion level.
                      $exclude = $exclude + 1;
                  }
              } else if (strpos($fragment, '<span') === false ||
                         strpos($fragment, '</span') === false) {
                  // This is the meat of the code - this is run every time.
                  // This code only runs for fragments that are not ignored (including the tags themselves).
                  $fragment = str_replace(self::$emoticontexts[$lang][$theme], self::$emoticonimgs[$lang][$theme], $fragment);
              }
              $resulthtml .= $fragment;
          }
  
          return $resulthtml;
      }
code_tokens: protected function replace_emoticons ( $ text ) { global $ CFG , $ OUTPUT , $ PAGE ; $ lang = current_language ( ) ; $ theme = $ PAGE -> theme -> name ; if ( ! isset ( self :: $ emoticontexts [ $ lang ] [ $ theme ] ) or ! isset ( self :: $ emoticonimgs [ $ lang ] [ $ theme ] ) ) { // prepare internal caches $ manager = get_emoticon_manager ( ) ; $ emoticons = $ manager -> get_emoticons ( ) ; self :: $ emoticontexts [ $ lang ] [ $ theme ] = array ( ) ; self :: $ emoticonimgs [ $ lang ] [ $ theme ] = array ( ) ; foreach ( $ emoticons as $ emoticon ) { self :: $ emoticontexts [ $ lang ] [ $ theme ] [ ] = $ emoticon -> text ; self :: $ emoticonimgs [ $ lang ] [ $ theme ] [ ] = $ OUTPUT -> render ( $ manager -> prepare_renderable_emoticon ( $ emoticon ) ) ; } unset ( $ emoticons ) ; } if ( empty ( self :: $ emoticontexts [ $ lang ] [ $ theme ] ) ) { // No emoticons defined, nothing to process here. return $ text ; } // Detect all zones that we should not handle (including the nested tags). $ processing = preg_split ( '/(<\/?(?:span|script)[^>]*>)/is' , $ text , 0 , PREG_SPLIT_DELIM_CAPTURE | PREG_SPLIT_NO_EMPTY ) ; // Initialize the results. $ resulthtml = "" ; $ exclude = 0 ; // Define the patterns that mark the start of the forbidden zones. $ excludepattern = array ( '/^<script/is' , '/^<span[^>]+class="nolink[^"]*"/is' ) ; // Loop through the fragments. foreach ( $ processing as $ fragment ) { // If we are not ignoring, we MUST test if we should. if ( $ exclude == 0 ) { foreach ( $ excludepattern as $ exp ) { if ( preg_match ( $ exp , $ fragment ) ) { $ exclude = $ exclude + 1 ; break ; } } } if ( $ exclude > 0 ) { // If we are ignoring the fragment, then we must check if we may have reached the end of the zone. if ( strpos ( $ fragment , '</span' ) !== false || strpos ( $ fragment , '</script' ) !== false ) { $ exclude -= 1 ; // This is needed because of a double increment at the first element. if ( $ exclude == 1 ) { $ exclude -= 1 ; } } else if ( strpos ( $ fragment , '<span' ) !== false || strpos ( $ fragment , '<script' ) !== false ) { // If we find a nested tag we increase the exclusion level. $ exclude = $ exclude + 1 ; } } else if ( strpos ( $ fragment , '<span' ) === false || strpos ( $ fragment , '</span' ) === false ) { // This is the meat of the code - this is run every time. // This code only runs for fragments that are not ignored (including the tags themselves). $ fragment = str_replace ( self :: $ emoticontexts [ $ lang ] [ $ theme ] , self :: $ emoticonimgs [ $ lang ] [ $ theme ] , $ fragment ) ; } $ resulthtml .= $ fragment ; } return $ resulthtml ; }
docstring: Replace emoticons found in the text with their images
  
  @param string $text to modify
  @return string the modified result
docstring_tokens: Replace emoticons found in the text with their images