Ticket #741: ticket_11.ClassesInNameBlocks.tol

NameBlock Proj = [[
  Class MiClase {
    Real a;
    Static MiClase New(Real valor) {
      MiClase new = [[
        Real a = valor
      ]]
    };
    Static MiClase New2(Real valor) {
      Proj::MiClase new = [[
        Real a = valor
      ]]
    }
  }
]];

//////////////////////////////////////////////////////////////////////////////
// [1] Error en el constructor New:

/*
Proj::MiClase ej = Proj::MiClase::New(3);
*/
// ERROR: [57] Uso indebido de "=" en MiClase new

// Se soluciona usando New2:
Proj::MiClase ej = Proj::MiClase::New2(3);

// Descripción del error:
// Las clases definidas dentro de un NameBlock hay que usarlas
// mediante su nombre completo...

//////////////////////////////////////////////////////////////////////////////
// [2] Creación en un bucle:

// Encontramos un error
/*
Set For(1, 10, Proj::MiClase (Real i){
  Proj::MiClase::New2(i)
});
*/
// ERROR: [60] Declaración errónea en función de usuario Proj::MiClase (Real i)

// Se soluciona citando la clase como NameBlock:
Set ej2 = For(1, 10, NameBlock (Real i){
  Proj::MiClase::New2(i)
});

//////////////////////////////////////////////////////////////////////////////
// [3] Acceso en un bucle:

// Encontramos un error
/*
Set EvalSet(ej2, Text(Proj::MiClase c) {
  ClassOf(c)
});
*/
// ERROR: [63] Declaración errónea en función de usuario Text (Proj::MiClase c)

Set EvalSet(ej2, Text(NameBlock c) {
  ClassOf(c)
});

// La clase del objeto dice ser "MiClase". ¿Debería decir "Proj::MiClase"?.

//////////////////////////////////////////////////////////////////////////////