# ISO <<Class>> Multi Geometry
# writer output in XML

# History:
# 	Stan Smith 2013-11-12 original script
# 	Stan Smith 2013-11-13 add line string
#   Stan Smith 2014-05-30 modified for version 0.5.0
#   Stan Smith 2014-07-08 modify require statements to function in RubyGem structure
#   Stan Smith 2014-12-12 refactored to handle namespacing readers and writers

require $ReaderNS.readerModule('module_point')
require 'class_point'
require 'class_lineString'
require 'class_polygon'

module ADIWG
    module Mdtranslator
        module Writers
            module Iso

                class MultiGeometry

                    def initialize(xml)
                        @xml = xml
                    end

                    def writeXML(hGeoElement)

                        # classes used
                        intMetadataClass = InternalMetadata.new
                        pointClass = $IsoNS::Point.new(@xml)
                        lineClass = $IsoNS::LineString.new(@xml)
                        polygonClass = $IsoNS::Polygon.new(@xml)


                        # gml:MultiGeometry attributes
                        attributes = {}

                        # gml:MultiGeometry attributes - gml:id - required
                        mGeoID = hGeoElement[:elementId]
                        if mGeoID.nil?
                            $idCount = $idCount.succ
                            mGeoID = 'multiGeo' + $idCount
                        end
                        attributes['gml:id'] = mGeoID

                        # gml:MultiGeometry attributes - srsDimension
                        s = hGeoElement[:elementGeometry][:dimension]
                        if !s.nil?
                            attributes[:srsDimension] = s
                        end

                        # gml:MultiGeometry attributes - srsName
                        s = hGeoElement[:elementSrs][:srsName]
                        if !s.nil?
                            attributes[:srsName] = s
                        end

                        @xml.tag!('gml:MultiGeometry', attributes) do

                            # multi geometry - description
                            s = hGeoElement[:elementDescription]
                            if !s.nil?
                                @xml.tag!('gml:description', s)
                            elsif $showAllTags
                                @xml.tag!('gml:description')
                            end

                            # multi geometry - name
                            s = hGeoElement[:elementName]
                            if !s.nil?
                                @xml.tag!('gml:name', s)
                            elsif $showAllTags
                                @xml.tag!('gml:name')
                            end

                            # GeoJSON multi-objects need to be broken into independent
                            # ... geometry members for ISO representation
                            geoType = hGeoElement[:elementGeometry][:geoType]
                            case geoType
                                when 'MultiPoint'
                                    aPoints = hGeoElement[:elementGeometry][:geometry]
                                    if !aPoints.empty?
                                        @xml.tag!('gml:geometryMembers') do
                                            aPoints.each do |aCoords|
                                                intPoint = intMetadataClass.newGeoElement
                                                intPoint[:elementSrs] = hGeoElement[:elementSrs]
                                                intPoint[:elementGeometry] = $ReaderNS::Point.unpack(aCoords, 'Point')
                                                pointClass.writeXML(intPoint)
                                            end
                                        end
                                    end
                                when 'MultiLineString'
                                    aLines = hGeoElement[:elementGeometry][:geometry]
                                    if !aLines.empty?
                                        @xml.tag!('gml:geometryMembers') do
                                            aLines.each do |aCoords|
                                                intLine = intMetadataClass.newGeoElement
                                                intLine[:elementSrs] = hGeoElement[:elementSrs]
                                                intLine[:elementGeometry] = $ReaderNS::LineString.unpack(aCoords, 'LineString')
                                                lineClass.writeXML(intLine)
                                            end
                                        end
                                    end
                                when 'MultiPolygon'
                                    aPolygons = hGeoElement[:elementGeometry][:geometry]
                                    if !aPolygons.empty?
                                        @xml.tag!('gml:geometryMembers') do
                                            aPolygons.each do |aCoords|
                                                intPolygon = intMetadataClass.newGeoElement
                                                intPolygon[:elementSrs] = hGeoElement[:elementSrs]
                                                intPolygon[:elementGeometry] = $ReaderNS::LineString.unpack(aCoords, 'Polygon')
                                                polygonClass.writeXML(intPolygon)
                                            end
                                        end
                                    end
                            end

                            # multi geometry - geometry members
                            # GeoJSON GeometryCollection
                            # GeoJSON FeatureCollection
                            case geoType
                                when 'MultiGeometry'
                                    aGeometry = hGeoElement[:elementGeometry][:geometry]
                                    if !aGeometry.empty?
                                        @xml.tag!('gml:geometryMembers') do
                                            aGeometry.each do |hGeometry|
                                                hGeoType = hGeometry[:elementGeometry][:geoType]
                                                case hGeoType
                                                    when 'Point'
                                                        pointClass.writeXML(hGeometry)
                                                    when 'LineString'
                                                        lineClass.writeXML(hGeometry)
                                                    when 'Polygon'
                                                        polygonClass.writeXML(hGeometry)
                                                end
                                            end
                                        end
                                    end
                            end

                        end

                    end

                end

            end
        end
    end
end