rgeo 0.1.13 → 0.1.14

data/lib/rgeo/wkrep/wkb_parser.rb

@@ -0,0 +1,205 @@
+# -----------------------------------------------------------------------------
+# 
+# Well-known binary parser for RGeo
+# 
+# -----------------------------------------------------------------------------
+# Copyright 2010 Daniel Azuma
+# 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+# * Redistributions of source code must retain the above copyright notice,
+#   this list of conditions and the following disclaimer.
+# * Redistributions in binary form must reproduce the above copyright notice,
+#   this list of conditions and the following disclaimer in the documentation
+#   and/or other materials provided with the distribution.
+# * Neither the name of the copyright holder, nor the names of any other
+#   contributors to this software, may be used to endorse or promote products
+#   derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# -----------------------------------------------------------------------------
+;
+
+
+module RGeo
+  
+  module WKRep
+    
+    
+    class WKBParser
+      
+      
+      def initialize(factory_, opts_={}, &block_)
+        @factory = factory_
+        @factory_factory = block_
+        @support_ewkb = opts_[:support_ewkb]
+        @support_wkb12 = opts_[:support_wkb12]
+        @ignore_extra_bytes = opts_[:ignore_extra_bytes]
+      end
+      
+      
+      def parse(data_)
+        @cur_has_z = nil
+        @cur_has_m = nil
+        @cur_srid = nil
+        @cur_dims = 2
+        @cur_factory = @factory
+        begin
+          _start_scanner(data_)
+          obj_ = _parse_object(false)
+          unless @ignore_extra_bytes
+            bytes_ = _bytes_remaining
+            if bytes_ > 0
+              raise Errors::ParseError, "Found #{bytes_} extra bytes at the end of the stream."
+            end
+          end
+        ensure
+          _clean_scanner
+        end
+        obj_
+      end
+      
+      
+      def _parse_object(contained_)  # :nodoc:
+        little_endian_ = _get_byte == 1
+        type_code_ = _get_integer(little_endian_)
+        has_z_ = false
+        has_m_ = false
+        srid_ = nil
+        if @support_ewkb
+          has_z_ ||= type_code_ & 0x80000000 != 0
+          has_m_ ||= type_code_ & 0x40000000 != 0
+          srid_ = _get_integer(little_endian_) if type_code_ & 0x20000000 != 0
+          type_code_ &= 0x0fffffff
+        end
+        if @support_wkb12
+          has_z_ ||= (type_code_ / 1000) & 1 != 0
+          has_m_ ||= (type_code_ / 1000) & 2 != 0
+          type_code_ %= 1000
+        end
+        if contained_
+          if contained_ != true && contained_ != type_code_
+            raise Errors::ParseError, "Enclosed type=#{type_code_} is different from container constraint #{contained_}"
+          end
+          if has_z_ != @cur_has_z
+            raise Errors::ParseError, "Enclosed hasZ=#{has_z_} is different from toplevel hasZ=#{@cur_has_z}"
+          end
+          if has_m_ != @cur_has_m
+            raise Errors::ParseError, "Enclosed hasM=#{has_m_} is different from toplevel hasM=#{@cur_has_m}"
+          end
+          if srid_ && srid_ != @cur_srid
+            raise Errors::ParseError, "Enclosed SRID #{srid_} is different from toplevel srid #{@cur_srid || '(unspecified)'}"
+          end
+        else
+          @cur_has_z = has_z_
+          @cur_has_m = has_m_
+          @cur_dims = 2 + (@cur_has_z ? 1 : 0) + (@cur_has_m ? 1 : 0)
+          @cur_srid = srid_
+          if srid_ && @factory_factory
+            @cur_factory = @factory_factory.call(srid_)
+          end
+          if @cur_has_z && !@cur_factory.has_capability?(:z_coordinate)
+            raise Errors::ParseError, "Data has Z coordinates but the factory doesn't have z_coordinate capability"
+          end
+          if @cur_has_m && !@cur_factory.has_capability?(:m_coordinate)
+            raise Errors::ParseError, "Data has M coordinates but the factory doesn't have m_coordinate capability"
+          end
+        end
+        case type_code_
+        when 1
+          coords_ = _get_doubles(little_endian_, @cur_dims)
+          @cur_factory.point(*coords_)
+        when 2
+          _parse_line_string(little_endian_)
+        when 3
+          interior_rings_ = (1.._get_integer(little_endian_)).map{ _parse_line_string(little_endian_) }
+          exterior_ring_ = interior_rings_.shift || @cur_factory.linear_ring([])
+          @cur_factory.polygon(exterior_ring_, interior_rings_)
+        when 4
+          @cur_factory.multi_point((1.._get_integer(little_endian_)).map{ _parse_object(1) })
+        when 5
+          @cur_factory.multi_line_string((1.._get_integer(little_endian_)).map{ _parse_object(2) })
+        when 6
+          @cur_factory.multi_polygon((1.._get_integer(little_endian_)).map{ _parse_object(3) })
+        when 7
+          @cur_factory.collection((1.._get_integer(little_endian_)).map{ _parse_object(true) })
+        else
+          raise Errors::ParseError, "Unknown type value: #{type_code_}."
+        end
+      end
+      
+      
+      def _parse_line_string(little_endian_)  # :nodoc:
+        count_ = _get_integer(little_endian_)
+        coords_ = _get_doubles(little_endian_, @cur_dims * count_)
+        @cur_factory.line_string((0...count_).map{ |i_| @cur_factory.point(*coords_[@cur_dims*i_,@cur_dims]) })
+      end
+      
+      
+      def _start_scanner(data_)  # :nodoc:
+        @_data = data_
+        @_len = data_.length
+        @_pos = 0
+      end
+      
+      
+      def _clean_scanner  # :nodoc:
+        @_data = nil
+      end
+      
+      
+      def _bytes_remaining  # :nodoc:
+        @_len - @_pos
+      end
+      
+      
+      def _get_byte  # :nodoc:
+        if @_pos + 1 > @_len
+          raise Errors::ParseError, "Not enough bytes left to fulfill 1 byte"
+        end
+        str_ = @_data[@_pos, 1]
+        @_pos += 1
+        str_.unpack("C").first
+      end
+      
+      
+      def _get_integer(little_endian_)  # :nodoc:
+        if @_pos + 4 > @_len
+          raise Errors::ParseError, "Not enough bytes left to fulfill 1 integer"
+        end
+        str_ = @_data[@_pos, 4]
+        @_pos += 4
+        str_.unpack("#{little_endian_ ? 'V' : 'N'}").first
+      end
+      
+      
+      def _get_doubles(little_endian_, count_)  # :nodoc:
+        len_ = 8 * count_
+        if @_pos + len_ > @_len
+          raise Errors::ParseError, "Not enough bytes left to fulfill #{count_} doubles"
+        end
+        str_ = @_data[@_pos, len_]
+        @_pos += len_
+        str_.unpack("#{little_endian_ ? 'E' : 'G'}*")
+      end
+      
+      
+    end
+    
+    
+  end
+  
+end

