tcl_metainf_base.cpp

// Generated by ACDK Metacompiler, 
// Copyrighted by Roger Rene Kommer, artefaktur
// 
// Dont edit this file manually
// 
#include <acdk.h>


#include "Config.h"
#include "tcl.h"
#include "TclInterpreter.h"

namespace acdk { 
namespace tcl { 

using namespace acdk::lang;
::acdk::lang::dmi::ClazzSuperInfo _TclInterpreter_super_acdk__lang__Object =
{
  ::acdk::lang::dmi::MiPublic,
  0, //AttributesRes
  acdk::lang::Object::clazzInfo()
};

::acdk::lang::dmi::ClazzSuperInfo _TclInterpreter_super_acdk__lang__dmi__ScriptInterpreter =
{
  ::acdk::lang::dmi::MiPublic | ::acdk::lang::dmi::MiCiInterface | ::acdk::lang::dmi::MiCiThrowable,
  0, //AttributesRes
  acdk::lang::dmi::ScriptInterpreter::clazzInfo()
};

::acdk::lang::dmi::ClazzSuperInfo* _TclInterpreter_interfaces[] =
{
  &_TclInterpreter_super_acdk__lang__Object,
  &_TclInterpreter_super_acdk__lang__dmi__ScriptInterpreter,
  0
};

::acdk::lang::dmi::ClazzInfo* TclInterpreter::clazzInfo()
{
  static ::acdk::lang::dmi::ClazzInfo _clazzInfo =
{
  ::acdk::lang::dmi::MiClazzInfo, // clazz-flags
  0, //AttributesRes
  "TclInterpreter", // name of class
  -1, // hashCode
  "acdk/tcl", // the namespace
  0, // _scopeParent
  0, // _nextSibling
  0, // type
  0, // _firstChild
  _TclInterpreter_interfaces, // pointer to Array of ClazzInfo references
  0, // count of Super / Interfaces
  0, // pointer to Array of fields
  0, // count of Fields
  0, // pointer to Array of Methods
  0, // count of Methods
  0, // create-function for cloning/serializing
  0, // create-function for cloning/serializing arrays
  0, // create-function for cloning/serializing arrays
  0, // Class* thisClass; chaching instance
  0, // jlong serialVersionUID; for serialization
  ::acdk::lang::dmi::StdDispatch::_invoke_dynamic, // dynamic_dispatch
  ::acdk::lang::dmi::StdDispatch::_invoke_static, // static_dispatch
 0, // count off all collectable members in this class
  0, // member type info for arrays or typed container
    TclInterpreter::_castToInterfacePtr, // cast object to interface pointer
0 // next ClazzInfo in chain
};
  static ::acdk::lang::dmi::RegisterClazzInfo _register_clazzInfo(&_clazzInfo);
  return &_clazzInfo;
};

static ::acdk::lang::dmi::RegisterClazzInfo _register_TclInterpreter(TclInterpreter::clazzInfo());

::acdk::lang::RClass
TclInterpreter::GetClass()
{
  return ::acdk::lang::Class::getSingeltonClass(clazzInfo());
}

//virtual
void
TclInterpreter::getCollectableFields(FieldReferences& fields)
{
  ACDK_FQ_SUPER_QUALIFIER(acdk::lang::, acdk::lang::Object)::getCollectableFields(fields);
}


} // namespace acdk
} // namespace tcl