ruby-dcl 1.6.2

data/GenWrapper/etc/p_init

@@ -0,0 +1,410 @@
+/*
+ * $Id: p_init,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+ */
+
+void
+Init_dcl()
+{
+/* for Num::DCl **
+    mNum = rb_define_module("Num");
+    mDCL = rb_define_module_under(mNum, "DCL");
+*/
+    mDCL = rb_define_module("DCL");
+
+  /*** grph2 ***/
+    /* grpack */
+    rb_define_module_function(mDCL, "gropn", dcl_gropn, 1);
+    rb_define_module_function(mDCL, "grcls", dcl_grcls, 0);
+    rb_define_module_function(mDCL, "grfrm", dcl_grfrm, 0);
+    rb_define_module_function(mDCL, "grswnd", dcl_grswnd, 4);
+    rb_define_module_function(mDCL, "grsvpt", dcl_grsvpt, 4);
+    rb_define_module_function(mDCL, "grstrn", dcl_grstrn, 1);
+    rb_define_module_function(mDCL, "grstrf", dcl_grstrf, 0);
+    rb_define_module_function(mDCL, "grfig", dcl_grfig, 0);
+    rb_define_module_function(mDCL, "grsmpl", dcl_grsmpl, 3);
+    rb_define_module_function(mDCL, "grssim", dcl_grssim, 3);
+    rb_define_module_function(mDCL, "grstxy", dcl_grstxy, 4);
+    /* ucpack */
+    rb_define_module_function(mDCL, "ucxacl", dcl_ucxacl, 3);
+    rb_define_module_function(mDCL, "ucxady", dcl_ucxady, 3);
+    rb_define_module_function(mDCL, "ucxamn", dcl_ucxamn, 3);
+    rb_define_module_function(mDCL, "ucxayr", dcl_ucxayr, 3);
+    rb_define_module_function(mDCL, "ucyacl", dcl_ucyacl, 3);
+    rb_define_module_function(mDCL, "ucyady", dcl_ucyady, 3);
+    rb_define_module_function(mDCL, "ucyamn", dcl_ucyamn, 3);
+    rb_define_module_function(mDCL, "ucyayr", dcl_ucyayr, 3);
+    /* udpack */
+    rb_define_module_function(mDCL, "udcntr", dcl_udcntr, 4);
+    rb_define_module_function(mDCL, "udsfmt", dcl_udsfmt, 1);
+    rb_define_module_function(mDCL, "uddclv", dcl_uddclv, 1);
+    rb_define_module_function(mDCL, "udgcla", dcl_udgcla, 3);
+    rb_define_module_function(mDCL, "udgclb", dcl_udgclb, 5);
+    rb_define_module_function(mDCL, "udsclv", dcl_udsclv, 5);
+    rb_define_module_function(mDCL, "udiset", dcl_udiset, 2);
+    rb_define_module_function(mDCL, "udlset", dcl_udlset, 2);
+    rb_define_module_function(mDCL, "udrset", dcl_udrset, 2);
+    /* uepack */
+    rb_define_module_function(mDCL, "ueitlv", dcl_ueitlv, 0);
+    rb_define_module_function(mDCL, "uestlv", dcl_uestlv, 3);
+    rb_define_module_function(mDCL, "uestln", dcl_uestln, 3);
+    rb_define_module_function(mDCL, "uetone", dcl_uetone, 4);
+    rb_define_module_function(mDCL, "uetonf", dcl_uetonf, 4);
+    /* ugpack */
+    rb_define_module_function(mDCL, "ugvect", dcl_ugvect, 6);
+    rb_define_module_function(mDCL, "uglset", dcl_uglset, 2);
+    rb_define_module_function(mDCL, "ugrset", dcl_ugrset, 2);
+    rb_define_module_function(mDCL, "ugsut", dcl_ugsut, 2);
+    /* uhpack */
+    rb_define_module_function(mDCL, "uhbra", dcl_uhbra, 4);
+    rb_define_module_function(mDCL, "uhbrf", dcl_uhbrf, 4);
+    rb_define_module_function(mDCL, "uhbrl", dcl_uhbrl, 3);
+    rb_define_module_function(mDCL, "uhbxa", dcl_uhbxa, 4);
+    rb_define_module_function(mDCL, "uhbxf", dcl_uhbxf, 4);
+    rb_define_module_function(mDCL, "uhbxl", dcl_uhbxl, 3);
+    rb_define_module_function(mDCL, "uhdif", dcl_uhdif, 4);
+    rb_define_module_function(mDCL, "uherb", dcl_uherb, 4);
+    /* ulpack */
+    rb_define_module_function(mDCL, "uliset", dcl_uliset, 2);
+    rb_define_module_function(mDCL, "ulsxbl", dcl_ulsxbl, 2);
+    rb_define_module_function(mDCL, "ulsybl", dcl_ulsybl, 2);
+    rb_define_module_function(mDCL, "ulxlog", dcl_ulxlog, 3);
+    rb_define_module_function(mDCL, "ulxsfm", dcl_ulxsfm, 1);
+    rb_define_module_function(mDCL, "ulylog", dcl_ulylog, 3);
+    rb_define_module_function(mDCL, "ulysfm", dcl_ulysfm, 1);
+    /* umpack */
+    rb_define_module_function(mDCL, "umpmap", dcl_umpmap, 1);
+    rb_define_module_function(mDCL, "umpgrd", dcl_umpgrd, 0);
+    rb_define_module_function(mDCL, "umpglb", dcl_umpglb, 0);
+    rb_define_module_function(mDCL, "umpfit", dcl_umpfit, 0);
+    rb_define_module_function(mDCL, "umplim", dcl_umplim, 0);
+    rb_define_module_function(mDCL, "umiset", dcl_umiset, 2);
+    rb_define_module_function(mDCL, "umlset", dcl_umlset, 2);
+    rb_define_module_function(mDCL, "umrset", dcl_umrset, 2);
+    /* uspack */
+    rb_define_module_function(mDCL, "ussttl", dcl_ussttl, 4);
+    rb_define_module_function(mDCL, "usgrph", dcl_usgrph, 3);
+    rb_define_module_function(mDCL, "usspnt", dcl_usspnt, 3);
+    rb_define_module_function(mDCL, "uspfit", dcl_uspfit, 0);
+    rb_define_module_function(mDCL, "usdaxs", dcl_usdaxs, 0);
+    rb_define_module_function(mDCL, "uscset", dcl_uscset, 2);
+    rb_define_module_function(mDCL, "uslset", dcl_uslset, 2);
+    rb_define_module_function(mDCL, "usrset", dcl_usrset, 2);
+    rb_define_module_function(mDCL, "usyaxs", dcl_usyaxs, 1);
+    /* uupack */
+    rb_define_module_function(mDCL, "uulin", dcl_uulin, 3);
+    rb_define_module_function(mDCL, "uulinz", dcl_uulinz, 5);
+    rb_define_module_function(mDCL, "uuslni", dcl_uuslni, 1);
+    rb_define_module_function(mDCL, "uuslnt", dcl_uuslnt, 1);
+    rb_define_module_function(mDCL, "uumrk", dcl_uumrk, 3);
+    rb_define_module_function(mDCL, "uumrkz", dcl_uumrkz, 6);
+    rb_define_module_function(mDCL, "uusmki", dcl_uusmki, 1);
+    rb_define_module_function(mDCL, "uusmks", dcl_uusmks, 1);
+    rb_define_module_function(mDCL, "uusmkt", dcl_uusmkt, 1);
+    rb_define_module_function(mDCL, "uusebi", dcl_uusebi, 1);
+    rb_define_module_function(mDCL, "uusebt", dcl_uusebt, 1);
+    rb_define_module_function(mDCL, "uusarp", dcl_uusarp, 2);
+    rb_define_module_function(mDCL, "uusbrs", dcl_uusbrs, 1);
+    rb_define_module_function(mDCL, "uusidv", dcl_uusidv, 2);
+    /* uvpack */
+    rb_define_module_function(mDCL, "uvbra", dcl_uvbra, 4);
+    rb_define_module_function(mDCL, "uvbrf", dcl_uvbrf, 4);
+    rb_define_module_function(mDCL, "uvbrl", dcl_uvbrl, 3);
+    rb_define_module_function(mDCL, "uvbxa", dcl_uvbxa, 4);
+    rb_define_module_function(mDCL, "uvbxf", dcl_uvbxf, 4);
+    rb_define_module_function(mDCL, "uvbxl", dcl_uvbxl, 3);
+    rb_define_module_function(mDCL, "uvdif", dcl_uvdif, 4);
+    rb_define_module_function(mDCL, "uverb", dcl_uverb, 4);
+    /* uwpack */
+    rb_define_module_function(mDCL, "uwsgxb", dcl_uwsgxb, 3);
+    rb_define_module_function(mDCL, "uwsgya", dcl_uwsgya, 2);
+    /* uxpack */
+    rb_define_module_function(mDCL, "uxaxdv", dcl_uxaxdv, 3);
+    rb_define_module_function(mDCL, "uxaxlb", dcl_uxaxlb, 7);
+    rb_define_module_function(mDCL, "uxsaxs", dcl_uxsaxs, 1);
+    rb_define_module_function(mDCL, "uxmttl", dcl_uxmttl, 3);
+    rb_define_module_function(mDCL, "uxsttl", dcl_uxsttl, 3);
+    rb_define_module_function(mDCL, "uxsfmt", dcl_uxsfmt, 1);
+    /* uypack */
+    rb_define_module_function(mDCL, "uyaxdv", dcl_uyaxdv, 3);
+    rb_define_module_function(mDCL, "uyaxlb", dcl_uyaxlb, 7);
+    rb_define_module_function(mDCL, "uysaxs", dcl_uysaxs, 1);
+    rb_define_module_function(mDCL, "uysttl", dcl_uysttl, 3);
+    rb_define_module_function(mDCL, "uysfmt", dcl_uysfmt, 1);
+    /* uzpack */
+    rb_define_module_function(mDCL, "uzfact", dcl_uzfact, 1);
+    rb_define_module_function(mDCL, "uzinit", dcl_uzinit, 0);
+    rb_define_module_function(mDCL, "uziset", dcl_uziset, 2);
+    rb_define_module_function(mDCL, "uzlset", dcl_uzlset, 2);
+    rb_define_module_function(mDCL, "uzrset", dcl_uzrset, 2);
+  /*** grph1 ***/
+    /* csgi   */
+    rb_define_module_function(mDCL, "csgi", dcl_csgi, 1);
+    /* scpack */
+    rb_define_module_function(mDCL, "scsvpt", dcl_scsvpt, 6);
+    rb_define_module_function(mDCL, "scswnd", dcl_scswnd, 6);
+    rb_define_module_function(mDCL, "scstrn", dcl_scstrn, 1);
+    rb_define_module_function(mDCL, "scstrf", dcl_scstrf, 0);
+    rb_define_module_function(mDCL, "scseye", dcl_scseye, 3);
+    rb_define_module_function(mDCL, "scslog", dcl_scslog, 3);
+    rb_define_module_function(mDCL, "scsorg", dcl_scsorg, 4);
+    rb_define_module_function(mDCL, "scsobj", dcl_scsobj, 3);
+    rb_define_module_function(mDCL, "scsprj", dcl_scsprj, 0);
+    rb_define_module_function(mDCL, "scplu", dcl_scplu, 4);
+    rb_define_module_function(mDCL, "scspli", dcl_scspli, 1);
+    rb_define_module_function(mDCL, "scspln", dcl_scspln, 3);
+    rb_define_module_function(mDCL, "scpmu", dcl_scpmu, 4);
+    rb_define_module_function(mDCL, "scspmi", dcl_scspmi, 1);
+    rb_define_module_function(mDCL, "scspms", dcl_scspms, 1);
+    rb_define_module_function(mDCL, "scspmt", dcl_scspmt, 1);
+    rb_define_module_function(mDCL, "sctnu", dcl_sctnu, 3);
+    rb_define_module_function(mDCL, "scstnp", dcl_scstnp, 2);
+    /* sgpack */
+    rb_define_module_function(mDCL, "sgopn", dcl_sgopn, 1);
+    rb_define_module_function(mDCL, "sgcls", dcl_sgcls, 0);
+    rb_define_module_function(mDCL, "sgfrm", dcl_sgfrm, 0);
+    rb_define_module_function(mDCL, "sgpwsn", dcl_sgpwsn, 0);
+    rb_define_module_function(mDCL, "sgiset", dcl_sgiset, 2);
+    rb_define_module_function(mDCL, "sglset", dcl_sglset, 2);
+    rb_define_module_function(mDCL, "sgrset", dcl_sgrset, 2);
+    rb_define_module_function(mDCL, "sgqwnd", dcl_sgqwnd, 0);
+    rb_define_module_function(mDCL, "sgswnd", dcl_sgswnd, 4);
+    rb_define_module_function(mDCL, "sgsvpt", dcl_sgsvpt, 4);
+    rb_define_module_function(mDCL, "sgstrn", dcl_sgstrn, 1);
+    rb_define_module_function(mDCL, "sgstrf", dcl_sgstrf, 0);
+    rb_define_module_function(mDCL, "sglau", dcl_sglau, 4);
+    rb_define_module_function(mDCL, "sglav", dcl_sglav, 4);
+    rb_define_module_function(mDCL, "sglazu", dcl_sglazu, 6);
+    rb_define_module_function(mDCL, "sgslai", dcl_sgslai, 1);
+    rb_define_module_function(mDCL, "sgslat", dcl_sgslat, 1);
+    rb_define_module_function(mDCL, "sglnu", dcl_sglnu, 4);
+    rb_define_module_function(mDCL, "sglnv", dcl_sglnv, 4);
+    rb_define_module_function(mDCL, "sglnzu", dcl_sglnzu, 5);
+    rb_define_module_function(mDCL, "sglnzv", dcl_sglnzv, 5);
+    rb_define_module_function(mDCL, "sgslni", dcl_sgslni, 1);
+    rb_define_module_function(mDCL, "sgplu", dcl_sgplu, 3);  
+    rb_define_module_function(mDCL, "sgplv", dcl_sgplv, 3);  
+    rb_define_module_function(mDCL, "sgplzu", dcl_sgplzu, 5);  
+    rb_define_module_function(mDCL, "sgplzv", dcl_sgplzv, 5);  
+    rb_define_module_function(mDCL, "sgnplc", dcl_sgnplc, 0);  
+    rb_define_module_function(mDCL, "sgsplc", dcl_sgsplc, 1);  
+    rb_define_module_function(mDCL, "sgspli", dcl_sgspli, 1);  
+    rb_define_module_function(mDCL, "sgspls", dcl_sgspls, 1);  
+    rb_define_module_function(mDCL, "sgsplt", dcl_sgsplt, 1);  
+    rb_define_module_function(mDCL, "sgpmu", dcl_sgpmu, 3);
+    rb_define_module_function(mDCL, "sgpmv", dcl_sgpmv, 3);
+    rb_define_module_function(mDCL, "sgpmzu", dcl_sgpmzu, 6);
+    rb_define_module_function(mDCL, "sgpmzv", dcl_sgpmzv, 6);
+    rb_define_module_function(mDCL, "sgspmi", dcl_sgspmi, 1);
+    rb_define_module_function(mDCL, "sgspmt", dcl_sgspmt, 1);
+    rb_define_module_function(mDCL, "sgspms", dcl_sgspms, 1);
+    rb_define_module_function(mDCL, "sgtnu", dcl_sgtnu, 3); 
+    rb_define_module_function(mDCL, "sgtnv", dcl_sgtnv, 3); 
+    rb_define_module_function(mDCL, "sgtnzu", dcl_sgtnzu, 4); 
+    rb_define_module_function(mDCL, "sgstnp", dcl_sgstnp, 1); 
+    rb_define_module_function(mDCL, "sgtxr", dcl_sgtxr, 3);
+    rb_define_module_function(mDCL, "sgtxu", dcl_sgtxu, 3);
+    rb_define_module_function(mDCL, "sgtxv", dcl_sgtxv, 3);
+    rb_define_module_function(mDCL, "sgtxzr", dcl_sgtxzr, 7);
+    rb_define_module_function(mDCL, "sgtxzu", dcl_sgtxzu, 7);
+    rb_define_module_function(mDCL, "sgtxzv", dcl_sgtxzv, 7);
+    rb_define_module_function(mDCL, "sgstxc", dcl_sgstxc, 1);
+    rb_define_module_function(mDCL, "sgstxi", dcl_sgstxi, 1);
+    rb_define_module_function(mDCL, "sgstxr", dcl_sgstxr, 1);
+    rb_define_module_function(mDCL, "sgstxs", dcl_sgstxs, 1);
+    rb_define_module_function(mDCL, "sgstxy", dcl_sgstxy, 4);
+    rb_define_module_function(mDCL, "sgssim", dcl_sgssim, 3);
+    rb_define_module_function(mDCL, "sgsmpl", dcl_sgsmpl, 3);
+    rb_define_module_function(mDCL, "sgtrnl", dcl_sgtrnl, 1);
+    rb_define_module_function(mDCL, "isgtrc", dcl_isgtrc, 1);
+    /* slpack */
+    rb_define_module_function(mDCL, "sldiv", dcl_sldiv, 3);
+    rb_define_module_function(mDCL, "slmgn", dcl_slmgn, 4);
+    rb_define_module_function(mDCL, "slform", dcl_slform, 2);
+    rb_define_module_function(mDCL, "slrat", dcl_slrat, 2);
+    rb_define_module_function(mDCL, "slsttl", dcl_slsttl, 6);
+    rb_define_module_function(mDCL, "slpvpr", dcl_slpvpr, 1);
+    rb_define_module_function(mDCL, "slpwwr", dcl_slpwwr, 1);
+    /* stpack */
+    rb_define_module_function(mDCL, "stftrf", dcl_stftrf, 2);
+    /* swpack */
+    rb_define_module_function(mDCL, "swistx", dcl_swistx, 2);
+    rb_define_module_function(mDCL, "swlstx", dcl_swlstx, 2);
+    /* szpack */
+/* kuro for test **
+    rb_define_module_function(mDCL, "szl3op", dcl_szl3op, 1);
+    rb_define_module_function(mDCL, "szl3cl", dcl_szl3cl, 0);
+    rb_define_module_function(mDCL, "szl3zu", dcl_szl3zu, 4);
+    rb_define_module_function(mDCL, "szl3zv", dcl_szl3zv, 4);
+    rb_define_module_function(mDCL, "szt3op", dcl_szt3op, 2);
+    rb_define_module_function(mDCL, "szt3cl", dcl_szt3cl, 0);
+    rb_define_module_function(mDCL, "szt3zu", dcl_szt3zu, 3);
+    rb_define_module_function(mDCL, "szt3zv", dcl_szt3zv, 3);
+    rb_define_module_function(mDCL, "szopl3", dcl_szopl3, 0);
+    rb_define_module_function(mDCL, "szcll3", dcl_szcll3, 0);
+    rb_define_module_function(mDCL, "szmvl3", dcl_szmvl3, 3);
+    rb_define_module_function(mDCL, "szpll3", dcl_szpll3, 3);
+** kuro for test */
+  /*** math2 ***/
+    /* fftlib */
+    rb_define_module_function(mDCL, "ezffti", dcl_ezffti, 1);
+    rb_define_module_function(mDCL, "ezfftf", dcl_ezfftf, 3);
+    rb_define_module_function(mDCL, "ezfftb", dcl_ezfftb, 5);
+    rb_define_module_function(mDCL, "rffti", dcl_rffti, 1);
+    rb_define_module_function(mDCL, "rfftf", dcl_rfftf, 3);
+    rb_define_module_function(mDCL, "rfftb", dcl_rfftb, 3);
+    /* intrlib */
+    rb_define_module_function(mDCL, "vrintr", dcl_vrintr, 3);
+    /* rnmlib */
+    rb_define_module_function(mDCL, "vrrnm", dcl_vrrnm, 5);
+    /* vstlib */
+    rb_define_module_function(mDCL, "vs1int", dcl_vs1int, 1);
+    rb_define_module_function(mDCL, "vs1din", dcl_vs1din, 4);
+    rb_define_module_function(mDCL, "vs1out", dcl_vs1out, 3);
+    rb_define_module_function(mDCL, "vs2int", dcl_vs2int, 2);
+    rb_define_module_function(mDCL, "vs2din", dcl_vs2din, 6);
+    rb_define_module_function(mDCL, "vs2out", dcl_vs2out, 4);
+  /*** math1 ***/
+    /* blklib */
+    rb_define_module_function(mDCL, "iblkgt", dcl_iblkgt, 3);
+    rb_define_module_function(mDCL, "iblkge", dcl_iblkge, 3);
+    rb_define_module_function(mDCL, "iblklt", dcl_iblklt, 3);
+    rb_define_module_function(mDCL, "iblkle", dcl_iblkle, 3);
+    /* chrlib */
+    rb_define_module_function(mDCL, "cladj", dcl_cladj, 1);
+    rb_define_module_function(mDCL, "cradj", dcl_cradj, 1);
+    rb_define_module_function(mDCL, "crvrs", dcl_crvrs, 1);
+    rb_define_module_function(mDCL, "lenb", dcl_lenb, 1);
+    rb_define_module_function(mDCL, "lenc", dcl_lenc, 1);
+    rb_define_module_function(mDCL, "leny", dcl_leny, 1);
+    rb_define_module_function(mDCL, "lenz", dcl_lenz, 1);
+    /* fnclib */
+    rb_define_module_function(mDCL, "igus", dcl_igus, 1);
+    rb_define_module_function(mDCL, "imod", dcl_imod, 2);
+    rb_define_module_function(mDCL, "rd2r", dcl_rd2r, 1);
+    rb_define_module_function(mDCL, "rr2d", dcl_rr2d, 1);
+    rb_define_module_function(mDCL, "rexp", dcl_rexp, 3);
+    rb_define_module_function(mDCL, "rfpi", dcl_rfpi, 0);
+    rb_define_module_function(mDCL, "rmod", dcl_rmod, 2);
+    /* gnmlib */
+    rb_define_module_function(mDCL, "gnlt", dcl_gnlt, 1);
+    rb_define_module_function(mDCL, "gnle", dcl_gnle, 1);
+    rb_define_module_function(mDCL, "gngt", dcl_gngt, 1);
+    rb_define_module_function(mDCL, "gnge", dcl_gnge, 1);
+    rb_define_module_function(mDCL, "rgnlt", dcl_rgnlt, 1);
+    rb_define_module_function(mDCL, "rgnle", dcl_rgnle, 1);
+    rb_define_module_function(mDCL, "rgngt", dcl_rgngt, 1);
+    rb_define_module_function(mDCL, "rgnge", dcl_rgnge, 1);
+    /* ifalib */
+    rb_define_module_function(mDCL, "imax", dcl_imax, 3);
+    rb_define_module_function(mDCL, "imin", dcl_imin, 3);
+    rb_define_module_function(mDCL, "isum", dcl_isum, 3);
+    /* indxlib */
+    rb_define_module_function(mDCL, "indxif", dcl_indxif, 4);
+    rb_define_module_function(mDCL, "indxil", dcl_indxil, 4);
+    rb_define_module_function(mDCL, "nindxi", dcl_nindxi, 4);
+    rb_define_module_function(mDCL, "indxrf", dcl_indxrf, 4);
+    rb_define_module_function(mDCL, "indxrl", dcl_indxrl, 4);
+    rb_define_module_function(mDCL, "nindxr", dcl_nindxr, 4);
+    rb_define_module_function(mDCL, "indxcf", dcl_indxcf, 4);
+    rb_define_module_function(mDCL, "indxcl", dcl_indxcl, 4);
+    rb_define_module_function(mDCL, "nindxc", dcl_nindxc, 4);
+    rb_define_module_function(mDCL, "indxmf", dcl_indxmf, 4);
+    rb_define_module_function(mDCL, "indxml", dcl_indxml, 4);
+    rb_define_module_function(mDCL, "nindxm", dcl_nindxm, 4);
+    /* intlib */
+    rb_define_module_function(mDCL, "irlt", dcl_irlt, 1);
+    rb_define_module_function(mDCL, "irle", dcl_irle, 1);
+    rb_define_module_function(mDCL, "irgt", dcl_irgt, 1);
+    rb_define_module_function(mDCL, "irge", dcl_irge, 1);
+    /* lrllib */
+    rb_define_module_function(mDCL, "lreq", dcl_lreq, 2);
+    rb_define_module_function(mDCL, "lrne", dcl_lrne, 2);
+    rb_define_module_function(mDCL, "lrlt", dcl_lrlt, 2);
+    rb_define_module_function(mDCL, "lrle", dcl_lrle, 2);
+    rb_define_module_function(mDCL, "lrgt", dcl_lrgt, 2);
+    rb_define_module_function(mDCL, "lrge", dcl_lrge, 2);
+    rb_define_module_function(mDCL, "lreqa", dcl_lreqa, 3);
+    rb_define_module_function(mDCL, "lrnea", dcl_lrnea, 3);
+    rb_define_module_function(mDCL, "lrlta", dcl_lrlta, 3);
+    rb_define_module_function(mDCL, "lrlea", dcl_lrlea, 3);
+    rb_define_module_function(mDCL, "lrgta", dcl_lrgta, 3);
+    rb_define_module_function(mDCL, "lrgea", dcl_lrgea, 3);
+    /* rfalib */
+    rb_define_module_function(mDCL, "rmax", dcl_rmax, 3);
+    rb_define_module_function(mDCL, "rmin", dcl_rmin, 3);
+    rb_define_module_function(mDCL, "rsum", dcl_rsum, 3);
+    rb_define_module_function(mDCL, "rave", dcl_rave, 3);
+    rb_define_module_function(mDCL, "rvar", dcl_rvar, 3);
+    rb_define_module_function(mDCL, "rstd", dcl_rstd, 3);
+    rb_define_module_function(mDCL, "rrms", dcl_rrms, 3);
+    rb_define_module_function(mDCL, "ramp", dcl_ramp, 3);
+    rb_define_module_function(mDCL, "rmlt0", dcl_rmlt0, 4);
+    /* rfblib */
+    rb_define_module_function(mDCL, "rprd", dcl_rprd, 5);
+    rb_define_module_function(mDCL, "rcov", dcl_rcov, 5);
+    rb_define_module_function(mDCL, "rcor", dcl_rcor, 5);
+    /* sublib */
+    rb_define_module_function(mDCL, "vignn", dcl_vignn, 2);
+    rb_define_module_function(mDCL, "vrgnn", dcl_vrgnn, 2);
+    /* syslib */
+    rb_define_module_function(mDCL, "gliget", dcl_gliget, 1);
+    rb_define_module_function(mDCL, "gliset", dcl_gliset, 2);
+    rb_define_module_function(mDCL, "glistx", dcl_glistx, 2);
+    rb_define_module_function(mDCL, "gllget", dcl_gllget, 1);
+    rb_define_module_function(mDCL, "gllset", dcl_gllset, 2);
+    rb_define_module_function(mDCL, "gllstx", dcl_gllstx, 2);
+    rb_define_module_function(mDCL, "glrget", dcl_glrget, 1);
+    rb_define_module_function(mDCL, "glrset", dcl_glrset, 2);
+    rb_define_module_function(mDCL, "glrstx", dcl_glrstx, 2);
+    rb_define_module_function(mDCL, "msgdmp", dcl_msgdmp, 3);
+    /* vialib */
+    rb_define_module_function(mDCL, "viset", dcl_viset, 4);
+    rb_define_module_function(mDCL, "viinc", dcl_viinc, 5);
+    rb_define_module_function(mDCL, "vifct", dcl_vifct, 5);
+    rb_define_module_function(mDCL, "vicon", dcl_vicon, 5);
+    rb_define_module_function(mDCL, "iadd", dcl_iadd, 4);
+    rb_define_module_function(mDCL, "imlt", dcl_imlt, 4);
+    rb_define_module_function(mDCL, "iset", dcl_iset, 4);
+    /* viblib */
+    rb_define_module_function(mDCL, "viadd", dcl_viadd, 6);
+    rb_define_module_function(mDCL, "visub", dcl_visub, 6);
+    rb_define_module_function(mDCL, "vimlt", dcl_vimlt, 6);
+    rb_define_module_function(mDCL, "vidiv", dcl_vidiv, 6);
+    /* vralib */
+    rb_define_module_function(mDCL, "vrset", dcl_vrset, 4);
+    rb_define_module_function(mDCL, "vrinc", dcl_vrinc, 5);
+    rb_define_module_function(mDCL, "vrfct", dcl_vrfct, 5);
+    rb_define_module_function(mDCL, "vrcon", dcl_vrcon, 5);
+    rb_define_module_function(mDCL, "radd", dcl_radd, 4);
+    rb_define_module_function(mDCL, "rmlt", dcl_rmlt, 4);
+    rb_define_module_function(mDCL, "rset", dcl_rset, 4);
+    /* vrblib */
+    rb_define_module_function(mDCL, "vradd", dcl_vradd, 6);
+    rb_define_module_function(mDCL, "vrsub", dcl_vrsub, 6);
+    rb_define_module_function(mDCL, "vrmlt", dcl_vrmlt, 6);
+    rb_define_module_function(mDCL, "vrdiv", dcl_vrdiv, 6);
+  /*** misc1 ***/
+    /* datelib */
+    rb_define_module_function(mDCL, "date12", dcl_date12, 1);
+    rb_define_module_function(mDCL, "date21", dcl_date21, 2);
+    rb_define_module_function(mDCL, "date13", dcl_date13, 1);
+    rb_define_module_function(mDCL, "date31", dcl_date31, 3);
+    rb_define_module_function(mDCL, "date32", dcl_date32, 3);
+    rb_define_module_function(mDCL, "datef1", dcl_datef1, 2);
+    rb_define_module_function(mDCL, "dateg1", dcl_dateg1, 2);
+    rb_define_module_function(mDCL, "datef2", dcl_datef2, 3);
+    rb_define_module_function(mDCL, "dateg2", dcl_dateg2, 4);
+    rb_define_module_function(mDCL, "datef3", dcl_datef3, 4);
+    rb_define_module_function(mDCL, "dateg3", dcl_dateg3, 6);
+    rb_define_module_function(mDCL, "dateq1", dcl_dateq1, 0);
+    rb_define_module_function(mDCL, "datec1", dcl_datec1, 2);
+    rb_define_module_function(mDCL, "dateq2", dcl_dateq2, 0);
+    rb_define_module_function(mDCL, "datec2", dcl_datec2, 3);
+    rb_define_module_function(mDCL, "datec3", dcl_datec3, 4);
+    rb_define_module_function(mDCL, "cweek", dcl_cweek, 1);
+    rb_define_module_function(mDCL, "iweek1", dcl_iweek1, 1);
+    rb_define_module_function(mDCL, "iweek2", dcl_iweek2, 2);
+    rb_define_module_function(mDCL, "iweek3", dcl_iweek3, 3);
+
+}
+

