<?php
/**
 * SeekQuarry/Yioop --
 * Open Source Pure PHP Search Engine, Crawler, and Indexer
 *
 * Copyright (C) 2009 - 2026  Chris Pollett chris@pollett.org
 *
 * LICENSE:
 *
 * This program is free software: you can redistribute it and/or modify
 * it under the terms of the GNU General Public License as published by
 * the Free Software Foundation, either version 3 of the License, or
 * (at your option) any later version.
 *
 * This program is distributed in the hope that it will be useful,
 * but WITHOUT ANY WARRANTY; without even the implied warranty of
 * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
 * GNU General Public License for more details.
 *
 * You should have received a copy of the GNU General Public License
 * along with this program.  If not, see <https://www.gnu.org/licenses/>.
 *
 * END LICENSE
 *
 * @author Chris Pollett chris@pollett.org
 * @license https://www.gnu.org/licenses/ GPL3
 * @link https://www.seekquarry.com/
 * @copyright 2009 - 2026
 * @filesource
 */
namespace seekquarry\yioop\library\language_processing;
use seekquarry\yioop\library as L;

use seekquarry\yioop\configs as C;
use seekquarry\yioop\models\LocaleModel;
use seekquarry\yioop\library\processors\PageProcessor;
use seekquarry\yioop\library\CrawlConstants;
use seekquarry\yioop\library\IndexManager;
use seekquarry\yioop\library\UrlParser;

/**
 * For crawlHash
 */
require_once __DIR__ . "/../Utility.php";
/**
 * So know which part of speech tagger to use
 */
require_once __DIR__ . "/../LocaleFunctions.php";
/**
 * Library of functions used to manipulate words and phrases
 *
 * @author Chris Pollett
 */
