ss_type2lstring_base.g.cc

Go to the documentation of this file.

// This file is automatically generated, do not edit.

/*!
        \file
        \brief Visitors returning lstring for ss_type.
        \author jaz
*/

#include <lestes/lang/cplus/sem/ss_type.g.hh>
#include <lestes/lang/cplus/sem/ss_type_builtin.g.hh>

#include <lestes/std/list.hh>
#include <lestes/std/pair.hh>
#include <lestes/std/reflect.hh>

#include <lestes/lang/cplus/sem/ss_type2lstring_base.g.hh>

package(lestes);
package(lang);
package(cplus);
package(sem);


// ------------- Class ss_type2mangled_id follows. -------------

/*!
   \returns The value of ss_type2mangled_id::singleton_instance.
   \author lsg
 */
ptr< ss_type2mangled_id > ss_type2mangled_id::singleton_instance_get()
{
        return singleton_instance;
}

/*!
   \param[in] x The new value to set ss_type2mangled_id::singleton_instance to.
   \author lsg
 */
void ss_type2mangled_id::singleton_instance_set(const ptr< ss_type2mangled_id > & x)
{
        ss_type2mangled_id::singleton_instance = x;
}

/*!
   \returns The value of ss_type2mangled_id::result.
   \author lsg
 */
lstring ss_type2mangled_id::result_get() const
{
        return result;
}

/*!
   \param[in] x The new value to set ss_type2mangled_id::result to.
   \author lsg
 */
void ss_type2mangled_id::result_set(lstring x)
{
        ss_type2mangled_id::result = x;
}

/*!
   This factory method for class ss_type2mangled_id takes values of all fields as arguments.
   \author lsg
 */
ptr< ss_type2mangled_id > ss_type2mangled_id::create(lstring a__ss_type2mangled_id__result)
{
        return ptr< ss_type2mangled_id > ( new ss_type2mangled_id(a__ss_type2mangled_id__result) );
}

/*!
   This factory method for class ss_type2mangled_id uses initializers.
   \author lsg
 */
ptr< ss_type2mangled_id > ss_type2mangled_id::create()
{
        return ptr< ss_type2mangled_id > ( new ss_type2mangled_id("") );
}

/*!
   Generated constructor for class ss_type2mangled_id.
   \author lsg
 */
ss_type2mangled_id::ss_type2mangled_id (lstring a__ss_type2mangled_id__result)
        : ss_type_visitor(), result(a__ss_type2mangled_id__result)
{}

ptr< object::reflection_list > ss_type2mangled_id::reflection_get() const
{
        if (!reflection) {
                typedef class_reflection::field_metadata md;
                typedef class_reflection::field_metadata_list mdlist;
                ptr<mdlist> mdl = mdlist::create();
                mdl->push_back( md::create( "singleton_instance", "ss_type2mangled_id" ) );
                mdl->push_back( md::create( "result", "lstring" ) );
                reflection = reflection_list::create( ss_type_visitor::reflection_get() );
                reflection->push_back( class_reflection::create( "ss_type2mangled_id", mdl ) );
        }
        return reflection;
}

ptr< object::field_list_list > ss_type2mangled_id::field_values_get() const
{
        ptr < field_list_list > result = ss_type_visitor::field_values_get();
        result->push_back( value_list::create() );
        result->back()->push_back( this->singleton_instance );
        result->push_back( value_list::create() );
        result->back()->push_back( objectize< lstring > ::create( this->result ) );
        return result;
}

lstring ss_type2mangled_id::process( const ptr< ::lestes::lang::cplus::sem::ss_type > & o )
{
        lassert2( o, "Cannot visit NULL object." );
        o->accept_ss_type_visitor( ptr< ss_type_visitor >(this) );
        return result_get();
}


/*!
   Marking routine is used for garbage collection.
   \author lsg
 */
void ss_type2mangled_id::gc_mark()
{
        ss_type_visitor::gc_mark();
}

// End of class ss_type2mangled_id.


// static data members follow 
ptr< ss_type2mangled_id > ss_type2mangled_id::singleton_instance = singleton_instance;
ptr<object::reflection_list> ss_type2mangled_id::reflection = reflection;

end_package(sem);
end_package(cplus);
end_package(lang);
end_package(lestes);

---