void
erts_lookup_function_info(FunctionInfo* fi, BeamInstr* pc, int full_info)
{
ErtsCodeInfo** low;
ErtsCodeInfo** high;
ErtsCodeInfo** mid;
Range* rp;
BeamCodeHeader* hdr;
fi->mfa = NULL;
fi->needed = 5;
fi->loc = LINE_INVALID_LOCATION;
rp = find_range(pc);
if (rp == 0) {
return;
}
hdr = (BeamCodeHeader*) rp->start;
low = hdr->functions;
high = low + hdr->num_functions;
while (low < high) {
mid = low + (high-low) / 2;
if (pc < (BeamInstr*)(mid[0])) {
high = mid;
} else if (pc < (BeamInstr*)(mid[1])) {
fi->mfa = &mid[0]->mfa;
if (full_info) {
ErtsCodeInfo** fp = hdr->functions;
int idx = mid - fp;
lookup_loc(fi, pc, hdr, idx);
}
return;
} else {
low = mid + 1;
}
}
}
vector<int> searchRange(int A[], int n, int target) {
vector<int> ret;
ret.push_back(-1);
ret.push_back(-1);
if(0==n)
return ret;
int left=0;
int right=n-1;
int mid;
while(left<=right)
{
mid=(right+left)/2;
if(A[mid]==target)
return find_range(mid,A,ret,target);
else if(A[mid]<target)
left=mid+1;
else
right=mid-1;
}
return ret;
}
static int map_hbrt_physmem(struct opal_prd_ctx *ctx, const char *name)
{
struct prd_range *range;
void *buf;
range = find_range(name, 0);
if (!range) {
pr_log(LOG_ERR, "IMAGE: can't find code region %s", name);
return -1;
}
buf = mmap(NULL, range->size, PROT_READ | PROT_WRITE | PROT_EXEC,
MAP_PRIVATE, ctx->fd, range->physaddr);
if (buf == MAP_FAILED) {
pr_log(LOG_ERR, "IMAGE: mmap(range:%s, "
"phys:0x%016lx, size:0x%016lx) failed: %m",
name, range->physaddr, range->size);
return -1;
}
ctx->code_addr = buf;
ctx->code_size = range->size;
return 0;
}
int
yylex()
{
char *p = line + linelim;
int ret=0;
static int isfunc = 0;
static bool isgoto = 0;
static bool colstate = 0;
static int dateflag;
static char *tokenst = NULL;
static int tokenl;
while (isspace(*p)) p++;
if (*p == '\0') {
isfunc = isgoto = 0;
ret = -1;
} else if (isalpha(*p) || (*p == '_')) {
register char *la; /* lookahead pointer */
register struct key *tblp;
if (!tokenst) {
tokenst = p;
tokenl = 0;
}
/*
* This picks up either 1 or 2 alpha characters (a column) or
* tokens made up of alphanumeric chars and '_' (a function or
* token or command or a range name)
*/
while (isalpha(*p) && isascii(*p)) {
p++;
tokenl++;
}
la = p;
while (isdigit(*la) || (*la == '$'))
la++;
/*
* A COL is 1 or 2 char alpha with nothing but digits following
* (no alpha or '_')
*/
if (!isdigit(*tokenst) && tokenl && tokenl <= 2 && (colstate ||
(isdigit(*(la-1)) && !(isalpha(*la) || (*la == '_'))))) {
ret = COL;
yylval.ival = atocol(tokenst, tokenl);
} else {
while (isalpha(*p) || (*p == '_') || isdigit(*p)) {
p++;
tokenl++;
}
ret = WORD;
if (!linelim || isfunc) {
if (isfunc) isfunc--;
for (tblp = linelim ? experres : statres; tblp->key; tblp++)
if (((tblp->key[0]^tokenst[0])&0137)==0
&& tblp->key[tokenl]==0) {
int i = 1;
while (i<tokenl && ((tokenst[i]^tblp->key[i])&0137)==0)
i++;
if (i >= tokenl) {
ret = tblp->val;
colstate = (ret <= S_FORMAT);
if (isgoto) {
isfunc = isgoto = 0;
if (ret != K_ERROR && ret != K_INVALID)
ret = WORD;
}
break;
}
}
}
if (ret == WORD) {
struct range *r;
char *path;
if (!find_range(tokenst, tokenl,
(struct ent *)0, (struct ent *)0, &r)) {
yylval.rval.left = r->r_left;
yylval.rval.right = r->r_right;
if (r->r_is_range)
ret = RANGE;
else
ret = VAR;
} else if ((path = scxmalloc((unsigned)PATHLEN)) &&
plugin_exists(tokenst, tokenl, path)) {
strcat(path, p);
yylval.sval = path;
ret = PLUGIN;
} else {
scxfree(path);
linelim = p-line;
yyerror("Unintelligible word");
}
}
}
} else if ((*p == '.') || isdigit(*p)) {
#ifdef SIGVOID
void (*sig_save)();
#else
int (*sig_save)();
#endif
double v = 0.0;
int temp;
char *nstart = p;
sig_save = signal(SIGFPE, fpe_trap);
if (setjmp(fpe_buf)) {
(void) signal(SIGFPE, sig_save);
yylval.fval = v;
error("Floating point exception\n");
isfunc = isgoto = 0;
tokenst = NULL;
return FNUMBER;
}
if (*p=='.' && dateflag) { /* .'s in dates are returned as tokens. */
ret = *p++;
dateflag--;
} else {
if (*p != '.') {
tokenst = p;
tokenl = 0;
do {
v = v*10.0 + (double) ((unsigned) *p - '0');
tokenl++;
} while (isdigit(*++p));
if (dateflag) {
ret = NUMBER;
yylval.ival = (int)v;
/*
* If a string of digits is followed by two .'s separated by
* one or two digits, assume this is a date and return the
* .'s as tokens instead of interpreting them as decimal
* points. dateflag counts the .'s as they're returned.
*/
} else if (*p=='.' && isdigit(*(p+1)) && (*(p+2)=='.' ||
(isdigit(*(p+2)) && *(p+3)=='.'))) {
ret = NUMBER;
yylval.ival = (int)v;
dateflag = 2;
} else if (*p == 'e' || *p == 'E') {
while (isdigit(*++p)) /* */;
if (isalpha(*p) || *p == '_') {
linelim = p - line;
return (yylex());
} else
ret = FNUMBER;
} else if (isalpha(*p) || *p == '_') {
linelim = p - line;
return (yylex());
}
}
if ((!dateflag && *p=='.') || ret == FNUMBER) {
ret = FNUMBER;
yylval.fval = strtod(nstart, &p);
if (!finite(yylval.fval))
ret = K_ERR;
else
decimal = TRUE;
} else {
/* A NUMBER must hold at least MAXROW and MAXCOL */
/* This is consistent with a short row and col in struct ent */
if (v > (double)32767 || v < (double)-32768) {
ret = FNUMBER;
yylval.fval = v;
} else {
temp = (int)v;
if((double)temp != v) {
ret = FNUMBER;
yylval.fval = v;
} else {
ret = NUMBER;
yylval.ival = temp;
}
}
}
}
(void) signal(SIGFPE, sig_save);
} else if (*p=='"') {
char *ptr;
ptr = p+1; /* "string" or "string\"quoted\"" */
while (*ptr && ((*ptr != '"') || (*(ptr-1) == '\\')))
ptr++;
ptr = scxmalloc((unsigned)(ptr-p));
yylval.sval = ptr;
p++;
while (*p && ((*p != '"') ||
(*(p-1) == '\\' && *(p+1) != '\0' && *(p+1) != '\n')))
*ptr++ = *p++;
*ptr = '\0';
if (*p)
p++;
ret = STRING;
} else if (*p=='[') {
while (*p && *p!=']')
p++;
if (*p)
p++;
linelim = p-line;
tokenst = NULL;
return yylex();
} else ret = *p++;
linelim = p-line;
if (!isfunc) isfunc = ((ret == '@') + (ret == S_GOTO) - (ret == S_SET));
if (ret == S_GOTO) isgoto = TRUE;
tokenst = NULL;
return ret;
}
void match_node_xyz(RegionVector &part_mesh,
double tolerance,
std::vector<INT> &global_node_map, std::vector<INT> &local_node_map)
{
// See if any omitted element blocks...
bool has_omissions = false;
for (auto & elem : part_mesh) {
if (elem->get_property("block_omission_count").get_int() > 0) {
has_omissions = true;
break;
}
}
if (!has_omissions) {
for (size_t i=0; i < local_node_map.size(); i++) {
local_node_map[i] = i;
}
} else {
std::vector<INT> dummy;
eliminate_omitted_nodes(part_mesh, dummy, local_node_map);
// The local_node_map is not quite in the correct format after the
// call to 'eliminate_omitted_nodes'. We need all non-omitted
// nodes to have local_node_map[i] == i.
for (size_t i=0; i < local_node_map.size(); i++) {
if (local_node_map[i] >= 0) local_node_map[i] = i;
}
}
size_t part_count = part_mesh.size();
enum {X=0, Y=1, Z=2};
for (size_t ip=0; ip < part_count; ip++) {
vector3d i_max;
vector3d i_min;
std::vector<double> i_coord;
Ioss::NodeBlock *inb = part_mesh[ip]->get_node_blocks()[0];
inb->get_field_data("mesh_model_coordinates", i_coord);
find_range(i_coord, i_min, i_max);
size_t i_offset = part_mesh[ip]->get_property("node_offset").get_int();
for (size_t jp=ip+1; jp < part_count; jp++) {
vector3d j_max;
vector3d j_min;
std::vector<double> j_coord;
Ioss::NodeBlock *jnb = part_mesh[jp]->get_node_blocks()[0];
jnb->get_field_data("mesh_model_coordinates", j_coord);
find_range(j_coord, j_min, j_max);
size_t j_offset = part_mesh[jp]->get_property("node_offset").get_int();
// See if the ranges overlap...
vector3d max;
vector3d min;
max.x = std::min(i_max.x, j_max.x);
max.y = std::min(i_max.y, j_max.y);
max.z = std::min(i_max.z, j_max.z);
min.x = std::max(i_min.x, j_min.x);
min.y = std::max(i_min.y, j_min.y);
min.z = std::max(i_min.z, j_min.z);
double delta[3];
int XYZ = X;
delta[XYZ] = max.x - min.x;
delta[Y] = max.y - min.y;
if (delta[Y] > delta[XYZ])
XYZ = Y;
delta[Z] = max.z - min.z;
if (delta[Z] > delta[XYZ])
XYZ = Z;
double epsilon = (delta[X] + delta[Y] + delta[Z]) / 1.0e3;
if (epsilon < 0.0) {
std::cout << "Parts " << ip << " and " << jp << " do not overlap.\n";
continue;
}
min -= epsilon;
max += epsilon;
if (tolerance >= 0.0) epsilon = tolerance;
std::vector<INT> j_inrange;
std::vector<INT> i_inrange;
find_in_range(j_coord, min, max, j_inrange);
find_in_range(i_coord, min, max, i_inrange);
// Index sort all nodes on the coordinate range with the maximum delta.
index_coord_sort(i_coord, i_inrange, XYZ);
index_coord_sort(j_coord, j_inrange, XYZ);
if (i_inrange.size() < j_inrange.size()) {
do_matching(i_inrange, i_coord, i_offset,
j_inrange, j_coord, j_offset,
epsilon, XYZ, local_node_map);
} else {
do_matching(j_inrange, j_coord, j_offset,
i_inrange, i_coord, i_offset,
epsilon, XYZ, local_node_map);
}
}
}
// Build the global and local maps...
size_t j = 1;
for (size_t i=0; i < local_node_map.size(); i++) {
if (local_node_map[i] == (INT)i) {
global_node_map.push_back(j);
local_node_map[i] = j-1;
j++;
} else if (local_node_map[i] >= 0) {
local_node_map[i] = local_node_map[local_node_map[i]];
}
}
}
/* Potions for the quaffing -RAK- */
void quaff()
{
int32u i, l;
int j, k, item_val;
int ident;
register inven_type *i_ptr;
register struct misc *m_ptr;
register struct flags *f_ptr;
#if 0
/* used by ifdefed out learn_spell potion */
register class_type *c_ptr;
#endif
free_turn_flag = TRUE;
if (inven_ctr == 0)
msg_print("But you are not carrying anything.");
else if (!find_range(TV_POTION1, TV_POTION2, &j, &k))
msg_print("You are not carrying any potions.");
else if (get_item(&item_val, "Quaff which potion?", j, k, CNIL, CNIL))
{
i_ptr = &inventory[item_val];
i = i_ptr->flags;
free_turn_flag = FALSE;
ident = FALSE;
if (i == 0)
{
msg_print ("You feel less thirsty.");
ident = TRUE;
}
else while (i != 0)
{
j = bit_pos(&i) + 1;
if (i_ptr->tval == TV_POTION2)
j += 32;
/* Potions */
switch(j)
{
case 1:
if (inc_stat (A_STR))
{
msg_print("Wow! What bulging muscles!");
ident = TRUE;
}
break;
case 2:
ident = TRUE;
lose_str();
break;
case 3:
if (res_stat (A_STR))
{
msg_print("You feel warm all over.");
ident = TRUE;
}
break;
case 4:
if (inc_stat (A_INT))
{
msg_print("Aren't you brilliant!");
ident = TRUE;
}
break;
case 5:
ident = TRUE;
lose_int();
break;
case 6:
if (res_stat (A_INT))
{
msg_print("You have have a warm feeling.");
ident = TRUE;
}
break;
case 7:
if (inc_stat (A_WIS))
{
msg_print("You suddenly have a profound thought!");
ident = TRUE;
}
break;
case 8:
ident = TRUE;
lose_wis();
break;
case 9:
if (res_stat (A_WIS))
{
msg_print("You feel your wisdom returning.");
ident = TRUE;
}
break;
case 10:
if (inc_stat (A_CHR))
{
msg_print("Gee, ain't you cute!");
ident = TRUE;
}
break;
case 11:
ident = TRUE;
lose_chr();
break;
case 12:
if (res_stat (A_CHR))
{
msg_print("You feel your looks returning.");
ident = TRUE;
}
break;
case 13:
ident = hp_player(damroll(2, 7));
break;
case 14:
ident = hp_player(damroll(4, 7));
break;
case 15:
ident = hp_player(damroll(6, 7));
break;
case 16:
ident = hp_player(1000);
break;
case 17:
if (inc_stat (A_CON))
{
msg_print("You feel tingly for a moment.");
ident = TRUE;
}
break;
case 18:
m_ptr = &py.misc;
if (m_ptr->exp < MAX_EXP)
{
l = (m_ptr->exp / 2) + 10;
if (l > 100000L) l = 100000L;
m_ptr->exp += l;
msg_print("You feel more experienced.");
prt_experience();
ident = TRUE;
}
break;
case 19:
f_ptr = &py.flags;
if (!f_ptr->free_act)
{
/* paralysis must == 0, otherwise could not drink potion */
msg_print("You fall asleep.");
f_ptr->paralysis += randint(4) + 4;
ident = TRUE;
}
break;
case 20:
f_ptr = &py.flags;
if (f_ptr->blind == 0)
{
msg_print("You are covered by a veil of darkness.");
ident = TRUE;
}
f_ptr->blind += randint(100) + 100;
break;
case 21:
f_ptr = &py.flags;
if (f_ptr->confused == 0)
{
msg_print("Hey! This is good stuff! * Hick! *");
ident = TRUE;
}
f_ptr->confused += randint(20) + 12;
break;
case 22:
f_ptr = &py.flags;
if (f_ptr->poisoned == 0)
{
msg_print("You feel very sick.");
ident = TRUE;
}
f_ptr->poisoned += randint(15) + 10;
break;
case 23:
if (py.flags.fast == 0)
ident = TRUE;
py.flags.fast += randint(25) + 15;
break;
case 24:
if (py.flags.slow == 0)
ident = TRUE;
py.flags.slow += randint(25) + 15;
break;
case 26:
if (inc_stat (A_DEX))
{
msg_print("You feel more limber!");
ident = TRUE;
}
break;
case 27:
if (res_stat (A_DEX))
{
msg_print("You feel less clumsy.");
ident = TRUE;
}
break;
case 28:
if (res_stat (A_CON))
{
msg_print("You feel your health returning!");
ident = TRUE;
}
break;
case 29:
ident = cure_blindness();
break;
case 30:
ident = cure_confusion();
break;
case 31:
ident = cure_poison();
break;
#if 0
case 33:
/* this is no longer useful, now that there is a 'G'ain magic
spells command */
m_ptr = &py.misc;
c_ptr = &class[m_ptr->pclass];
if (c_ptr->spell == MAGE)
{
calc_spells(A_INT);
calc_mana(A_INT);
}
else if (c_ptr->spell == PRIEST)
{
calc_spells(A_WIS);
calc_mana(A_WIS);
}
else
{
/* A warrior learns something about his equipment. -CJS- */
inven_type *w_ptr;
vtype tmp_str;
extern char *describe_use ();
for (k = 22; k < INVEN_ARRAY_SIZE; k++)
{
w_ptr = &inventory[k];
if (w_ptr->tval != TV_NOTHING && enchanted (w_ptr))
{
(void) sprintf (tmp_str,
"There's something about what you are %s...",
describe_use(k));
msg_print (tmp_str);
add_inscribe(w_ptr, ID_MAGIK);
ident = TRUE;
}
}
}
break;
#endif
case 34:
if (py.misc.exp > 0)
{
int32 m, scale;
msg_print("You feel your memories fade.");
/* Lose between 1/5 and 2/5 of your experience */
m = py.misc.exp / 5;
if (py.misc.exp > MAX_SHORT)
{
scale = MAX_LONG / py.misc.exp;
m += (randint((int)scale) * py.misc.exp) / (scale * 5);
}
else
m += randint((int)py.misc.exp) / 5;
lose_exp(m);
ident = TRUE;
}
break;
case 35:
f_ptr = &py.flags;
(void) cure_poison();
if (f_ptr->food > 150) f_ptr->food = 150;
f_ptr->paralysis = 4;
msg_print("The potion makes you vomit!");
ident = TRUE;
break;
case 36:
if (py.flags.invuln == 0)
ident = TRUE;
py.flags.invuln += randint(10) + 10;
break;
case 37:
if (py.flags.hero == 0)
ident = TRUE;
py.flags.hero += randint(25) + 25;
break;
case 38:
if (py.flags.shero == 0)
ident = TRUE;
py.flags.shero += randint(25) + 25;
break;
case 39:
ident = remove_fear();
break;
case 40:
ident = restore_level();
break;
case 41:
f_ptr = &py.flags;
if (f_ptr->resist_heat == 0)
ident = TRUE;
f_ptr->resist_heat += randint(10) + 10;
break;
case 42:
f_ptr = &py.flags;
if (f_ptr->resist_cold == 0)
ident = TRUE;
f_ptr->resist_cold += randint(10) + 10;
break;
case 43:
if (py.flags.detect_inv == 0)
ident = TRUE;
detect_inv2(randint(12)+12);
break;
case 44:
ident = slow_poison();
break;
case 45:
ident = cure_poison();
break;
case 46:
m_ptr = &py.misc;
if (m_ptr->cmana < m_ptr->mana)
{
m_ptr->cmana = m_ptr->mana;
ident = TRUE;
msg_print("Your feel your head clear.");
prt_cmana();
}
break;
case 47:
f_ptr = &py.flags;
if (f_ptr->tim_infra == 0)
{
msg_print("Your eyes begin to tingle.");
ident = TRUE;
}
f_ptr->tim_infra += 100 + randint(100);
break;
default:
msg_print ("Internal error in potion()");
break;
}
/* End of Potions. */
}
if (ident)
{
if (!known1_p(i_ptr))
{
m_ptr = &py.misc;
/* round half-way case up */
m_ptr->exp += (i_ptr->level + (m_ptr->lev >> 1)) / m_ptr->lev;
prt_experience();
identify(&item_val);
i_ptr = &inventory[item_val];
}
}
void
add_range(char *name, struct ent_ptr left, struct ent_ptr right, int is_range)
{
struct range *r;
register char *p;
int minr, minc, maxr, maxc;
int minrf, mincf, maxrf, maxcf;
register struct ent *rcp;
struct range *prev = 0;
if (left.vp->row < right.vp->row) {
minr = left.vp->row; minrf = left.vf & FIX_ROW;
maxr = right.vp->row; maxrf = right.vf & FIX_ROW;
} else {
minr = right.vp->row; minrf = right.vf & FIX_ROW;
maxr = left.vp->row; maxrf = right.vf & FIX_ROW;
}
if (left.vp->col < right.vp->col) {
minc = left.vp->col; mincf = left.vf & FIX_COL;
maxc = right.vp->col; maxcf = right.vf & FIX_COL;
} else {
minc = right.vp->col; mincf = right.vf & FIX_COL;
maxc = left.vp->col; maxcf = left.vf & FIX_COL;
}
left.vp = lookat(minr, minc);
left.vf = minrf | mincf;
right.vp = lookat(maxr, maxc);
right.vf = maxrf | maxcf;
if (!find_range(name, strlen(name), (struct ent *)0, (struct ent *)0,
&prev)) {
error("Error: range name \"%s\" already defined", name);
scxfree(name);
return;
}
for (p = name; *p; p++)
if (!(isalpha(*p) || isdigit(*p) || *p == '_')) {
error("Invalid range name \"%s\" - illegal combination", name);
scxfree(name);
return;
}
p = name;
if (isdigit(*p) || (isalpha(*p++) && (isdigit(*p) ||
(isalpha(*p++) && isdigit(*p))))) {
if (*name == '0' && (name[1] == 'x' || name[1] == 'X')) {
++p;
while (isxdigit(*++p)) /* */;
if (*p == 'p' || *p == 'P')
while (isxdigit(*++p)) /* */;
} else {
while (isdigit(*++p)) /* */;
if (isdigit(*name) && (*p == 'e' || *p == 'E'))
while (isdigit(*++p)) /* */;
}
if (!(*p)) {
error("Invalid range name \"%s\" - ambiguous", name);
scxfree(name);
return;
}
}
if (autolabel && minc>0 && !is_range) {
rcp = lookat(minr, minc-1);
if (rcp->label==0 && rcp->expr==0 && rcp->v==0)
label(rcp, name, 0);
}
r = (struct range *)scxmalloc((unsigned)sizeof(struct range));
r->r_name = name;
r->r_left = left;
r->r_right = right;
r->r_is_range = is_range;
if (prev) {
r->r_next = prev->r_next;
r->r_prev = prev;
prev->r_next = r;
if (r->r_next)
r->r_next->r_prev = r;
} else {
r->r_next = rng_base;
r->r_prev = (struct range *)0;
if (rng_base)
rng_base->r_prev = r;
rng_base = r;
}
modflg++;
}
void
erts_remove_from_ranges(BeamInstr* code)
{
Range* rp = find_range(code);
erts_atomic_set_nob(&rp->end, (erts_aint_t)rp->start);
}
void blow()
{
unsigned long i1;
integer i3,chance,i5;
treas_ptr i2,item_ptr;
char trash_char;
boolean redraw,ident;
obj_set things_that_blow = {misc_usable,valuable_gems,chime,horn,0};
reset_flag = true;
if (inven_ctr > 0) {
if (find_range(things_that_blow,false,&i2,&i3)) {
redraw = false;
if (get_item(&item_ptr,"Use which item?",
&redraw,i3,&trash_char,false,false)) {
//with item_ptr->data. do;
if (redraw) {
draw_cave();
}
reset_flag = false;
//with py.misc do;
chance = PM.save + PM.lev + bard_adj() - item_ptr->data.level - 5;
if (((py.flags.confused + py.flags.afraid) > 0) &&
((item_ptr->data.tval == chime) ||
(item_ptr->data.tval == horn))) {
msg_print("you can not use the instrument...");
} else if (item_ptr->data.p1 > 0) {
if (chance < 0) {
chance = 0;
}
if ((randint(chance) < USE_DEVICE) &&
((item_ptr->data.tval != misc_usable) &&
(item_ptr->data.subval != 24))) {
msg_print("You failed to use the item properly.");
} else {
i1 = item_ptr->data.flags;
ident = false;
item_ptr->data.p1--;
for ( ; i1 > 0 ; ) {
i5 = bit_pos(&i1) + 1;
if ((item_ptr->data.tval == chime) ||
(item_ptr->data.tval == horn)) {
b__chime_and_horn_effects(i5, &ident);
} else {
b__misc_effects(i5, &ident, item_ptr);
}
}
if (ident) {
identify(&(inven_temp->data));
}
if (inven_temp->data.flags != 0) {
//with py.misc do;
PM.exp += (item_ptr->data.level / (real)PM.lev) + .5;
prt_experience();
}
desc_charges(item_ptr);
}
} /* end if p1 */
} else {
if (redraw) {
draw_cave();
}
}
} else {
msg_print("You are not carrying anything to use...");
}
} else {
msg_print("But you are not carrying anything.");
}
};
static int dt_xlate(void *node, int res, int reglen, unsigned long *addr,
unsigned long *size)
{
u32 last_addr[MAX_ADDR_CELLS];
u32 this_addr[MAX_ADDR_CELLS];
void *parent;
u64 ret_addr, ret_size;
u32 naddr, nsize, prev_naddr, prev_nsize;
int buflen, offset;
parent = get_parent(node);
if (!parent)
return 0;
dt_get_reg_format(parent, &naddr, &nsize);
if (nsize > 2)
return 0;
offset = (naddr + nsize) * res;
if (reglen < offset + naddr + nsize ||
MAX_PROP_LEN < (offset + naddr + nsize) * 4)
return 0;
copy_val(last_addr, prop_buf + offset, naddr);
ret_size = prop_buf[offset + naddr];
if (nsize == 2) {
ret_size <<= 32;
ret_size |= prop_buf[offset + naddr + 1];
}
for (;;) {
prev_naddr = naddr;
prev_nsize = nsize;
node = parent;
parent = get_parent(node);
if (!parent)
break;
dt_get_reg_format(parent, &naddr, &nsize);
buflen = getprop(node, "ranges", prop_buf,
sizeof(prop_buf));
if (buflen == 0)
continue;
if (buflen < 0 || buflen > sizeof(prop_buf))
return 0;
offset = find_range(last_addr, prop_buf, prev_naddr,
naddr, prev_nsize, buflen / 4);
if (offset < 0)
return 0;
copy_val(this_addr, prop_buf + offset, prev_naddr);
if (!sub_reg(last_addr, this_addr))
return 0;
copy_val(this_addr, prop_buf + offset + prev_naddr, naddr);
if (!add_reg(last_addr, this_addr, naddr))
return 0;
}
if (naddr > 2)
return 0;
ret_addr = ((u64)last_addr[2] << 32) | last_addr[3];
if (sizeof(void *) == 4 &&
(ret_addr >= 0x100000000ULL || ret_size > 0x100000000ULL ||
ret_addr + ret_size > 0x100000000ULL))
return 0;
*addr = ret_addr;
if (size)
*size = ret_size;
return 1;
}
static void find_range_small_test( void ) {
find_range( DB ".index.small" );
}
template <typename INT> double Find_Min_Coord_Sep(ExoII_Read<INT> &file)
{
size_t num_nodes = file.Num_Nodes();
if (num_nodes < 2)
return 0.0;
file.Load_Nodal_Coordinates();
const double *x = (double *)file.X_Coords();
const double *y = (double *)file.Y_Coords();
const double *z = (double *)file.Z_Coords();
auto indx = new INT[num_nodes];
for (size_t i = 0; i < num_nodes; i++) {
indx[i] = i;
}
// Find coordinate with largest range...
const double *r = x;
double range = find_range(x, num_nodes);
if (file.Dimension() > 1) {
double yrange = find_range(y, num_nodes);
if (yrange > range) {
range = yrange;
r = y;
}
}
if (file.Dimension() > 2) {
double zrange = find_range(z, num_nodes);
if (zrange > range) {
range = zrange;
r = z;
}
}
// Sort based on coordinate with largest range...
index_qsort(r, indx, num_nodes);
double min = DBL_MAX;
;
switch (file.Dimension()) {
case 1: {
for (size_t i = 0; i < num_nodes; i++) {
for (size_t j = i + 1; j < num_nodes; j++) {
double tmp = dist_sqrd(x[indx[i]], x[indx[j]]);
if (tmp >= min) {
break;
}
else {
min = tmp;
}
}
}
break;
}
case 2: {
for (size_t i = 0; i < num_nodes; i++) {
for (size_t j = i + 1; j < num_nodes; j++) {
double delr = dist_sqrd(r[indx[i]], r[indx[j]]);
if (delr > min) {
break;
}
else {
double tmp = dist_sqrd(x[indx[i]], y[indx[i]], x[indx[j]], y[indx[j]]);
min = min < tmp ? min : tmp;
}
}
}
break;
}
case 3: {
for (size_t i = 0; i < num_nodes; i++) {
for (size_t j = i + 1; j < num_nodes; j++) {
double delr = dist_sqrd(r[indx[i]], r[indx[j]]);
if (delr > min) {
break;
}
else {
double tmp =
dist_sqrd(x[indx[i]], y[indx[i]], z[indx[i]], x[indx[j]], y[indx[j]], z[indx[j]]);
min = min < tmp ? min : tmp;
}
}
}
break;
}
}
delete[] indx;
return sqrt(min);
}
/* Potions for the quaffing -RAK- */
void quaff()
{
int32u i, l;
int j, k, item_val;
int ident;
register inven_type *i_ptr;
register struct misc *m_ptr;
register struct flags *f_ptr;
free_turn_flag = TRUE;
if (inven_ctr == 0)
msg_print("But you are not carrying anything.");
else if (!find_range(TV_POTION1, TV_POTION2, &j, &k))
msg_print("You are not carrying any potions.");
else if (get_item(&item_val, "Quaff which potion?", j, k, 0))
{
i_ptr = &inventory[item_val];
i = i_ptr->flags;
free_turn_flag = FALSE;
ident = FALSE;
if (i == 0)
{
msg_print ("You feel less thirsty.");
ident = TRUE;
}
else while (i != 0)
{
j = bit_pos(&i) + 1;
if (i_ptr->tval == TV_POTION2)
j += 32;
/* Potions */
switch(j)
{
case 1:
if (inc_stat (A_STR))
{
msg_print("Wow! What bulging muscles!");
ident = TRUE;
}
break;
case 2:
ident = TRUE;
lose_str();
break;
case 3:
if (res_stat (A_STR))
{
msg_print("You feel warm all over.");
ident = TRUE;
}
break;
case 4:
if (inc_stat (A_INT))
{
msg_print("Aren't you brilliant!");
ident = TRUE;
}
break;
case 5:
ident = TRUE;
lose_int();
break;
case 6:
if (res_stat (A_INT))
{
msg_print("You have a warm feeling.");
ident = TRUE;
}
break;
case 7:
if (inc_stat (A_WIS))
{
msg_print("You suddenly have a profound thought!");
ident = TRUE;
}
break;
case 8:
ident = TRUE;
lose_wis();
break;
case 9:
if (res_stat (A_WIS))
{
msg_print("You feel your wisdom returning.");
ident = TRUE;
}
break;
case 10:
if (inc_stat (A_CHR))
{
msg_print("Gee, ain't you cute!");
ident = TRUE;
}
break;
case 11:
ident = TRUE;
lose_chr();
break;
case 12:
if (res_stat (A_CHR))
{
msg_print("You feel your looks returning.");
ident = TRUE;
}
break;
case 13:
ident = hp_player(damroll(2, 7));
if (py.flags.cut>0) {
py.flags.cut-=10;
if (py.flags.cut<0) py.flags.cut=0;
ident = TRUE;
msg_print("Your wounds heal.");
}
break;
case 14:
ident = hp_player(damroll(4, 7));
if (py.flags.cut>0) {
py.flags.cut=(py.flags.cut/2)-50;
if (py.flags.cut<0) py.flags.cut=0;
ident = TRUE;
msg_print("Your wounds heal.");
}
break;
case 15:
ident = hp_player(damroll(6, 7));
if (py.flags.cut>0) {
py.flags.cut=0;
ident = TRUE;
msg_print("Your wounds heal.");
}
if (py.flags.stun>0) {
if (py.flags.stun>50) {
py.misc.ptohit+=20;
py.misc.ptodam+=20;
} else {
py.misc.ptohit+=5;
py.misc.ptodam+=5;
}
py.flags.stun=0;
ident = TRUE;
msg_print("Your head stops stinging.");
}
break;
case 16:
ident = hp_player(400);
if (py.flags.stun>0) {
if (py.flags.stun>50) {
py.misc.ptohit+=20;
py.misc.ptodam+=20;
} else {
py.misc.ptohit+=5;
py.misc.ptodam+=5;
}
py.flags.stun=0;
ident = TRUE;
msg_print("Your head stops stinging.");
}
if (py.flags.cut>0) {
py.flags.cut=0;
ident = TRUE;
msg_print("Your wounds heal.");
}
break;
case 17:
if (inc_stat (A_CON))
{
msg_print("You feel tingly for a moment.");
ident = TRUE;
}
break;
case 18:
m_ptr = &py.misc;
if (m_ptr->exp < MAX_EXP)
{
l = (m_ptr->exp / 2) + 10;
if (l > 100000L) l = 100000L;
m_ptr->exp += l;
msg_print("You feel more experienced.");
prt_experience();
ident = TRUE;
}
break;
case 19:
f_ptr = &py.flags;
if (!f_ptr->free_act)
{
/* paralysis must == 0, otherwise could not drink potion */
msg_print("You fall asleep.");
f_ptr->paralysis += randint(4) + 4;
ident = TRUE;
}
break;
case 20:
f_ptr = &py.flags;
if (!py.flags.blindness_resist) {
if (f_ptr->blind == 0)
{
msg_print("You are covered by a veil of darkness.");
ident = TRUE;
}
f_ptr->blind += randint(100) + 100;
}
break;
case 21:
f_ptr = &py.flags;
if (!f_ptr->confusion_resist)
{
if (f_ptr->confused == 0)
{
msg_print("Hey! This is good stuff! * Hick! *");
ident = TRUE;
}
f_ptr->confused += randint(20) + 12;
}
break;
case 22:
f_ptr = &py.flags;
if (f_ptr->poisoned == 0)
{
msg_print("You feel very sick.");
ident = TRUE;
}
if (!f_ptr->poison_resist)
f_ptr->poisoned += randint(15) + 10;
break;
case 23:
if (py.flags.fast == 0)
ident = TRUE;
if (py.flags.fast <= 0)
{
py.flags.fast += randint(25) + 15;
}
else
py.flags.fast += randint(5);
break;
case 24:
if (py.flags.slow == 0)
ident = TRUE;
py.flags.slow += randint(25) + 15;
break;
case 26:
if (inc_stat (A_DEX))
{
msg_print("You feel more limber!");
ident = TRUE;
}
break;
case 27:
if (res_stat (A_DEX))
{
msg_print("You feel less clumsy.");
ident = TRUE;
}
break;
case 28:
if (res_stat (A_CON))
{
msg_print("You feel your health returning!");
ident = TRUE;
}
break;
case 29:
ident = cure_blindness();
break;
case 30:
ident = cure_confusion();
break;
case 31:
ident = cure_poison();
break;
case 34:
if (!py.flags.hold_life && py.misc.exp>0) {
int32 m, scale;
msg_print("You feel your memories fade.");
m = py.misc.exp / 5;
if (py.misc.exp > MAX_SHORT) {
scale = MAX_LONG / py.misc.exp;
m+=(randint((int)scale)*py.misc.exp)/(scale*5);
}
else m+=randint((int)py.misc.exp)/5;
lose_exp(m);
ident=TRUE;
}
else msg_print
("You feel you memories fade for a moment, but quickly return.");
break;
case 35:
f_ptr = &py.flags;
(void) cure_poison();
if (f_ptr->food > 150) f_ptr->food = 150;
f_ptr->paralysis = 4;
msg_print("The potion makes you vomit!");
ident = TRUE;
break;
case 37:
if (py.flags.hero == 0)
ident = TRUE;
py.flags.hero += randint(25) + 25;
break;
case 38:
if (py.flags.shero == 0)
ident = TRUE;
py.flags.shero += randint(25) + 25;
break;
case 39:
ident = remove_fear();
break;
case 40:
ident = restore_level();
break;
case 41:
f_ptr = &py.flags;
if (f_ptr->resist_heat == 0)
ident = TRUE;
f_ptr->resist_heat += randint(10) + 10;
break;
case 42:
f_ptr = &py.flags;
if (f_ptr->resist_cold == 0)
ident = TRUE;
f_ptr->resist_cold += randint(10) + 10;
break;
case 43:
if (py.flags.detect_inv == 0)
ident = TRUE;
detect_inv2(randint(12)+12);
break;
case 44:
ident = slow_poison();
break;
case 45:
ident = cure_poison();
break;
case 46:
m_ptr = &py.misc;
if (m_ptr->cmana < m_ptr->mana)
{
m_ptr->cmana = m_ptr->mana;
ident = TRUE;
msg_print("Your feel your head clear.");
prt_cmana();
}
break;
case 47:
f_ptr = &py.flags;
if (f_ptr->tim_infra == 0)
{
msg_print("Your eyes begin to tingle.");
ident = TRUE;
}
f_ptr->tim_infra += 100 + randint(100);
break;
case 48:
wizard_light(TRUE);
if (!res_stat(A_WIS)) inc_stat(A_WIS);
if (!res_stat(A_INT)) inc_stat(A_INT);
msg_print("You feel more enlightened!");
identify_pack();
ident=TRUE;
break;
case 49:
msg_print("Massive explosions rupture your body!");
take_hit(damroll(50,20),"a potion of Detonation");
cut_player(5000);
stun_player(75);
ident=TRUE;
break;
case 50:
msg_print("A feeling of Death flows through your body.");
take_hit(5000,"a potion of Death");
ident=TRUE;
break;
case 51:
if (restore_level() | res_stat(A_STR) | res_stat(A_CON) |
res_stat(A_DEX) | res_stat(A_WIS) | res_stat(A_INT) |
res_stat(A_CHR) | hp_player(5000) | cure_poison() |
cure_blindness() | cure_confusion() | (py.flags.stun>0) |
(py.flags.cut>0) | (py.flags.image>0) | remove_fear()) {
ident=TRUE;
py.flags.cut=0;
py.flags.image=0;
if (py.flags.stun>0) {
if (py.flags.stun>50) {
py.misc.ptohit+=20;
py.misc.ptodam+=20;
} else {
py.misc.ptohit+=5;
py.misc.ptodam+=5;
}
py.flags.stun=0;
}
}
break;
case 52:
if (inc_stat(A_DEX) | inc_stat(A_WIS) | inc_stat(A_INT) |
inc_stat(A_STR) | inc_stat(A_CHR) | inc_stat(A_CON)) {
ident=TRUE;
msg_print("You feel power flow through your body!");
}
break;
case 53:
take_hit(damroll(10,10),"a potion of Ruination");
ruin_stat(A_DEX);
ruin_stat(A_WIS);
ruin_stat(A_CON);
ruin_stat(A_STR);
ruin_stat(A_CHR);
ruin_stat(A_INT);
ident=TRUE;
msg_print("Your nerves and muscles feel weak and lifeless");
break;
case 54:
wizard_light(TRUE);
msg_print("An image of your surroundings forms in your mind");
ident = TRUE;
break;
case 55:
msg_print("You feel you know yourself a little better...");
self_knowledge();
ident = TRUE;
break;
case 56: /* *Healing* */
ident = hp_player(1200);
if (py.flags.stun>0) {
if (py.flags.stun>50) {
py.misc.ptohit+=20;
py.misc.ptodam+=20;
} else {
py.misc.ptohit+=5;
py.misc.ptodam+=5;
}
py.flags.stun=0;
ident = TRUE;
msg_print("Your head stops stinging.");
}
if (py.flags.cut>0) {
py.flags.cut=0;
ident = TRUE;
msg_print("Your wounds heal.");
}
if (cure_blindness()) ident = TRUE;
if (cure_confusion()) ident = TRUE;
if (cure_poison()) ident = TRUE;
break;
default:
if (1) {
char tmp_str[100];
msg_print ("Internal error in potion()");
sprintf(tmp_str, "Number %d...", j);
msg_print (tmp_str);
}
break;
}
/* End of Potions. */
}
if (ident)
{
if (!known1_p(i_ptr))
{
m_ptr = &py.misc;
/* round half-way case up */
m_ptr->exp += (i_ptr->level + (m_ptr->lev >> 1)) / m_ptr->lev;
prt_experience();
identify(&item_val);
i_ptr = &inventory[item_val];
}
}
/* Scrolls for the reading -RAK- */
void read_scroll()
{
int32u i;
int j, k, item_val, y, x;
int tmp[6], flag, used_up;
bigvtype out_val, tmp_str;
register int ident, l;
register inven_type *i_ptr;
register struct misc *m_ptr;
free_turn_flag = TRUE;
if (py.flags.blind > 0)
msg_print("You can't see to read the scroll.");
else if (no_light())
msg_print("You have no light to read by.");
else if (py.flags.confused > 0)
msg_print("You are too confused to read a scroll.");
else if (inven_ctr == 0)
msg_print("You are not carrying anything!");
else if (!find_range(TV_SCROLL1, TV_SCROLL2, &j, &k))
msg_print ("You are not carrying any scrolls!");
else if (get_item(&item_val, "Read which scroll?", j, k, 0))
{
i_ptr = &inventory[item_val];
free_turn_flag = FALSE;
used_up = TRUE;
i = i_ptr->flags;
ident = FALSE;
while (i != 0)
{
j = bit_pos(&i) + 1;
if (i_ptr->tval == TV_SCROLL2)
j += 32;
/* Scrolls. */
switch(j)
{
case 1:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != TV_NOTHING)
{
objdes(tmp_str, i_ptr, FALSE);
(void) sprintf(out_val, "Your %s glows faintly!", tmp_str);
msg_print(out_val);
if (enchant(&i_ptr->tohit))
{
i_ptr->flags &= ~TR_CURSED;
calc_bonuses();
}
else
msg_print("The enchantment fails.");
ident = TRUE;
}
break;
case 2:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != TV_NOTHING)
{
objdes(tmp_str, i_ptr, FALSE);
(void) sprintf(out_val, "Your %s glows faintly!", tmp_str);
msg_print(out_val);
if (enchant(&i_ptr->todam))
{
i_ptr->flags &= ~TR_CURSED;
calc_bonuses ();
}
else
msg_print("The enchantment fails.");
ident = TRUE;
}
break;
case 3:
k = 0;
l = 0;
if (inventory[INVEN_BODY].tval != TV_NOTHING)
tmp[k++] = INVEN_BODY;
if (inventory[INVEN_ARM].tval != TV_NOTHING)
tmp[k++] = INVEN_ARM;
if (inventory[INVEN_OUTER].tval != TV_NOTHING)
tmp[k++] = INVEN_OUTER;
if (inventory[INVEN_HANDS].tval != TV_NOTHING)
tmp[k++] = INVEN_HANDS;
if (inventory[INVEN_HEAD].tval != TV_NOTHING)
tmp[k++] = INVEN_HEAD;
/* also enchant boots */
if (inventory[INVEN_FEET].tval != TV_NOTHING)
tmp[k++] = INVEN_FEET;
if (k > 0) l = tmp[randint(k)-1];
if (TR_CURSED & inventory[INVEN_BODY].flags)
l = INVEN_BODY;
else if (TR_CURSED & inventory[INVEN_ARM].flags)
l = INVEN_ARM;
else if (TR_CURSED & inventory[INVEN_OUTER].flags)
l = INVEN_OUTER;
else if (TR_CURSED & inventory[INVEN_HEAD].flags)
l = INVEN_HEAD;
else if (TR_CURSED & inventory[INVEN_HANDS].flags)
l = INVEN_HANDS;
else if (TR_CURSED & inventory[INVEN_FEET].flags)
l = INVEN_FEET;
if (l > 0)
{
i_ptr = &inventory[l];
objdes(tmp_str, i_ptr, FALSE);
(void) sprintf(out_val, "Your %s glows faintly!", tmp_str);
msg_print(out_val);
if (enchant(&i_ptr->toac))
{
i_ptr->flags &= ~TR_CURSED;
calc_bonuses ();
}
else
msg_print("The enchantment fails.");
ident = TRUE;
}
break;
case 4:
msg_print("This is an identify scroll.");
ident = TRUE;
used_up = ident_spell();
/* the identify may merge objects, causing the identify scroll
to move to a different place. Check for that here. */
if (i_ptr->tval != TV_SCROLL1 || i_ptr->flags != 0x00000008)
{
item_val--;
i_ptr = &inventory[item_val];
if (i_ptr->tval != TV_SCROLL1 || i_ptr->flags != 0x00000008)
{
msg_print("internal error with identify spell.");
msg_print("Please tell the wizard!");
return;
}
}
break;
case 5:
if (remove_curse())
{
msg_print("You feel as if someone is watching over you.");
ident = TRUE;
}
break;
case 6:
ident = light_area(char_row, char_col);
break;
case 7:
for (k = 0; k < randint(3); k++)
{
y = char_row;
x = char_col;
ident |= summon_monster(&y, &x, FALSE);
}
break;
case 8:
teleport(10);
ident = TRUE;
break;
case 9:
teleport(100);
ident = TRUE;
break;
case 10:
(void) tele_level();
ident = TRUE;
break;
case 11:
if (py.flags.confuse_monster == 0)
{
msg_print("Your hands begin to glow.");
py.flags.confuse_monster = TRUE;
ident = TRUE;
}
break;
case 12:
ident = TRUE;
map_area();
break;
case 13:
ident = sleep_monsters1(char_row, char_col);
break;
case 14:
ident = TRUE;
warding_glyph();
break;
case 15:
ident = detect_treasure();
break;
case 16:
ident = detect_object();
break;
case 17:
ident = detect_trap();
break;
case 18:
ident = detect_sdoor();
break;
case 19:
msg_print("This is a mass genocide scroll.");
ident = mass_genocide(TRUE);
break;
case 20:
ident = detect_invisible();
break;
case 21:
ident = aggravate_monster(20);
if (ident)
msg_print("There is a high pitched humming noise.");
break;
case 22:
ident = trap_creation();
break;
case 23:
ident = td_destroy();
break;
case 24: /* Not Used , used to be door creation */
break;
case 25:
msg_print("This is a Recharge-Item scroll.");
ident = TRUE;
used_up = recharge(60);
break;
case 26:
msg_print("This is a genocide scroll.");
ident = genocide(TRUE);
break;
case 27:
ident = unlight_area(char_row, char_col);
break;
case 28:
ident = protect_evil();
break;
case 29:
ident = TRUE;
create_food();
break;
case 30:
ident = dispel_creature(UNDEAD, 60);
break;
case 31:
remove_all_curse();
ident = TRUE;
break;
case 33:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != TV_NOTHING)
{
objdes(tmp_str, i_ptr, FALSE);
(void) sprintf(out_val, "Your %s glows brightly!", tmp_str);
msg_print(out_val);
flag = FALSE;
for (k = 0; k < randint(2); k++)
if (enchant(&i_ptr->tohit))
flag = TRUE;
for (k = 0; k < randint(2); k++)
if (enchant(&i_ptr->todam))
flag = TRUE;
if (flag)
{
i_ptr->flags &= ~TR_CURSED;
calc_bonuses ();
}
else
msg_print("The enchantment fails.");
ident = TRUE;
}
break;
case 34:
i_ptr = &inventory[INVEN_WIELD];
if (i_ptr->tval != TV_NOTHING)
{
objdes(tmp_str, i_ptr, FALSE);
(void)sprintf(out_val,"Your %s glows black, fades.",tmp_str);
msg_print(out_val);
unmagic_name(i_ptr);
i_ptr->tohit = -randint(5) - randint(5);
i_ptr->todam = -randint(5) - randint(5);
i_ptr->flags = TR_CURSED;
py_bonuses(i_ptr, -1);
calc_bonuses ();
ident = TRUE;
}
break;
case 35:
k = 0;
l = 0;
if (inventory[INVEN_BODY].tval != TV_NOTHING)
tmp[k++] = INVEN_BODY;
if (inventory[INVEN_ARM].tval != TV_NOTHING)
tmp[k++] = INVEN_ARM;
if (inventory[INVEN_OUTER].tval != TV_NOTHING)
tmp[k++] = INVEN_OUTER;
if (inventory[INVEN_HANDS].tval != TV_NOTHING)
tmp[k++] = INVEN_HANDS;
if (inventory[INVEN_HEAD].tval != TV_NOTHING)
tmp[k++] = INVEN_HEAD;
/* also enchant boots */
if (inventory[INVEN_FEET].tval != TV_NOTHING)
tmp[k++] = INVEN_FEET;
if (k > 0) l = tmp[randint(k)-1];
if (TR_CURSED & inventory[INVEN_BODY].flags)
l = INVEN_BODY;
else if (TR_CURSED & inventory[INVEN_ARM].flags)
l = INVEN_ARM;
else if (TR_CURSED & inventory[INVEN_OUTER].flags)
l = INVEN_OUTER;
else if (TR_CURSED & inventory[INVEN_HEAD].flags)
l = INVEN_HEAD;
else if (TR_CURSED & inventory[INVEN_HANDS].flags)
l = INVEN_HANDS;
else if (TR_CURSED & inventory[INVEN_FEET].flags)
l = INVEN_FEET;
if (l > 0)
{
i_ptr = &inventory[l];
objdes(tmp_str, i_ptr, FALSE);
(void) sprintf(out_val,"Your %s glows brightly!", tmp_str);
msg_print(out_val);
flag = FALSE;
for (k = 0; k < randint(2) + 1; k++)
if (enchant(&i_ptr->toac))
flag = TRUE;
if (flag)
{
i_ptr->flags &= ~TR_CURSED;
calc_bonuses ();
}
else
msg_print("The enchantment fails.");
ident = TRUE;
}
break;
case 36:
if ((inventory[INVEN_BODY].tval != TV_NOTHING)
&& (randint(4) == 1))
k = INVEN_BODY;
else if ((inventory[INVEN_ARM].tval != TV_NOTHING)
&& (randint(3) ==1))
k = INVEN_ARM;
else if ((inventory[INVEN_OUTER].tval != TV_NOTHING)
&& (randint(3) ==1))
k = INVEN_OUTER;
else if ((inventory[INVEN_HEAD].tval != TV_NOTHING)
&& (randint(3) ==1))
k = INVEN_HEAD;
else if ((inventory[INVEN_HANDS].tval != TV_NOTHING)
&& (randint(3) ==1))
k = INVEN_HANDS;
else if ((inventory[INVEN_FEET].tval != TV_NOTHING)
&& (randint(3) ==1))
k = INVEN_FEET;
else if (inventory[INVEN_BODY].tval != TV_NOTHING)
k = INVEN_BODY;
else if (inventory[INVEN_ARM].tval != TV_NOTHING)
k = INVEN_ARM;
else if (inventory[INVEN_OUTER].tval != TV_NOTHING)
k = INVEN_OUTER;
else if (inventory[INVEN_HEAD].tval != TV_NOTHING)
k = INVEN_HEAD;
else if (inventory[INVEN_HANDS].tval != TV_NOTHING)
k = INVEN_HANDS;
else if (inventory[INVEN_FEET].tval != TV_NOTHING)
k = INVEN_FEET;
else
k = 0;
if (k > 0)
{
i_ptr = &inventory[k];
objdes(tmp_str, i_ptr, FALSE);
(void)sprintf(out_val,"Your %s glows black, fades.",tmp_str);
msg_print(out_val);
unmagic_name(i_ptr);
i_ptr->flags = TR_CURSED;
i_ptr->toac = -randint(5) - randint(5);
calc_bonuses ();
ident = TRUE;
}
break;
case 37:
ident = FALSE;
for (k = 0; k < randint(3); k++)
{
y = char_row;
x = char_col;
ident |= summon_undead(&y, &x);
}
break;
case 38:
ident = TRUE;
bless(randint(12)+6);
break;
case 39:
ident = TRUE;
bless(randint(24)+12);
break;
case 40:
ident = TRUE;
bless(randint(48)+24);
break;
case 41:
ident = TRUE;
if (py.flags.word_recall == 0)
py.flags.word_recall = 25 + randint(30);
msg_print("The air about you becomes charged.");
break;
case 42:
destroy_area(char_row, char_col);
ident = TRUE;
break;
case 43:
place_special(char_row, char_col, SPECIAL);
prt_map();
break;
case 44:
special_random_object(char_row, char_col, 1);
prt_map();
break;
default:
msg_print("Internal error in scroll()");
break;
}
/* End of Scrolls. */
}
i_ptr = &inventory[item_val];
if (ident)
{
if (!known1_p(i_ptr))
{
m_ptr = &py.misc;
/* round half-way case up */
m_ptr->exp += (i_ptr->level +(m_ptr->lev >> 1)) / m_ptr->lev;
prt_experience();
identify(&item_val);
i_ptr = &inventory[item_val];
}
}
/* Use a staff. -RAK- */
void use()
{
int32u i;
int j, k, item_val, chance, y, x;
register int ident;
register struct misc *m_ptr;
register inven_type *i_ptr;
free_turn_flag = TRUE;
if (inven_ctr == 0)
msg_print("But you are not carrying anything.");
else if (!find_range(TV_STAFF, TV_NEVER, &j, &k))
msg_print("You are not carrying any staffs.");
else if (get_item(&item_val, "Use which staff?", j, k, 0))
{
i_ptr = &inventory[item_val];
free_turn_flag = FALSE;
m_ptr = &py.misc;
chance = m_ptr->save + stat_adj(A_INT) - (int)i_ptr->level - 5
+ (class_level_adj[m_ptr->pclass][CLA_DEVICE] * m_ptr->lev / 3);
if (py.flags.confused > 0)
chance = chance / 2;
if (chance <= 0) chance = 1;
if (randint(chance) < USE_DEVICE)
msg_print("You failed to use the staff properly.");
else if (i_ptr->p1 > 0)
{
i = i_ptr->flags;
ident = FALSE;
(i_ptr->p1)--;
switch(i) {
case ST_HEALING:
ident = hp_player(300);
if (py.flags.stun>0) {
if (py.flags.stun>50) {
py.misc.ptohit+=20;
py.misc.ptodam+=20;
} else {
py.misc.ptohit+=5;
py.misc.ptodam+=5;
}
py.flags.stun=0;
ident = TRUE;
msg_print("You're head stops stinging.");
}
if (py.flags.cut>0) {
py.flags.cut=0;
ident = TRUE;
msg_print("You feel better.");
}
break;
case ST_GENOCIDE:
genocide(FALSE);
ident = TRUE;
break;
case ST_PROBE:
probing();
ident = TRUE;
break;
case ST_IDENTIFY:
ident_spell();
ident = TRUE;
break;
case ST_HOLYNESS:
dispel_creature(EVIL,120);
protect_evil();
cure_poison();
remove_fear();
hp_player(50);
if (py.flags.stun>0) {
if (py.flags.stun>50) {
py.misc.ptohit+=20;
py.misc.ptodam+=20;
} else {
py.misc.ptohit+=5;
py.misc.ptodam+=5;
}
py.flags.stun=0;
ident = TRUE;
msg_print("You're head stops stinging.");
}
if (py.flags.cut>0) {
py.flags.cut=0;
ident = TRUE;
msg_print("You feel better.");
}
ident = TRUE;
break;
case ST_MAGI:
if (res_stat(A_INT)) {
msg_print("You have a warm feeling.");
ident = TRUE;
}
m_ptr = &py.misc;
if (m_ptr->cmana < m_ptr->mana) {
m_ptr->cmana = m_ptr->mana;
ident = TRUE;
msg_print("Your feel your head clear.");
prt_cmana();
}
break;
case ST_POWER:
dispel_creature(0xFFFFFFFFL,120);
break;
case ST_SURROUND:
map_area();
ident = TRUE;
break;
case ST_LIGHT:
ident = light_area(char_row, char_col);
break;
case ST_DR_LC:
ident = detect_sdoor();
break;
case ST_TRP_LC:
ident = detect_trap();
break;
case ST_TRE_LC:
ident = detect_treasure();
break;
case ST_OBJ_LC:
ident = detect_object();
break;
case ST_TELE:
teleport(100);
ident = TRUE;
break;
case ST_EARTH:
ident = TRUE;
earthquake();
break;
case ST_SUMMON:
ident = FALSE;
for (k = 0; k < randint(4); k++)
{
y = char_row;
x = char_col;
ident |= summon_monster(&y, &x, FALSE);
}
break;
case ST_DEST:
ident = TRUE;
destroy_area(char_row, char_col);
break;
case ST_STAR:
ident = TRUE;
starlite(char_row, char_col);
break;
case ST_HAST_MN:
ident = speed_monsters(1);
break;
case ST_SLOW_MN:
ident = speed_monsters(-1);
break;
case ST_SLEE_MN:
ident = sleep_monsters2();
break;
case ST_CURE_LT:
ident = hp_player(randint(8));
break;
case ST_DET_INV:
ident = detect_invisible();
break;
case ST_SPEED:
if (py.flags.fast == 0) ident = TRUE;
if (py.flags.fast <= 0)
py.flags.fast += randint(30) + 15;
else
py.flags.fast += randint(5);
break;
case ST_SLOW:
if (py.flags.slow == 0) ident = TRUE;
py.flags.slow += randint(30) + 15;
break;
case ST_REMOVE:
if (remove_curse())
{
if (py.flags.blind < 1)
msg_print("The staff glows blue for a moment..");
ident = TRUE;
}
break;
case ST_DET_EVI:
ident = detect_evil();
break;
case ST_CURING:
if ((cure_blindness()) || (cure_poison()) ||
(cure_confusion()) || (py.flags.stun>0) || (py.flags.cut>0))
ident = TRUE;
if (py.flags.stun>0) {
if (py.flags.stun>50) {
py.misc.ptohit+=20;
py.misc.ptodam+=20;
} else {
py.misc.ptohit+=5;
py.misc.ptodam+=5;
}
py.flags.stun=0;
msg_print("You're head stops stinging.");
} else if (py.flags.cut>0) {
py.flags.cut=0;
msg_print("You feel better.");
}
break;
case ST_DSP_EVI:
ident = dispel_creature(EVIL, 60);
break;
case ST_DARK:
ident = unlight_area(char_row, char_col);
break;
default:
msg_print("Internal error in staffs()");
break;
}
if (ident)
{
if (!known1_p(i_ptr))
{
m_ptr = &py.misc;
/* round half-way case up */
m_ptr->exp += (i_ptr->level + (m_ptr->lev >> 1)) /
m_ptr->lev;
prt_experience();
identify(&item_val);
i_ptr = &inventory[item_val];
}
}
/**
* Choose "logical" directions for monster movement
*/
static bool get_moves(struct chunk *c, struct monster *mon, int *dir)
{
int py = player->py;
int px = player->px;
int y, x;
/* Monsters will run up to z_info->flee_range grids out of sight */
int flee_range = z_info->max_sight + z_info->flee_range;
bool done = false;
/* Calculate range */
find_range(mon);
/* Flow towards the player */
if (get_moves_flow(c, mon)) {
/* Extract the "pseudo-direction" */
y = mon->ty - mon->fy;
x = mon->tx - mon->fx;
} else {
/* Head straight for the player */
y = player->py - mon->fy;
x = player->px - mon->fx;
}
/* Normal animal packs try to get the player out of corridors. */
if (rf_has(mon->race->flags, RF_GROUP_AI) &&
!flags_test(mon->race->flags, RF_SIZE, RF_PASS_WALL, RF_KILL_WALL,
FLAG_END)) {
int i, open = 0;
/* Count empty grids next to player */
for (i = 0; i < 8; i++) {
int ry = py + ddy_ddd[i];
int rx = px + ddx_ddd[i];
/* Check grid around the player for room interior (room walls count)
* or other empty space */
if (square_ispassable(c, ry, rx) || square_isroom(c, ry, rx)) {
/* One more open grid */
open++;
}
}
/* Not in an empty space and strong player */
if ((open < 7) && (player->chp > player->mhp / 2)) {
/* Find hiding place */
if (find_hiding(c, mon)) {
done = true;
y = mon->ty - mon->fy;
x = mon->tx - mon->fx;
}
}
}
/* Apply fear */
if (!done && (mon->min_range == flee_range)) {
/* Try to find safe place */
if (!find_safety(c, mon)) {
/* Just leg it away from the player */
y = (-y);
x = (-x);
} else {
/* Set a course for the safe place */
get_moves_fear(c, mon);
y = mon->ty - mon->fy;
x = mon->tx - mon->fx;
}
done = true;
}
/* Monster groups try to surround the player */
if (!done && rf_has(mon->race->flags, RF_GROUP_AI)) {
int i, yy = mon->ty, xx = mon->tx;
/* If we are not already adjacent */
if (mon->cdis > 1) {
/* Find an empty square near the player to fill */
int tmp = randint0(8);
for (i = 0; i < 8; i++) {
/* Pick squares near player (pseudo-randomly) */
yy = py + ddy_ddd[(tmp + i) & 7];
xx = px + ddx_ddd[(tmp + i) & 7];
/* Ignore filled grids */
if (!square_isempty(cave, yy, xx)) continue;
/* Try to fill this hole */
break;
}
}
/* Extract the new "pseudo-direction" */
y = yy - mon->fy;
x = xx - mon->fx;
}
/* Check for no move */
if (!x && !y) return (false);
/* Pick the correct direction */
*dir = choose_direction(y, x);
/* Want to move */
return (true);
}
static void find_range_medium_test( void ) {
find_range( DB ".index.medium" );
}
static size_t round_up( size_t sz )
{
return s_prime_list[find_range( sz )];
}
static void find_range_large_test( void ) {
find_range( DB ".index.large" );
}
GTree * MailboxState_get_set(MailboxState_T M, const char *set, gboolean uid)
{
GTree *inset, *a, *b;
GList *sets = NULL;
GString *t;
uint64_t lo = 0, hi = 0;
gboolean error = FALSE;
if (uid)
inset = MailboxState_getIds(M);
else
inset = MailboxState_getMsn(M);
a = g_tree_new_full((GCompareDataFunc)ucmpdata,NULL, (GDestroyNotify)uint64_free, (GDestroyNotify)uint64_free);
b = g_tree_new_full((GCompareDataFunc)ucmpdata,NULL, (GDestroyNotify)uint64_free, (GDestroyNotify)uint64_free);
if (! uid) {
lo = 1;
hi = MailboxState_getExists(M);
} else {
GList *ids = g_tree_keys(inset);
if (ids) {
ids = g_list_last(ids);
hi = *((uint64_t *)ids->data);
ids = g_list_first(ids);
lo = *((uint64_t *)ids->data);
g_list_free(g_list_first(ids));
}
}
t = g_string_new(set);
sets = g_string_split(t,",");
g_string_free(t,TRUE);
sets = g_list_first(sets);
while(sets) {
uint64_t l = 0, r = 0;
char *rest = (char *)sets->data;
if (strlen(rest) < 1) break;
if (g_tree_nnodes(inset) == 0) { // empty box
if (rest[0] == '*') {
uint64_t *k = mempool_pop(small_pool, sizeof(uint64_t));
uint64_t *v = mempool_pop(small_pool, sizeof(uint64_t));
*k = 1;
*v = MailboxState_getUidnext(M);
g_tree_insert(b, k, v);
} else {
if (! (l = dm_strtoull(sets->data, &rest, 10))) {
error = TRUE;
break;
}
if (rest[0]) {
if (rest[0] != ':') {
error = TRUE;
break;
}
rest++;
if ((rest[0] != '*') && (! dm_strtoull(rest, NULL, 10))) {
error = TRUE;
break;
}
}
uint64_t *k = mempool_pop(small_pool, sizeof(uint64_t));
uint64_t *v = mempool_pop(small_pool, sizeof(uint64_t));
*k = 1;
*v = MailboxState_getUidnext(M);
g_tree_insert(b, k, v);
}
} else {
if (rest[0] == '*') {
l = hi;
r = l;
if (strlen(rest) > 1)
rest++;
} else {
if (! (l = dm_strtoull(sets->data,&rest,10))) {
error = TRUE;
break;
}
if (l == 0xffffffff) l = hi; // outlook
l = max(l,lo);
r = l;
}
if (rest[0]==':') {
if (strlen(rest)>1) rest++;
if (rest[0] == '*') r = hi;
else {
if (! (r = dm_strtoull(rest,NULL,10))) {
error = TRUE;
break;
}
if (r == 0xffffffff) r = hi; // outlook
}
if (!r) break;
}
if (! (l && r)) break;
find_range(inset, min(l,r), max(l,r), a, uid);
if (g_tree_merge(b,a,IST_SUBSEARCH_OR)) {
error = TRUE;
TRACE(TRACE_ERR, "cannot compare null trees");
break;
}
}
if (! g_list_next(sets)) break;
sets = g_list_next(sets);
}
g_list_destroy(sets);
if (a) g_tree_destroy(a);
if (error) {
g_tree_destroy(b);
b = NULL;
TRACE(TRACE_DEBUG, "return NULL");
}
return b;
}
/* Use a staff. -RAK- */
void use()
{
int32u i;
int j, k, item_val, chance, y, x;
register int ident;
register struct misc *m_ptr;
register inven_type *i_ptr;
free_turn_flag = TRUE;
if (inven_ctr == 0)
msg_print("But you are not carrying anything.");
else if (!find_range(TV_STAFF, TV_NEVER, &j, &k))
msg_print("You are not carrying any staffs.");
else if (get_item(&item_val, "Use which staff?", j, k, CNIL, CNIL))
{
i_ptr = &inventory[item_val];
free_turn_flag = FALSE;
m_ptr = &py.misc;
chance = m_ptr->save + stat_adj(A_INT) - (int)i_ptr->level - 5
+ (class_level_adj[m_ptr->pclass][CLA_DEVICE] * m_ptr->lev / 3);
if (py.flags.confused > 0)
chance = chance / 2;
if ((chance < USE_DEVICE) && (randint(USE_DEVICE - chance + 1) == 1))
chance = USE_DEVICE; /* Give everyone a slight chance */
if (chance <= 0) chance = 1;
if (randint(chance) < USE_DEVICE)
msg_print("You failed to use the staff properly.");
else if (i_ptr->p1 > 0)
{
i = i_ptr->flags;
ident = FALSE;
(i_ptr->p1)--;
while (i != 0)
{
j = bit_pos(&i) + 1;
/* Staffs. */
switch(j)
{
case 1:
ident = light_area(char_row, char_col);
break;
case 2:
ident = detect_sdoor();
break;
case 3:
ident = detect_trap();
break;
case 4:
ident = detect_treasure();
break;
case 5:
ident = detect_object();
break;
case 6:
teleport(100);
ident = TRUE;
break;
case 7:
ident = TRUE;
earthquake();
break;
case 8:
ident = FALSE;
for (k = 0; k < randint(4); k++)
{
y = char_row;
x = char_col;
ident |= summon_monster(&y, &x, FALSE);
}
break;
case 10:
ident = TRUE;
destroy_area(char_row, char_col);
break;
case 11:
ident = TRUE;
starlite(char_row, char_col);
break;
case 12:
ident = speed_monsters(1);
break;
case 13:
ident = speed_monsters(-1);
break;
case 14:
ident = sleep_monsters2();
break;
case 15:
ident = hp_player(randint(8));
break;
case 16:
ident = detect_invisible();
break;
case 17:
if (py.flags.fast == 0)
ident = TRUE;
py.flags.fast += randint(30) + 15;
break;
case 18:
if (py.flags.slow == 0)
ident = TRUE;
py.flags.slow += randint(30) + 15;
break;
case 19:
ident = mass_poly();
break;
case 20:
if (remove_curse())
{
if (py.flags.blind < 1)
msg_print("The staff glows blue for a moment..");
ident = TRUE;
}
break;
case 21:
ident = detect_evil();
break;
case 22:
if ((cure_blindness()) || (cure_poison()) ||
(cure_confusion()))
ident = TRUE;
break;
case 23:
ident = dispel_creature(CD_EVIL, 60);
break;
case 25:
ident = unlight_area(char_row, char_col);
break;
case 32:
/* store bought flag */
break;
default:
msg_print("Internal error in staffs()");
break;
}
/* End of staff actions. */
}
if (ident)
{
if (!known1_p(i_ptr))
{
m_ptr = &py.misc;
/* round half-way case up */
m_ptr->exp += (i_ptr->level + (m_ptr->lev >> 1)) /
m_ptr->lev;
prt_experience();
identify(&item_val);
i_ptr = &inventory[item_val];
}
}