data/GenWrapper/pparse.rb

@@ -0,0 +1,137 @@
+# pparse.rb
+#   $Id: pparse.rb,v 1.1.1.1 2011-02-23 07:21:28 horinout Exp $
+
+
+require "./prototype"
+
+class PrototypeParser
+  def parse(&block)
+    @cpp.each_line do |line|
+      case line
+      when /^\s*$/
+	next
+      when /^#/
+        macro(line, &block)   # retain as macros
+      when /(\S+)\s+FUNCTION\s+(\w+)\s*\(/
+	func($1, $2)
+      when /SUBROUTINE\s+(\w+)\s*\(/
+	subr($1)
+      when /^\s*\)\s*$/
+	close(&block)
+      else
+	line.gsub!(/(^\s+)|(\s+$)/, "")
+	line.chomp!
+	var(line)
+      end
+    end
+  end
+
+  private
+
+  def delete_comment(src) # [ruby-list:32030] [ruby-list:32049]
+    src.gsub(%r@ ([\'\"])(\\.|.)*?\1
+               | (/\*.*?\*/)      
+               | (//)[^\n]*$      
+               @mx) {
+      if $3
+	s = $3.delete("^\n")
+	s = ' ' if s.empty?
+	s
+      elsif $4
+	''
+      else
+	$&
+      end
+    }
+  end
+
+  def initialize(file)
+    input = if file.is_a? IO
+	      file
+	    else
+	      File::open(file)
+	    end
+
+    @cpp = delete_comment(input.read)
+  end
+
+  def func(type, name)
+    @type, @name = type, name.downcase
+    @var = []
+    @rtn = []
+
+    if (/(\d+)|\*\((.*)\)/ =~ type)
+      charlen = ($1||$2).downcase   # may be charcter length
+      @type = type.scan(/\w+/)[0]
+    else
+      charlen = nil
+    end
+    @rtn.push Variable("rtn_val", @type, "o", false, charlen)
+
+    p [:func, type, name] if $DEBUG
+  end
+
+  def subr(name)
+    @type, @name = nil, name.downcase
+    @var = []
+    @rtn = []
+
+    p [:subr, name] if $DEBUG
+  end
+
+  def var(decl)
+    name, *tmp = decl.split.reverse
+    tmp.reverse!
+    attr = (tmp[-1] =~ /^[a-z]+$/ ? tmp.pop : "i")
+    ary =  (tmp[-1] =~ /^\((.*)\)/ ? (tmp.pop; $1.downcase) : false)
+    vtype = tmp.pop
+    if (/(\d+)|\*\((.*)\)/ =~ vtype)
+      charlen = ($1||$2).downcase   # may be charcter length
+      vtype = vtype.scan(/\w+/)[0]
+    else
+      charlen = nil
+    end
+    attr0 = attr.scan(/./).sort.uniq.join
+    r = (attr =~ /i/ ? (attr.delete!("i"); true) : false)
+    w = (attr =~ /o/ ? (attr.delete!("o"); true) : false)
+    t = (attr =~ /t/ ? (attr.delete!("t"); true) : false)
+    raise "unexpected decl `#{decl.inspect}'" unless tmp.empty?
+    raise "unexpected read/write attr `#{decl.inspect}'" unless attr.empty?
+    v = Variable(name.downcase, vtype, attr0, ary, charlen)
+    @var.push v
+    @rtn.push v if (!@type && w)
+
+    p decl if $DEBUG
+    p v if $DEBUG
+    
+  end
+
+  def close
+    val = Prototype.new(@type, @name, @var, @rtn)
+    p val if $DEBUG
+    @var = nil
+    @rtn = nil
+    # puts if $DEBUG
+    if block_given?
+      yield(val)
+    else
+      val
+    end
+  end
+
+  def macro(line)
+    if block_given?
+      yield(line)
+    else
+      line
+    end
+  end
+
+  def method_missing(m, *a, &b)
+    p [m, a.join(" ")]
+  end
+
+#  Var = Struct.new("Var", 
+#		   "vtype", "ary?", "attr", "r?", "w?", "t?", "name",
+#		   "ignore?").freeze
+end