_boinctranslate_locale_import_read_po()

Complexity

Conditions	40
Paths	114

Size

Total Lines	248
Code Lines	191

Duplication

Lines	0
Ratio	0 %

Importance

Changes

0

<?php
function _boinctranslate_locale_import_read_po($op, $file, $mode = NULL, $lang = NULL, $group = 'default') {

  require_once(getcwd() . '/includes/locale.inc');

  $fd = fopen($file->filepath, "rb"); // File will get closed by PHP on return
  if (!$fd) {

$fd is of type resource, thus it always evaluated to false.

    watchdog(
      'boinctranslate',
      'The translation import for %lang failed, because %filename could not be read.',
      array('%lang' => $lang, '%filename' => $file->filename),
      WATCHDOG_WARNING
    );
    _locale_import_message('The translation import failed, because the file %filename could not be read.', $file);
    return FALSE;
  }

  $context = "COMMENT"; // Parser context: COMMENT, MSGID, MSGID_PLURAL, MSGSTR and MSGSTR_ARR
  $current = array(); // Current entry being read
  $plural = 0; // Current plural form
  $lineno = 0; // Current line

  while (!feof($fd)) {
    $line = fgets($fd, 10 * 1024); // A line should not be this long
    if ($lineno == 0) {
      // The first line might come with a UTF-8 BOM, which should be removed.
      $line = str_replace("\xEF\xBB\xBF", '', $line);
    }
    $lineno++;
    $line = trim(strtr($line, array("\\\n" => "")));

    if (!strncmp("#", $line, 1)) { // A comment
      if ($context == "COMMENT") { // Already in comment context: add
        $current["#"][] = substr($line, 1);
      }
      elseif (($context == "MSGSTR") || ($context == "MSGSTR_ARR")) { // End current entry, start a new one
        _boinctranslate_locale_import_one_string($op, $current, $mode, $lang, $file, $group);
        $current = array();
        $current["#"][] = substr($line, 1);
        $context = "COMMENT";
      }
      else { // Parse error
        watchdog(
          'boinctranslate',
          'The translation file %filename for %lang contains an error: "msgstr" was expected but not found on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains an error: "msgstr" was expected but not found on line %line.', $file, $lineno);
        return FALSE;
      }
    }
    elseif (!strncmp("msgctxt", $line, 7)) {
      if (($context == "MSGSTR") || ($context == "MSGSTR_ARR")) { // End current entry, start a new one
        _boinctranslate_locale_import_one_string($op, $current, $mode, $lang, $file, $group);
        $current = array();
      }
      elseif (($context == "MSGID") || ($context == "MSGCTXT")) { // Already in this context? Parse error
        watchdog(
          'boinctranslate',
          'The translation file %filename for %lang contains an error: "msgctxt" is unexpected on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains an error: "msgid" is unexpected on line %line.', $file, $lineno);
        return FALSE;
      }
      $line = trim(substr($line, 7));
      $quoted = _locale_import_parse_quoted($line);
      if ($quoted === FALSE) {
        watchdog(
          'boinctranslate',
          'The translation file %filename for language %lang contains a syntax error on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
        return FALSE;
      }
      $current["msgctxt"] = $quoted;
      $context = "MSGCTXT";
    }
    elseif (!strncmp("msgid_plural", $line, 12)) {
      if ($context != "MSGID") { // Must be plural form for current entry
        watchdog(
          'boinctranslate',
          'The translation file %filename for %lang contains an error: "msgid_plural" was expected but not found on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains an error: "msgid_plural" was expected but not found on line %line.', $file, $lineno);
        return FALSE;
      }
      $line = trim(substr($line, 12));
      $quoted = _locale_import_parse_quoted($line);
      if ($quoted === FALSE) {
        watchdog(
          'boinctranslate',
          'The translation file %filename for language %lang contains a syntax error on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
        return FALSE;
      }
      $current["msgid"] = $current["msgid"] . "\0" . $quoted;
      $context = "MSGID_PLURAL";
    }
    elseif (!strncmp("msgid", $line, 5)) {
      if (($context == "MSGSTR") || ($context == "MSGSTR_ARR")) { // End current entry, start a new one
        _boinctranslate_locale_import_one_string($op, $current, $mode, $lang, $file, $group);
        $current = array();
      }
      elseif ($context == "MSGID") { // Already in this context? Parse error
        watchdog(
          'boinctranslate',
          'The translation file %filename for %lang contains an error: "msgid" is unexpected on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains an error: "msgid" is unexpected on line %line.', $file, $lineno);
        return FALSE;
      }
      $line = trim(substr($line, 5));
      $quoted = _locale_import_parse_quoted($line);
      if ($quoted === FALSE) {
        watchdog(
          'boinctranslate',
          'The translation file %filename for language %lang contains a syntax error on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
        return FALSE;
      }
      $current["msgid"] = $quoted;
      $context = "MSGID";
    }
    elseif (!strncmp("msgstr[", $line, 7)) {
      if (($context != "MSGID") && ($context != "MSGID_PLURAL") && ($context != "MSGSTR_ARR")) { // Must come after msgid, msgid_plural, or msgstr[]
        watchdog(
          'boinctranslate',
          'The translation file %filename for %lang contains an error: "msgstr[]" is unexpected on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains an error: "msgstr[]" is unexpected on line %line.', $file, $lineno);
        return FALSE;
      }
      if (strpos($line, "]") === FALSE) {
        watchdog(
          'boinctranslate',
          'The translation file %filename for language %lang contains a syntax error on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
        return FALSE;
      }
      $frombracket = strstr($line, "[");
      $plural = substr($frombracket, 1, strpos($frombracket, "]") - 1);
      $line = trim(strstr($line, " "));
      $quoted = _locale_import_parse_quoted($line);
      if ($quoted === FALSE) {
        watchdog(
          'boinctranslate',
          'The translation file %filename for language %lang contains a syntax error on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
        return FALSE;
      }
      $current["msgstr"][$plural] = $quoted;
      $context = "MSGSTR_ARR";
    }
    elseif (!strncmp("msgstr", $line, 6)) {
      if ($context != "MSGID") { // Should come just after a msgid block
        watchdog(
          'boinctranslate',
          'The translation file %filename for %lang contains an error: "msgstr" is unexpected on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains an error: "msgstr" is unexpected on line %line.', $file, $lineno);
        return FALSE;
      }
      $line = trim(substr($line, 6));
      $quoted = _locale_import_parse_quoted($line);
      if ($quoted === FALSE) {
        watchdog(
          'boinctranslate',
          'The translation file %filename for language %lang contains a syntax error on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
        return FALSE;
      }
      $current["msgstr"] = $quoted;
      $context = "MSGSTR";
    }
    elseif ($line != "") {
      $quoted = _locale_import_parse_quoted($line);
      if ($quoted === FALSE) {
        watchdog(
          'boinctranslate',
          'The translation file %filename for language %lang contains a syntax error on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains a syntax error on line %line.', $file, $lineno);
        return FALSE;
      }
      if (($context == "MSGID") || ($context == "MSGID_PLURAL")) {
        $current["msgid"] .= $quoted;
      }
      elseif ($context == "MSGSTR") {
        $current["msgstr"] .= $quoted;
      }
      elseif ($context == "MSGSTR_ARR") {
        $current["msgstr"][$plural] .= $quoted;
      }
      else {
        watchdog(
          'boinctranslate',
          'The translation file %filename for %lang contains an error: there is an unexpected string on line %line.',
          array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
          WATCHDOG_WARNING
        );
        _locale_import_message('The translation file %filename contains an error: there is an unexpected string on line %line.', $file, $lineno);
        return FALSE;
      }
    }
  }

  // End of PO file, flush last entry
  if (($context == "MSGSTR") || ($context == "MSGSTR_ARR")) {
    _boinctranslate_locale_import_one_string($op, $current, $mode, $lang, $file, $group);
  }
  elseif ($context != "COMMENT") {
    watchdog(
      'boinctranslate',
      'The translation file %filename for %lang ended unexpectedly at line %line.',
      array('%filename' => $file->filename, '%lang' => $lang, '%line' => $lineno),
      WATCHDOG_WARNING
    );
    _locale_import_message('The translation file %filename ended unexpectedly at line %line.', $file, $lineno);
    return FALSE;
  }