ss_type2tm_type.mdg.cc

Go to the documentation of this file.

/* This file is automaticaly generated from machine-description */

/*!
        \file 
        \brief ss_type to tm_data type convertor.
        \author jaz
*/
    
#include <lestes/md/types/ss_type2tm_type.g.hh>
#include <lestes/md/types/tm_data_type.g.hh>
#include <lestes/lang/cplus/sem/ss_type_builtin.g.hh>


package(lestes);
package(md);
package(types);

using namespace ::lestes::md::types;
using namespace ::lestes::lang::cplus::sem;

    
ptr<tm_data_type_base> ss_type2tm_type::visit_ss_bool( ptr<ss_bool>) {
        return tm_dt_simple::instance(DT_BOOL);
}
    
ptr<tm_data_type_base> ss_type2tm_type::visit_ss_type_pchar( ptr<ss_type_pchar>) {
        return tm_dt_simple::instance(DT_INT_8P);
}
    
ptr<tm_data_type_base> ss_type2tm_type::visit_ss_type_uchar( ptr<ss_type_uchar>) {
        return tm_dt_simple::instance(DT_INT_8U);
}
    
ptr<tm_data_type_base> ss_type2tm_type::visit_ss_type_schar( ptr<ss_type_schar>) {
        return tm_dt_simple::instance(DT_INT_8S);
}
    
ptr<tm_data_type_base> ss_type2tm_type::visit_ss_type_sshort( ptr<ss_type_sshort>) {
        return tm_dt_simple::instance(DT_INT_16S);
}
    
ptr<tm_data_type_base> ss_type2tm_type::visit_ss_type_ushort( ptr<ss_type_ushort>) {
        return tm_dt_simple::instance(DT_INT_16U);
}
    
ptr<tm_data_type_base> ss_type2tm_type::visit_ss_type_sint( ptr<ss_type_sint>) {
        return tm_dt_simple::instance(DT_INT_32S);
}
    
ptr<tm_data_type_base> ss_type2tm_type::visit_ss_type_slong( ptr<ss_type_slong>) {
        return tm_dt_simple::instance(DT_INT_32S);
}
    
ptr<tm_data_type_base> ss_type2tm_type::visit_ss_type_uint( ptr<ss_type_uint>) {
        return tm_dt_simple::instance(DT_INT_32U);
}
    
ptr<tm_data_type_base> ss_type2tm_type::visit_ss_type_ulong( ptr<ss_type_ulong>) {
        return tm_dt_simple::instance(DT_INT_32U);
}
    

end_package(types);
end_package(md);
end_package(lestes);

---