diff --git a/core/lib/Drupal/Core/Gettext/TranslationDatabaseIterator.php b/core/lib/Drupal/Core/Gettext/TranslationDatabaseIterator.php
new file mode 100644
index 0000000..0449d2b
--- /dev/null
+++ b/core/lib/Drupal/Core/Gettext/TranslationDatabaseIterator.php
@@ -0,0 +1,103 @@
+<?php
+
+/**
+ * @file
+ * Definition of TranslationDatabaseIterator.
+ */
+
+namespace Drupal\Core\Gettext;
+
+use Exception;
+use Iterator;
+use PDO;
+
+/**
+ * Defines a Locale Translation iterator.
+ */
+class TranslationDatabaseIterator implements Iterator {
+  protected $langcode = '';
+  private $result;      // Database result object.
+  private $data;        // Collected data. Stored in memory.
+  private $index = 0;   // Index of the current data element.
+  private $valid = FALSE;
+
+  public function __construct($langcode = NULL) {
+    if (is_string($langcode)) {
+      $this->langcode = $langcode;
+    }
+    else {
+      throw new Exception('Wrong langcode type for LocaleTranslationIterator::__construct().');
+    }
+
+    if ($this->langcode) {
+      $this->result = db_query("SELECT s.lid, s.source, s.context, s.location, t.translation FROM {locales_source} s LEFT JOIN {locales_target} t ON s.lid = t.lid AND t.language = :language", array(':language' => $this->langcode));
+    }
+    else {
+      $this->result = db_query("SELECT s.lid, s.source, s.context, s.location FROM {locales_source} s");
+    }
+  }
+
+  public function __destruct() {
+    // This may be a lot of data. Its worth not to wait for garbage collection.
+    unset($this->data);
+  }
+
+  /**
+   * Implements Iterator::current().
+   */
+  public function current() {
+    return $this->data[$this->index];
+  }
+
+  /**
+   * Implements Iterator::key().
+   */
+  public function key() {
+    return $this->data[$this->index]->lid;
+  }
+
+  /**
+   * Implements Iterator::next().
+   */
+  public function next() {
+    $this->index++;
+    $this->load();
+  }
+
+  /**
+   * Implements Iterator::rewind().
+   */
+  public function rewind() {
+    $this->index = 0;
+    $this->load();
+  }
+
+  /**
+   * Implements Iterator::valid().
+   */
+  public function valid() {
+    return $this->valid;
+  }
+
+  /**
+   * Load translations from the database into memory.
+   *
+   * Keeping the data in memory is not required for forward only itteration.
+   * As long as this class is used in a foreach loop only, it can do without
+   * storing data in memory. But without memory storage, any other use of the
+   * class may beak the thing.
+   */
+  private function load() {
+    if (!isset($this->data[$this->index])) {
+      $data = $this->result->fetchObject();
+      $this->valid = !empty($data);
+      if ($this->valid) {
+        $this->data[$this->index] = $data;
+      }
+    }
+    else {
+      // Data comes from memory, so it is present.
+      $this->valid = TRUE;
+    }
+  }
+}
diff --git a/core/lib/Drupal/Core/Gettext/Writer.php b/core/lib/Drupal/Core/Gettext/Writer.php
new file mode 100644
index 0000000..4a1f5d5
--- /dev/null
+++ b/core/lib/Drupal/Core/Gettext/Writer.php
@@ -0,0 +1,77 @@
+<?php
+
+/**
+ * @file
+ * Definition of Writer.
+ */
+
+namespace Drupal\Core\Gettext;
+
+use Exception;
+
+/**
+ * Defines a Gettext file writer.
+ */
+class Writer {
+
+  /**
+   * Generate a Gettext Portable Object file based on provided data sources.
+   *
+   * @param $header
+   *   Associative array with information for the header. The following keys
+   *   are supported:
+   *   - 'info': Lead information for the header. Will be output as comments.
+   *   - 'plurals': Full plural formula with number of plurals.
+   * @param $stringIterator
+   *   Object implementing the Iterator interface to provide strings to
+   *   include in the export.
+   *
+   *  @return
+   *    Gettext .po file generated for output.
+   */
+  function write(Array $header, Iterator $stringIterator) {
+
+    $output = '';
+    if (!empty($header['lead'])) {
+      // Start out with lead comments if available.
+      $output = '# ' . join("\n# ", $header['lead']) . "#\n";
+    }
+
+    // Add the actual header information.
+    $output .= "msgid \"\"\n";
+    $output .= "msgstr \"\"\n";
+    $output .= "\"POT-Creation-Date: " . date("Y-m-d H:iO") . "\\n\"\n";
+    $output .= "\"PO-Revision-Date: " . date("Y-m-d H:iO") . "\\n\"\n";
+    $output .= "\"MIME-Version: 1.0\\n\"\n";
+    $output .= "\"Content-Type: text/plain; charset=utf-8\\n\"\n";
+    $output .= "\"Content-Transfer-Encoding: 8bit\\n\"\n";
+    $output .= "\"Plural-Forms: " . $header['plurals'] . "\\n\"\n";
+
+
+
+  }
+
+  /**
+   * Formats a string for output on multiple lines.
+   */
+  private function formatString($string) {
+    // Escape characters for processing.
+    $string = addcslashes($string, "\0..\37\\\"");
+
+    // Always include a line break after the explicit \n line breaks from
+    // the source string. Otherwise wrap at 70 chars to accommodate the extra
+    // format overhead too.
+    $parts = explode("\n", wordwrap(str_replace('\n', "\\n\n", $string), 70, " \n"));
+
+    // Multiline string should be exported starting with a "" and newline to
+    // have all lines aligned on the same column.
+    if (count($parts) > 1) {
+      return "\"\"\n\"" . implode("\"\n\"", $parts) . "\"\n";
+    }
+    // Single line strings are output on the same line.
+    else {
+      return "\"$parts[0]\"\n";
+    }
+  }
+
+}
\ No newline at end of file