caddr_t bif_dt_set_tz (caddr_t * qst, caddr_t * err_ret, state_slot_t ** args) { caddr_t arg = bif_date_arg (qst, args, 0, "dt_set_tz"); long tz = (long) bif_long_arg (qst, args, 1, "dt_set_tz"); caddr_t res = box_copy (arg); DT_SET_TZ (res, tz); return res; }
char * media_mlex_macro_resolver (char *call) { int envlen = BOX_ELEMENTS ((caddr_t)mediawiki_env); int envidx; int call_len; static caddr_t last_macro_found = NULL; char name_buf[140]; dk_free_box (last_macro_found); last_macro_found = NULL; call_len = strlen (call); mlex_dbg_printf (("{'%s' => ", call)); if ((call_len >= 66) || (call_len < 3)) goto failed; /* see below */ memcpy (name_buf, call + 1, call_len - 2); name_buf[call_len - 2] = '\0'; for (envidx = 0; envidx < envlen; envidx += 2) { if (strcmp (mediawiki_env[envidx], name_buf)) continue; last_macro_found = box_copy (mediawiki_env[envidx+1]); mlex_dbg_printf (("'%s' via env}", last_macro_found)); return last_macro_found; } sprintf (name_buf, "WikiV (U=%.64s) %s", mediawiki_WIKINAME, call); IN_TXN; last_macro_found = registry_get (name_buf); if (NULL != last_macro_found) { mlex_dbg_printf (("'%s' via registry U=%s}", last_macro_found, mediawiki_WIKINAME)); LEAVE_TXN; return last_macro_found; } sprintf (name_buf, "WikiV (C=%.64s) %s", mediawiki_CLUSTER, call); last_macro_found = registry_get (name_buf); if (NULL != last_macro_found) { mlex_dbg_printf (("'%s' via registry C=%s}", last_macro_found, mediawiki_CLUSTER)); LEAVE_TXN; return last_macro_found; } sprintf (name_buf, "WikiV %s", call); last_macro_found = registry_get (name_buf); if (NULL != last_macro_found) { mlex_dbg_printf (("'%s' via registry}", last_macro_found)); LEAVE_TXN; return last_macro_found; } failed: mlex_dbg_printf (("failure }")); LEAVE_TXN; return NULL; }
box_t* box_join_array(ap_manager_t* man, box_t** tab, size_t size) { size_t i; box_t* res; res = box_copy(man,tab[0]); for (i=1;i<size;i++){ box_join(man,true,res,tab[i]); } man->result.flag_best = true; man->result.flag_exact = false; return res; }
box_t* box_meet_array(ap_manager_t* man, box_t** tab, size_t size) { size_t i; box_t* res; res = box_copy(man,tab[0]); for (i=1;i<size;i++){ box_meet(man,true,res,tab[i]); if (res->p==NULL) break; } man->result.flag_best = true; man->result.flag_exact = true; return res; }
static MonoReflectionAssembly * ves_icall_VInvoke_LoadAssemblyFromVirtuoso (MonoAppDomain *ad, MonoString *message) { char *asm_name; caddr_t name = NULL; caddr_t code = NULL; long len; MonoAssembly *ass; MonoDomain *domain = virtuoso_domain; MonoImage *image = NULL; #ifdef OLD_KIT_1_1_5 MonoImageOpenStatus *status; #else MonoImageOpenStatus status; #endif asm_name = mono_string_to_utf8 (message); name = box_copy (asm_name); code = mono_get_assembly_by_name (&name); if (!code) return NULL; len = box_length (code); image = mono_image_open_from_data (code, len, 0, NULL); if (!image) return NULL; #ifdef OLD_KIT_1_1_5 ass = mono_assembly_open ("", NULL, image); #else ass = mono_assembly_load_from (image, "", &status); #endif if (!ass && !status) return NULL; return mono_assembly_get_object (domain, ass); }