//Definicoes das annotation, deve estar num fonte
#include "msobject.ch"
namespace exemplo
@annotation AnnotationExemplo
nickname as char
@end
@AnnotationExemplo(nickname = "MeuObject")
class Obj1
public method new()
EndClass
method new() class Obj1
return self
Main Function Exemplo()
retVar := Reflection.getClassesByAnnotation("AnnotationExemplo", "exemplo.*") //procura por todas as classes do namespace exemplo
conout(retVar1:toString())
Return cJson |