#module one_something mem_ID_somet, mem_name_somet, mem_long_name_somet, mem_value_somet
#modinit
mem_ID_somet = -1
sdim mem_name_somet,32
mem_name_somet = "nil -4"
sdim mem_long_name_somet,1
mem_value_somet = 0.0
return
#modfunc set_mem_ID_somet_mod int ___p
mem_ID_somet = ___p
return
#modcfunc get_mem_ID_somet_mod
return mem_ID_somet
#modfunc set_mem_name_somet_mod str ___p_str
mem_name_somet = ___p_str
return
#modcfunc get_mem_name_somet_mod
return mem_name_somet
#modfunc set_mem_long_name_somet_mod str ___p_str
mem_long_name_somet = ___p_str
return
#modcfunc get_mem_long_name_somet_mod
return mem_long_name_somet
#modfunc set_reginfo_somet_mod int ___p1, str ___p2_str, str ___p3_str
mem_ID_somet = ___p1
mem_name_somet = ___p2_str
mem_long_name_somet = ___p3_str
return
#modfunc get_reginfo_somet_mod var ___r1, var ___r2_str, var ___r3_str
___r1 = mem_ID_somet
___r2_str = mem_name_somet
___r3_str = mem_long_name_somet
return
#modfunc set_mem_value_somet_mod var ___p_var
logmes "set one somet value : " + mem_ID_somet + " : " + mem_long_name_somet
mem_value_somet = ___p_var
return
#modcfunc get_mem_value_somet_mod
logmes "get one somet value : " + mem_ID_somet + " : " + mem_long_name_somet
return mem_value_somet
#global
#if 0
newmod fire_tmp_int,one_something
set_mem_ID_somet_mod fire_tmp_int,1
set_mem_name_somet_mod fire_tmp_int,"1st somet"
set_mem_long_name_somet_mod fire_tmp_int,"fire int"
tmp_a=123
set_mem_value_somet_mod fire_tmp_int,tmp_a
newmod fire_tmp_dbl,one_something
set_mem_ID_somet_mod fire_tmp_dbl,2
set_mem_name_somet_mod fire_tmp_dbl,"2nd somet"
set_mem_long_name_somet_mod fire_tmp_dbl,"fire dbl"
tmp_b=456.789
set_mem_value_somet_mod fire_tmp_dbl,tmp_b
newmod fire_tmp_str,one_something
set_mem_ID_somet_mod fire_tmp_str,3
set_mem_name_somet_mod fire_tmp_str,"3rd somet"
set_mem_long_name_somet_mod fire_tmp_str,"fire str"
tmp_c="batake"
set_mem_value_somet_mod fire_tmp_str,tmp_c
logmes "id : " + get_mem_ID_somet_mod(fire_tmp_int)
logmes "name : " + get_mem_name_somet_mod(fire_tmp_int)
logmes "lname: " + get_mem_long_name_somet_mod(fire_tmp_int)
logmes "value: " + get_mem_value_somet_mod(fire_tmp_int)
logmes "id : " + get_mem_ID_somet_mod(fire_tmp_dbl)
logmes "name : " + get_mem_name_somet_mod(fire_tmp_dbl)
logmes "lname: " + get_mem_long_name_somet_mod(fire_tmp_dbl)
logmes "value: " + get_mem_value_somet_mod(fire_tmp_dbl)
logmes "id : " + get_mem_ID_somet_mod(fire_tmp_str)
logmes "name : " + get_mem_name_somet_mod(fire_tmp_str)
logmes "lname: " + get_mem_long_name_somet_mod(fire_tmp_str)
logmes "value: " + get_mem_value_somet_mod(fire_tmp_str)
newmod wind_tmp,one_something
newmod wind_tmp,one_something
newmod wind_tmp,one_something
set_reginfo_somet_mod wind_tmp.0,4,"4th somet","wind int"
set_reginfo_somet_mod wind_tmp.1,5,"5th somet","wind dbl"
set_reginfo_somet_mod wind_tmp.2,6,"6th somet","wind str"
tmp_a = 321
set_mem_value_somet_mod wind_tmp.0,tmp_a
tmp_b = 987.654
set_mem_value_somet_mod wind_tmp.1,tmp_b
tmp_c = "tack"
set_mem_value_somet_mod wind_tmp.2,tmp_c
tmp_r1=""
tmp_r2=""
tmp_r3=""
get_reginfo_somet_mod wind_tmp.0,tmp_r1,tmp_r2,tmp_r3
logmes "ID : " + tmp_r1 + " name : " + tmp_r2 + " lname : " + tmp_r3
logmes "value : " + get_mem_value_somet_mod(wind_tmp.0)
get_reginfo_somet_mod wind_tmp.1,tmp_r1,tmp_r2,tmp_r3
logmes "ID : " + tmp_r1 + " name : " + tmp_r2 + " lname : " + tmp_r3
logmes "value : " + get_mem_value_somet_mod(wind_tmp.1)
get_reginfo_somet_mod wind_tmp.2,tmp_r1,tmp_r2,tmp_r3
logmes "ID : " + tmp_r1 + " name : " + tmp_r2 + " lname : " + tmp_r3
logmes "value : " + get_mem_value_somet_mod(wind_tmp.2)
#endif