mexico 0.0.10 → 0.0.11

checksums.yaml

@@ -1,15 +1,15 @@
 ---
 !binary "U0hBMQ==":
   metadata.gz: !binary |-
-    YjlkOGE4MmM3ZjZiNDEwOTJhODIxZTFkOGYyOGJiNmRjMGUzZGY5Nw==
+    NTU2MmVjZDQ1ZGUyZjIyZTU2YWZjNzY5YzVmZGNhYmUzOTM0ZjE3Yw==
   data.tar.gz: !binary |-
-    NDA4NjY1ZGJjNWY0NWFjN2VlMTM2YTE2Y2ZiZDA4ZTMyOGVkZGQ5MA==
+    Zjc3NDE2NWUzMTM0ZTIwMzJiZDQ5ODQwMDQ0YWJiMDY5MDUzMzNiMQ==
 SHA512:
   metadata.gz: !binary |-
-    MDc4OGI0NGRkN2U1OTAwMTgzOWUwNDU4OGQzYTE4NDgxYWJmYmI2ZmRiNjhi
-    ZDY5ZDQ1M2U1NmZhOWRmOTg0MTA0OTkzY2M4MzI5OTJhMTgwYWRkZTBlODNi
-    ZWVhNDA1MzNmMDgyMWY3N2Y4ZDI4ZWNiZjNhNDMwOGJmOWNiNWU=
+    ODNiZmI3N2JjMzY0ZjQ2YWQ3NGFiNTgwNTA1YzJiY2IxZDZkOTU4MGEzOWI1
+    MTllMjdjZTdiNGMzMGVmNTg4YWZjYmY4NGI2NTNlNDQ1NjRmNmI3YTcyNTMw
+    MWQ5ZDNjMzRkOWIwNmVjZWZkMWUzYTA4N2YyYWMzMDk0OGUzMzA=
   data.tar.gz: !binary |-
-    ODEzOGE0NDFhYTY5NzgwMjUyZWM0MDQ0NWQ0YTU3ZjM1Zjk2ZTk3NWFiZWQz
-    YWEzYjBiN2YyMGZmNTcxMmU2ZjQyMTY4MjA4ZmQxZDcyM2ZmYzgwM2NhNDgz
-    NmVkOGNjNDA5Y2U5MmQ4Mjc4NTI5YmQwNDE5N2IyMDQ3MGYzMzU=
+    ZjRhODUzODVjMWY4YjlhMzNhZmRmYmZjYzU0ZTU4Nzc5NzNmZWU2ZTlkOThh
+    MzBkODNkZDU4M2RlNDNhNWI1YjUzNTdlMjMyZDc2MWJiZmZlYTZhNDQzOTg3
+    ZDk5NTUxNmQ4YmY4ZDRiMGUwYTIxYjZjYjliN2Q4NWU4M2FmZGM=

data/README.md

@@ -10,6 +10,27 @@ Its central organising unit is the **Corpus** class which allows researchers to
 
 ## Last Changes
 
