chamilo-lms2/main/cron/lang/langstats_file_builder.php

<?php
/* For licensing terms, see /license.txt */

/**
 * This script generates a directory based on the English language variables
 * but only composed of the 10,000 (can be configured) most frequent words
 * used in Chamilo. This implies first using the langstats.php script, which
 * in turn implies configuring an additional variable in configuration.php
 * (see langstats.php for more info).
 * When running the language_builder, please make sure this parameter is
 * set to 0 in the configuration.php file, otherwise it will take *ages*.
 */
require_once '../../inc/global.inc.php';
require_once 'langstats.class.php';
global $_configuration;
$_configuration['language_measure_frequency'] = 0;
$langstats = new langstats();
$orig_lang = 'english';
/**
 * Init.
 */
$words_limit = 10000; //change this if you want more words
$terms_limit = 3000; //change this if you think you'll need more terms
$terms = $langstats->get_popular_terms($terms_limit);
$words_counter = 0;
$i = 0;
$terms_in_limit = [];
$lang_dir = api_get_path(SYS_LANG_PATH);
$arch_dir = api_get_path(SYS_ARCHIVE_PATH);
/**
 * Code run.
 */
foreach ($terms as $row) {
    if ($words_counter > 10000) {
        break;
    }
    $words = str_word_count(get_lang($row['term_name'], null, $orig_lang));
    $words_counter += $words;
    $terms_in_limit[$row['term_name']] = $i;
    //echo "Term <b>".$row['term_name']."</b> is <b>'".get_lang($row['term_name'],null,$orig_lang)."'</b> which means $words words<br /><br />\n";
    //if ($words_counter%1000 >= 0) {
    //echo "Reached $words_counter words at term $i (".$row['term_name']." used ".$row['term_count']." times)...<br />\n";
    //}
    $i++;
}
//echo $words_counter.'<br />';

echo "Reached ".count($terms_in_limit)." terms for the $words_counter most-used words<br /><br />\n";

echo "Scanning English files, trying to find these terms...<br />\n";
if (!is_dir($arch_dir.'/langstats')) {
    mkdir($arch_dir.'/langstats');
    mkdir($arch_dir.'/langstats/'.$orig_lang);
}
$list_files = scandir($lang_dir.'/'.$orig_lang);
$j = 1;
$terms_found = [];
$words_found = 0;
$global_var = []; //keep the combination of all vars
$terms_in_limit = array_flip($terms_in_limit);
foreach ($list_files as $file) {
    if (substr($file, 0, 1) == '.') {
        continue;
    }
    //echo "'".substr($file,0,-8)."',<br />"; //print in a PHP array format
    $vars = file($lang_dir.'/'.$orig_lang.'/'.$file);
    $local_var = [];
    $file_string = '<?php'."\n";
    foreach ($vars as $line) {
        $var = [];
        $res = preg_match('/^(\$\w*)/', $line, $var);
        if ($res > 0) {
            //echo $var[1]."<br />";

            if (in_array(substr($var[1], 1), $terms_in_limit)) {
                //echo "Var ".$var[1]." was in the limit<br />";
                $local_var[$var[1]] = $line;
                $file_string .= $line;
                $terms_found[] = substr($var[1], 1); //e.g. store Tools
                $words_found += str_word_count(get_lang($var[1], null, $orig_lang));
            } elseif (in_array(substr($var[1], 5), $terms_in_limit)) {
                //echo "Var ".$var[1]." was in the limit<br />";
                $local_var[$var[1]] = $line;
                $file_string .= $line;
                $terms_found[] = substr($var[1], 5); //e.g. store langTools
                $words_found += str_word_count(get_lang(substr($var[1], 5), null, $orig_lang));
            } //else do not care
        }
    }
    echo "Writing ".$arch_dir.'/langstats/'.$orig_lang.'/'.$file."<br />\n";
    file_put_contents($arch_dir.'/langstats/'.$orig_lang.'/'.$file, $file_string);
    $global_var += $local_var;
}
$terms_diff = count($global_var) - count($terms_in_limit);
echo count(
        $global_var
    )." terms found in English files (summing up to $words_found words). Some terms ($terms_diff in this case) might have appeared in two different files<br />";
/**
 * Display results.
 */
echo "Difference between filtered and found in English:<br />";
//print_r($terms_found);
echo "<pre>".print_r(array_diff($terms_in_limit, $terms_found), 1)."</pre>";
echo "#";