ViewVC Help
View File | Revision Log | Show Annotations | Download File
/cvs/deliantra/server/common/object.C
(Generate patch)

Comparing deliantra/server/common/object.C (file contents):
Revision 1.343 by root, Sat Apr 23 04:56:46 2011 UTC vs.
Revision 1.349 by root, Sun May 8 11:44:43 2011 UTC

233 233
234/* Returns TRUE if every key_values in wants has a partner with the same value in has. */ 234/* Returns TRUE if every key_values in wants has a partner with the same value in has. */
235static bool 235static bool
236compare_ob_value_lists_one (const object *wants, const object *has) 236compare_ob_value_lists_one (const object *wants, const object *has)
237{ 237{
238 /* n-squared behaviour (see kv_get), but I'm hoping both 238 /* n-squared behaviour (see kv.get), but I'm hoping both
239 * objects with lists are rare, and lists stay short. If not, use a 239 * objects with lists are rare, and lists stay short. If not, use a
240 * different structure or at least keep the lists sorted... 240 * different structure or at least keep the lists sorted...
241 */ 241 */
242 242
243 /* For each field in wants, */ 243 /* For each field in wants, */
244 for (key_value *kv = wants->key_values; kv; kv = kv->next) 244 for (key_value *kv = wants->kv.first; kv; kv = kv->next)
245 if (has->kv_get (kv->key) != kv->value) 245 if (has->kv.get (kv->key) != kv->value)
246 return false; 246 return false;
247 247
248 /* If we get here, every field in wants has a matching field in has. */ 248 /* If we get here, every field in wants has a matching field in has. */
249 return true; 249 return true;
250} 250}
373 if (ob1->level != ob2->level) 373 if (ob1->level != ob2->level)
374 return 0; 374 return 0;
375 break; 375 break;
376 } 376 }
377 377
378 if (ob1->key_values || ob2->key_values) 378 if (!ob1->kv.empty () || !ob2->kv.empty ())
379 { 379 {
380 /* At least one of these has key_values. */ 380 /* At least one of these has key_values. */
381 if ((!ob1->key_values) != (!ob2->key_values)) 381 if (ob1->kv.empty () != ob2->kv.empty ())
382 return 0; /* One has fields, but the other one doesn't. */ 382 return 0; /* One has fields, but the other one doesn't. */
383 383
384 if (!compare_ob_value_lists (ob1, ob2)) 384 if (!compare_ob_value_lists (ob1, ob2))
385 return 0; 385 return 0;
386 } 386 }
599 } 599 }
600 600
601 this->owner = owner; 601 this->owner = owner;
602} 602}
603 603
604/* Zero the key_values on op, decrementing the shared-string
605 * refcounts and freeing the links.
606 */
607static void
608free_key_values (object *op)
609{
610 for (key_value *i = op->key_values; i; )
611 {
612 key_value *next = i->next;
613 delete i;
614
615 i = next;
616 }
617
618 op->key_values = 0;
619}
620
621/* 604/*
622 * copy_to first frees everything allocated by the dst object, 605 * copy_to first frees everything allocated by the dst object,
623 * and then copies the contents of itself into the second 606 * and then copies the contents of itself into the second
624 * object, allocating what needs to be allocated. Basically, any 607 * object, allocating what needs to be allocated. Basically, any
625 * data that is malloc'd needs to be re-malloc/copied. Otherwise, 608 * data that is malloc'd needs to be re-malloc/copied. Otherwise,
629void 612void
630object::copy_to (object *dst) 613object::copy_to (object *dst)
631{ 614{
632 dst->remove (); 615 dst->remove ();
633 *(object_copy *)dst = *this; 616 *(object_copy *)dst = *this;
617
618 // maybe move to object_copy?
619 dst->kv = kv;
620
634 dst->flag [FLAG_REMOVED] = true; 621 dst->flag [FLAG_REMOVED] = true;
635
636 /* Copy over key_values, if any. */
637 if (key_values)
638 {
639 key_value *tail = 0;
640 dst->key_values = 0;
641
642 for (key_value *i = key_values; i; i = i->next)
643 {
644 key_value *new_link = new key_value;
645
646 new_link->next = 0;
647 new_link->key = i->key;
648 new_link->value = i->value;
649
650 /* Try and be clever here, too. */
651 if (!dst->key_values)
652 {
653 dst->key_values = new_link;
654 tail = new_link;
655 }
656 else
657 {
658 tail->next = new_link;
659 tail = new_link;
660 }
661 }
662 }
663
664 dst->activate (); 622 dst->activate ();
665} 623}
666 624
667void 625void
668object::instantiate () 626object::instantiate ()
779 } 737 }
780 738
781 mapspace &m = op->ms (); 739 mapspace &m = op->ms ();
782 740
783 if (!(m.flags_ & P_UPTODATE)) 741 if (!(m.flags_ & P_UPTODATE))
784 /* nop */; 742 m.update_up (); // nothing to do except copy up
785 else if (action == UP_OBJ_INSERT) 743 else if (action == UP_OBJ_INSERT)
786 { 744 {
787#if 0 745#if 0
788 // this is likely overkill, TODO: revisit (schmorp) 746 // this is likely overkill, TODO: revisit (schmorp)
789 if ((op->flag [FLAG_BLOCKSVIEW] && !(m.flags_ & P_BLOCKSVIEW)) 747 if ((op->flag [FLAG_BLOCKSVIEW] && !(m.flags_ & P_BLOCKSVIEW))
810 * that is being removed. 768 * that is being removed.
811 */ 769 */
812 else if (action == UP_OBJ_CHANGE || action == UP_OBJ_REMOVE) 770 else if (action == UP_OBJ_CHANGE || action == UP_OBJ_REMOVE)
813 m.invalidate (); 771 m.invalidate ();
814 else if (action == UP_OBJ_FACE) 772 else if (action == UP_OBJ_FACE)
815 /* Nothing to do for that case */ ; 773 m.update_up (); // nothing to do for that case, except copy up
816 else 774 else
817 LOG (llevError, "update_object called with invalid action: %d\n", action); 775 LOG (llevError, "update_object called with invalid action: %d\n", action);
818 776
819 if (op->more) 777 if (op->more)
820 update_object (op->more, action); 778 update_object (op->more, action);
831 789
832object::~object () 790object::~object ()
833{ 791{
834 unlink (); 792 unlink ();
835 793
836 free_key_values (this); 794 kv.clear ();
837} 795}
838 796
839void object::link () 797void object::link ()
840{ 798{
841 assert (!index);//D 799 assert (!index);//D
940 * if some form of movement is allowed, let objects 898 * if some form of movement is allowed, let objects
941 * drop on that space. 899 * drop on that space.
942 */ 900 */
943 if (!drop_to_ground 901 if (!drop_to_ground
944 || !map 902 || !map
945 || map->in_memory != MAP_ACTIVE 903 || !map->linkable ()
946 || map->no_drop 904 || map->no_drop
947 || ms ().move_block == MOVE_ALL) 905 || ms ().move_block == MOVE_ALL)
948 { 906 {
949 while (inv) 907 while (inv)
950 inv->destroy (); 908 inv->destroy ();
1057 path = "<freed objects map>"; 1015 path = "<freed objects map>";
1058 name = "/internal/freed_objects_map"; 1016 name = "/internal/freed_objects_map";
1059 no_drop = 1; 1017 no_drop = 1;
1060 no_reset = 1; 1018 no_reset = 1;
1061 1019
1062 in_memory = MAP_ACTIVE; 1020 state = MAP_ACTIVE;
1063 } 1021 }
1064 1022
1065 ~freed_map () 1023 ~freed_map ()
1066 { 1024 {
1067 destroy (); 1025 destroy ();
1240 1198
1241 above = 0; 1199 above = 0;
1242 below = 0; 1200 below = 0;
1243 1201
1244 ms.invalidate (); 1202 ms.invalidate ();
1245
1246 if (map->in_memory == MAP_SAVING)
1247 return;
1248 1203
1249 int check_walk_off = !flag [FLAG_NO_APPLY]; 1204 int check_walk_off = !flag [FLAG_NO_APPLY];
1250 1205
1251 if (object *pl = ms.player ()) 1206 if (object *pl = ms.player ())
1252 { 1207 {
1387{ 1342{
1388 op->remove (); 1343 op->remove ();
1389 1344
1390 if (m == &freed_map)//D TODO: remove soon 1345 if (m == &freed_map)//D TODO: remove soon
1391 {//D 1346 {//D
1392 LOG (llevError | logBacktrace, "tries to insret object on freed objects map: %s", op->debug_desc ());//D 1347 LOG (llevError | logBacktrace, "tries to insert object on freed objects map: %s", op->debug_desc ());//D
1393 }//D 1348 }//D
1394 1349
1395 /* Ideally, the caller figures this out. However, it complicates a lot 1350 /* Ideally, the caller figures this out. However, it complicates a lot
1396 * of areas of callers (eg, anything that uses find_free_spot would now 1351 * of areas of callers (eg, anything that uses find_free_spot would now
1397 * need extra work 1352 * need extra work
2455 return /*who->flag [FLAG_WIZ]|| */ 2410 return /*who->flag [FLAG_WIZ]|| */
2456 (item->weight > 0 && !item->flag [FLAG_NO_PICK] && 2411 (item->weight > 0 && !item->flag [FLAG_NO_PICK] &&
2457 !item->flag [FLAG_ALIVE] && !item->invisible && (who->is_player () || item->weight < who->weight / 3)); 2412 !item->flag [FLAG_ALIVE] && !item->invisible && (who->is_player () || item->weight < who->weight / 3));
2458} 2413}
2459 2414
2415//-GPL
2416
2460/* 2417/*
2461 * create clone from object to another 2418 * create clone from object to another
2462 */ 2419 */
2463object * 2420object *
2464object::deep_clone () 2421object::deep_clone ()
2494 return tmp; 2451 return tmp;
2495 2452
2496 return 0; 2453 return 0;
2497} 2454}
2498 2455
2456/* Zero the key_values on op, decrementing the shared-string
2457 * refcounts and freeing the links.
2458 */
2459void
2460key_values::clear ()
2461{
2462 for (key_value *kvp = first; kvp; )
2463 {
2464 key_value *next = kvp->next;
2465 delete kvp;
2466 kvp = next;
2467 }
2468
2469 first = 0;
2470}
2471
2499shstr_tmp 2472shstr_tmp
2500object::kv_get (shstr_tmp key) const 2473key_values::get (shstr_tmp key) const
2501{ 2474{
2502 for (key_value *kv = key_values; kv; kv = kv->next) 2475 for (key_value *kv = first; kv; kv = kv->next)
2503 if (kv->key == key) 2476 if (kv->key == key)
2504 return kv->value; 2477 return kv->value;
2505 2478
2506 return shstr (); 2479 return shstr ();
2507} 2480}
2508 2481
2509void 2482void
2483key_values::add (shstr_tmp key, shstr_tmp value)
2484{
2485 key_value *kv = new key_value;
2486
2487 kv->next = first;
2488 kv->key = key;
2489 kv->value = value;
2490
2491 first = kv;
2492}
2493
2494void
2510object::kv_set (shstr_tmp key, shstr_tmp value) 2495key_values::set (shstr_tmp key, shstr_tmp value)
2511{ 2496{
2512 for (key_value *kv = key_values; kv; kv = kv->next) 2497 for (key_value *kv = first; kv; kv = kv->next)
2513 if (kv->key == key) 2498 if (kv->key == key)
2514 { 2499 {
2515 kv->value = value; 2500 kv->value = value;
2516 return; 2501 return;
2517 } 2502 }
2518 2503
2519 key_value *kv = new key_value; 2504 add (key, value);
2520
2521 kv->next = key_values;
2522 kv->key = key;
2523 kv->value = value;
2524
2525 key_values = kv;
2526} 2505}
2527 2506
2528void 2507void
2529object::kv_del (shstr_tmp key) 2508key_values::del (shstr_tmp key)
2530{ 2509{
2531 for (key_value **kvp = &key_values; *kvp; kvp = &(*kvp)->next) 2510 for (key_value **kvp = &first; *kvp; kvp = &(*kvp)->next)
2532 if ((*kvp)->key == key) 2511 if ((*kvp)->key == key)
2533 { 2512 {
2534 key_value *kv = *kvp; 2513 key_value *kv = *kvp;
2535 *kvp = (*kvp)->next; 2514 *kvp = (*kvp)->next;
2536 delete kv; 2515 delete kv;
2537 return; 2516 return;
2538 } 2517 }
2518}
2519
2520void
2521key_values::reverse ()
2522{
2523 key_value *prev = 0;
2524 key_value *head = first;
2525
2526 while (head)
2527 {
2528 key_value *node = head;
2529 head = head->next;
2530 node->next = prev;
2531 prev = node;
2532 }
2533
2534 first = prev;
2535}
2536
2537key_values &
2538key_values::operator =(const key_values &kv)
2539{
2540 clear ();
2541
2542 for (key_value *kvp = kv.first; kvp; kvp = kvp->next)
2543 add (kvp->key, kvp->value);
2544
2545 reverse ();
2539} 2546}
2540 2547
2541object::depth_iterator::depth_iterator (object *container) 2548object::depth_iterator::depth_iterator (object *container)
2542: iterator_base (container) 2549: iterator_base (container)
2543{ 2550{
2626object::region () const 2633object::region () const
2627{ 2634{
2628 return map ? map->region (x, y) 2635 return map ? map->region (x, y)
2629 : region::default_region (); 2636 : region::default_region ();
2630} 2637}
2638
2639//+GPL
2631 2640
2632void 2641void
2633object::open_container (object *new_container) 2642object::open_container (object *new_container)
2634{ 2643{
2635 if (container == new_container) 2644 if (container == new_container)
2693 } 2702 }
2694// else if (!old_container->env && contr && contr->ns) 2703// else if (!old_container->env && contr && contr->ns)
2695// contr->ns->floorbox_reset (); 2704// contr->ns->floorbox_reset ();
2696} 2705}
2697 2706
2707//-GPL
2708
2709// prefetch some flat area around the player
2710static void
2711prefetch_surrounding_area (object *op, maptile *map, int range)
2712{
2713 for (maprect *rect = map->split_to_tiles (mapwalk_buf,
2714 op->x - range , op->y - range ,
2715 op->x + range + 1, op->y + range + 1);
2716 rect->m;
2717 ++rect)
2718 {
2719 rect->m->touch ();
2720 rect->m->activate ();
2721 }
2722}
2723
2724// prefetch a generous area around the player, also up and down
2725void
2726object::prefetch_surrounding_maps ()
2727{
2728 prefetch_surrounding_area (this, map, 40);
2729
2730 if (maptile *m = map->tile_available (TILE_DOWN))
2731 prefetch_surrounding_area (this, m, 20);
2732
2733 if (maptile *m = map->tile_available (TILE_UP))
2734 prefetch_surrounding_area (this, m, 20);
2735}
2736
2737//+GPL
2738
2698object * 2739object *
2699object::force_find (shstr_tmp name) 2740object::force_find (shstr_tmp name)
2700{ 2741{
2701 /* cycle through his inventory to look for the MARK we want to 2742 /* cycle through his inventory to look for the MARK we want to
2702 * place 2743 * place
2706 return splay (tmp); 2747 return splay (tmp);
2707 2748
2708 return 0; 2749 return 0;
2709} 2750}
2710 2751
2711//-GPL
2712
2713void 2752void
2714object::force_set_timer (int duration) 2753object::force_set_timer (int duration)
2715{ 2754{
2716 this->duration = 1; 2755 this->duration = 1;
2717 this->speed_left = -1.f; 2756 this->speed_left = -1.f;
2723object::force_add (shstr_tmp name, int duration) 2762object::force_add (shstr_tmp name, int duration)
2724{ 2763{
2725 if (object *force = force_find (name)) 2764 if (object *force = force_find (name))
2726 force->destroy (); 2765 force->destroy ();
2727 2766
2728 object *force = get_archetype (FORCE_NAME); 2767 object *force = archetype::get (FORCE_NAME);
2729 2768
2730 force->slaying = name; 2769 force->slaying = name;
2731 force->force_set_timer (duration); 2770 force->force_set_timer (duration);
2732 force->flag [FLAG_APPLIED] = true; 2771 force->flag [FLAG_APPLIED] = true;
2733 2772

Diff Legend

Removed lines
+ Added lines
< Changed lines
> Changed lines