#author("2018-07-31T23:56:35+09:00","","") *double型変数管理サブルーチン [#e99c54a3] //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