#include "modvar_sample_03_subr.hsp"
#module many_something mem_ID_m_somet, mem_name_m_somet, mem_long_name_m_somet, mem_obj_m_somet
#define MAX_OBJ 10
#modinit
mem_ID_m_somet = -1
sdim mem_name_m_somet ,30
mem_name_m_somet = "nil -5"
mem_long_name_m_somet = ""
repeat MAX_OBJ
newmod mem_obj_m_somet,one_something
loop
return
#modfunc set_mem_ID_many_somet int __p
mem_ID_m_somet = __p
return
#modcfunc get_mem_ID_many_somet
return mem_ID_m_somet
#modfunc set_mem_name_many_somet str __p_str
mem_name_m_somet = __p_str
return
#modcfunc get_mem_name_many_somet
return mem_name_m_somet
#modfunc set_mem_long_name_many_somet str __p_str
mem_long_name_m_somet = __p_str
return
#modcfunc get_mem_long_name_many_somet
return mem_long_name_m_somet
////////////////////////////////////////////////////////////
// one something に委譲
////////////////////////////////////////////////////////////
#modfunc set_mem_ID_somet int __p_index,int __p
set_mem_ID_somet_mod mem_obj_m_somet.__p_index,__p
return
#modcfunc get_mem_ID_somet int __p_index
return get_mem_ID_somet_mod(mem_obj_m_somet.__p_index)
#modfunc set_mem_name_somet int __p_index,str __p_str
set_mem_name_somet_mod mem_obj_m_somet.__p_index,__p_str
return
#modcfunc get_mem_name_somet int __p_index
return get_mem_name_somet_mod(mem_obj_m_somet.__p_index)
#modfunc set_mem_long_name_somet int __p_index, str __p_str
set_mem_long_name_somet_mod mem_obj_m_somet.__p_index,__p_str
return
#modcfunc get_mem_long_name_somet int __p_index
return get_mem_long_name_somet_mod(mem_obj_m_somet.__p_index)
#modfunc set_reginfo_somet int __p_index, int __p1, str __p2_str, str __p3_str
set_mem_ID_somet_mod mem_obj_m_somet.__p_index,__p1
set_mem_name_somet_mod mem_obj_m_somet.__p_index,__p2_str
set_mem_long_name_somet_mod mem_obj_m_somet.__p_index,__p3_str
return
#modfunc get_reginfo_somet int __p_index, var __r1, var __r2_str, var __r3_str
__r1 = get_mem_ID_somet_mod(mem_obj_m_somet.__p_index)
__r2_str = get_mem_name_somet_mod(mem_obj_m_somet.__p_index)
__r3_str = get_mem_long_name_somet_mod(mem_obj_m_somet.__p_index)
return
#modfunc set_mem_value_somet int __p_index, var __p_var
set_mem_value_somet_mod mem_obj_m_somet.__p_index,__p_var
return
#modcfunc get_mem_value_somet int __p_index
return get_mem_value_somet_mod(mem_obj_m_somet.__p_index)
/*
#modfunc set_mem_value_somet_mod var ___p_var
mem_value_somet = ___p_var
return
#modcfunc get_mem_value_somet_mod
return mem_value_somet
*/
#global
#include "modvar_sample_03_TEST.hsp"