data/lib/rgeo/wkrep/wkt_generator.rb

@@ -0,0 +1,187 @@
+# -----------------------------------------------------------------------------
+# 
+# Well-known text generator for RGeo
+# 
+# -----------------------------------------------------------------------------
+# Copyright 2010 Daniel Azuma
+# 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+# * Redistributions of source code must retain the above copyright notice,
+#   this list of conditions and the following disclaimer.
+# * Redistributions in binary form must reproduce the above copyright notice,
+#   this list of conditions and the following disclaimer in the documentation
+#   and/or other materials provided with the distribution.
+# * Neither the name of the copyright holder, nor the names of any other
+#   contributors to this software, may be used to endorse or promote products
+#   derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# -----------------------------------------------------------------------------
+;
+
+
+module RGeo
+  
+  module WKRep
+    
+    
+    class WKTGenerator
+      
+      
+      def initialize(opts_={})
+        @tag_format = opts_[:tag_format]
+        @emit_ewkt_srid = opts_[:emit_ewkt_srid] if @tag_format == :ewkt
+        @begin_bracket = opts_[:square_brackets] ? '[' : '('
+        @end_bracket = opts_[:square_brackets] ? ']' : ')'
+        @case = opts_[:case]
+      end
+      
+      
+      def generate(obj_)
+        factory_ = obj_.factory
+        if @tag_format == :wkt11_strict
+          @cur_support_z = nil
+          @cur_support_m = nil
+        else
+          @cur_support_z = factory_.has_capability?(:z_coordinate)
+          @cur_support_m = factory_.has_capability?(:m_coordinate)
+        end
+        str_ = _generate_feature(obj_, true)
+        if @case == :upper
+          str_.upcase
+        elsif @case == :lower
+          str_.downcase
+        else
+          str_
+        end
+      end
+      
+      
+      def _generate_feature(obj_, toplevel_=false)  # :nodoc:
+        type_ = obj_.geometry_type
+        tag_ = type_.type_name
+        if @tag_format == :ewkt
+          if @cur_support_m && !@cur_support_z
+            tag_ << 'M'
+          end
+        elsif @tag_format == :wkt12
+          if @cur_support_z
+            if @cur_support_m
+              tag_ << ' ZM'
+            else
+              tag_ << ' Z'
+            end
+          elsif @cur_support_m
+            tag_ << ' M'
+          end
+        end
+        if toplevel_ && @emit_ewkt_srid
+          tag_ = "SRID=#{obj_.srid};#{tag_}"
+        end
+        if type_ == Features::Point
+          tag_ + _generate_point(obj_)
+        elsif type_.subtype_of?(Features::LineString)
+          tag_ + _generate_line_string(obj_)
+        elsif type_ == Features::Polygon
+          tag_ + _generate_polygon(obj_)
+        elsif type_ == Features::GeometryCollection
+          tag_ + _generate_geometry_collection(obj_)
+        elsif type_ == Features::MultiPoint
+          tag_ + _generate_multi_point(obj_)
+        elsif type_ == Features::MultiLineString
+          tag_ + _generate_multi_line_string(obj_)
+        elsif type_ == Features::MultiPolygon
+          tag_ + _generate_multi_polygon(obj_)
+        else
+          raise Errors::ParseError, "Unrecognized geometry type: #{type_}"
+        end
+      end
+      
+      
+      def _generate_coords(obj_)  # :nodoc:
+        str_ = "#{obj_.x.to_s} #{obj_.y.to_s}"
+        str_ << " #{obj_.z.to_s}" if @cur_support_z
+        str_ << " #{obj_.m.to_s}" if @cur_support_m
+        str_
+      end
+      
+      
+      def _generate_point(obj_)  # :nodoc:
+        "#{@begin_bracket}#{_generate_coords(obj_)}#{@end_bracket}"
+      end
+      
+      
+      def _generate_line_string(obj_)  # :nodoc:
+        if obj_.is_empty?
+          " EMPTY"
+        else
+          "#{@begin_bracket}#{obj_.points.map{ |p_| _generate_coords(p_) }.join(',')}#{@end_bracket}"
+        end
+      end
+      
+      
+      def _generate_polygon(obj_)  # :nodoc:
+        if obj_.is_empty?
+          " EMPTY"
+        else
+          "#{@begin_bracket}#{([_generate_line_string(obj_.exterior_ring)] + obj_.interior_rings.map{ |r_| _generate_line_string(r_) }).join(',')}#{@end_bracket}"
+        end
+      end
+      
+      
+      def _generate_geometry_collection(obj_)  # :nodoc:
+        if obj_.is_empty?
+          " EMPTY"
+        else
+          "#{@begin_bracket}#{obj_.map{ |f_| _generate_feature(f_) }.join(',')}#{@end_bracket}"
+        end
+      end
+      
+      
+      def _generate_multi_point(obj_)  # :nodoc:
+        if obj_.is_empty?
+          " EMPTY"
+        else
+          "#{@begin_bracket}#{obj_.map{ |f_| _generate_point(f_) }.join(',')}#{@end_bracket}"
+        end
+      end
+      
+      
+      def _generate_multi_line_string(obj_)  # :nodoc:
+        if obj_.is_empty?
+          " EMPTY"
+        else
+          "#{@begin_bracket}#{obj_.map{ |f_| _generate_line_string(f_) }.join(',')}#{@end_bracket}"
+        end
+      end
+      
+      
+      def _generate_multi_polygon(obj_)  # :nodoc:
+        if obj_.is_empty?
+          " EMPTY"
+        else
+          "#{@begin_bracket}#{obj_.map{ |f_| _generate_polygon(f_) }.join(',')}#{@end_bracket}"
+        end
+      end
+      
+      
+    end
+    
+    
+  end
+  
+end