class PhraseParser
{
    /**
     * A list of meta words that might be extracted from a query
     * @var array
     */
    public static $meta_words_list = ['\-i:', '\-index:',  '\-', 'class:',
        'class-score:', 'cld:', 'code:', 'color:', 'date:', 'dns:', 'duration:',
        'filetype:', 'guid:', 'hash:', 'host:', 'i:', 'info:', 'index:', 'ip:',
        'link:',  'lang:', 'layout:', 'location:', 'media:', 'modified:',
        'numlinks:', 'os:', 'path:', 'pubdate:', 'robot:', 'safe:', 'server:',
        'site:', 'size:', 'time:', 'u:', 'version:','weight:', 'w:'
        ];
    /**
     * A list of meta words that might be extracted from a query
     * @var array
     */
    public static $programming_language_map = ['java' => 'java',
            'py' => 'python'];
    /**
     *  Tokenizer objects that have been loaded so far
     *  @var array
     */
    public static $tokenizers = [];
    /**
     * Constant storing the string
     */
    const TOKENIZER = 'Tokenizer';
    /**
     * Indicates the control word for programming languages
     */
    const CONTROL_WORD_INDICATOR = ':';
    /**
     * Indicates the control word for programming languages
     */
    const REGEX_INITIAL_POSITION = 1;
    /**
     * Threshold to use for a string to be conisdered "safe" (not X-rated)
     */
    const SAFE_PHRASE_THRESHOLD = 0.035;
    /**
     * Converts a summary of a web page into a string of space separated words
     *
     * @param array $page associative array of page summary data. Contains
     *     title, description, and links fields
     * @return string the concatenated words extracted from the page summary
     */
    public static function extractWordStringPageSummary($page)
    {
        if (isset($page[CrawlConstants::TITLE])) {
            $title_phrase_string = mb_ereg_replace(C\PUNCT, " ",
                $page[CrawlConstants::TITLE]);
        } else {
            $title_phrase_string = "";
        }
        if (isset($page[CrawlConstants::DESCRIPTION])) {
            $description_phrase_string = mb_ereg_replace(C\PUNCT, " ",
                $page[CrawlConstants::DESCRIPTION]);
        } else {
            $description_phrase_string = "";
        }
        $page_string = $title_phrase_string . " " . $description_phrase_string;
        $page_string = preg_replace("/(\s)+/", " ", $page_string);

        return $page_string;
    }
    /**
     * Extracts all phrases (sequences of adjacent words) from $string. Does
     * not extract terms within those phrase. Array key indicates position
     * of phrase
     *
     * @param string $string subject to extract phrases from
     * @param string $lang locale tag for stemming
     * @param string $index_name name of index to be used as a reference
     *     when extracting phrases
     * @param bool $exact_match whether the match has to be exact or not
     * @param int $threshold roughly causes a stop to extracting more phrases
     *  if exceed $threshold (still might get more than $threshold back, only
     *  when detect have more stop)
     * @return array of phrases
     */
    public static function extractPhrases($string, $lang = null,
        $index_name = null, $exact_match = false, $threshold =
        C\MIN_RESULTS_TO_GROUP)
    {
        $index_name = (empty($index_name) || is_integer($index_name)
            || $index_name[0] != '-') ?
            $index_name : substr($index_name, 1);
        $char_class = C\NS_LOCALE . $lang . "\\resources\\Tokenizer";
        if (isset(self::$programming_language_map[$lang])) {
            $control_word = self::$programming_language_map[$lang] .
                self::CONTROL_WORD_INDICATOR;
            $string = trim(substr($string, strlen($control_word) + 1));
        } else {
            self::canonicalizePunctuatedTerms($string, $lang);
            self::hyphenateEntities($string, $lang);
        }
        $terms = self::stemCharGramSegment($string, $lang);
        $num_terms = count($terms);
        if ($index_name == null || $num_terms <= 1 ||
            (class_exists($char_class) && isset($char_class::$char_gram_len))) {
            return $terms;
        }
        // keep only first C\MAX_QUERY_TERMS many terms
        if ($num_terms > C\MAX_QUERY_TERMS) {
            $terms = array_slice($terms, 0, C\MAX_QUERY_TERMS);
        }
        $whole_phrase = implode(" ", $terms);
        if ($exact_match || ($index_name != 'feed' &&
            IndexManager::getVersion($index_name) == 0)) {
            /* for exact phrase search do not use suffix tree stuff for now.
               Also, for old style index before max phrase extraction
               just return terms
            */
            return $terms;
        }
        $tokenizer = self::getTokenizer($lang);
        // query terms are question answer triplet then do no further processing
        if (!empty($tokenizer::$question_token) &&
            stristr($whole_phrase, $tokenizer::$question_token) !== false) {
            return [$whole_phrase];
        }
        return $terms;
    }
    /**
     * Extracts all phrases (sequences of adjacent words) from $string. Does
     * not extract terms within those phrase. Returns an associative array
     * of phrase => number of occurrences of phrase
     *
     * @param string $string subject to extract phrases from
     * @param string $lang locale tag for stemming
     * @return array pairs of the form (phrase, number of occurrences)
     */
    public static function extractPhrasesAndCount($string, $lang = null)
    {
        $all_lists = self::extractPhrasesInLists($string, $lang);
        $phrases = $all_lists['WORD_LIST'];
        $phrase_counts = [];
        foreach ($phrases as $term => $positions) {
            $phrase_counts[$term] = count($positions);
        }
        return $phrase_counts;
    }
    /**
     * Extracts all phrases (sequences of adjacent words) from $string. Does
     * extract terms within those phrase.
     *
     * @param string $string subject to extract phrases from
     * @param string $lang locale tag for stemming and other phrase processing
     *      related stuff
     * @return array word => list of positions at which the word occurred in
     *     the document
     */
    public static function extractPhrasesInLists($string, $lang = null)
    {
        $start_time = microtime(true);
        $phrase_list = ['TIMES' => [ 'CANONICALIZE' => 0,
            'TERM_POSITIONS_SENTENCE_TAGGING' => 0,
            'QUESTION_ANSWER_EXTRACT' => 0,
            'TOTAL_TIME' => 0]];
        if (!isset(self::$programming_language_map[$lang])) {
            self::canonicalizePunctuatedTerms($string, $lang);
            self::hyphenateEntities($string, $lang);
            $phrase_list['TIMES']['CANONICALIZE'] =
                L\changeInMicrotime($start_time);
        }
        $maximal_terms_start_time = microtime(true);
        $phrase_and_sentences = self::extractTermSentencePositionsTags(
            $string, $lang, C\ENABLE_QUESTION_ANSWERING);
        if (empty($phrase_and_sentences["TERM_POSITIONS"])) {
            $phrase_and_sentences["TERM_POSITIONS"] = [];
        }
        $phrase_list['TIMES']['TERM_POSITIONS_SENTENCE_TAGGING'] =
            L\changeInMicrotime($maximal_terms_start_time);
        if (C\ENABLE_QUESTION_ANSWERING &&
            !empty($phrase_and_sentences["SENTENCES"])) {
            $qa_start_time = microtime(true);
            $tokenizer = self::getTokenizer($lang);
            if (!empty($tokenizer) &&
                method_exists($tokenizer, "tagTokenizePartOfSpeech") &&
                method_exists($tokenizer, "extractTripletsPhrases")) {
                $triplets_list = $tokenizer->extractTripletsPhrases(
                    $phrase_and_sentences["SENTENCES"], $lang);
                if (!empty($triplets_list['QUESTION_LIST'])) {
                    $phrase_and_sentences["TERM_POSITIONS"] =
                        $phrase_and_sentences["TERM_POSITIONS"] +
                       $triplets_list['QUESTION_LIST'];
                    $phrase_list['QUESTION_ANSWER_LIST'] =
                        $triplets_list['QUESTION_ANSWER_LIST'];
                }
                $phrase_list['TIMES']['QUESTION_ANSWER_EXTRACT'] =
                    L\changeInMicrotime($qa_start_time);
            }
        }
        $phrase_list['WORD_LIST'] = $phrase_and_sentences["TERM_POSITIONS"];
        $phrase_list['TIMES']['TOTAL_TIME'] = L\changeInMicrotime($start_time);
        return $phrase_list;
    }
    /**
     * This method tries to convert acronyms, e-mail, urls, etc into
     * a format that does not involved punctuation that will be stripped
     * as we extract phrases.
     *
     * @param string &$string a string of words, etc which might involve such
     *      terms
     * @param $lang a language tag to use as part of the canonicalization
     *     process not used right now
     */
    public static function canonicalizePunctuatedTerms(&$string, $lang = null)
    {
        $string = (preg_replace("/\s*\&(?:apos|#039)\;\s*/u", "'",
            ($string ?? ""))) ?? "";
        $acronym_pattern = "/\b\p{L}(\.\s*\p{L})+(\.|\b)/u";
        $string = preg_replace_callback($acronym_pattern,
            function($matches) {
                $result = "_" . preg_replace("/\.\s*/u", "", $matches[0]);
                return $result;
            }, $string) ?? "";
        $ap = "(\'|\u{2020}|\u{02BC})";
        $ampersand_pattern = "/\p{L}+".
            "(\s*(\s({$ap}n|{$ap}N)\s|\&)\s*\p{L})+/u";
        $string = preg_replace_callback($ampersand_pattern,
            function($matches) {
                $ap = "(\'|\u{2020}|\u{02BC})";
                $result = preg_replace(
                    "/\s*(" . $ap . "n\b|" . $ap . "N\b|\&)\s*/u",
                    "_and_", $matches[0]);
                return $result;
            }, $string) ?? "";
        $string = preg_replace("/\s*_and_amp;\s*/", "_and_", $string) ?? "";
        $url_or_email_pattern =
            '@((gopher|http|https)://([^ \t\r\n\v\f\'\"\;\,<>])*)|'.
            '([A-Z0-9._%-]+\@[A-Z0-9.-]+\.[A-Z]{2,4})@i';
        $string = preg_replace_callback($url_or_email_pattern,
            function($matches) {
                return preg_replace(['/\./', "/\:/", "/\//", "/\@/",
                    "/\[/", "/\]/", "/\(/", "/\)/", "/\?/", "/\=/", "/\&/"],
                    ["_d_", "_c_", "_s_", "_at_", "_bo_", "_bc_", "_po_",
                    "_pc_", "_q_", "_e_", "_and_"], $matches[0]);
            },
            $string) ?? "";
            $tokenizer = self::getTokenizer($lang);
            if (!empty($tokenizer) &&
                method_exists($tokenizer, "canonicalizePunctuatedTerms")) {
                $tokenizer->canonicalizePunctuatedTerms($string);
            }
    }
    /**
     * Given a string, hyphenates words in the string which appear in
     * a bloom filter for the given locale as phrases.
     *
     * @param string &$string a string of words, etc which might involve such
     *      terms
     * @param $lang a language tag to use as part of the canonicalization
     *     process
     */
    public static function hyphenateEntities(&$string, $lang = null)
    {
        if (!$lang) {
            return;
        }
        $parts = preg_split("/\s+/u", $string);
        $parts = array_filter($parts);
        $num_parts = count($parts);
        $current_entity = "";
        $lower_entity = "";
        $out_string = "";
        $space = "";
        $i = 0;
        $j = -1;
        $k = 0;
        while ($j < $num_parts) {
            $j++;
            $current_entity = trim(implode(" ",
                array_slice($parts, $i, $j - $i)));
            $lower_entity = mb_strtolower($current_entity);
            if ($j - $i > 1) {
                $contains = false;
                if (NWordGrams::ngramsContains(
                    $lower_entity, $lang, "all")) {
                    $last_entity = $current_entity;
                    $lower_last_entity = $lower_entity;
                    $k = $j;
                    $contains = true;
                }
                if (!NWordGrams::ngramsContains(
                    $lower_entity . "*", $lang, "all")) {
                    // extra checks as Bloom filter not 100%
                    if (strpos(substr($last_entity, 4), " ") > 0 &&
                        !preg_match('/\(|\)|\[|\]|,/', $last_entity) &&
                        NWordGrams::ngramsContains($lower_last_entity, $lang,
                        "all")) {
                        $last_entity = str_replace(" ", "-", $last_entity);
                    }
                    $out_string .= $space . $last_entity;
                    $space = " ";
                    $current_entity = "";
                    $last_entity = "";
                    $lower_last_entity = "";
                    $i = $k;
                    $j = $k - 1;
                }
            } else {
                $contains = false;
                $last_entity = $current_entity;
                $lower_last_entity = $lower_entity;
                $k = $j;
            }
        }
        if ($contains && strpos(trim($current_entity), " ") > 0 &&
            !preg_match('/\-|\(|\)|\[|\]|,|\./', $current_entity)) {
            $current_entity = str_replace(" ", "-", $current_entity);
        }
        $string = $out_string . " " . $current_entity;
    }
    /**
     * Splits string according to punctuation and white space then
     * extracts (stems/char grams) of terms and makes a position. Then
     * splits string according to senttences and make a position list for
     * sentences
     *
     * @param string $string to extract terms from
     * @param string $lang IANA tag to look up stemmer under
     * @param boolean $extract_sentences whether to extract sentences to
     *  be used by question answering system
     * @return array of terms and n word grams in the order they appeared in
     *     string
     */
    public static function extractTermSentencePositionsTags($string,
        $lang = null, $extract_sentences = false)
    {
        $pos_lists = [];
        $terms = self::stemCharGramSegment($string, $lang);
        if (empty($terms)) {
            return [];
        }
        $t = 1; /*first position in doc is 1 as some encoding schemes used
           require positive numbers
        */
        if (!str_contains($string ?? "", "-")) {
            foreach ($terms as $term) {
                if (!empty($term)) {
                    $pos_lists[$term][] = $t++;
                }
            }
        } else {
            // add all single terms in entity
            foreach ($terms as $term) {
                if (empty($term) || $term == "-") {
                    continue;
                }
                $pos_lists[$term][] = $t;
                /* this is to allow for searching by entities and parts
                   of entities
                 */
                $entity = strtr($term, "-", " ");
                if ($entity != $term) {
                    $entity_terms = self::stemCharGramSegment($entity, $lang);
                    $old_t = $t;
                    foreach ($entity_terms as $entity_term) {
                        if (!empty($entity_term)) {
                            $pos_lists[$entity_term][] = $t;
                            $t++;
                        }
                    }
                    $t--;
                }
                $t++;
            }
        }
        $out["TERM_POSITIONS"] = $pos_lists;
        $tokenizer = self::getTokenizer($lang);
        if ($extract_sentences && !empty($tokenizer) &&
            method_exists($tokenizer, "tagTokenizePartOfSpeech") &&
            !isset(self::$programming_language_map[$lang])) {
            $string = 'Zdummy. ' . mb_strtolower($string);
            $sentences = preg_split(
                '/\s*((\n\n+)|\.[\D]|\.$|\!|\?|。|！|？)\s*/u', $string, -1,
                PREG_SPLIT_OFFSET_CAPTURE);
            $sentences_pos = [];
            foreach ($sentences as $sentence_data) {
                list($sentence, $pos) = $sentence_data;
                $sentences_pos[$sentence][] = $pos;
            }
            unset($sentences_pos[""], $sentences_pos["Zdummy"]);
            $out["SENTENCES"] = $sentences_pos;
        }
        return $out;
    }
    /**
     * Given a string splits it into terms by running any applicable
     * segmenters, chargrammers, or stemmers of the given locale
     *
     * @param string $string what to extract terms from
     * @param string $lang locale tag to determine which stemmers, chargramming
     *     and segmentation needs to be done.
     * @param bool $to_string if the result should be imploded on space to
     *      a single string or left as an array of terms
     *
     * @return mixed either an array of the terms computed from the string
     *  or a string where this array has been imploded on space
     */
    public static function stemCharGramSegment($string, $lang,
        $to_string = false)
    {
        static $non_hyphens = "";
        static $segment_char_gram_lang = [];
        if (empty($non_hyphens)) {
            $non_hyphens = str_replace("-|", "", C\PUNCT);
            $segment_char_gram_lang = ['zh-CN', "ko", "ja", 'bn', 'he', 'hi',
                'id', 'kn', 'pl', 'te', 'th', 'tl'];
        }
        if (isset(self::$programming_language_map[$lang])) {
            mb_internal_encoding("UTF-8");
            $tokenizer_name = self::$programming_language_map[$lang] .
                self::TOKENIZER;
            $terms = self::$tokenizer_name($string, $lang);
        } else {
            mb_internal_encoding("UTF-8");
            $string = mb_strtolower($string);
            if ($lang == "hi") {
                $string = preg_replace('/(,:)\p{P}/u', "", $string);
            }
            $string = mb_ereg_replace("\s+|$non_hyphens", " ", $string);
            $tokenizer = self::getTokenizer($lang);
            $terms = $string;
            if (in_array($lang, $segment_char_gram_lang)) {
                $terms = self::segmentSegment($terms, $lang);
                $terms = self::charGramTerms($terms, $lang);
            }
            $terms = self::stemTermsK($terms, $lang, false);
        }
        if ($to_string) {
            return implode(" ", $terms);
        }
        return $terms;
    }
    /**
     * Given an array of pre_terms returns the characters n-grams for the
     * given terms where n is the length Yioop uses for the language in
     * question. If a stemmer is used for language then n-gramming is not
     * done and this just returns an empty array this method differs from
     * getCharGramsTerm in that it may do checking of certain words and
     * not char gram them. For example, it won't char gram urls.
     *
     * @param array $pre_terms the terms to make n-grams for
     * @param string $lang locale tag to determine n to be used for n-gramming
     *
     * @return array the n-grams for the terms in question
     */
    public static function charGramTerms($pre_terms, $lang)
    {
        $char_class = C\NS_LOCALE . $lang . "\\resources\\Tokenizer";
        mb_internal_encoding("UTF-8");
        if (empty($pre_terms)) {
            return [];
        }
        $terms = [];
        $tokenizer = PhraseParser::getTokenizer($lang);
        if (class_exists($char_class) && isset($char_class::$char_gram_len)) {
            foreach ($pre_terms as $pre_term) {
                if (empty($pre_term)) {
                    continue;
                }
                if (str_starts_with($pre_term, 'http')) {
                    $terms[]  = $pre_term; // don't chargram urls
                    continue;
                }
                $ngrams = self::getCharGramsTerm([$pre_term], $lang);
                if (count($ngrams) > 0) {
                    $terms = array_merge($terms, $ngrams);
                }
            }
        } else {
            $terms = $pre_terms;
        }
        return $terms;
    }
    /**
     * Returns the characters n-grams for the given terms where n is the length
     * Yioop uses for the language in question. If a stemmer is used for
     * language then n-gramming is not done and this just returns an empty
     * array
     *
     * @param array $terms the terms to make n-grams for
     * @param string $lang locale tag to determine n to be used for n-gramming
     *
     * @return array the n-grams for the terms in question
     */
    public static function getCharGramsTerm($terms, $lang)
    {
        $char_class = C\NS_LOCALE . $lang . "\\resources\\Tokenizer";
        mb_internal_encoding("UTF-8");
        if (class_exists($char_class) && isset($char_class::$char_gram_len)) {
            $n = $char_class::$char_gram_len;
        } else {
            return [];
        }
        return self::getNGramsTerm($terms, $n);
    }
    /**
     * Returns the characters n-grams for the given terms where n is the
     * length.
     *
     * @param array $terms the terms to make n-grams for
     * @param string $n the n to use in n-gramming
     *
     * @return array the n-grams for the terms in question
     */
    public static function getNGramsTerm($terms, $n)
    {
        mb_internal_encoding("UTF-8");
        $ngrams = [];
        foreach ($terms as $term) {
            $pre_gram = $term;
            $last_pos = mb_strlen($pre_gram) - $n;
            if ($last_pos < 0) {
                $ngrams[] = $pre_gram;
            } else {
                for ($i = 0; $i <= $last_pos; $i++) {
                    $tmp = mb_substr($pre_gram, $i, $n);
                    if ($tmp != "") {
                        $ngrams[] = $tmp;
                    }
                }
            }
        }
        return $ngrams;
    }
    /**
     * Given a string to segment into words (where strings might
     * not contain spaces), this function segments them according to the given
     * locales segmenter
     *
     * Note: this method is not used when trying to extract keywords from urls.
     * Instead, UrlParser::getWordsInHostUrl($url) is used.
     *
     * @param string $segment string to split into terms
     * @param string $lang IANA tag to look up segmenter under
     *     from some other language
     * @return array list of terms produced by the locale-specific
     *     segmenter (empty array when either argument is empty)
     */
    public static function segmentSegment($segment, $lang)
    {
        static $non_hyphens = "";
        if (empty($non_hyphens)) {
            $non_hyphens = str_replace("-|", "", C\PUNCT);
        }
        if (empty($segment) || empty($lang)) {
            return [];
        }
        $segment_obj = self::getTokenizer($lang);
        $term_string = "";
        if (!empty($segment_obj) && method_exists($segment_obj, "segment")
            && (!preg_match("/\-/u", $segment) || in_array($lang, ["zh",
            "zh-CN", "ko", "jp"]))) {
            $term_string .= $segment_obj->segment($segment);
        } else {
            $term_string = $segment;
        }
        $term_string ??= "";
        $terms = preg_split("/(\s|$non_hyphens)+/u",
            mb_strtolower(trim($term_string)));
        $filter_terms = array_filter($terms) ?? [];
        $terms = array_values($filter_terms);
        return $terms;
    }
    /**
    * Splits supplied string based on white space, then stems each
     * terms according to the stemmer for $lang if exists
     *
     * @param mixed $string_or_array to extract stemmed terms from
     * @param string $lang IANA tag to look up stemmer under
     * @param string $keep_empties whether to keep empty sentences or not
     * @return array stemmed terms if stemmer; terms otherwise
     */
    public static function stemTermsK($string_or_array, $lang, $keep_empties)
    {
        if (empty($string_or_array)) {
            return [];
        }
        if (is_array($string_or_array)) {
            $terms = [];
            if ($keep_empties) {
                $terms = $string_or_array;
            } else {
                foreach ($string_or_array as $pre_term) {
                    $term = trim($pre_term);
                    if (!empty($term)) {
                        $terms[] = $term;
                    }
                }
            }
        } else {
            $terms = mb_split("[[:space:]]", $string_or_array);
        }
        $stem_obj = self::getTokenizer($lang);
        if (empty($stem_obj) || !method_exists($stem_obj, "stem")) {
            return $terms;
        }
        $stems = [];
        foreach ($terms as $term) {
            $stems[] = (!str_contains($term, "_")) ?
                $stem_obj->stem($term) : $term;
        }
        return $stems;
    }
    /**
     * Loads and instantiates a tokenizer object for a language if exists
     *
     * @param string $lang IANA tag to look up stemmer under
     * @return object tokenizer with methods to process strings for a language
     */
    public static function getTokenizer($lang)
    {
        /* Asked for no language at all there is no tokenizer to find, so
           this is settled before the list of them is looked in rather
           than after: looking something up under nothing is on its way to
           being an error in PHP and says nothing useful in the meantime. */
        if (empty($lang)) {
            return null;
        }
        if (isset(self::$tokenizers[$lang])) {
            return self::$tokenizers[$lang];
        }
        mb_regex_encoding('UTF-8');
        mb_internal_encoding("UTF-8");
        $lower_lang = strtolower($lang); //try to avoid case sensitivity issues
        $lang_parts = explode("-", $lang);
        if (!isset($lang_parts[1])) {
            $tokenizer_list = glob(C\LOCALE_DIR .
                "/$lang*/resources/Tokenizer.php");
            if (isset($tokenizer_list[0])) {
                $tag = substr($tokenizer_list[0], strlen(C\LOCALE_DIR) + 1,
                    - strlen("/resources/Tokenizer.php"));
            } else {
                $tag = "";
            }
        } else {
            $tag = str_replace("-", "_", $lang);
            if (!file_exists(C\LOCALE_DIR . "/$tag/resources/Tokenizer.php")) {
                $tokenizer_list = glob(C\LOCALE_DIR .
                    "/{$lang_parts[0]}*/resources/Tokenizer.php");
                if (isset($tokenizer_list[0])) {
                    $tag = substr($tokenizer_list[0], strlen(C\LOCALE_DIR) + 1,
                        - strlen("/resources/Tokenizer.php"));
                } else {
                    $tag = "";
                }
            }
        }
        $tokenizer_class_name = C\NS_LOCALE . "$tag\\resources\\Tokenizer";
        if (class_exists($tokenizer_class_name)) {
            $tokenizer_obj = new $tokenizer_class_name();
        } else {
            $tokenizer_obj = null;
        }
        self::$tokenizers[$lang] = $tokenizer_obj;
        return $tokenizer_obj;
    }
    /**
     * Calculates the meta words to be associated with a given downloaded
     * document. These words will be associated with the document in the
     * index for (server:apache) even if the document itself did not contain
     * them.
     *
     * @param array &$site associated array containing info about a downloaded
     *     (or read from archive) document.
     * @param bool $with_link_metas whether to extract link: meta tags too
     * @return array of meta words to be associate with this document
     */
    public static function calculateMetas(&$site, $with_link_metas = true)
    {
        // handles user added meta words
        if (empty($site[CrawlConstants::META_WORDS])) {
            $site[CrawlConstants::META_WORDS] = [];
        }
        $meta_ids = $site[CrawlConstants::META_WORDS];
        /*
            Handle the built-in meta words. For example
            store the sites the doc_key belongs to,
            so you can search by site
        */
        //we lower case URL even though can cause ambiguity between site paths
        $site_url = mb_strtolower($site[CrawlConstants::URL] ?? "");
        $url_sites = UrlParser::getHostPaths($site_url);
        $url_sites = array_merge($url_sites,
            UrlParser::getHostSubdomains($site_url));
        $meta_ids[] = 'site:all';
        foreach ($url_sites as $url_site) {
            if (strlen($url_site) > 0) {
                $meta_ids[] = 'site:' . $url_site;
            }
        }
        $path =  UrlParser::getPath($site_url) ?? "";
        if (strlen($path) > 0 ) {
            $path_parts = explode("/", $path);
            $pre_path = "";
            $meta_ids[] = 'path:all';
            $meta_ids[] = 'path:/';
            foreach ($path_parts as $part) {
                if (strlen($part) > 0 ) {
                    $pre_path .= "/$part";
                    $meta_ids[] = 'path:' . $pre_path;
                }
            }
        }
        if (isset($site[CrawlConstants::HASH])) {
            $meta_ids[] = 'hash:' . base64_encode($site[CrawlConstants::HASH]);
        }
        $meta_ids[] = 'info:' . $site_url;
        $meta_ids[] = 'info:' . L\crawlHash($site_url);
        $meta_ids[] = 'code:all';
        if (isset($site[CrawlConstants::HTTP_CODE])) {
            $meta_ids[] = 'code:' . $site[CrawlConstants::HTTP_CODE];
        }
        if (UrlParser::getHost($site_url) . "/" ==
            $site_url) {
            $meta_ids[] = 'host:all'; //used to count number of distinct hosts
        }
        if (isset($site[CrawlConstants::SIZE])) {
            $meta_ids[] = "size:all";
            $interval = C\DOWNLOAD_SIZE_INTERVAL;
            $size = floor($site[CrawlConstants::SIZE]/$interval) * $interval;
            $meta_ids[] = "size:$size";
        }
        if (isset($site[CrawlConstants::TOTAL_TIME])) {
            $meta_ids[] = "time:all";
            $interval = C\DOWNLOAD_TIME_INTERVAL;
            $time = floor(
                $site[CrawlConstants::TOTAL_TIME]/$interval) * $interval;
            $meta_ids[] = "time:$time";
        }
        if (isset($site[CrawlConstants::DNS_TIME])) {
            $meta_ids[] = "dns:all";
            $interval = C\DOWNLOAD_TIME_INTERVAL;
            $time = floor(
                $site[CrawlConstants::DNS_TIME]/$interval) * $interval;
            $meta_ids[] = "dns:$time";
        }
        if (isset($site[CrawlConstants::LINKS]) &&
            is_array($site[CrawlConstants::LINKS])) {
            $num_links = count($site[CrawlConstants::LINKS]);
            $meta_ids[] = "numlinks:all";
            $meta_ids[] = "numlinks:$num_links";
            $link_urls = array_keys($site[CrawlConstants::LINKS]);
            if ($with_link_metas) {
                $meta_ids[] = "link:all";
                foreach ($link_urls as $url) {
                    $meta_ids[] = 'link:' . $url;
                    $meta_ids[] = 'link:' . L\crawlHash($url);
                }
            }
        }
        if (isset($site[CrawlConstants::CLD_IN_COMMON])) {
            $meta_ids[] = 'cld:' . $site[CrawlConstants::CLD_IN_COMMON];
        }
        if (isset($site[CrawlConstants::LOCATION]) &&
            is_array($site[CrawlConstants::LOCATION])){
            foreach ($site[CrawlConstants::LOCATION] as $location) {
                $meta_ids[] = 'info:' . $location;
                $meta_ids[] = 'info:' . L\crawlHash($location);
                $meta_ids[] = 'location:all';
                $meta_ids[] = 'location:' . $location;
            }
        }
        if (isset($site[CrawlConstants::IP_ADDRESSES]) ){
            $meta_ids[] = 'ip:all';
            foreach ($site[CrawlConstants::IP_ADDRESSES] as $address) {
                $meta_ids[] = 'ip:' . $address;
            }
        }
        $meta_ids[] = 'media:all';
        if (!empty($site[CrawlConstants::IS_VIDEO])) {
            $meta_ids[] = "media:video";
            if (!empty($site[CrawlConstants::DURATION])) {
                $durations = [ 60, 300, 600, 900, 1800, 3600, 7200];
                $duration = intval($site[CrawlConstants::DURATION]);
                if ($duration > 0) {
                    foreach ($durations as $time) {
                        if ($duration > $time) {
                            $meta_ids[] = "duration:$time-plus";
                        } else {
                            $meta_ids[] = "duration:$time-minus";
                        }
                    }
                }
            }
            if (!empty($site[CrawlConstants::HEIGHT])) {
                $meta_ids[] = ($site[CrawlConstants::HEIGHT] >= 4000) ?
                    "media:video-4k-plus" : "media:video-4k-minus";
                $meta_ids[] = ($site[CrawlConstants::HEIGHT] >= 1080) ?
                    "media:video-fhd-plus" : "media:video-fhd-minus";
                $meta_ids[] = ($site[CrawlConstants::HEIGHT] >= 720) ?
                    "media:video-hd-plus" : "media:video-hd-minus";
            }
        } else if (!empty($site[CrawlConstants::TYPE]) &&
            stripos($site[CrawlConstants::TYPE], "image") !== false) {
            if (!empty($site[CrawlConstants::WIDTH]) &&
                !empty($site[CrawlConstants::HEIGHT])) {
                $size = $site[CrawlConstants::WIDTH] *
                    $site[CrawlConstants::HEIGHT];
                if (empty($site[CrawlConstants::THUMB])) {
                    $meta_ids[] = 'media:image-no-thumb';
                } else if($size < 50) {
                    $meta_ids[] = 'media:image-tracking';
                } else {
                    if ($size < 100000) {
                        $meta_ids[] = 'media:image-small';
                    } else if ($size < 400000) {
                        $meta_ids[] = 'media:image-medium';
                    } else {
                        $meta_ids[] = 'media:image-large';
                    }
                    $meta_ids[] = 'media:image';
                }
                if ($site[CrawlConstants::WIDTH] >
                    1.1 * $site[CrawlConstants::HEIGHT]) {
                    $meta_ids[] = 'layout:wide';
                } else if ($site[CrawlConstants::HEIGHT] >
                    1.1 * $site[CrawlConstants::WIDTH]) {
                    $meta_ids[] = 'layout:tall';
                } else {
                    $meta_ids[] = 'layout:square';
                }
            } else {
                if (empty($site[CrawlConstants::THUMB])) {
                    $meta_ids[] = 'media:image-no-thumb';
                } else {
                    $meta_ids[] = 'media:image';
                }
            }
            if (!empty($site[CrawlConstants::IS_BLACK_AND_WHITE])) {
                $meta_ids[] = 'color:bw';
            } else {
                $meta_ids[] = 'color:color-only';
            }
            if (!empty($site[CrawlConstants::AVERAGE_COLOR])) {
                $colors = [ "black" => [0,0,0], "white" => [255,255,255],
                    "red" => [255,0,0], "lime" => [0,255,0],
                    "blue" => [0,0,255], "yellow" => [255,255,0],
                    "cyan" => [0,255,255], "magenta" => [255,0,255],
                    "silver" => [192,192,192], "gray" => [128,128,128],
                    "maroon" => [128,0,0], "olive" => [128,128,0],
                    "green" => [0,128,0], "purple" => [128,0,128],
                    "teal" => [0,128,128], "navy" => [0,0,128],
                ];
                $avg_color = $site[CrawlConstants::AVERAGE_COLOR];
                $best_color = "black";
                $best_distance = 270000; // bigger than 3*255*255
                foreach ($colors as $color_name => $color_vector) {
                    $color_distance = 0;
                    for ($j = 0; $j < 3; $j++) {
                        $diff_color = $color_vector[$j] - $avg_color[$j];
                        $color_distance += $diff_color * $diff_color;
                    }
                    if ($color_distance < $best_distance) {
                        $best_color = $color_name;
                        $best_distance = $color_distance;
                    }
                }
                $meta_ids[] = 'color:' . $best_color;
            }
        } else {
            $meta_ids[] = 'media:text';
        }
        if (!empty($site[CrawlConstants::IS_VR])) {
            $meta_ids[] = "media:vr";
        }
        // store the filetype info
        $url_type = UrlParser::getDocumentType($site_url);
        if (strlen($url_type) > 0) {
            $meta_ids[] = 'filetype:all';
            $meta_ids[] = 'filetype:' . $url_type;
        }
        if (isset($site[CrawlConstants::SERVER])) {
            $meta_ids[] = 'server:all';
            $meta_ids[] = 'server:' . strtolower($site[CrawlConstants::SERVER]);
        }
        if (isset($site[CrawlConstants::SERVER_VERSION])) {
            $meta_ids[] = 'version:all';
            $meta_ids[] = 'version:' .
                $site[CrawlConstants::SERVER_VERSION];
        }
        if (isset($site[CrawlConstants::OPERATING_SYSTEM])) {
            $meta_ids[] = 'os:all';
            $meta_ids[] = 'os:'. strtolower(
                $site[CrawlConstants::OPERATING_SYSTEM]);
        }
        if (isset($site[CrawlConstants::MODIFIED])) {
            $modified = $site[CrawlConstants::MODIFIED];
            $meta_ids[] = 'modified:all';
            $meta_ids[] = 'modified:' . date('Y', $modified);
            $meta_ids[] = 'modified:' . date('Y-m', $modified);
            $meta_ids[] = 'modified:' . date('Y-m-W', $modified);
            $meta_ids[] = 'modified:' . date('Y-m-d', $modified);
        }
        // date appeared on internet
        if (!empty($site[CrawlConstants::TIMESTAMP])) {
            $date = $site[CrawlConstants::TIMESTAMP];
            $meta_ids[] = 'date:all';
            $meta_ids[] = 'date:' . date('Y', $date);
            $meta_ids[] = 'date:' . date('Y-m', $date);
            $meta_ids[] = 'date:' . date('Y-m-W', $date);
            $meta_ids[] = 'date:' . date('Y-m-d', $date);
            $meta_ids[] = 'date:' . date('Y-m-d-H', $date);
            $meta_ids[] = 'date:' . date('Y-m-d-H-i', $date);
            $meta_ids[] = 'date:' . date('Y-m-d-H-i-s', $date);
        }
        // date published as given by open graph or rss
        if (!empty($site[CrawlConstants::PUBDATE])) {
            $date = $site[CrawlConstants::PUBDATE];
            $meta_ids[] = 'pubdate:all';
            $meta_ids[] = 'pubdate:' . date('Y', $date);
            $meta_ids[] = 'pubdate:' . date('Y-m', $date);
            $meta_ids[] = 'pubdate:' . date('Y-m-W', $date);
            $meta_ids[] = 'pubdate:' . date('Y-m-d', $date);
            $meta_ids[] = 'pubdate:' . date('Y-m-d-H', $date);
            $meta_ids[] = 'pubdate:' . date('Y-m-d-H-i', $date);
            $meta_ids[] = 'pubdate:' . date('Y-m-d-H-i-s', $date);
        }
        if (isset($site[CrawlConstants::LANG])) {
            $meta_ids[] = 'lang:all';
            $lang = strtolower($site[CrawlConstants::LANG]);
            $lang_parts = explode("-", $lang);
            $meta_ids[] = 'lang:' . $lang_parts[0];
            if (isset($lang_parts[1])) {
                $meta_ids[] = 'lang:' . $lang;
            }
            if ($lang == 'mul') {
                foreach (L\localesWithStopwordsList() as $lang) {
                    $lang_parts = explode("-", $lang);
                    $meta_ids[] = 'lang:' . $lang_parts[0];
                }
            }
        }
        if (isset($site[CrawlConstants::AGENT_LIST])) {
            foreach ($site[CrawlConstants::AGENT_LIST] as $agent) {
                $meta_ids[] = 'robot:' . strtolower($agent);
            }
        }
        //Add all meta word for subdoctype
        if (isset($site[CrawlConstants::SUBDOCTYPE])){
            $meta_ids[] = $site[CrawlConstants::SUBDOCTYPE] . ':all';
        }
        $meta_ids[] = "safe:all";
        if (!empty($site[CrawlConstants::IS_SAFE])) {
            $meta_ids[] = "safe:true";
        } else if (isset($site[CrawlConstants::IS_SAFE])) {
            $meta_ids[] = "safe:false";
        }
        return $meta_ids;
    }
    /**
     * Used to compute all the meta ids for a given link with $url
     * and $link_text that was on a site with $site_url.
     *
     * @param string $url url of the link
     * @param string $link_host url of the host name of the link
     * @param string $link_text text of the anchor tag link came from
     * @param string $site_url url of the page link was on
     * @param array $url_info key value pairs which may have been generated
     *  as part of the page processor
     * @param array $link_word_lists list of words used in anchor text
     *  associated with this link and their positions in the anchor text
     * @return array meta words associated with the link
     */
    public static function calculateLinkMetas($url, $link_host, $link_text,
        $site_url, $url_info = [], $link_word_lists = [])
    {
        $link_meta_ids = [];
        if (strlen($link_host) == 0) {
            return $link_meta_ids;
        }
        if (str_starts_with($link_text, "location:")) {
            $location_link = true;
            $link_meta_ids[] = $link_text;
            $link_meta_ids[] = "location:all";
            $link_meta_ids[] = "location:" . L\crawlHash($site_url);
        }
        $link_type = UrlParser::getDocumentType($url);
        $link_meta_ids[] = "media:all";
        $link_meta_ids[] = "safe:all";
        if (!empty($url_info[CrawlConstants::IS_SAFE])) {
            $link_meta_ids[] = "safe:true";
        } else if (isset($url_info[CrawlConstants::IS_SAFE])) {
            $link_meta_ids[] = "safe:false";
        }
        /* Assumes PageProcessor::$image_types populated. True if called
           from Fetcher or CrawlComponent
         */
        if (in_array($link_type, PageProcessor::$image_types)) {
            $link_meta_ids[] = "media:image-link";
        } else if (!empty($url_info['media'])) {
            $link_meta_ids[] = "media:" . $url_info['media'];
        } else {
            $link_meta_ids[] = "media:text";
        }
        if (!empty($url_info['pubdate']) &&
            $date = strtotime($url_info['pubdate'])) {
            $link_meta_ids[] = 'date:all';
            $link_meta_ids[] = 'date:' . date('Y', $date);
            $link_meta_ids[] = 'date:' . date('Y-m', $date);
            $link_meta_ids[] = 'date:' . date('Y-m-d', $date);
            $link_meta_ids[] = 'date:' . date('Y-m-d-H', $date);
            $link_meta_ids[] = 'date:' . date('Y-m-d-H-i', $date);
            $link_meta_ids[] = 'date:' . date('Y-m-d-H-i-s', $date);
        }
        $link_meta_ids[] = "link:all";
        foreach ($link_word_lists as $term => $pos) {
            $link_meta_ids[] = "link:$term";
            $link_meta_ids[] = "link:". L\crawlHash($term);
            $link_meta_ids[] = "link:$term:$url";
            $link_meta_ids[] = "link:". L\crawlHash($term) . ":" .
                L\crawlHash($url);
        }
        if (!empty($url_info[CrawlConstants::LANG])) {
            $link_meta_ids[] = 'lang:all';
            $lang = strtolower($url_info[CrawlConstants::LANG]);
            $lang_parts = explode("-", $lang);
            $link_meta_ids[] = 'lang:' . $lang_parts[0];
            if (isset($lang_parts[1])) {
                $link_meta_ids[] = 'lang:' . $lang;
            }
            if ($lang == 'mul') {
                foreach (L\localesWithStopwordsList() as $lang) {
                    $lang_parts = explode("-", $lang);
                    $link_meta_ids[] = 'lang:' . $lang_parts[0];
                }
            }
        }
        return $link_meta_ids;
    }
    /**
     * Used to split a string of text in the language given by $locale into
     * space separated words. Ex: "acontinuousstringofwords" becomes
     * "a continuous string of words". It operates by scanning from the end of
     * the string to the front and splitting on the longest segment that is a
     * word.
     *
     * @param string $segment string to make into a string of space separated
     *     words
     * @param string $locale IANA tag used to look up dictionary filter to
     *     use to do this segmenting
     * @param array $additional_regexes which should be treated as a suffix
     * @return string space separated words
     */
    public static function reverseMaximalMatch($segment, $locale,
        $additional_regexes =[])
    {
        $segment = " " . $segment;
        $len = mb_strlen($segment);
        $cur_pos = $len;
        if ($cur_pos < 1) {
            return $segment;
        }
        $out_segment = "";
        $char_added = "";
        $word_guess = "";
        $was_space = true;
        while($cur_pos > 0) {
            $cur_pos--;
            $char_added =  mb_substr($segment, $cur_pos, 1);
            $is_space = trim($char_added) == "";
            if ($is_space && $was_space) {
                continue;
            } else if ($is_space) {
                $was_space = true;
                $one_word = self::oneWord($word_guess, $locale,
                    $additional_regexes);
                if ($one_word) {
                    $out_segment .= " " . strrev($word_guess);
                    $word_guess = "";
                } else {
                    $out_segment .= " " . strrev(mb_substr($word_guess, 1));
                    $out_segment .= " " . $char_added;
                    $word_guess = "";
                }
                continue;
            } else {
                $word_guess = $char_added . $word_guess;
                $was_space = false;
            }
            $is_suffix = NWordGrams::ngramsContains("*" . $word_guess,
                $locale, "segment");
            if (!$is_suffix) {
                foreach ($additional_regexes as $regex) {
                    if (preg_match($regex, $word_guess)) {
                        $is_suffix = true;
                        break;
                    }
                }
            }
            if (!$is_suffix) {
                if (mb_strlen($word_guess) > 1 &&
                    !self::oneWord($word_guess, $locale, $additional_regexes)) {
                    $out_segment .= " " . strrev(mb_substr($word_guess, 1));
                    $word_guess = $char_added;
                } else {
                    $out_segment .= " " . strrev($word_guess);
                    $word_guess = "";
                }
                $was_space = false;
            }
        }
        $out_segment = strrev($out_segment);
        return $out_segment;
    }
    /**
     * Checks if a given word guess is a single word with respect to
     * a word detection bloom filter and regexes
     *
     * @param string $word_guess word guess to be checked if a single word
     * @param string $locale language to check if is word for
     * @param array $additional_regexes used in checking for this locale if
     *  something should be considered a word
     * @return bool true if a single word false otherwise
     */
    public static function oneWord($word_guess, $locale, $additional_regexes)
    {
        $one_word = false;
        if (NWordGrams::ngramsContains($word_guess, $locale,
            "segment")) {
            $one_word = true;
        } else {
            foreach ($additional_regexes as $regex) {
                if (preg_match($regex, $word_guess)) {
                    $one_word = true;
                    break;
                }
            }
        }
        return $one_word;
    }
    /**
     * Scores documents according to the lack or nonlack of sexually explicit
     * terms. Tries to work for several languages. Very crude classifier.
     *
     * @param string $phrase to check for X-ratedness
     * @param string $url optional url that the word_list came used to check
     *  against known porn sites
     * @return int $score of how explicit the phrase is between 0 and 1
     */
    public static function computeSafeSearchScore($phrase, $url = "")
    {
        static $pre_unsafe_regex = "XXX|sex|slut|nymphomaniac|MILF|lolita|" .
            "lesbian|sadomasochism|bondage|fisting|erotic|vagina|Tribadism|" .
            "penis|facial|hermaphrodite|transsexual|tranny|bestiality|snuff|" .
            "boob|fondle|tit|blowjob|lap|cock|dick|hardcore|pr0n|fuck|pussy|" .
            "penetration|ass|cunt|bisexual|prostitution|screw|ass|swinging|" .
            "masturbation|clitoris|clit|suck|whore|bitch|cuckold|porn|melon|" .
            "femdom|exhibitionism|bellaco|cachar|chingar|shimar|chinquechar|" .
            "chichar|clavar|coger|culear|hundir|joder|mámalo|singar|cojon|" .
            "carajo|caray|bicho|concha|chucha|chocha|chuchamadre|coño|" .
            "panocha|almeja|culo|fundillo|fundío|puta|puto|teta|connorito|" .
            "cul|pute|putain|sexe|pénis|vulve|foutre|baiser|sein|nicher|" .
            "nichons|puta|sapatão|foder|ferro|punheta|vadia|buceta|bucetinha|" .
            "bunda|caralho|mentula|cunnus|verpa|sōpiō|pipinna|cōleī|" .
            "cunnilingus|futuō|copulate|cēveō|crīsō|scortor|meretrīx|" .
            "futatrix|minchia|coglione|cornuto|culo|inocchio|frocio|puttana|" .
            "vaffanculo|fok|hoer|kut|lul|やりまん|打っ掛け|二形|" .
            "ふたなりゴックン|ゴックン|ショタコン|全裸|受け|裏本|пизда́|хуй|" .
            "еба́ть|блядь|елда́|гондо́н|хер|манда́|му́ди|мудя|пидора́с|" .
            "залу́па|жо́па|за́дница|буфер|雞巴|鷄巴|雞雞|鷄鷄|阴茎|陰莖|" .
            "胯下物|屌|吊|小鳥|龟头|龜頭|屄|鸡白|雞白|傻屄|老二|那话儿|" .
            "那話兒|屄|鸡白|雞白|阴道|陰道|阴户|陰戶|大姨妈|淫蟲|老嫖|妓女|" .
            "臭婊子|卖豆腐|賣豆腐|咪咪|大豆腐|爆乳|肏操|炒饭|炒飯|cặc|lồn|" .
            "kaltak|" .
            "orospu|siktir|sıçmak|amcık";
        static $boundary_regex = "";
        static $no_boundary_regex = "";
        /* took keywords from top level domains from some of theporndude list
         */
        static $unsafe_url_regex = "/porn|xvideos|livejasmin|".
            "xhamster|bongacams|chaturbate|pussy|spankbang|".
            "xnxx|tnxx|beeg|daftsex|redtube|youjizz|vidz7|4tube|cumlouder|" .
            "tnaflix|xfantasy|vdiz24|luxuretv|perfectgirls|anysex|drtuber|" .
            "waxtube|netfapx|xmoviesforyou|letsjerk|likuoo|xxxstreams|horny|" .
            "freeomovie|cliphunter|xtapes|sweext|slut|xkeezmovies|sexgalaxy|" .
            "motherless|xopenload|palimas|sextvx|hotgirlclub|sexu|pandamovies|".
            "xxxstreams|fullxxxmovies|palmtube|fakingstv|eroprofile|hclips|" .
            "xtube|whore|voyeurhit|thothub|hotscope|gonewild|nsfwonsnap|" .
            "watchmygf|yuvutu|camvideos|reallifecam|uflash|nudevista|" .
            "findtubes|rexxx|ro89|bellesa|forhertube|ixxx|thumbzilla|fuq|" .
            "tubegalore|alohatube|elephanttube|iwank|porzo|lobstertube|" .
            "maturetube|dinotube|melonstube|assoass|tonicmovies|videoone|" .
            "video-one|tiava|fapvid|tubegals|voyeur\-house|voyeurhouse|" .
            "incest|milf|camarads|lifeundercams|tushy|trueanal|analized|" .
            "elegantanal|girlsway|whengirlsplay|welivetogether|mommysgirl|" .
            "fleshlight|sexysexdoll|realdoll|adameve|adultempire|j\-list|".
            "efukt|shooshtime|inhumanity|humoron|9gag2|crazyshit|theync|".
            "kaotic|xrares|reblop|sickjunk|cutscenes|bestgore|".
            "escortdirectory|eurogirlsescort|erotic|".
            "skipthegames|escortmeetings|slixa|tsescorts|ts4rent|adultsearch|".
            "escortnews|escortguide|uescort|adultwork|humpchies|".
            "scarletblue|locanto|skokka|escort-ireland|newzealandgirls|".
            "listcrawler|cityxguide|damvler|nhentai|flirt4free|".
            "furaffinity|spankwire|planetsuzy|ebaumsworld|".
            "luscious\.net|hentai|freeones\.com|iafd|gayboystube|".
            "adam4adam|cams\.com|mrskin|adultwork|oglaf|streamate|".
            "nifty\.org|adultdvd|suicidegirls|ftvgirls|asstr|private\.com|".
            "squirt\.org|fakku|faapy|fux|txxx|\Wnude\W/i";
        if (empty($boundary_regex)) {
            $boundary_regex = "/\b$pre_unsafe_regex\b/ui";
            $no_boundary_regex = "/$pre_unsafe_regex/ui";
        }
        if (!empty($url) && preg_match($unsafe_url_regex, $url)) {
            return 1;
        }
        if (empty($phrase)) {
            return 0;
        } else if (!is_string($phrase)) { // wrong type is X-rated!
            return 1;
        }
        $term_boundaries = preg_match_all("/\b/", $phrase);
        $len = max(mb_strlen($phrase), 1);
        /*
           8 characters is greater than the average word length for most
           languages. So if the number of term boundaries is < the length
           of the string/8, likely we have a language which doesn't use
           word boundaries like Chinese. In this case, we will assume
           around 3 character per word (maybe higher for Chinese, low for
           Japanese or Korean?)
         */
        if ($term_boundaries < ceil($len/8)) { //maybe text
            $term_boundaries = ceil($len/3);
            $unsafe_regex = $no_boundary_regex;
        } else {
            $unsafe_regex = $boundary_regex;
        }
        $match_count = preg_match_all($unsafe_regex, $phrase);
        $score = $match_count/$term_boundaries;
        return $score;
    }
    /**
     * Call the appropriate tokenizer sentence compression method
     *
     * @param string $sentence_to_compress the sentence to compress
     * @param string $lang locale tag for stemming
     * @return the compressed sentence
     */
    public static function compressSentence($sentence_to_compress,
        $lang = null)
    {
        $result = $sentence_to_compress;
        if (C\SENTENCE_COMPRESSION_ENABLED) {
            if (!empty($lang)) {
                $segment_obj = self::getTokenizer($lang);
            } else {
                $segment_obj = null;
            }
            if (!empty($segment_obj) && method_exists($segment_obj,
                "compressSentence")) {
                $result =
                    $segment_obj->compressSentence($sentence_to_compress);
            }
        }
        return $result;
    }

    /**
     * Checks if the given term is a meta word
     *
     * @param string $term to check
     * @return bool meta term or not
     */
    public static function checkMetaTerm($term)
    {
        $check_meta = false;
        foreach (self::$meta_words_list as $meta) {
            $meta_word = str_replace(':', '3A', $meta);
            if (str_starts_with($term, $meta_word)) {
                $check_meta = true;
                break;
            }
        }
        return $check_meta;
    }
}
