/* * tool_execute - ツールの呼び出し */ int tool_execute(const HWND hWnd, TOOL_INFO *ti, const int call_type, DATA_INFO *di, TOOL_DATA_INFO *tdi) { TOOL_DATA_INFO *wk_tdi = tdi; TOOL_EXEC_INFO *tei; int ctype = call_type; int ret = TOOL_ERROR; if (ti == NULL) { return TOOL_ERROR; } // ツール用アイテムの設定 if (tdi == NULL) { wk_tdi = tool_data_copy(di, FALSE); } // フラグの設定 if (wk_tdi != NULL && ((ctype & CALLTYPE_MENU) || (ctype & CALLTYPE_VIEWER))) { if (data_check(&history_data, wk_tdi->di) != NULL) { ctype |= CALLTYPE_HISTORY; } else if (data_check(®ist_data, wk_tdi->di) != NULL) { ctype |= CALLTYPE_REGIST; } } // 実行情報の設定 if ((tei = mem_calloc(sizeof(TOOL_EXEC_INFO))) == NULL) { if (tdi == NULL) { tool_data_free(wk_tdi); } return TOOL_ERROR; } tei->struct_size = sizeof(TOOL_EXEC_INFO); tei->call_type = ctype; tei->cmd_line = ti->cmd_line; tei->lParam = ti->lParam; if (ti->old == 0) { if (ti->func != NULL) { // ツールの呼び出し ret = ti->func(hWnd, tei, wk_tdi); } } else { // 旧ツールの呼び出し ret = tool_call_func_old(hWnd, ti, ctype, wk_tdi); } ti->cmd_line = tei->cmd_line; ti->lParam = tei->lParam; mem_free(&tei); if (ret & TOOL_DATA_MODIFIED) { tool_data_reflect(ctype, wk_tdi); } if (tdi == NULL) { tool_data_free(wk_tdi); } return ret; }
/** * Post event or status data message to mmonit * @param E An event object or NULL for status data * @return If failed, return HANDLER_MMONIT flag or HANDLER_SUCCEEDED flag if succeeded */ int handle_mmonit(Event_T E) { int rv = HANDLER_MMONIT; Socket_T socket = NULL; Mmonit_T C = Run.mmonits; /* The event is sent to mmonit just once - only in the case that the state changed */ if (! C || (E && ! E->state_changed)) return HANDLER_SUCCEEDED; StringBuffer_T sb = StringBuffer_create(256); for (; C; C = C->next) { if (! (socket = socket_create_t(C->url->hostname, C->url->port, SOCKET_TCP, C->ssl, C->timeout))) { LogError("M/Monit: cannot open a connection to %s -- %s\n", C->url->url, STRERROR); goto error; } status_xml(sb, E, E ? LEVEL_SUMMARY : LEVEL_FULL, 2, socket_get_local_host(socket)); if (! data_send(socket, C, StringBuffer_toString(sb))) { LogError("M/Monit: cannot send %s message to %s\n", E ? "event" : "status", C->url->url); goto error; } StringBuffer_clear(sb); socket_shutdown_write(socket); if (! data_check(socket, C)) { LogError("M/Monit: %s message to %s failed\n", E ? "event" : "status", C->url->url); goto error; } rv = HANDLER_SUCCEEDED; // Return success if at least one M/Monit succeeded DEBUG("M/Monit: %s message sent to %s\n", E ? "event" : "status", C->url->url); error: if (socket) socket_free(&socket); } StringBuffer_free(&sb); return rv; }
int main (void) { DECL_FUNC (CC, f, mpc_sqr); test_start (); testsqr (247, -65, 8, 24); testsqr (5, -896, 3, 2); testsqr (-3, -512, 2, 16); testsqr (266013312, 121990769, 27, 0); testsqr (170, 9, 8, 0); testsqr (768, 85, 8, 16); testsqr (145, 1816, 8, 24); testsqr (0, 1816, 8, 24); testsqr (145, 0, 8, 24); data_check (f, "sqr.dat"); tgeneric (f, 2, 1024, 1, 0); reuse_bug (); test_end (); return 0; }
int main (void) { mp_prec_t p; MPFR_TEST_USE_RANDS (); tests_start_mpfr (); special (); particular_cases (); check_pow_ui (); check_pow_si (); check_special_pow_si (); pow_si_long_min (); for (p = 2; p < 100; p++) check_inexact (p); underflows (); overflows (); x_near_one (); test_generic (2, 100, 100); test_generic_ui (2, 100, 100); test_generic_si (2, 100, 100); data_check ("data/pow275", mpfr_pow275, "mpfr_pow275"); tests_end_mpfr (); return 0; }
/* * tool_data_reflect - ツール用アイテムを実体に反映 */ static void tool_data_reflect(const int call_type, TOOL_DATA_INFO *tdi) { DATA_INFO *di; for (; tdi != NULL; tdi = tdi->next) { di = tdi->di; if (((call_type & CALLTYPE_MENU) || (call_type & CALLTYPE_VIEWER)) && (((call_type & CALLTYPE_HISTORY) && data_check(&history_data, di) == NULL) || ((call_type & CALLTYPE_REGIST) && data_check(®ist_data, di) == NULL))) { // リスト中にデータが見つからない continue; } data_menu_free_item(di); if (tdi->child != NULL) { tool_data_reflect(call_type, tdi->child); } } }
int main (int argc, char *argv[]) { mpfr_t x, y; tests_start_mpfr (); mpfr_init (x); mpfr_init (y); /* special values */ mpfr_set_nan (x); mpfr_j1 (y, x, MPFR_RNDN); MPFR_ASSERTN(mpfr_nan_p (y)); mpfr_set_inf (x, 1); /* +Inf */ mpfr_j1 (y, x, MPFR_RNDN); MPFR_ASSERTN(mpfr_cmp_ui (y, 0) == 0 && MPFR_IS_POS (y)); mpfr_set_inf (x, -1); /* -Inf */ mpfr_j1 (y, x, MPFR_RNDN); MPFR_ASSERTN(mpfr_cmp_ui (y, 0) == 0 && MPFR_IS_POS (y)); mpfr_set_ui (x, 0, MPFR_RNDN); /* +0 */ mpfr_j1 (y, x, MPFR_RNDN); MPFR_ASSERTN(mpfr_cmp_ui (y, 0) == 0 && MPFR_IS_POS (y)); /* j1(+0)=+0 */ mpfr_set_ui (x, 0, MPFR_RNDN); mpfr_neg (x, x, MPFR_RNDN); /* -0 */ mpfr_j1 (y, x, MPFR_RNDN); MPFR_ASSERTN(mpfr_cmp_ui (y, 0) == 0 && MPFR_IS_NEG (y)); /* j1(-0)=-0 */ mpfr_set_prec (x, 53); mpfr_set_prec (y, 53); mpfr_set_ui (x, 1, MPFR_RNDN); mpfr_j1 (y, x, MPFR_RNDN); mpfr_set_str_binary (x, "0.0111000010100111001001111011101001011100001100011011"); if (mpfr_cmp (x, y)) { printf ("Error in mpfr_j1 for x=1, rnd=MPFR_RNDN\n"); printf ("Expected "); mpfr_dump (x); printf ("Got "); mpfr_dump (y); exit (1); } mpfr_clear (x); mpfr_clear (y); test_generic (2, 100, 10); data_check ("data/j1", mpfr_j1, "mpfr_j1"); tests_end_mpfr (); return 0; }
int main (int argc, char *argv[]) { tests_start_mpfr (); special_erf (); special_erfc (); large_arg (); test_erfc (); reduced_expo_range (); test_generic_erf (2, 100, 15); test_generic_erfc (2, 100, 15); data_check ("data/erf", mpfr_erf, "mpfr_erf"); data_check ("data/erfc", mpfr_erfc, "mpfr_erfc"); tests_end_mpfr (); return 0; }
int main (void) { DECL_FUNC (CCS, f, mpc_pow_si); test_start (); data_check (f, "pow_si.dat"); compare_mpc_pow (100, 5, 19); test_end (); return 0; }
int main (void) { tests_start_mpfr (); special (); test_generic (2, 100, 2); data_check ("data/lgamma", mpfr_lgamma1, "mpfr_lgamma"); tests_end_mpfr (); return 0; }
int main (int argc, char *argv[]) { tests_start_mpfr (); check_nans (); check_exact (); check_float (); check53("6.9314718055994530941514e-1", "0.0", MPFR_RNDZ, "0.0"); check53("0.0", "6.9314718055994530941514e-1", MPFR_RNDZ, "0.0"); check_sign(); check53("-4.165000000e4", "-0.00004801920768307322868063274915", MPFR_RNDN, "2.0"); check53("2.71331408349172961467e-08", "-6.72658901114033715233e-165", MPFR_RNDZ, "-1.8251348697787782844e-172"); check53("2.71331408349172961467e-08", "-6.72658901114033715233e-165", MPFR_RNDA, "-1.8251348697787786e-172"); check53("0.31869277231188065", "0.88642843322303122", MPFR_RNDZ, "2.8249833483992453642e-1"); check("8.47622108205396074254e-01", "3.24039313247872939883e-01", MPFR_RNDU, 28, 45, 2, "0.375"); check("8.47622108205396074254e-01", "3.24039313247872939883e-01", MPFR_RNDA, 28, 45, 2, "0.375"); check("2.63978122803639081440e-01", "6.8378615379333496093e-1", MPFR_RNDN, 34, 23, 31, "0.180504585267044603"); check("1.0", "0.11835170935876249132", MPFR_RNDU, 6, 41, 36, "0.1183517093595583"); check53("67108865.0", "134217729.0", MPFR_RNDN, "9.007199456067584e15"); check("1.37399642157394197284e-01", "2.28877275604219221350e-01", MPFR_RNDN, 49, 15, 32, "0.0314472340833162888"); check("4.03160720978664954828e-01", "5.854828e-1" /*"5.85483042917246621073e-01"*/, MPFR_RNDZ, 51, 22, 32, "0.2360436821472831"); check("3.90798504668055102229e-14", "9.85394674650308388664e-04", MPFR_RNDN, 46, 22, 12, "0.385027296503914762e-16"); check("4.58687081072827851358e-01", "2.20543551472118792844e-01", MPFR_RNDN, 49, 3, 2, "0.09375"); check_max(); check_min(); check_regression (); test_generic (2, 500, 100); data_check ("data/mulpi", mpfr_mulpi, "mpfr_mulpi"); valgrind20110503 (); tests_end_mpfr (); return 0; }
int main (int argc, char *argv[]) { tests_start_mpfr (); special (); test_generic (2, 100, 30); data_check ("data/log2", mpfr_log2, "mpfr_log2"); tests_end_mpfr (); return 0; }
int main (void) { DECL_FUNC (FC, f, mpc_norm); test_start (); data_check (f, "norm.dat"); tgeneric (f, 2, 1024, 1, 4096); test_end (); return 0; }
int main (void) { DECL_FUNC (FC, f, mpc_abs); test_start (); tgeneric (f, 2, 1024, 1, 0); data_check (f, "abs.dat"); test_end (); return 0; }
int main (void) { DECL_FUNC (CC, f, mpc_sqrt); test_start (); data_check (f, "sqrt.dat"); tgeneric (f, 2, 1024, 7, 256); test_end (); return 0; }
int main (void) { DECL_FUNC (CCF, f, mpc_pow_fr); test_start (); test_reuse (); data_check (f, "pow_fr.dat"); tgeneric (f, 2, 1024, 7, 10); test_end (); return 0; }
int main (void) { DECL_FUNC (CC, f, mpc_asin); test_start (); data_check (f, "asin.dat"); tgeneric (f, 2, 512, 7, 7); test_end (); return 0; }
int main (int argc, char *argv[]) { tests_start_mpfr (); special (); test_generic (2, 100, 100); data_check ("data/sinh", mpfr_sinh, "mpfr_sinh"); tests_end_mpfr (); return 0; }
int main (int argc, char *argv[]) { tests_start_mpfr (); special (); test_generic (2, 100, 2); data_check ("data/digamma", mpfr_digamma, "mpfr_digamma"); tests_end_mpfr (); return 0; }
int main (void) { DECL_FUNC (CC, f, mpc_proj); test_start (); tgeneric (f, 2, 1024, 1, 4096); data_check (f, "proj.dat"); test_end (); return 0; }
int main (void) { DECL_FUNC (CC, f, mpc_log); test_start (); data_check (f, "log.dat"); tgeneric (f, 2, 512, 7, 128); test_end (); return 0; }
int main (void) { DECL_FUNC (CCF, f, mpc_add_fr); test_start (); check_ternary_value (1024, 1); data_check (f, "add_fr.dat"); tgeneric (f, 2, 1024, 7, 10); test_end (); return 0; }
int main (void) { DECL_FUNC (CC, f, mpc_tanh); test_start (); data_check (f, "tanh.dat"); tgeneric (f, 2, 512, 7, 4); test_end (); return 0; }
int main (void) { tests_start_mpfr (); tcc_bug20160606 (); special (); test_generic (MPFR_PREC_MIN, 100, 2); data_check ("data/lgamma", mpfr_lgamma1, "mpfr_lgamma"); tests_end_mpfr (); return 0; }
int main (void) { DECL_FUNC (C_CC, f, mpc_add); f.properties = FUNC_PROP_SYMETRIC; test_start (); check_ternary_value(); data_check (f, "add.dat"); tgeneric (f, 2, 1024, 7, -1); test_end (); return 0; }
int main (int argc, char *argv[]) { tests_start_mpfr (); special (); test_generic (2, 100, 100); data_check ("data/sinh", mpfr_sinh, "mpfr_sinh"); bad_cases (mpfr_sinh, mpfr_asinh, "mpfr_sinh", 256, -256, 255, 4, 128, 800, 100); tests_end_mpfr (); return 0; }
int main (void) { tests_start_mpfr (); special (); bad_case1 (); test_generic (2, 300, 15); data_check ("data/rec_sqrt", mpfr_rec_sqrt, "mpfr_rec_sqrt"); bad_cases (mpfr_rec_sqrt, pm2, "mpfr_rec_sqrt", 8, -256, 255, 4, 128, 800, 50); tests_end_mpfr (); return 0; }
int main (void) { DECL_FUNC (CC, f, mpc_atanh); test_start (); bug20091120 (); data_check (f, "atanh.dat"); tgeneric (f, 2, 512, 5, 128); test_end (); return 0; }
int main (int argc, char *argv[]) { MPFR_TEST_USE_RANDS (); tests_start_mpfr (); special (); special_overflow (); test_generic (2, 100, 2); gamma_integer (); data_check ("data/gamma", mpfr_gamma, "mpfr_gamma"); tests_end_mpfr (); return 0; }
int main (int argc, char *argv[]) { tests_start_mpfr (); special_overflow (); special (); test_generic (2, 100, 100); data_check ("data/cosh", mpfr_cosh, "mpfr_cosh"); bad_cases (mpfr_cosh, mpfr_acosh, "mpfr_cosh", 0, 1, 255, 4, 128, 800, 100); tests_end_mpfr (); return 0; }
int main (int argc, char *argv[]) { tests_start_mpfr (); special (); test_generic (2, 100, 100); data_check ("data/expm1", mpfr_expm1, "mpfr_expm1"); bad_cases (mpfr_expm1, mpfr_log1p, "mpfr_expm1", 256, -256, 255, 4, 128, 800, 40); tests_end_mpfr (); return 0; }