+## 0.0.11
+
+Completed on March 24 2014.
+
++ [**#258**](http://intranet.sfb673.org/issues/258): Adds first working version of FancyWriter for creating formatted plain text file formats.
+
+    + [**#154**](http://intranet.sfb673.org/issues/154): Adds export routine into the Praat ShortTextGrid format.
+    + [**#155**](http://intranet.sfb673.org/issues/155): Adds TextGrid export functionality.
+
++ [**#156**](http://intranet.sfb673.org/issues/156): EAF export should now be complete, including metadata:
+
+    + [**#234**](http://intranet.sfb673.org/issues/234): Spec test files are adopted to reflect additional ELAN features.
+    + [**#248**](http://intranet.sfb673.org/issues/248): Layers now use property structures for additional configuration.
+    + [**#251**](http://intranet.sfb673.org/issues/251): ELAN import now uses up-to-date method for adding layers.
+    + [**#252**](http://intranet.sfb673.org/issues/252): Adds custom setter methods for identifiers in order to produce XML-valid IDs.
+    + [**#253**](http://intranet.sfb673.org/issues/253): Fixes a bug where annotations with empty string values were skipped.
+    + [**#255**](http://intranet.sfb673.org/issues/255): Persists the ANNOTATOR attribute from ELAN during import and export.
+    + [**#256**](http://intranet.sfb673.org/issues/256): Resolves and exports Elan parent refs correctly.
+    + [**#257**](http://intranet.sfb673.org/issues/257): Implements various missing ELAN (meta)data.
+
+
 ## 0.0.10
 
 Completed on February 26 2014.
@@ -121,4 +142,4 @@ but **WITHOUT ANY WARRANTY**; without even the implied warranty of
 MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
 GNU Lesser General Public License for more details.
 
-See LICENSE.txt for further details.
+See LICENSE.txt for further details.

data/VERSION

@@ -1 +1 @@
-0.0.10
+0.0.11

data/assets/fiesta/props/props.fst

@@ -0,0 +1,13 @@
+<FiestaDocument>
+  <ScaleSet>
+    <Scale id="timeline01" name="Timeline" unit="s" dimension="time"/>
+  </ScaleSet>
+  <LayerSet>
+    <Layer id="layer" name="Layer">
+      <PropertyMap key="layerProperties">
+        <Property key="elanTierType">TIME_SUBDIVISION</Property>
+      </PropertyMap>
+    </Layer>
+  </LayerSet>
+  <ItemSet/>
+</FiestaDocument>

data/info/releasenotes/0.0.11.md

@@ -0,0 +1,17 @@
+## Release notes for version 0.0.11 – Complete ELAN and Praat support
+
++ [**#258**](http://intranet.sfb673.org/issues/258): Adds first working version of FancyWriter for creating formatted plain text file formats.
+
+    + [**#154**](http://intranet.sfb673.org/issues/154): Adds export routine into the Praat ShortTextGrid format.
+    + [**#155**](http://intranet.sfb673.org/issues/155): Adds TextGrid export functionality.
+
++ [**#156**](http://intranet.sfb673.org/issues/156): EAF export should now be complete, including metadata:
+
+    + [**#234**](http://intranet.sfb673.org/issues/234): Spec test files are adopted to reflect additional ELAN features.
+    + [**#248**](http://intranet.sfb673.org/issues/248): Layers now use property structures for additional configuration.
+    + [**#251**](http://intranet.sfb673.org/issues/251): ELAN import now uses up-to-date method for adding layers.
+    + [**#252**](http://intranet.sfb673.org/issues/252): Adds custom setter methods for identifiers in order to produce XML-valid IDs.
+    + [**#253**](http://intranet.sfb673.org/issues/253): Fixes a bug where annotations with empty string values were skipped.
+    + [**#255**](http://intranet.sfb673.org/issues/255): Persists the ANNOTATOR attribute from ELAN during import and export.
+    + [**#256**](http://intranet.sfb673.org/issues/256): Resolves and exports Elan parent refs correctly.
+    + [**#257**](http://intranet.sfb673.org/issues/257): Implements various missing ELAN (meta)data.

data/lib/mexico/fiesta/interfaces/elan_interface.rb

@@ -26,6 +26,13 @@ class Mexico::Fiesta::Interfaces::ElanInterface
   include Singleton
   include Mexico::FileSystem
 
+  CONSTRAINTS = {
+      'Included_In'          => "Time alignable annotations within the parent annotation's time interval, gaps are allowed",
+      'Time_Subdivision'     => "Time subdivision of parent annotation's time interval, no time gaps allowed within this interval",
+      'Symbolic_Subdivision' => 'Symbolic subdivision of a parent annotation. Annotations refering to the same parent are ordered',
+      'Symbolic_Association' => '1-1 association with a parent annotation'
+  }
+
   def self.import(io=$stdin, params = {})
     puts 'class method import'
     instance.import(io, params)
@@ -36,7 +43,6 @@ class Mexico::Fiesta::Interfaces::ElanInterface
   end
 
   def import(io=$stdin, params = {})
-    puts 'instance method import'
 
     io.rewind
 
@@ -45,6 +51,68 @@ class Mexico::Fiesta::Interfaces::ElanInterface
 
     document = Mexico::FileSystem::FiestaDocument.new
 
+    sec_datamodel = document.head[Mexico::FileSystem::Section::DATA_MODEL]
+
+    sec_datamodel.properties << Mexico::FileSystem::Property.new('sourceFormat', 'ELAN/EAF')
+    sec_datamodel.properties << Mexico::FileSystem::Property.new('converterClass', 'Mexico::Fiesta::Interfaces::ElanInterface')
+
+    # import attributes on root element
+
+    xmldoc.xpath("/ANNOTATION_DOCUMENT").each do |annodoc|
+      # atts: DATE, AUTHOR, VERSION, FORMAT
+      #       xmlns:xsi xsi:noNamespaceSchemaLocation
+
+      puts xmldoc.namespaces
+      sec_lifecycle = document.head[Mexico::FileSystem::Section::LIFECYCLE]
+      date = DateTime.iso8601(annodoc['DATE'])
+      sec_lifecycle.properties << Mexico::FileSystem::Property.new('creationDate', date)
+      puts date.class.name
+      sec_lifecycle.properties << Mexico::FileSystem::Property.new('authorKey', annodoc['AUTHOR'])
+
+
+      sec_datamodel.properties << Mexico::FileSystem::Property.new('annotationToolVersion', annodoc['VERSION'])
+      sec_datamodel.properties << Mexico::FileSystem::Property.new('annotationToolFormat', annodoc['FORMAT'])
+      sec_datamodel.properties << Mexico::FileSystem::Property.new('xmlSchemaDeclaration', xmldoc.namespaces['xmlns:xsi'])
+      sec_datamodel.properties << Mexico::FileSystem::Property.new('xsiNoNamespaceSchemaLocation', annodoc['xsi:noNamespaceSchemaLocation'])
+
+      annodoc.attributes.each do |a|
+        puts a
+      end
+    end
+
+    # import heaader
+    # - @MEDIA_FILE
+    # - @TIME_UNITS
+    # - MEDIA DESCRIPTOR
+    # - PROPERTY/@name=lastUsedAnnotationId
+
+    xmldoc.xpath("//HEADER").each do |header|
+      header['MEDIA_FILE']
+      header['TIME_UNTIS']
+
+      document.head[Mexico::FileSystem::Section::MEDIA_CONTEXT].property_maps << Mexico::FileSystem::PropertyMap.new(key: 'referencedMedia')
+      refMediaMap = document.head[Mexico::FileSystem::Section::MEDIA_CONTEXT].property_maps.find{|m| m.key=='referencedMedia'}
+      datModelSec = document.head[Mexico::FileSystem::Section::DATA_MODEL]
+
+      refMediaMap.properties << Mexico::FileSystem::Property.new('primaryMediaUrl', header['MEDIA_FILE'])
+
+      # time units should go into another section!
+      datModelSec.properties << Mexico::FileSystem::Property.new('timeUnits', header['TIME_UNITS'])
+
+      header.xpath('./MEDIA_DESCRIPTOR').each_with_index do |mediafile,n|
+        file_map = Mexico::FileSystem::PropertyMap.new(key: "#{n}")
+        # prop = Mexico::FileSystem::Property.new('path', mediafile['RELATIVE_MEDIA_URL'])
+        #puts " %s : %s" % [prop.key, prop.value]
+        file_map.properties << Mexico::FileSystem::Property.new('path', mediafile['RELATIVE_MEDIA_URL'])
+        file_map.properties << Mexico::FileSystem::Property.new('mimeType', mediafile['MIME_TYPE'])
+        file_map.properties << Mexico::FileSystem::Property.new('uri', mediafile['MEDIA_URL'])
+        refMediaMap.property_maps << file_map
+      end
+      header.xpath('./PROPERTY').each do |property|
+        datModelSec.properties << Mexico::FileSystem::Property.new(property['NAME'], property.text)
+      end
+    end
+    # actual data:
     # 1. create a standard timeline
     timeline = document.add_standard_timeline('s')
 
@@ -56,6 +124,53 @@ class Mexico::Fiesta::Interfaces::ElanInterface
       timeslots[slot] = val
     end
 
+    # read cv entries
+
+    # cvs = Hash.new
+
+    xmldoc.xpath("//CONTROLLED_VOCABULARY").each do |c|
+      container_map = Mexico::FileSystem::PropertyMap.new(key: c['CV_ID'])
+      metamap = Mexico::FileSystem::PropertyMap.new(key: 'info')
+      metamap.properties << Mexico::FileSystem::Property.new('identifier', c['CV_ID'])
+      metamap.properties << Mexico::FileSystem::Property.new('description', c['DESCRIPTION'])
+      valuemap = Mexico::FileSystem::PropertyMap.new(key: 'data')
+      c.xpath("./CV_ENTRY").each do |entry|
+        desc = entry['DESCRIPTION']
+        val = entry.text
+        valprop = Mexico::FileSystem::PropertyMap.new
+        valprop.properties <<  Mexico::FileSystem::Property.new('description', desc)
+        valprop.properties <<  Mexico::FileSystem::Property.new('value', val)
+        valuemap.property_maps << valprop
+      end
+      container_map.property_maps << metamap
+      container_map.property_maps << valuemap
+      document.head.section(Mexico::FileSystem::Section::VOCABULARIES).property_maps << container_map
+    end
+
+    # Read ling type entries
+    lingTypes = Hash.new
+    xmldoc.xpath("//LINGUISTIC_TYPE").each do |lingtype|
+      cnstrs, cntvoc = nil
+      cnstrs = lingtype['CONSTRAINTS'] unless lingtype['CONSTRAINTS'].nil?
+      graphr = lingtype['GRAPHIC_REFERENCES']=="true" ? true : false
+      lngtid = lingtype['LINGUISTIC_TYPE_ID']
+      timeal = lingtype['TIME_ALIGNABLE']=="true" ? true : false
+      cntvoc = lingtype['CONTROLLED_VOCABULARY_REF'] unless lingtype['CONTROLLED_VOCABULARY_REF'].nil?
+      lingTypeEntry = { constraints: cnstrs, graphicReferences: graphr, timeAlignable: timeal, controlledVocabulary: cntvoc }
+      lingTypes[lngtid] = lingTypeEntry
+    end
+
+    lingTypes.each do |key,val|
+      sec = document.head[Mexico::FileSystem::Section::LAYER_TYPES]
+      pmap = Mexico::FileSystem::PropertyMap.new(key: key)
+      val.each do |skey,sval|
+        unless sval.nil?
+          pmap.properties << Mexico::FileSystem::Property::new(skey,sval)
+        end
+      end
+      sec.property_maps << pmap
+    end
+
     # create temporary hash for storage of layers
     layerHash = Hash.new
 
@@ -65,23 +180,29 @@ class Mexico::Fiesta::Interfaces::ElanInterface
       tierID = t["TIER_ID"]
       puts 'Read layers, %s' % tierID
 
-      layer = Mexico::FileSystem::Layer.new(identifier: tierID,
-                                   name: tierID,
-                                   document: document)
+      layer = document.add_layer(identifier: tierID, name: tierID)
       #layer.name = tierID
       #layer.id = ToE::Util::to_xml_id(tierID)
 
-      document.layers << layer
+      layer.add_property Mexico::FileSystem::Property.new('elanTierType', t['LINGUISTIC_TYPE_REF'])
+
+      if t.attributes.has_key?('ANNOTATOR')
+        layer.add_property Mexico::FileSystem::Property.new('annotator', t['ANNOTATOR'])
+      end
+      # document.layers << layer
 
-      puts t.attributes
-      puts t.attributes.has_key?('PARENT_REF')
+      puts "Attributes: %s" % t.attributes.to_s
+      puts "Parent ref? %s" % t.attributes.has_key?('PARENT_REF')
       if t.attributes.has_key?('PARENT_REF')
         # puts "TATT: %s" % t['PARENT_REF']
-        document.layers.each do |l|
-          puts "LAYER %s %s" % [l.identifier, l.name]
-        end
-        parent_layer = document.get_layer_by_id(t['PARENT_REF'])
-        puts parent_layer
+        # document.layers.each do |l|
+        #   puts "LAYER %s %s" % [l.identifier, l.name]
+        # end
+        puts 'ID of parent layer %s' % t['PARENT_REF']
+        puts 'ID, xmlified       %s' % Mexico::Util::to_xml_id(t['PARENT_REF'])
+        puts 'available ids:     %s' % (document.layers.collect{|l| l.identifier}).join(' ')
+        parent_layer = document.get_layer_by_id(Mexico::Util::to_xml_id(t['PARENT_REF']))
+        puts "Found parent layer: %s" % parent_layer
         if parent_layer
           layer_connector = Mexico::FileSystem::LayerConnector.new parent_layer, layer, {
               identifier: "#{parent_layer.identifier}_TO_#{layer.identifier}",
@@ -101,7 +222,7 @@ class Mexico::Fiesta::Interfaces::ElanInterface
           if anno.name == "ALIGNABLE_ANNOTATION"
 
             # puts anno.xpath("./ANNOTATION_VALUE/text()").first
-            if annoVal!=nil && annoVal.strip != ""
+            if annoVal!=nil # && annoVal.strip != ""
               i.add_interval_link Mexico::FileSystem::IntervalLink.new(identifier: "#{i.identifier}-int",
                                                     min: timeslots[anno["TIME_SLOT_REF1"]].to_f,
                                                     max: timeslots[anno["TIME_SLOT_REF2"]].to_f,
@@ -110,13 +231,20 @@ class Mexico::Fiesta::Interfaces::ElanInterface
           end
           if anno.name == "REF_ANNOTATION"
 
-            puts pp anno
-            puts document.items.collect{|x| x.identifier}.join(', ')
-            puts '-'*80
+            #puts pp anno
+            #puts document.items.collect{|x| x.identifier}.join(', ')
+            #puts '-'*80
 
             i.add_item_link Mexico::FileSystem::ItemLink.new(identifier: "#{i.identifier}-itm",
                                         target_object: document.items({identifier: anno["ANNOTATION_REF"]}).first,
                                         role: Mexico::FileSystem::ItemLink::ROLE_PARENT)
+
+            # @todo add previous anno if present
+            if anno.has_attribute?('PREVIOUS_ANNOTATION')
+              i.add_item_link Mexico::FileSystem::ItemLink.new(identifier: "#{i.identifier}-pre",
+                                                               target_object: document.items({identifier: anno["PREVIOUS_ANNOTATION"]}).first,
+                                                               role: Mexico::FileSystem::ItemLink::ROLE_PREDECESSOR)
+            end
           end
           i.add_layer_link Mexico::FileSystem::LayerLink.new(identifier: "#{i.identifier}-lay",
                                                              target_object: layer)
@@ -140,7 +268,220 @@ class Mexico::Fiesta::Interfaces::ElanInterface
 
   def export(doc, io=$stdout, params = {})
 
+    # Create an XML builder object that serialises into an XML structure
+    builder = Nokogiri::XML::Builder.new do |xml|
+
+      sec_datamodel = doc.head[Mexico::FileSystem::Section::DATA_MODEL]
+      sec_lifecycle = doc.head[Mexico::FileSystem::Section::LIFECYCLE]
+
+      date = sec_lifecycle['creationDate'].value
+      author = sec_lifecycle['authorKey'].value
+      format = sec_datamodel['annotationToolFormat'].value
+      version = sec_datamodel['annotationToolVersion'].value
+      schema_location = sec_datamodel['xsiNoNamespaceSchemaLocation'].value
+      ad_attrs = {
+          DATE: date, AUTHOR: author,
+          FORMAT: format, VERSION: version,
+          'xmlns:xsi'=>'http://www.w3.org/2001/XMLSchema-instance',
+          'xsi:noNamespaceSchemaLocation' => schema_location
+      }
+      #xml.root() do
+      #end
+      xml.ANNOTATION_DOCUMENT(ad_attrs) do
+        # @TODO implement the export of the header
+        mediaFile = ''
+        mediaFile = doc.head[Mexico::FileSystem::Section::MEDIA_CONTEXT]['primaryMediaUrl'].value unless doc.head[Mexico::FileSystem::Section::MEDIA_CONTEXT]['primaryMediaUrl'].nil?
+        timeUnits = doc.head[Mexico::FileSystem::Section::DATA_MODEL]['timeUnits'].value
+        xml.HEADER({MEDIA_FILE: mediaFile, TIME_UNITS: timeUnits}) do
+          doc.head[Mexico::FileSystem::Section::MEDIA_CONTEXT]['referencedMedia'].property_maps.each do |m|
+            uri = m['uri'].value
+            path = m['path'].value
+            mimeType = m['mimeType'].value
+
+            xml.MEDIA_DESCRIPTOR({MEDIA_URL: uri, MIME_TYPE: mimeType, RELATIVE_MEDIA_URL: path})
+          end
+        end
+
+        # create the time stamp data structure
+        time_hash = Hash.new
+        counter = 1
+
+          # @todo #254 rework to use unit conversions!
+          doc.items.each do |item|
+            item.point_links.each do |pl|
+              unless time_hash.has_key?(pl.point)
+                time_hash[pl.point] = "ts#{counter}"
+                counter += 1
+              end
+            end
+            item.interval_links.each do |il|
+              unless time_hash.has_key?(il.min)
+                time_hash[il.min] = "ts#{counter}"
+                counter += 1
+              end
+              unless time_hash.has_key?(il.max)
+                 time_hash[il.max] = "ts#{counter}"
+                 counter += 1
+              end
+            end
+          end
+
+        xml.TIME_ORDER do
+          # collect all timestamps
+          # create a hash for them
+          time_hash.each do |tkey, tval|
+            xml.TIME_SLOT({'TIME_SLOT_ID' => tval, 'TIME_VALUE'=>tkey.to_i.to_s})
+          end
+        end
+        inverted_time_hash = time_hash.invert
+
+
+        # read ling types from map
+        ling_types = Hash.new
+
+        lt_section = doc.head.section(Mexico::FileSystem::Section::LAYER_TYPES)
+        lt_section.property_maps.each do |pm|
+          key = pm.key
+          puts key
+
+          pm.properties.each do |p|
+            puts "  ..  %s -> %s" % [p.key, p.value]
+
+          end
+          # puts pm.size
+          ling_type = Hash.new
+
+          if pm.has_key?('constraints')
+            ling_type['constraints'] = pm['constraints'].value
+          end
+          if pm.has_key?('graphicReferences')
+            ling_type['graphicReferences'] = pm['graphicReferences'].value
+          end
+          if pm.has_key?('timeAlignable')
+            ling_type['timeAlignable'] = pm['timeAlignable'].value
+          end
+          if pm.has_key?('controlledVocabulary')
+            ling_type['controlledVocabulary'] = pm['controlledVocabulary'].value
+          end
+          ling_types[key] = ling_type
+        end
+        puts ling_types
+
+
+
+        # export layer by layer
+        # caveat: only annotations with at least one layer link will be exported.
+        # caveat 2: annotations with multiple layer links will be exported multiple times.
+
+
+
+        doc.layers.each do |layer|
+          ling_type = layer.properties['elanTierType'].value
+          ling_type_object = doc.head[Mexico::FileSystem::Section::LAYER_TYPES].property_maps.find{|m| m.key == ling_type}
+          puts "ling type object %s" % ling_type_object
+          constraint = ling_type_object['constraints']
+          unless constraint.nil?
+            constraint = constraint.value
+          end
+          attrs = {TIER_ID: layer.name, LINGUISTIC_TYPE_REF: ling_type}
+
+          annotator = layer.properties['annotator'].value
+          attrs.merge!({ANNOTATOR: annotator}) unless annotator.nil?
+
+          # check if this layer is the child of another one.
+          # if yes: add attribute PARENT_REF
+
+          # find a parent layer
+          parent_id=nil
+          parent_connectors = doc.layer_connectors.select{|c| c.target == layer}
+          if parent_connectors.size>0
+            parent_id = parent_connectors.first.source.name
+            attrs.merge!({PARENT_REF: parent_id})
+          end
+
+          tier = xml.TIER(attrs) do
+            puts "inside tier"
+            layer.items.each do |item|
+              xml.ANNOTATION do
+                # depending on the layer type, use either ALIGNABLE or REF annotations
+                if %w(Symbolic_Subdivision Symbolic_Association).include?(constraint)
+                  ref_attrs = {ANNOTATION_ID: item.identifier}
+                  parent_ref = item.item_links.find{|l| l.role == Mexico::FileSystem::ItemLink::ROLE_PARENT}
+                  unless parent_ref.nil?
+                    ref_attrs.merge!({ANNOTATION_REF: parent_ref.target_item.identifier})
+                  end
+                  pre_ref = item.item_links.find{|l| l.role == Mexico::FileSystem::ItemLink::ROLE_PREDECESSOR}
+                  unless pre_ref.nil?
+                    ref_attrs.merge!({PREVIOUS_ANNOTATION: pre_ref.target_item.identifier})
+                  end
+                  xml.REF_ANNOTATION(ref_attrs) do
+                    xml.ANNOTATION_VALUE item.data.string_value
+                  end
+                else
+                  tsref1, tsref2 = nil
+                  unless item.interval_links.empty?
+                    tsref1 = time_hash[item.interval_links.first.min]
+                    tsref2 = time_hash[item.interval_links.first.max]
+                  end
+                  xml.ALIGNABLE_ANNOTATION({'ANNOTATION_ID'=>item.identifier,TIME_SLOT_REF1: tsref1,TIME_SLOT_REF2: tsref2}) do
+                    xml.ANNOTATION_VALUE item.data.string_value
+                  end
+                end
+              end
+            end
+          end
+          puts "%s :: %s" % [tier["TIER_ID"], layer.identifier]
+        end
+
+        # @todo #257 a :: LINGUISTIC_TYPE
+        types = doc.head[Mexico::FileSystem::Section::LAYER_TYPES]
+        types.property_maps.each do |tp|
+          puts tp.class.name
+          puts tp.properties.size
+          puts tp.property_maps.size
+          puts "PROPMAP: %s" % tp.properties.collect{|m| "#{m.key}: #{m.value}"}.join(' ')
+          puts "TIME ALIGNABLE? %s" % tp.has_key?('timeAlignable')
+          puts "TIME ALIGNABLE? %s" % tp['timeAlignable']
+          # puts "TIME ALIGNABLE? %s" % tp['timeAlignable'].value
+
+          time_alignable            = tp.has_key?('timeAlignable')        ? tp['timeAlignable'].value        : nil
+          graphic_references        = tp.has_key?('graphicReferences')    ? tp['graphicReferences'].value    : nil
+          controlled_vocabulary_ref = tp.has_key?('controlledVocabulary') ? tp['controlledVocabulary'].value : nil
+          constraints               = tp.has_key?('constraints')          ? tp['constraints'].value          : nil
+
+          puts "TIME ALIGNABLE? %s" % time_alignable
+
+          attrs = {LINGUISTIC_TYPE_ID: tp.key}
+          attrs.merge!({           TIME_ALIGNABLE: time_alignable})            unless time_alignable.nil?
+          attrs.merge!({       GRAPHIC_REFERENCES: graphic_references})        unless graphic_references.nil?
+          attrs.merge!({CONTROLLED_VOCABULARY_REF: controlled_vocabulary_ref}) unless controlled_vocabulary_ref.nil?
+          attrs.merge!({              CONSTRAINTS: constraints})               unless constraints.nil?
+
+          xml.LINGUISTIC_TYPE(attrs)
+        end
+
+        # Exports ELAN constraints.
+        # These are static, so the same for all documents.
+        Mexico::Fiesta::Interfaces::ElanInterface::CONSTRAINTS.each do |conk,conv|
+          xml.CONSTRAINT STEREOTYPE: conk, DESCRIPTION: conv
+        end
+
+        # CONTROLLED_VOCABULARY
+        vocs = doc.head[Mexico::FileSystem::Section::VOCABULARIES]
+        vocs.property_maps.each do |voc|
+          metamap = voc['info']
+          datamap = voc['data']
+          xml.CONTROLLED_VOCABULARY({CV_ID: voc.key, DESCRIPTION: metamap['description'].value }) do
+            datamap.property_maps.each do |cv_entry|
+              xml.CV_ENTRY(cv_entry['value'].value, {DESCRIPTION: cv_entry['description'].value})
+            end
+          end
+        end
+
+      end
+    end
+    io << builder.to_xml
   end
 
 
-end
+end

data/lib/mexico/fiesta/interfaces/short_text_grid_interface.rb

@@ -99,4 +99,63 @@ class Mexico::Fiesta::Interfaces::ShortTextGridInterface
     fdoc
   end
 
+  def export(doc, io=$stdout, params = {})
+    Mexico::Util::FancyWriter.new(io) do
+      line 'File type = "ooTextFile"'
+      line 'Object class = "TextGrid"'
+      line
+
+      # overall min and max values
+      total_item_links = doc.items.collect{|i| i.interval_links}.flatten
+      total_min = total_item_links.collect{|l| l.min}.min
+      total_max = total_item_links.collect{|l| l.max}.max
+      line total_min, total_max
+      line '<exists>'
+      line doc.layers.size
+
+      # FOREACH layer : print layer header block
+      doc.layers.each do |layer|
+        # "IntervalTier", "name", min, max, annocount
+
+        line '"IntervalTier"'
+        line %Q("#{layer.name}")
+        layer_item_links = doc.items.collect{|i| i.interval_links}.flatten
+        layer_min = layer_item_links.collect{|l| l.min}.min
+        layer_max = layer_item_links.collect{|l| l.max}.max
+        line layer_min, layer_max
+
+        # FOREACH item in layer : min, max, value
+        sorted_items = layer.items.sort{|i,j| i.interval_links.first.min <=> i.interval_links.first.min}
+       time_points = [total_min, total_max, layer_min, layer_max]
+        sorted_items.each do |i|
+          time_points << i.interval_links.first.min
+          time_points << i.interval_links.first.max
+        end
+        time_points.uniq!.sort!
+        # print effective number of annotations
+        line time_points.size-1
+        time_points.each_with_index do |current_point, n|
+          next_point = nil
+          unless n == time_points.size-1
+            next_point = time_points[n+1]
+          end
+          unless next_point.nil?
+            #puts "-"*48
+            #puts "TL:   %20.18f - %20.18f" % [current_point, next_point]
+            #sorted_items.each do |it|
+            #  puts "IT:   %20.18f - %20.18f  --  %20.18f - %20.18f, %s" % [it.interval_links.first.min, it.interval_links.first.max, (it.interval_links.first.min-current_point), (it.interval_links.first.max-next_point), ((it.interval_links.first.min-current_point).abs<0.00001 && (it.interval_links.first.max-next_point).abs<0.00001)]
+            #end
+            item = sorted_items.select{|i| (i.interval_links.first.min-current_point).abs<0.00001 && (i.interval_links.first.max-next_point).abs<0.00001}.first
+            #puts item
+            line current_point, next_point
+            if item.nil?
+              line '""'
+            else
+              line %Q("#{item.data.string_value}")
+            end
+          end
+        end
+      end
+    end
+  end
 end

data/lib/mexico/fiesta/interfaces/text_grid_interface.rb

@@ -70,14 +70,11 @@ class Mexico::Fiesta::Interfaces::TextGridInterface
       layer = fdoc.add_layer({identifier:tierName, name:tierName})
 
       for anno_num in (1..tierSize)
-
         io.gets
         annoMin = io.gets.match(/(\d+(\.\d+)?)/)[1].to_f
         annoMax = io.gets.match(/(\d+(\.\d+)?)/)[1].to_f
         annoVal = io.gets.match(/"(.*)"/)[1]
-
         if annoVal.strip != ""
-
           item = fdoc.add_item({identifier:"l#{tier_num}a#{anno_num}"}) do |i|
             i.add_interval_link IntervalLink.new(
                                     identifier:"#{i.identifier}-il",
@@ -89,17 +86,82 @@ class Mexico::Fiesta::Interfaces::TextGridInterface
                                  identifier:"#{i.identifier}-ll",
                                  target_object: layer )
           end
-
-          puts item
-
+          # puts item
         end
-
       end
-
     end
-
     fdoc
-
   end
 
+
+  def export(doc, io=$stdout, params = {})
+    Mexico::Util::FancyWriter.new(io) do
+      line 'File type = "ooTextFile"'
+      line 'Object class = "TextGrid"'
+      line
+
+      # overall min and max values
+      total_item_links = doc.items.collect{|i| i.interval_links}.flatten
+      total_min = total_item_links.collect{|l| l.min}.min
+      total_max = total_item_links.collect{|l| l.max}.max
+      line "xmin = %f" % total_min
+      line "xmax = %f" % total_max
+      line 'tiers? <exists>'
+      line "size = %i" % doc.layers.size
+      line 'item []:'
+      indent 4 do
+        # FOREACH layer : print layer header block
+        doc.layers.each_with_index do |layer,layer_index|
+          line 'item [%i]:' % (layer_index+1)
+
+          indent 4 do
+            # "IntervalTier", "name", min, max, annocount
+            line 'class = "IntervalTier"'
+            line %Q(name = "#{layer.name}")
+            layer_item_links = doc.items.collect{|i| i.interval_links}.flatten
+            layer_min = layer_item_links.collect{|l| l.min}.min
+            layer_max = layer_item_links.collect{|l| l.max}.max
+            line "xmin = %f" % layer_min
+            line "xmax = %f" % layer_max
+
+            # FOREACH item in layer : min, max, value
+            sorted_items = layer.items.sort{|i,j| i.interval_links.first.min <=> i.interval_links.first.min}
+            time_points = [total_min, total_max, layer_min, layer_max]
+            sorted_items.each do |i|
+              time_points << i.interval_links.first.min
+              time_points << i.interval_links.first.max
+            end
+            time_points.uniq!.sort!
+            # print effective number of annotations
+            line "intervals: size = %i" % (time_points.size-1)
+            time_points.each_with_index do |current_point, n|
+              next_point = nil
+              unless n == time_points.size-1
+                next_point = time_points[n+1]
+              end
+              unless next_point.nil?
+                #puts "-"*48
+                #puts "TL:   %20.18f - %20.18f" % [current_point, next_point]
+                #sorted_items.each do |it|
+                #  puts "IT:   %20.18f - %20.18f  --  %20.18f - %20.18f, %s" % [it.interval_links.first.min, it.interval_links.first.max, (it.interval_links.first.min-current_point), (it.interval_links.first.max-next_point), ((it.interval_links.first.min-current_point).abs<0.00001 && (it.interval_links.first.max-next_point).abs<0.00001)]
+                #end
+                line 'intervals [%i]:' % (n+1)
+                indent 4 do
+                  item = sorted_items.select{|i| (i.interval_links.first.min-current_point).abs<0.00001 && (i.interval_links.first.max-next_point).abs<0.00001}.first
+                  #puts item
+                  line 'xmin = %f' % current_point
+                  line 'xmax = %f' % next_point
+                  if item.nil?
+                    line 'text = ""'
+                  else
+                    line %Q(text = "#{item.data.string_value}")
+                  end
+                end
+              end
+            end
+          end
+        end
+      end
+    end
+  end
 end

data/lib/mexico/file_system/fiesta_document.rb

@@ -341,4 +341,8 @@ class Mexico::FileSystem::FiestaDocument
     card
   end
 
+  def identifier=(new_id)
+    @identifier = Mexico::Util::to_xml_id(new_id)
+  end
+
 end

data/lib/mexico/file_system/head.rb

@@ -30,4 +30,19 @@ class Mexico::FileSystem::Head
   # many HeadSections with keys
   xml_accessor :sections, :as => [::Mexico::FileSystem::Section],     :from => "Section"
 
+  def initialize(args={})
+    @sections = []
+    ::Mexico::FileSystem::Section::SECTION_KEYS.each do |key|
+      @sections << ::Mexico::FileSystem::Section.new(key)
+    end
+  end
+
+  def [](key)
+    sections.find{|x| x.key == key }
+  end
+
+  def section(key)
+    sections.find{|x| x.key == key }
+  end
+
 end

data/lib/mexico/file_system/interval_link.rb

@@ -23,7 +23,11 @@ class Mexico::FileSystem::IntervalLink
   xml_name "IntervalLink"
 
   # identifier
-  xml_accessor :identifier,        :from => '@id'
+  xml_reader :identifier,        :from => '@id'
+
+  def identifier=(new_id)
+    @identifier = Mexico::Util::to_xml_id(new_id)
+  end
 
   # type Float
   xml_accessor :min, :as => Float, :from => "@min"

data/lib/mexico/file_system/item.rb

@@ -22,7 +22,11 @@ class Mexico::FileSystem::Item
   include ::ROXML
   xml_name 'I'
 
-  xml_accessor :identifier, :from => '@id'
+  xml_reader :identifier,        :from => '@id'
+
+  def identifier=(new_id)
+    @identifier = Mexico::Util::to_xml_id(new_id)
+  end
 
   # @todo compound links (later)
 

data/lib/mexico/file_system/item_link.rb

@@ -35,7 +35,11 @@ class Mexico::FileSystem::ItemLink
   xml_name 'ItemLink'
 
   # identifier
-  xml_accessor :identifier, :from => '@id'
+  xml_reader :identifier,        :from => '@id'
+
+  def identifier=(new_id)
+    @identifier = Mexico::Util::to_xml_id(new_id)
+  end
 
   # type String
   xml_accessor :role, :from => '@role'

data/lib/mexico/file_system/layer.rb

@@ -21,9 +21,16 @@ class ::Mexico::FileSystem::Layer
 
   include ROXML
 
-  xml_accessor :identifier, :from => '@id'
+  xml_reader :identifier,        :from => '@id'
+
+  def identifier=(new_id)
+    @identifier = Mexico::Util::to_xml_id(new_id)
+  end
+
   xml_accessor :name,       :from => '@name'
 
+  xml_accessor :properties, :as => ::Mexico::FileSystem::PropertyMap,  :from => "PropertyMap"
+
   attr_accessor :document
 
   # POSEIdON-based RDF augmentation
@@ -42,7 +49,14 @@ class ::Mexico::FileSystem::Layer
       if self.respond_to?("#{k}=")
         send("#{k}=", v)
       end
+
+      @properties = Mexico::FileSystem::PropertyMap.new
     end
+
+    if properties.nil?
+      properties = ::Mexico::FileSystem::PropertyMap.new(key: 'layerProperties')
+    end
+
   end
 
   def items
@@ -85,5 +99,9 @@ class ::Mexico::FileSystem::Layer
     end
   end
 
+  def add_property(prop)
+    properties.properties << prop
+  end
+
 
 end

data/lib/mexico/file_system/layer_connector.rb

@@ -22,7 +22,12 @@ class Mexico::FileSystem::LayerConnector
 
   include ROXML
 
-  xml_accessor :identifier, :from => '@id'
+  xml_reader :identifier,        :from => '@id'
+
+  def identifier=(new_id)
+    @identifier = Mexico::Util::to_xml_id(new_id)
+  end
+
   xml_accessor :name,       :from => '@name'
 
   xml_accessor :source_id, :from => '@source'

data/lib/mexico/file_system/layer_link.rb

@@ -23,7 +23,11 @@ class Mexico::FileSystem::LayerLink
   xml_name 'LayerLink'
 
   # identifier
-  xml_accessor :identifier,        :from => '@id'
+  xml_reader :identifier,        :from => '@id'
+
+  def identifier=(new_id)
+    @identifier = Mexico::Util::to_xml_id(new_id)
+  end
 
   xml_accessor :role, :from => '@role'
 

data/lib/mexico/file_system/point_link.rb

@@ -23,7 +23,11 @@ class Mexico::FileSystem::PointLink
   xml_name "PointLink"
 
   # identifier
-  xml_accessor :identifier,        :from => '@id'
+  xml_reader :identifier,        :from => '@id'
+
+  def identifier=(new_id)
+    @identifier = Mexico::Util::to_xml_id(new_id)
+  end
 
   # type Float
   xml_accessor :point, :as => Float, :from => "@point"

data/lib/mexico/file_system/property.rb

@@ -28,8 +28,22 @@ class Mexico::FileSystem::Property
   xml_name 'Property'
 
   xml_accessor :key, :from => '@key'
-
   xml_accessor :value, :from => :content
 
+  def initialize(arg1=nil, arg2=nil)
+    puts "Property init - %s : %s" % [arg1, arg2]
+    if arg1.respond_to?(:has_key?)
+      args.each do |k,v|
+        if self.respond_to?("#{k}=")
+          send("#{k}=", v)
+        end
+      end
+    else
+      unless (arg1.nil? || arg2.nil?)
+        self.key = arg1
+        self.value = arg2
+      end
+    end
+  end
 
 end

data/lib/mexico/file_system/property_map.rb

@@ -34,4 +34,42 @@ class Mexico::FileSystem::PropertyMap
 
   attr_accessor :values
 
+  def initialize(args={})
+    args.each do |k,v|
+      if self.respond_to?("#{k}=")
+        send("#{k}=", v)
+      end
+    end
+    @properties = []
+    @property_maps = []
+  end
+
+  def has_key?(p_key)
+    # compare_list(p_key)
+    return true if properties.any?{|x| x.key.to_sym == p_key.to_sym}
+    return true if property_maps.any?{|x| x.key.to_sym == p_key.to_sym}
+    false
+  end
+
+  def [](p_key)
+    # compare_list(p_key)
+    if properties.any?{|x| x.key.to_sym == p_key.to_sym}
+      return properties.find{|x| x.key.to_sym == p_key.to_sym}
+    end
+    if property_maps.any?{|x| x.key.to_sym == p_key.to_sym}
+      return property_maps.find{|x| x.key.to_sym == p_key.to_sym}
+    end
+    return nil
+  end
+
+  def compare_list(p_key)
+    puts "    <=>   %s  ::  %s" % %w(ENTRY COMPARE_VAL)
+    properties.each do |p|
+      puts "    <=>  >%s< :: >%s<  -  %s" % [p.key, p_key, (p.key.to_sym==p_key.to_sym)]
+    end
+    property_maps.each do |p|
+      puts "    <=>  >%s< :: >%s<  -  %s" % [p.key, p_key, (p.key==p_key)]
+    end
+  end
+
 end

data/lib/mexico/file_system/scale.rb

@@ -26,7 +26,12 @@ class Mexico::FileSystem::Scale
   include ::ROXML
   xml_name 'Scale'
 
-  xml_accessor :identifier, :from => '@id'
+  xml_reader :identifier,        :from => '@id'
+
+  def identifier=(new_id)
+    @identifier = Mexico::Util::to_xml_id(new_id)
+  end
+
   xml_accessor :name,       :from => '@name'
 
   xml_accessor :unit, :from => '@unit'

data/lib/mexico/file_system/section.rb

@@ -25,8 +25,12 @@
 class Mexico::FileSystem::Section
 
   LIFECYCLE = 'lifecycle'
-
   VOCABULARIES = 'vocabularies'
+  LAYER_TYPES = 'layerTypes'
+  MEDIA_CONTEXT = 'mediaContext'
+  DATA_MODEL = 'dataModel'
+
+  SECTION_KEYS = [LIFECYCLE, VOCABULARIES, LAYER_TYPES, MEDIA_CONTEXT, DATA_MODEL]
 
   include ::ROXML
   xml_name 'Section'
@@ -36,6 +40,28 @@ class Mexico::FileSystem::Section
   xml_accessor :properties,    :as => [::Mexico::FileSystem::Property],     :from => "Property"
   xml_accessor :property_maps, :as => [::Mexico::FileSystem::PropertyMap],  :from => "PropertyMap"
 
+  def initialize(key='NOTGIVEN')
+    @key = key
+    @properties = []
+    @property_maps = []
+  end
+
+  def has_key?(p_key)
+    # compare_list(p_key)
+    return true if properties.any?{|x| x.key.to_sym == p_key.to_sym}
+    return true if property_maps.any?{|x| x.key.to_sym == p_key.to_sym}
+    false
+  end
 
+  def [](p_key)
+    # compare_list(p_key)
+    if properties.any?{|x| x.key.to_sym == p_key.to_sym}
+      return properties.find{|x| x.key.to_sym == p_key.to_sym}
+    end
+    if property_maps.any?{|x| x.key.to_sym == p_key.to_sym}
+      return property_maps.find{|x| x.key.to_sym == p_key.to_sym}
+    end
+    return nil
+  end
 
 end

data/lib/mexico/util/fancy_writer.rb

@@ -0,0 +1,47 @@
+# encoding: utf-8
+
+class Mexico::Util::FancyWriter
+
+  attr_reader :stream
+  attr_reader :prefix_stack
+
+  def initialize(p_stream, &block)
+    @stream = p_stream
+    @prefix_stack = []
+    if block_given?
+      instance_eval &block
+    end
+  end
+
+  def prepend(prepend_string=' ', &block)
+    @prefix_stack << prepend_string
+    instance_eval &block
+    @prefix_stack.pop
+  end
+
+  def comment(comment_string='# ', &block)
+    if block_given?
+      prepend(comment_string, &block)
+    end
+  end
+
+  def indent(number=2, &block)
+    prepend(' '*number, &block)
+  end
+
+  def tab_indent(number=2, &block)
+    prepend("\t"*number, &block)
+  end
+
+  def write(*line)
+    lines = line
+    lines = [''] if lines == []
+    lines.each do |l|
+    stream << "%s%s%s" %[@prefix_stack.join(''),l,"\n"]
+    end
+  end
+
+  alias :w    :write
+  alias :<<   :write
+  alias :line :write
+end

data/lib/mexico/util.rb

@@ -39,13 +39,16 @@ module Mexico::Util
   # @param string [String] The string to be converted to an ID.
   # @return       [String] The resulting ID.
   def self.to_xml_id(string)
+    return nil if string.nil? # @todo auto-assign IDs
     result = string.downcase
     UMLAUTS.each_pair do |u,v|
       result.gsub!(/#{u}/, v)
     end
-    return result.gsub(/[^\w\d]/, '')
+    result.gsub!(/[^\w\d]/, '_')
+    return result.gsub(/_+/, '_')
   end
 
 end
 
-require 'mexico/util/fancy_container'
+require 'mexico/util/fancy_container'
+require 'mexico/util/fancy_writer'

data/spec/core/fancy_writer_spec.rb

@@ -0,0 +1,77 @@
+# This file is part of the MExiCo gem.
+# Copyright (c) 2012-2014 Peter Menke, SFB 673, Universität Bielefeld
+# http://www.sfb673.org
+#
+# MExiCo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as
+# published by the Free Software Foundation, either version 3 of
+# the License, or (at your option) any later version.
+#
+# MExiCo 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 Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with MExiCo. If not, see
+# <http://www.gnu.org/licenses/>.
+
+require 'spec_helper'
+
+describe Mexico::Util::FancyWriter do
+
+
+  # set up an initial corpus representation from the example file
+  before(:each) do
+    @string = String.new
+
+  end
+
+  context 'FancyWriter' do
+
+    it 'should write lines without method as they are' do
+      @writer = Mexico::Util::FancyWriter.new(@string) do
+        w "Foo"
+      end
+      @string.should eq "Foo\n"
+    end
+
+    it "should write comments without options as '# '" do
+      @writer = Mexico::Util::FancyWriter.new(@string) do
+        comment do
+          w "Foo"
+        end
+      end
+      @string.should eq "# Foo\n"
+    end
+
+    it "should write comments with options correctly" do
+      @writer = Mexico::Util::FancyWriter.new(@string) do
+        comment '// ' do
+          w "Foo"
+        end
+      end
+      @string.should eq "// Foo\n"
+    end
+
+    it "should export a complex example correctly." do
+      @writer = Mexico::Util::FancyWriter.new(@string) do
+        comment '# ' do
+          line 'This is an example.'
+          line 'This should be a block at the top.'
+        end
+        line 'config:'
+        indent 4 do
+          line 'setting:'
+          indent 4 do
+            line 'key: value.'
+            comment do
+              line 'This is an inside comment.'
+            end
+          end
+        end
+      end
+      puts @string
+    end
+  end
+end

data/spec/fiesta/elan_spec.rb

@@ -30,14 +30,47 @@ describe Mexico::Fiesta::Interfaces::ElanInterface do
       context 'Elan ' do
         it 'reads data from a test file' do
           path = File.join @assetspath, 'fiesta', 'elan'
-          filename = File.join path, 'ElanFileFormat.eaf'
+          filename = File.join path, 'Trial04.eaf' #'ElanFileFormat.eaf'
           @fdoc = ::Mexico::Fiesta::Interfaces::ElanInterface.import(File.open(filename))
           File.open(File.join(path,'test.out.fst'),'w') do |f|
             f << @fdoc.to_xml
           end
         end
+
+        it 'reads data from the all-formats file' do
+          path = File.join @assetspath, 'fiesta', 'elan'
+          filename = File.join path, 'ElanFileFormat.eaf' #'ElanFileFormat.eaf'
+          @fdoc = ::Mexico::Fiesta::Interfaces::ElanInterface.import(File.open(filename))
+          File.open(File.join(path,'ElanFileFormat.fst'),'w') do |f|
+            f << @fdoc.to_xml
+          end
+        end
+
+        it 'exports a FiESTA file to EAF' do
+          @fdoc = ::Mexico::FileSystem::FiestaDocument.open(File.join(@assetspath, 'fiesta', 'elan', 'test.out.fst'))  # Fiesta::Interfaces::ElanInterface.import(File.open(filename))
+          @fdoc.should_not be nil
+          File.open(File.join(@assetspath, 'fiesta', 'elan', 'test.out.eaf'),'w') do |f|
+            ::Mexico::Fiesta::Interfaces::ElanInterface::export(@fdoc, f)
+          end
+        end
+
+        it 'imports and exports an EAF document and preserves its structure and contents' do
+          path = File.join @assetspath, 'fiesta', 'elan'
+          filename = File.join path, 'Trial04.eaf'
+          @fdoc = ::Mexico::Fiesta::Interfaces::ElanInterface.import(File.open(filename))
+          # ::Mexico::FileSystem::FiestaDocument.open(File.join(@assetspath, 'fiesta', 'elan', 'test.out.fst'))  # Fiesta::Interfaces::ElanInterface.import(File.open(filename))
+          @fdoc.should_not be nil
+          File.open(File.join(@assetspath, 'fiesta', 'elan', 'Trial04.fst'),'w') do |f|
+            f << @fdoc.to_xml
+          end
+          File.open(File.join(@assetspath, 'fiesta', 'elan', 'Trial04.OUT.eaf'),'w') do |f|
+            ::Mexico::Fiesta::Interfaces::ElanInterface::export(@fdoc, f)
+          end
+        end
+
+
       end
     end
   end
 
-end
+end

data/spec/fiesta/layer_prop_spec.rb

@@ -0,0 +1,45 @@
+# This file is part of the MExiCo gem.
+# Copyright (c) 2012-2014 Peter Menke, SFB 673, Universität Bielefeld
+# http://www.sfb673.org
+#
+# MExiCo is free software: you can redistribute it and/or modify
+# it under the terms of the GNU Lesser General Public License as
+# published by the Free Software Foundation, either version 3 of
+# the License, or (at your option) any later version.
+#
+# MExiCo 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 Lesser General Public License for more details.
+#
+# You should have received a copy of the GNU Lesser General Public
+# License along with MExiCo. If not, see
+# <http://www.gnu.org/licenses/>.
+
+require 'spec_helper'
+
+describe Mexico::FileSystem::Layer do
+
+  before(:each) do
+    @basepath = File.join File.dirname(__FILE__), '..', '..'
+    @path = File.join @basepath, 'assets', 'fiesta', 'props'
+    @filename = File.join(@path,'props.fst')
+    @fdoc = ::Mexico::FileSystem::FiestaDocument.open(@filename)
+
+    @outfile = File.join(@path,'out.fst')
+    File.open(@outfile, 'w') do |f|
+      f.write @fdoc.to_xml
+    end
+  end
+
+  context 'Fiesta ' do
+    context 'Layer' do
+      it 'reads props from layers' do
+        @fdoc.layers.first.should respond_to(:properties)
+        @fdoc.layers.first.properties.should have_key('elanTierType')
+        @fdoc.layers.first.properties['elanTierType'].should_not be nil
+        @fdoc.layers.first.properties['elanTierType'].value.should eq 'TIME_SUBDIVISION'
+      end
+    end
+  end
+end

data/spec/fiesta/praat_spec.rb

@@ -47,6 +47,25 @@ describe Mexico::Fiesta::Interfaces::ShortTextGridInterface do
           end
         end
 
+
+        it 'writes data to a short text grid file' do
+          path = File.join @assetspath, 'fiesta', 'praat'
+          filename = File.join path, 'mexico.ShortTextGrid'
+          @fdoc = ::Mexico::Fiesta::Interfaces::ShortTextGridInterface.import(File.open(filename))
+
+          @outfile = File.join path, 'mexico.OUT.ShortTextGrid'
+          ::Mexico::Fiesta::Interfaces::ShortTextGridInterface.export(@fdoc, File.open(@outfile, 'w'))
+        end
+
+        it 'writes data to a text grid file' do
+          path = File.join @assetspath, 'fiesta', 'praat'
+          filename = File.join path, 'mexico.TextGrid'
+          @fdoc = ::Mexico::Fiesta::Interfaces::TextGridInterface.import(File.open(filename))
+
+          @outfile = File.join path, 'mexico.OUT.TextGrid'
+          ::Mexico::Fiesta::Interfaces::TextGridInterface.export(@fdoc, File.open(@outfile, 'w'))
+        end
+
       end
     end
   end

metadata

@@ -1,14 +1,14 @@
 --- !ruby/object:Gem::Specification
 name: mexico
 version: !ruby/object:Gem::Version
-  version: 0.0.10
+  version: 0.0.11
 platform: ruby
 authors:
 - Peter Menke
 autorequire: 
 bindir: bin
 cert_chain: []
-date: 2014-02-26 00:00:00.000000000 Z
+date: 2014-03-24 00:00:00.000000000 Z
 dependencies:
 - !ruby/object:Gem::Dependency
   name: nokogiri
@@ -236,6 +236,7 @@ files:
 - assets/fiesta/head/head.fst
 - assets/fiesta/praat/mexico.ShortTextGrid
 - assets/fiesta/praat/mexico.TextGrid
+- assets/fiesta/props/props.fst
 - assets/helpers/collection_ref_handler.rb
 - assets/helpers/id_ref_handler.rb
 - assets/helpers/roxml_attribute_handler.rb
@@ -247,6 +248,7 @@ files:
 - features/support/env.rb
 - info/releasenotes/0.0.1.md
 - info/releasenotes/0.0.10.md
+- info/releasenotes/0.0.11.md
 - info/releasenotes/0.0.2.md
 - info/releasenotes/0.0.3.md
 - info/releasenotes/0.0.4.md
@@ -306,11 +308,14 @@ files:
 - lib/mexico/not_yet_implemented_error.rb
 - lib/mexico/util.rb
 - lib/mexico/util/fancy_container.rb
+- lib/mexico/util/fancy_writer.rb
 - spec/constraints/constraints_spec.rb
+- spec/core/fancy_writer_spec.rb
 - spec/core/media_type_spec.rb
 - spec/fiesta/b6_spec.rb
 - spec/fiesta/elan_spec.rb
 - spec/fiesta/head_spec.rb
+- spec/fiesta/layer_prop_spec.rb
 - spec/fiesta/praat_spec.rb
 - spec/fiesta/read_spec.rb
 - spec/file_system_based/better_collection_spec.rb