cld/cld.php

   1 <?php
   2 /**
   3  * Name: Compact Language Detector
   4  * Description: Improved language detection
   5  * Version: 0.1
   6  * Author: Michael Vogel <heluecht@pirati.ca>
   7  */
   8
   9 use Friendica\Core\Hook;
  10 use Friendica\Core\Logger;
  11 use Friendica\DI;
  12
  13 function cld_install()
  14 {
  15         Hook::register('detect_languages', __FILE__, 'cld_detect_languages');
  16 }
  17
  18 function cld_detect_languages(array &$data)
  19 {
  20         if (!in_array('cld2', get_loaded_extensions())) {
  21                 Logger::warning('CLD2 is not installed.');
  22                 return;
  23         }
  24
  25         $cld2 = new \CLD2Detector();
  26
  27         $cld2->setEncodingHint(CLD2Encoding::UTF8); // optional, hints about text encoding
  28         $cld2->setPlainText(true);
  29
  30         $result = $cld2->detect($data['text']);
  31
  32         if ($data['detected']) {
  33                 $original = array_key_first($data['detected']);
  34         } else {
  35                 $original = '';
  36         }
  37
  38         $detected = DI::l10n()->toISO6391($result['language_code']);
  39
  40         // languages that aren't supported via the base language detection or tend to false detections
  41         if ((strlen($detected) == 3) || in_array($detected, ['ht', 'kk', 'ku', 'ky', 'lg', 'mg', 'mk', 'mt', 'ny', 'rw', 'st', 'su', 'tg', 'ts', 'xx'])) {
  42                 return;
  43         }
  44
  45         if (!$result['is_reliable']) {
  46                 Logger::debug('Unreliable detection', ['uri-id' => $data['uri-id'], 'original' => $original, 'detected' => $detected, 'name' => $result['language_name'], 'probability' => $result['language_probability'], 'text' => $data['text']]);
  47                 if (($original == $detected) && ($data['detected'][$original] < $result['language_probability'] / 100)) {
  48                         $data['detected'][$original] = $result['language_probability'] / 100;
  49                 }
  50                 return;
  51         }
  52
  53         $available = array_keys(DI::l10n()->getLanguageCodes());
  54
  55         if (!in_array($detected, $available)) {
  56                 Logger::debug('Unsupported language', ['uri-id' => $data['uri-id'], 'original' => $original, 'detected' => $detected, 'name' => $result['language_name'], 'probability' => $result['language_probability'], 'text' => $data['text']]);
  57                 return;
  58         }
  59
  60         if ($original != $detected) {
  61                 Logger::debug('Detected different language', ['uri-id' => $data['uri-id'], 'original' => $original, 'detected' => $detected, 'name' => $result['language_name'], 'probability' => $result['language_probability'], 'text' => $data['text']]);
  62         }
  63
  64         $length = count($data['detected']);
  65         if ($length > 0) {
  66                 unset($data['detected'][$detected]);
  67                 $data['detected'] = array_merge([$detected => $result['language_probability'] / 100], array_slice($data['detected'], 0, $length - 1));
  68         } else {
  69                 $data['detected'] = [$detected => $result['language_probability'] / 100];
  70         }
  71 }