# 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

require ADIWG::Mdtranslator.reader_module('module_point', $response[:readerVersionUsed])
require 'class_point'
require 'class_lineString'
require 'class_polygon'

class MultiGeometry

	def initialize(xml)
		@xml = xml
	end

	def writeXML(hGeoElement)

		# classes used
		intMetadataClass = InternalMetadata.new
		pointClass = Point.new(@xml)
		lineClass = LineString.new(@xml)
		polygonClass = 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] = Md_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] = Md_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] = Md_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