data/lib/rgeo/wkrep/wkt_parser.rb

@@ -0,0 +1,321 @@
+# -----------------------------------------------------------------------------
+# 
+# Well-known text parser for RGeo
+# 
+# -----------------------------------------------------------------------------
+# Copyright 2010 Daniel Azuma
+# 
+# All rights reserved.
+# 
+# Redistribution and use in source and binary forms, with or without
+# modification, are permitted provided that the following conditions are met:
+# 
+# * Redistributions of source code must retain the above copyright notice,
+#   this list of conditions and the following disclaimer.
+# * Redistributions in binary form must reproduce the above copyright notice,
+#   this list of conditions and the following disclaimer in the documentation
+#   and/or other materials provided with the distribution.
+# * Neither the name of the copyright holder, nor the names of any other
+#   contributors to this software, may be used to endorse or promote products
+#   derived from this software without specific prior written permission.
+# 
+# THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS"
+# AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE
+# IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE
+# ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT OWNER OR CONTRIBUTORS BE
+# LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR
+# CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF
+# SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS
+# INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN
+# CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE)
+# ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE
+# POSSIBILITY OF SUCH DAMAGE.
+# -----------------------------------------------------------------------------
+;
+
+
+require 'strscan'
+
+
+module RGeo
+  
+  module WKRep
+    
+    
+    class WKTParser
+      
+      
+      def initialize(factory_, opts_={}, &block_)
+        @factory = factory_
+        @factory_factory = block_
+        @support_ewkt = opts_[:support_ewkt]
+        @support_wkt12 = opts_[:support_wkt12]
+        @support_higher_dimensions = opts_[:support_higher_dimensions] || @support_ewkt || @support_wkt12
+        @ignore_extra_tokens = opts_[:ignore_extra_tokens]
+      end
+      
+      
+      def parse(str_)
+        @cur_factory = @factory
+        str_ = str_.downcase
+        if @support_ewkt && str_ =~ /^srid=(\d+);/
+          str_ = $'
+          if @factory_factory
+            @cur_factory = @factory_factory.call($1.to_i)
+          end
+        end
+        @cur_factory_support_z = @cur_factory.has_capability?(:z_coordinate)
+        @cur_factory_support_m = @cur_factory.has_capability?(:m_coordinate)
+        _start_scanner(str_)
+        obj_ = _parse_type_tag(nil, nil)
+        if @cur_token && !@ignore_extra_tokens
+          raise Errors::ParseError, "Extra tokens beginning with #{@cur_token.inspect}."
+        end
+        obj_
+      end
+      
+      
+      def _parse_type_tag(expect_z_, expect_m_)  # :nodoc:
+        _expect_token_type(::String)
+        if @support_ekwt && @cur_token =~ /^(.+)(z?m?)$/
+          type_ = $1
+          zm_ = $2
+        else
+          type_ = @cur_token
+          zm_ = ''
+        end
+        _next_token
+        if zm_.length == 0 && @support_wkt12 && @cur_token.kind_of?(::String) && @cur_token =~ /^z?m?$/
+          zm_ = @cur_token
+          _next_token
+        end
+        if zm_.length > 0 || !@support_higher_dimensions
+          nexpect_z_ = zm_[0,1] == 'z'
+          if !expect_z_.nil? && nexpect_z_ != expect_z_
+            raise Errors::ParseError, "Surrounding collection has Z but contained geometry doesn't."
+          end
+          expect_z_ = nexpect_z_
+          nexpect_m_ = zm_[-1,1] == 'm'
+          if !expect_m_.nil? && nexpect_m_ != expect_m_
+            raise Errors::ParseError, "Surrounding collection has M but contained geometry doesn't."
+          end
+          expect_m_ = nexpect_m_
+        end
+        if expect_z_ && !@cur_factory_support_z
+          raise Errors::ParseError, "Type tag declares #{zm_.inspect} but factory doesn't support Z."
+        end
+        if expect_m_ && !@cur_factory_support_m
+          raise Errors::ParseError, "Type tag declares #{zm_.inspect} but factory doesn't support M."
+        end
+        case type_
+        when 'point'
+          _parse_point(expect_z_, expect_m_, true)
+        when 'linestring'
+          _parse_line_string(expect_z_, expect_m_)
+        when 'polygon'
+          _parse_polygon(expect_z_, expect_m_)
+        when 'geometrycollection'
+          _parse_geometry_collection(expect_z_, expect_m_)
+        when 'multipoint'
+          _parse_multi_point(expect_z_, expect_m_)
+        when 'multilinestring'
+          _parse_multi_line_string(expect_z_, expect_m_)
+        when 'multipolygon'
+          _parse_multi_polygon(expect_z_, expect_m_)
+        else
+          raise Errors::ParseError, "Unknown type tag: #{@cur_token.inspect}."
+        end
+      end
+      
+      
+      def _parse_coords(expect_z_, expect_m_)  # :nodoc:
+        _expect_token_type(::Numeric)
+        x_ = @cur_token
+        _next_token
+        _expect_token_type(::Numeric)
+        y_ = @cur_token
+        _next_token
+        extra_ = []
+        if expect_z_.nil?
+          while ::Numeric === @cur_token
+            extra_ << @cur_token
+            _next_token
+          end
+        else
+          if expect_z_
+            _expect_token_type(::Numeric)
+            extra_ << @cur_token
+            _next_token
+          end
+          if expect_m_
+            _expect_token_type(::Numeric)
+            extra_ << @cur_token
+            _next_token
+          end
+        end
+        @cur_factory.point(x_, y_, *extra_)
+      end
+      
+      
+      def _parse_point(expect_z_, expect_m_, convert_empty_=false)  # :nodoc:
+        if convert_empty_ && @cur_token == 'empty'
+          point_ = @cur_factory.multi_point([])
+        else
+          _expect_token_type(:begin)
+          _next_token
+          point_ = _parse_coords(expect_z_, expect_m_)
+          _expect_token_type(:end)
+        end
+        _next_token
+        point_
+      end
+      
+      
+      def _parse_line_string(expect_z_, expect_m_)  # :nodoc:
+        points_ = []
+        if @cur_token != 'empty'
+          _expect_token_type(:begin)
+          _next_token
+          loop do
+            points_ << _parse_coords(expect_z_, expect_m_)
+            break if @cur_token == :end
+            _expect_token_type(:comma)
+            _next_token
+          end
+        end
+        _next_token
+        @cur_factory.line_string(points_)
+      end
+      
+      
+      def _parse_polygon(expect_z_, expect_m_)  # :nodoc:
+        inner_rings_ = []
+        if @cur_token == 'empty'
+          outer_ring_ = @cur_factory.linear_ring([])
+        else
+          _expect_token_type(:begin)
+          _next_token
+          outer_ring_ = _parse_line_string(expect_z_, expect_m_)
+          loop do
+            break if @cur_token == :end
+            _expect_token_type(:comma)
+            _next_token
+            inner_rings_ << _parse_line_string(expect_z_, expect_m_)
+          end
+        end
+        _next_token
+        @cur_factory.polygon(outer_ring_, inner_rings_)
+      end
+      
+      
+      def _parse_geometry_collection(expect_z_, expect_m_)  # :nodoc:
+        geometries_ = []
+        if @cur_token != 'empty'
+          _expect_token_type(:begin)
+          _next_token
+          loop do
+            geometries_ << _parse_type_tag(expect_z_, expect_m_)
+            break if @cur_token == :end
+            _expect_token_type(:comma)
+            _next_token
+          end
+        end
+        _next_token
+        @cur_factory.collection(geometries_)
+      end
+      
+      
+      def _parse_multi_point(expect_z_, expect_m_)  # :nodoc:
+        points_ = []
+        if @cur_token != 'empty'
+          _expect_token_type(:begin)
+          _next_token
+          loop do
+            points_ << _parse_point(expect_z_, expect_m_)
+            break if @cur_token == :end
+            _expect_token_type(:comma)
+            _next_token
+          end
+        end
+        _next_token
+        @cur_factory.multi_point(points_)
+      end
+      
+      
+      def _parse_multi_line_string(expect_z_, expect_m_)  # :nodoc:
+        line_strings_ = []
+        if @cur_token != 'empty'
+          _expect_token_type(:begin)
+          _next_token
+          loop do
+            line_strings_ << _parse_line_string(expect_z_, expect_m_)
+            break if @cur_token == :end
+            _expect_token_type(:comma)
+            _next_token
+          end
+        end
+        _next_token
+        @cur_factory.multi_line_string(line_strings_)
+      end
+      
+      
+      def _parse_multi_polygon(expect_z_, expect_m_)  # :nodoc:
+        polygons_ = []
+        if @cur_token != 'empty'
+          _expect_token_type(:begin)
+          _next_token
+          loop do
+            polygons_ << _parse_polygon(expect_z_, expect_m_)
+            break if @cur_token == :end
+            _expect_token_type(:comma)
+            _next_token
+          end
+        end
+        _next_token
+        @cur_factory.multi_polygon(polygons_)
+      end
+      
+      
+      def _start_scanner(str_)  # :nodoc:
+        @_scanner = ::StringScanner.new(str_)
+        _next_token
+      end
+      
+      
+      def _expect_token_type(type_)  # :nodoc:
+        unless type_ === @cur_token
+          raise Errors::ParseError, "#{type_.inspect} expected but #{@cur_token.inspect} found."
+        end
+      end
+      
+      
+      def _next_token(expect_=nil)  # :nodoc:
+        if @_scanner.scan_until(/\(|\)|\[|\]|,|[^\s\(\)\[\],]+/)
+          token_ = @_scanner.matched
+          case token_
+          when /^[-+]?(\d+(\.\d*)?|\.\d+)(e[-+]?\d+)?$/
+            @cur_token = token_.to_f
+          when /^[a-z]+$/
+            @cur_token = token_
+          when ','
+            @cur_token = :comma
+          when '(','['
+            @cur_token = :begin
+          when ']',')'
+            @cur_token = :end
+          else
+            raise Errors::ParseError, "Bad token: #{token_.inspect}"
+          end
+        else
+          @cur_token = nil
+        end
+        @cur_token
+      end
+      
+      
+    end
+    
+    
+  end
+  
+end