release/src/router/mysql/sql/gstream.cc

   1 /*
   2    Copyright (c) 2002, 2004, 2005, 2007 MySQL AB, 2009 Sun Microsystems, Inc.
   3    Use is subject to license terms.
   4
   5    This program is free software; you can redistribute it and/or modify
   6    it under the terms of the GNU General Public License as published by
   7    the Free Software Foundation; version 2 of the License.
   8
   9    This program is distributed in the hope that it will be useful,
  10    but WITHOUT ANY WARRANTY; without even the implied warranty of
  11    MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the
  12    GNU General Public License for more details.
  13
  14    You should have received a copy of the GNU General Public License
  15    along with this program; if not, write to the Free Software
  16    Foundation, Inc., 51 Franklin St, Fifth Floor, Boston, MA 02110-1301  USA
  17 */
  18
  19 /*
  20   Functions to read and parse geometrical data.
  21   NOTE: These functions assumes that the string is end \0 terminated!
  22 */
  23
  24 #include "mysql_priv.h"
  25
  26 enum Gis_read_stream::enum_tok_types Gis_read_stream::get_next_toc_type()
  27 {
  28   skip_space();
  29   if (m_cur >= m_limit)
  30     return eostream;
  31   if (my_isvar_start(&my_charset_bin, *m_cur))
  32     return word;
  33   if ((*m_cur >= '0' && *m_cur <= '9') || *m_cur == '-' || *m_cur == '+')
  34     return numeric;
  35   if (*m_cur == '(')
  36     return l_bra;
  37   if (*m_cur == ')')
  38     return r_bra;
  39   if (*m_cur == ',')
  40     return comma;
  41   return unknown;
  42 }
  43
  44
  45 bool Gis_read_stream::get_next_word(LEX_STRING *res)
  46 {
  47   skip_space();
  48   res->str= (char*) m_cur;
  49   /* The following will also test for \0 */
  50   if ((m_cur >= m_limit) || !my_isvar_start(&my_charset_bin, *m_cur))
  51     return 1;
  52
  53   /*
  54     We can't combine the following increment with my_isvar() because
  55     my_isvar() is a macro that would cause side effects
  56   */
  57   m_cur++;
  58   while ((m_cur < m_limit) && my_isvar(&my_charset_bin, *m_cur))
  59     m_cur++;
  60
  61   res->length= (uint32) (m_cur - res->str);
  62   return 0;
  63 }
  64
  65
  66 /*
  67   Read a floating point number
  68
  69   NOTE: Number must start with a digit or sign. It can't start with a decimal
  70   point
  71 */
  72
  73 bool Gis_read_stream::get_next_number(double *d)
  74 {
  75   char *endptr;
  76   int err;
  77
  78   skip_space();
  79
  80   if ((m_cur >= m_limit) ||
  81       ((*m_cur < '0' || *m_cur > '9') && *m_cur != '-' && *m_cur != '+'))
  82   {
  83     set_error_msg("Numeric constant expected");
  84     return 1;
  85   }
  86
  87   *d = my_strntod(m_charset, (char *)m_cur,
  88                   (uint) (m_limit-m_cur), &endptr, &err);
  89   if (err)
  90     return 1;
  91   if (endptr)
  92     m_cur = endptr;
  93   return 0;
  94 }
  95
  96
  97 bool Gis_read_stream::check_next_symbol(char symbol)
  98 {
  99   skip_space();
 100   if ((m_cur >= m_limit) || (*m_cur != symbol))
 101   {
 102     char buff[32];
 103     strmov(buff, "'?' expected");
 104     buff[2]= symbol;
 105     set_error_msg(buff);
 106     return 1;
 107   }
 108   m_cur++;
 109   return 0;
 110 }
 111
 112
 113 /*
 114   Remember error message.
 115 */
 116
 117 void Gis_read_stream::set_error_msg(const char *msg)
 118 {
 119   size_t len= strlen(msg);                      // ok in this context
 120   m_err_msg= (char *) my_realloc(m_err_msg, (uint) len + 1, MYF(MY_ALLOW_ZERO_PTR));
 121   memcpy(m_err_msg, msg, len + 1);
 122 }