double型変数管理サブルーチン †
//struct dbl_vars {
// char[100] name;
// int name_l=-1;
// double value=0;
//}
//double型変数一つを扱うモジュール
//dbl_var_youso_name:変数の名前
//dbl_var_youso_l:変数の名前の長さ
//dbl_var_youso_value:変数の値
#module dbl_var_3youso dbl_var_youso_name,dbl_var_youso_l,dbl_var_youso_value
//コンスタラクタ。引数なし
#modinit
dbl_var_youso_name=""
dbl_var_youso_l=-1
dbl_var_youso_value=0.0
return
//varのnameのsetter
#modfunc local set_name str __p_str
dbl_var_youso_name=__p_str
return
//varのnameのstrlenを計算して格納
#modfunc local calc_strlen
dbl_var_youso_l=strlen(dbl_var_youso_name)
return
//varのvalueのsetter
#modfunc local set_value double __p_dbl
dbl_var_youso_value=__p_dbl
return
//varのnameのgetter
#modcfunc local get_name
return dbl_var_youso_name
//varのnameの長さのgetter
#modcfunc local get_length
return dbl_var_youso_l
//varのvalueのgetter
#modcfunc local get_value
return dbl_var_youso_value
#global
//そういえばこのモジュールテストしてないっすw