Ejemplos de Token::GetSig en C++ (Cpp)

Ejemplo n.º 1

Archivo: funcion.cpp Proyecto: DX94/freedfd

void
Substring (Token ** Pila, int NArgumentos)
{
  Token *TokCadena, *TokInicio, *TokHasta;
  Token *YoRecorro = *Pila;

  char *RetornaValorDeTokenEnCadena (Token *);  //Debug

  if (NArgumentos != 3)
    {
      Buzon.SetIdentificadorAsociado ("SUBSTRING");
      if (NArgumentos > 3)
        Buzon.Error (MUCHOS_ARGUMENTOS);
      else
        Buzon.Error (POCOS_ARGUMENTOS);
      return;
    }

  TokHasta = EntornoEjecucion_BuscaSimbolo (YoRecorro);
  if (Buzon.GetHuboError ())
    {
      return;
    }
  YoRecorro = YoRecorro->GetSig ();

  TokInicio = EntornoEjecucion_BuscaSimbolo (YoRecorro);
  if (Buzon.GetHuboError ())
    {
      BorrarTokenSiEsVariable (TokHasta);
      return;
    }
  YoRecorro = YoRecorro->GetSig ();


  TokCadena = EntornoEjecucion_BuscaSimbolo (YoRecorro);
  if (Buzon.GetHuboError ())
    {
      BorrarTokenSiEsVariable (TokInicio);
      BorrarTokenSiEsVariable (TokHasta);
      return;
    }

  int Error = 0;

  // Se revisa que los argumentos san valores adecuados

  if (TokCadena->GetTipoDato () != STRING)
    {
      Error = 2;
    }
  if (TokInicio->GetTipoDato () != REAL && !Error)
    {
      Error = 2;
    }
  else if (!Error)
    {
      long double ValorReal = TokInicio->GetDatoReal ();
      if (ValorReal < 1.0L || ValorReal > 32000.0L ||
          (floorl (ValorReal) != ValorReal))
        {
          Error = 1;
        }
    }
  if (TokHasta->GetTipoDato () != REAL && !Error)
    {
      Error = 2;
    }
  else if (!Error)
    {
      long double ValorReal = TokHasta->GetDatoReal ();
      if (ValorReal < 0.0L || ValorReal > 32000.0L ||
          (floorl (ValorReal) != ValorReal))
        {
          Error = 1;
        }
    }

  if (Error)
    {
      Buzon.SetIdentificadorAsociado ("SUBSTRING");
      if (Error == 2)
        Buzon.Error (OPERADOR_ILEGAL);
      else
        Buzon.Error (LLAMADO_DE_FUNCION_NO_VALIDO);
      BorrarTokenSiEsVariable (TokCadena);
      BorrarTokenSiEsVariable (TokInicio);
      BorrarTokenSiEsVariable (TokHasta);
      return;
    }
  char *Cadena = TokCadena->GetDatoStr ();
  int Hasta = (int) TokHasta->GetDatoReal ();
  int Inicio = (int) TokInicio->GetDatoReal ();
  BorrarTokenSiEsVariable (TokInicio);
  BorrarTokenSiEsVariable (TokHasta);

  int Largo = strlen (Cadena);
  int NAux = 0;
  char *Aux = new char[Largo + 1];

  for (register int Cont = Inicio - 1;
       (Cont < Inicio + Hasta - 1) && (Cont < Largo); ++Cont)
    Aux[NAux++] = Cadena[Cont];
  Aux[NAux] = 0;

  Token *TokenRetorno = new Token (Aux, OPERANDO, CONSTANTE);
  delete[]Aux;

  BorrarTokenSiEsVariable (TokCadena);
  for (int i = 0; i < 4; ++i)
    delete Desapila (Pila);
  Apila (Pila, TokenRetorno);
  return;
}

Ejemplo n.º 2

Archivo: variable-o-vector.cpp Proyecto: DX94/freedfd

/* We do touch orig. */
void VariableVector::AlmacenaVectorInternal(char *Cadena)
{
  int Largo = strlen (Cadena);

  int ActualChar = 0;
  for (; ActualChar < Largo && (Cadena[ActualChar] != '('); ++ActualChar);
  char tmp = Cadena[ActualChar];
  Cadena[ActualChar] = 0;
  Token *t = GetPostfijo (Cadena);
  Cadena[ActualChar] = tmp;

  if (Buzon.GetHuboError ())
    return;

  if (!t)
    {
      //Uso ilegal de la coma o cadena vacia; un error pa'l buzon
      Buzon.Error (ILEGAL_COMA_O_CADENA_VACIA);
      return;
    }
  if ((t->GetTipoAlmacenamiento () != VARIABLE) || (t->GetSig ()))
    {
      //Solo se admiten camos variables; un error pa'l buzon
      LiberarListaToken (t);
      Buzon.Error (SOLO_VARIABLES);
      return;
    }

  Identificador = dfd_strdup(t->GetDatoStr());

  delete t;

  if (Cadena[ActualChar] == 0)
    return;

  // Ahora los indices...

  int EsCadena = 0;
  int IniChar = ActualChar + 1, Parent = 1;
  for (++ActualChar; (ActualChar < Largo) && (Parent > 0); ++ActualChar)
    {
      char &Casilla = Cadena[ActualChar];
      if (Casilla == '(' && !EsCadena)
        ++Parent;
      if (Casilla == ')' && !EsCadena)
        --Parent;
      if (Casilla == '\'')
        EsCadena = 1 - EsCadena;

      if (!EsCadena && (((Casilla == ',') && (Parent == 1))
                        || ((Casilla == ')') && (!Parent))))
        {
          char Temp = Casilla;
          Casilla = 0;
          t = GetPostfijo (Cadena + IniChar);
          Casilla = Temp;
          IniChar = ActualChar + 1;
          if (Buzon.GetHuboError ())
            return;
          if (!t)
            {
              //Uso ilegal de la coma o cadena vacia; un error pa'l buzon
              Buzon.Error (ILEGAL_COMA_O_CADENA_VACIA);
              return;
            }
          Lista.Insertar (t);
        }
    }
  if (Parent)
    {
      //No se cerraron todos los parentesis abiertos; un error pa'l buzon
      Buzon.Error (ABIERTO_PARENTESIS_NO_CERRADO);
      return;
    }
  int n = Lista.GetNItems ();
  if (!n)
    {
      //No hay indices entre los parentesis; un error pa'l buzon
      Buzon.Error (NO_INDICES);
      return;
    }
  VectorIndices = new unsigned int[n];
  if (ActualChar >= Largo)
    return;
  t = GetPostfijo (Cadena + ActualChar);
  if (t)
    // Solo se admiten campos variables; un error pa'l buzon
    Buzon.Error (SOLO_VARIABLES);
  return;
}