---

rcs_ce.cc

Go to the documentation of this file.

#include "rcs_ce.h"


#if defined(DEBUG) && !defined(NO_STDIO)
#include <stdio.h>
#endif

#include <string.h>
#include <stdarg.h>

double RCS_CE_ATOF(const char *str)
{
  int mantissa = 0;
  double exponent_factor=1;
  long exponent = 0;
  char period_occured = 0;
  char e_occured = 0;
  char mantissa_negative = 0;
  char e_value_negative = 0;
  int e_value = 0;
  double return_value;
  char c = *str;
  while(c != 0)
    {
#if defined(DEBUG) && !defined(NO_STDIO)
      printf("c=%c, mantissa = %d, exponent=%d\n",c,mantissa,exponent);
#endif
      if(c >= '0' && c <= '9')
        {
          if(!e_occured)
            {
              mantissa *= 10;
              mantissa += (c-'0');
              if(period_occured)
                {
                  exponent--;
                }
            }
          else
            {
              e_value  *= 10;
              e_value += (c-'0');
            }

        }
      else if(!period_occured && c == '.')
        {
          period_occured = 1;
        }
      else if(!e_occured && (c == 'e' || c == 'E'))
        {
          e_occured = 1;
#if defined(DEBUG) && !defined(NO_STDIO)
          printf("e occurred");
#endif
        }
      else if(c == '-')
        {
          if(!e_occured)
            {
              mantissa_negative = 1;
            }
          else
            {
              e_value_negative = 1;
            }
        }
      else
        {
          break;
        }
      str++;
      c = *str;
    }
#if defined(DEBUG) && !defined(NO_STDIO)
  printf("c=%c, mantissa = %d, exponent=%d\n",c,mantissa,exponent);
#endif
  if(e_value_negative)
    {
      e_value *= -1;
    }
  if(mantissa_negative)
    {
      mantissa *= -1;
    }
  exponent += e_value;
  if(exponent > 0)
    {
      for(int i = 0; i < exponent; i++)
        {
          exponent_factor *= 10;
        }
    }
  else if(exponent < 0)
    {
      for(int i = exponent; i < 0; i++)
        {
          exponent_factor *= 10;
        }
    }
#if defined(DEBUG) && !defined(NO_STDIO)
  printf("exponent_factor=%d\n",exponent_factor);
#endif
  if(exponent == 0)
    {
      exponent_factor = 1;
    }
  if(exponent > 0)
    {
      return_value = ((double) mantissa) * ((double) exponent_factor);
    }
  else if(exponent < 0)
    {
      return_value = ((double) mantissa) / ((double) exponent_factor);
    }
  else
    {
      return_value = (double) mantissa;
    }
#if defined(DEBUG) && !defined(NO_STDIO)
  printf("c=%c, mantissa = %d, exponent=%d\n",c,mantissa,exponent);
#endif
  return(return_value);
}

void RCS_CE_UNICODE_TO_ASCII(char *str, wchar_t *wcs, int len)
{
  int chars_converted  = 0;
  while(*wcs != 0 && chars_converted < len-1)
    {
      *str = *(((char *) wcs));
      str++;
      wcs++;
      chars_converted++;
    }
  *str = 0;
}


void RCS_CE_ASCII_TO_UNICODE(wchar_t *wcs, const char *str, int len)
{
  int chars_converted  = 0;
  while(*str != 0 && chars_converted < len -1)
    {
      *((char *) wcs) = *str;
      *(((char *) wcs)+1) = 0;
      str++;
      wcs++;
      chars_converted++;
    }
  *wcs = 0;
}

int RCS_CE_VSPRINTF(char *str, const char *fmt, va_list args)
{
  int pfound = 0;
  char *sptr = str;
  char *fptr = (char *) fmt;
  int dec,sign,exp;
  char c = *fptr;
  int i = 0;
  double d = 0.0;
  char *string = NULL;
  char *fstring = NULL;

  while(c != 0)
    {
      if(c != '%' && !pfound)
        {
          *sptr = c;
          fptr++;
          sptr++;
          c = *fptr;
          continue;
        }
      else if(c == '%')
        {
          if(!pfound)
            {
              pfound = 1;
              fptr++;
              c = *fptr;
              continue;
            }
          else
            {
              *sptr = '%';
              sptr++;
              pfound = 0;
              fptr++;
              c = *fptr;
              continue;
            }
        }
      else if(pfound)
        {
          if((c >= '0' && c <= '9') || c == '.' || c == 'l')
            {
              fptr++;
              c = *fptr;
              continue;
            }
          else
            {
              switch(c)
                {
                case 'd':
                  i = va_arg(args,int);
                  memset(sptr,0,8);
                  _itoa(i,sptr,10);
                  while(*sptr != 0)
                    {
                      sptr++;
                    }
                  break;

                case 'o':
                  i = va_arg(args,int);
                  memset(sptr,0,8);
                  _itoa(i,sptr,8);
                  while(*sptr != 0)
                    {
                      sptr++;
                    }
                  break;

                case 'x':
                  i = va_arg(args,int);
                  memset(sptr,0,8);
                  _itoa(i,sptr,16);
                  while(*sptr != 0)
                    {
                      sptr++;
                    }

                case 's':
                  string = va_arg(args, char *);
                  while(*string != 0)
                    {
                      *sptr = *string;
                      sptr++;
                      string++;
                    }
                  break;

                case 'f':
                  d = va_arg(args, double);
                  fstring = _fcvt(d,5,&dec,&sign);
                  if(sign)
                    {
                      *sptr = '-';
                      sptr++;
                    }
                  exp = 0;
                  if(dec < -5 || dec > 5)
                    {
                      dec = 1;
                      exp = dec;
                    }
                  if(dec < 0)
                    {
                      *sptr = '0';
                      sptr++;
                      *sptr = '.';
                      sptr++;
                      for(i = dec; i < 0; i++)
                        {
                          *sptr='0';
                          sptr++;
                        }
                    }
                  i = 0;
                  while(*fstring != 0)
                    {
                      if(i == dec)
                        {
                          *sptr = '.';
                          sptr++;
                        }
                      *sptr = *fstring;
                      sptr++;
                      i++;
                      fstring++;
                    }
                  if(exp != 0)
                    {
                      *sptr = 'E';
                      sptr++;
                      _itoa(exp,sptr,10);
                      while(*sptr != 0)
                        {
                          sptr++;
                        }
                    }
                  break;
                }
              pfound = 0;
              fptr++;
              c = *fptr;
            }
        }
    }
  *sptr = 0;
  return 0;
}

---