home *** CD-ROM | disk | FTP | other *** search
/ The World of Computer Software / World_Of_Computer_Software-02-387-Vol-3of3.iso / t / toaster.zip / Compat / simulate.c < prev    next >
C/C++ Source or Header  |  1992-03-09  |  90KB  |  3,547 lines
  1. #include <sys/types.h>
  2. #include <sys/stat.h>
  3. #include <sys/signal.h>
  4. #include <fcntl.h>
  5. #include <setjmp.h>
  6. #include <ctype.h>
  7. #include <string.h>
  8. #include <errno.h>
  9. #include <stdio.h>
  10. #include <memory.h>
  11. #if defined(sun)
  12. #include <alloca.h>
  13. #endif
  14. #include <ndir.h>
  15.  
  16. #include "lint.h"
  17. #include "config.h"
  18. #include "stdio.h"
  19. #include "lang.h"
  20. #include "interpret.h"
  21. #include "object.h"
  22. #include "sent.h"
  23. #include "wiz_list.h"
  24. #include "exec.h"
  25. #include "comm.h"
  26.  
  27. extern int errno;
  28. extern int comp_flag;
  29. extern char *init_file;
  30. char *inherit_file;
  31.  
  32. #if !defined(ultrix) && !defined(M_UNIX) && !defined(hpux) && !defined(sgi)
  33. extern int rename PROT((char *, char *));
  34. #endif
  35. extern int readlink PROT((char *, char *, int));
  36. extern int symlink PROT((char *, char *));
  37. #ifndef rindex
  38. extern char *rindex PROT((const char *, int));
  39. #endif
  40. #ifndef MSDOS
  41. extern int lstat PROT((char *, struct stat *));
  42. #else
  43. #define lstat stat
  44. #endif
  45. extern int fchmod PROT((int, int));     
  46. char *last_verb, *last_arg;
  47.  
  48. extern int special_parse PROT((char *)),
  49.     set_call PROT((struct object *, struct sentence *, int)),
  50.     legal_path PROT((char *));
  51.  
  52. void pre_compile PROT((char *)),
  53.     remove_interactive PROT((struct object *)),
  54.     add_light PROT((struct object *, int)),
  55.     add_action PROT((char *, char *, int)),
  56.     add_verb PROT((char *, int)),
  57.     print_local_commands(), ipc_remove(),
  58.     show_info_about PROT((char *, char *, struct interactive *)),
  59.     set_snoop PROT((struct object *, struct object *)),
  60.     print_lnode_status PROT((int)),
  61.     remove_all_players(), start_new_file PROT((FILE *)), end_new_file(),
  62.     move_or_destruct PROT((struct object *, struct object *)),
  63.     load_ob_from_swap PROT((struct object *)), dump_malloc_data(),
  64.     print_svalue PROT((struct svalue *)),
  65.     debug_message_value(),
  66.     destruct2();
  67.  
  68. extern int d_flag;
  69.  
  70. struct object *obj_list, *obj_list_destruct, *master_ob;
  71.  
  72. extern int current_line;
  73. extern struct wiz_list *back_bone_uid;
  74.  
  75. struct object *current_object;      /* The object interpreting a function. */
  76. struct object *command_giver;       /* Where the current command came from. */
  77. struct object *current_interactive; /* The user who caused this execution */
  78.  
  79. int num_parse_error;        /* Number of errors in the parser. */
  80.  
  81. void shutdowngame();
  82.  
  83. extern void flush_all_player_mess();
  84.  
  85. struct variable *find_status(str, must_find)
  86.     char *str;
  87.     int must_find;
  88. {
  89.     int i;
  90.  
  91.     for (i=0; i < current_object->prog->num_variables; i++) {
  92.     if (strcmp(current_object->prog->variable_names[i].name, str) == 0)
  93.         return ¤t_object->prog->variable_names[i];
  94.     }
  95.     if (!must_find)
  96.     return 0;
  97.     error("--Status %s not found in prog for %s\n", str,
  98.        current_object->name);
  99.     return 0;
  100. }
  101.  
  102. /*
  103.  * Give the correct uid and euid to a created object.
  104.  */
  105. int give_uid_to_object(ob)
  106.     struct object *ob;
  107. {
  108.     struct svalue *ret;
  109.     char *creator_name;
  110.     struct object *tmp_ob;
  111. #ifdef COMPAT_MODE
  112.     char wiz_name[100];
  113. #endif
  114.  
  115.     if (master_ob == 0)
  116.     tmp_ob = ob;
  117.     else {
  118.      assert_master_ob_loaded();
  119.     tmp_ob = master_ob;
  120.     }
  121.     
  122. #ifdef COMPAT_MODE
  123.     /* Is this object wizard defined ? */
  124.     if (sscanf(ob->name, "players/%s", wiz_name) == 1) {
  125.     char *np;
  126.     np = strchr(wiz_name, '/');
  127.     if (np)
  128.         *np = '\0';
  129.     ob->user = add_name(wiz_name);
  130.     } else {
  131.     ob->user = 0;
  132.     }
  133.     ob->eff_user = ob->user;    /* Initial state */
  134.     return 1;
  135. #else
  136.  
  137.     if (!current_object || !current_object->user) {
  138.     /*
  139.      * Only for the master and void object. Note that
  140.      * back_bone_uid is not defined when master.c is being loaded.
  141.      */
  142.     ob->user = add_name("NONAME");
  143.     ob->eff_user = 0;
  144.     return 1;
  145.     }
  146.  
  147.     /*
  148.      * Ask master.c who the creator of this object is.
  149.      */
  150.     push_constant_string(ob->name);
  151.     ret = apply("creator_file", tmp_ob, 1);
  152.     if (!ret)
  153.     error("No function 'creator_file' in master.c!\n");
  154.     if (ret->type != T_STRING) {
  155.     struct svalue arg;
  156.     /* This can be the case for objects in /ftp and /open. */
  157.     arg.type = T_OBJECT;
  158.     arg.u.ob = ob;
  159.     destruct_object(&arg, 0);
  160.     error("Illegal object to load.\n");
  161.     }
  162.     creator_name = ret->u.string;
  163.     /*
  164.      * Now we are sure that we have a creator name.
  165.      * Do not call apply() again, because creator_name will be lost !
  166.      */
  167.     if (strcmp(current_object->user->name, creator_name) == 0) {
  168.     /* 
  169.      * The loaded object has the same uid as the loader.
  170.      */
  171.     ob->user = current_object->eff_user;
  172.     ob->eff_user = current_object->eff_user;
  173.     return 1;
  174.     }
  175.  
  176.     if (strcmp(back_bone_uid->name, creator_name) == 0) {
  177.     /*
  178.      * The object is loaded from backbone. This is trusted, so we
  179.      * let it inherit the value of eff_user.
  180.      */
  181.     ob->user = current_object->eff_user;
  182.     ob->eff_user = current_object->eff_user;
  183.     return 1;
  184.     }
  185.  
  186.     /*
  187.      * The object is not loaded from backbone, nor from 
  188.      * from the loading objects path. That should be an object
  189.      * defined by another wizard. It can't be trusted, so we give it the
  190.      * same uid as the creator. Also give it eff_user 0, which means that
  191.      * player 'a' can't use objects from player 'b' to load new objects nor
  192.      * modify files owned by player 'b'.
  193.      *
  194.      * If this effect is wanted, player 'b' must let his object do
  195.      * 'seteuid()' to himself. That is the case for most rooms.
  196.      */
  197.     ob->user = add_name(creator_name);
  198.     ob->eff_user = (struct wiz_list *)0;
  199.     return 1;
  200. #endif /* COMPAT_MODE */
  201. }
  202.  
  203. /*
  204.  * Load an object definition from file. If the object wants to inherit
  205.  * from an object that is not loaded, discard all, load the inherited object,
  206.  * and reload again.
  207.  *
  208.  *
  209.  * In mudlib3.0 when loading inherited objects, their reset() is not called.
  210.  *
  211.  * Save the command_giver, because reset() in the new object might change
  212.  * it.
  213.  */
  214. struct object *load_object(lname, dont_reset)
  215.     char *lname;
  216.     int dont_reset;
  217. {
  218.     FILE *f;
  219.     extern int total_lines;
  220.     extern int approved_object;
  221.  
  222.     struct object *ob, *save_command_giver = command_giver;
  223.     extern struct program *prog;
  224.     extern char *current_file;
  225. #ifdef LEX_lexical
  226.     char *current_i_file;
  227.     struct stat i_st;
  228. #endif
  229.     struct stat c_st;
  230.     int name_length;
  231.     char real_name[200], name[200];
  232.  
  233. #ifndef COMPAT_MODE
  234.     if (current_object && current_object->eff_user == 0)
  235.        error("Can't load objects when no effective user.\n");
  236. #endif
  237.     /* Truncate possible .c in the object name. */
  238.     /* Remove leading '/' if any. */
  239.     while(lname[0] == '/')
  240.     lname++;
  241.     strncpy(name, lname, sizeof(name));
  242.     name[sizeof(name)-1] = 0;
  243.     name_length = strlen(name);
  244.     if (name_length > sizeof name - 4)
  245.     name_length = sizeof name - 4;
  246.     name[name_length] = '\0';
  247.     if (name[name_length-2] == '.' && name[name_length-1] == 'c') {
  248.     name[name_length-2] = '\0';
  249.     name_length -= 2;
  250.     }
  251.     /*
  252.      * First check that the c-file exists.
  253.      */
  254.     (void)strcpy(real_name, name);
  255.     (void)strcat(real_name, ".c");
  256.     if (stat(real_name, &c_st) == -1) {
  257.     fprintf(stderr, "Could not load descr for %s\n", real_name);
  258.     error("Failed to load file.\n");
  259.     return 0;
  260.     }
  261.     /*
  262.      * Check if it's a legal name.
  263.      */
  264.     if (!legal_path(real_name)) {
  265.     fprintf(stderr, "Illegal pathname: %s\n", real_name);
  266.     error("Illegal path name.\n");
  267.     return 0;
  268.     }
  269.  
  270. #ifdef LEX_lexical
  271.     real_name[name_length+1] = 'i';
  272.     if (stat(real_name, &i_st) == -1 || i_st.st_mtime < c_st.st_mtime) {
  273.        real_name[name_length+1] = 'c';
  274.        pre_compile(name);
  275.        real_name[name_length+1] = 'i';
  276.     }
  277.     if (stat(real_name, &i_st) == -1 || i_st.st_mtime < c_st.st_mtime) {
  278.        if (command_giver)
  279.           add_message("Failed to compile the new file.\n");
  280.     }
  281.     current_i_file = real_name;
  282. #endif
  283.     if (comp_flag)
  284.     fprintf(stderr, " compiling %s ...", real_name);
  285.     f = fopen(real_name, "r");
  286.     if (f == 0) {
  287.     perror(real_name);
  288.     error("Could not read the file.\n");
  289.     }
  290.     start_new_file(f);
  291.     current_file = string_copy(real_name);    /* This one is freed below */
  292.  
  293. #ifdef LEX_lexical
  294.     current_line = 0;
  295.     num_parse_error = 0;
  296. #endif
  297.     compile_file();
  298.     end_new_file();
  299.     if (comp_flag)
  300.         fprintf(stderr, " done\n");
  301.     update_compile_av(total_lines);
  302.     total_lines = 0;
  303.     (void)fclose(f);
  304.  
  305. #ifdef LEX_lexical
  306.     unlink(current_i_file);
  307. #endif
  308.  
  309.     free(current_file);
  310.     current_file = 0;
  311.     /* Sorry, can't handle objects without programs yet. */
  312.     if (inherit_file == 0 && (num_parse_error > 0 || prog == 0)) {
  313.     if (prog)
  314.         free_prog(prog, 1);
  315.     if (num_parse_error == 0 && prog == 0)
  316.         error("No program in object !\n");
  317.     error("Error in loading object\n");
  318.     }
  319.     /*
  320.      * This is an iterative process. If this object wants to inherit an
  321.      * unloaded object, then discard current object, load the object to be
  322.      * inherited and reload the current object again. The global variable
  323.      * "inherit_file" will be set by lang.y to point to a file name.
  324.      */
  325.     if (inherit_file) {
  326.     char *tmp = inherit_file;
  327.     if (prog) {
  328.         free_prog(prog, 1);
  329.         prog = 0;
  330.     }
  331.     if (strcmp(inherit_file, name) == 0) {
  332.         free(inherit_file);
  333.         inherit_file = 0;
  334.         error("Illegal to inherit self.\n");
  335.     }
  336.     inherit_file = 0;
  337. #ifdef MUDLIB3_NEED
  338. #ifdef COMPAT_MODE
  339.         load_object(tmp, 0);
  340. #else
  341.         load_object(tmp, 1);
  342. #endif
  343. #else
  344.     load_object(tmp, 0);
  345. #endif
  346.     free(tmp);
  347.     ob = load_object(name, dont_reset);
  348.     return ob;
  349.     }
  350.     ob = get_empty_object(prog->num_variables);
  351.     /*
  352.      * Can we approve of this object ?
  353.      */
  354.     if (approved_object || strcmp(prog->name, "std/object.c") == 0)
  355.     ob->flags |= O_APPROVED;
  356.     ob->name = string_copy(name);    /* Shared string is no good here */
  357.     add_ref(ob, "load_object");
  358.     ob->prog = prog;
  359.     ob->next_all = obj_list;
  360.     obj_list = ob;
  361.     enter_object_hash(ob);    /* add name to fast object lookup table */
  362.     if (give_uid_to_object(ob) && !dont_reset)
  363.        reset_object(ob, 0);
  364.     if (!(ob->flags & O_DESTRUCTED) && function_exists("clean_up",ob) ) {
  365.     ob->flags |= O_WILL_CLEAN_UP;
  366.     }
  367.     command_giver = save_command_giver;
  368.     if (d_flag > 1 && ob)
  369.     debug_message("--%s loaded\n", ob->name);
  370.     return ob;
  371. }
  372.  
  373. struct object *previous_ob;
  374.  
  375. char *make_new_name(str)
  376.     char *str;
  377. {
  378.     static int i;
  379.     char *p = xalloc(strlen(str) + 10);
  380.  
  381.     (void)sprintf(p, "%s#%d", str, i);
  382.     i++;
  383.     return p;
  384. }
  385.     
  386.  
  387. /*
  388.  * Save the command_giver, because reset() in the new object might change
  389.  * it.
  390.  */
  391. struct object *clone_object(str1)
  392.     char *str1;
  393. {
  394.     struct object *ob, *new_ob;
  395.     struct object *save_command_giver = command_giver;
  396.  
  397. #ifndef COMPAT_MODE
  398.     if (current_object && current_object->eff_user == 0)
  399.        error("Illegal to call clone_object() with no effective user.\n"); 
  400. #endif
  401.     ob = find_object(str1);
  402.     if (ob == 0 || ob->super || (ob->flags & O_CLONE))
  403.     error("Cloning a bad object!\n");
  404.     
  405.     /* We do not want the heart beat to be running for unused copied objects */
  406.  
  407.     if (ob->flags & O_HEART_BEAT) 
  408.     (void)set_heart_beat(ob, 0);
  409.     new_ob = get_empty_object(ob->prog->num_variables);
  410.     new_ob->name = make_new_name(ob->name);
  411.     new_ob->flags |= O_CLONE | ob->flags & ( O_APPROVED | O_WILL_CLEAN_UP ) ;
  412. #if 0
  413.       if (ob->flags & O_APPROVED)
  414.       new_ob->flags |= O_APPROVED;
  415. #endif
  416.     add_ref(new_ob, "clone_object");
  417.     new_ob->prog = ob->prog;
  418.     reference_prog(ob->prog, "clone_object");
  419. #ifdef COMPAT_MODE
  420.     if (current_object && current_object->user && !ob->user)
  421.         new_ob->user = current_object->user;
  422.     else
  423.         new_ob->user = ob->user;        /* Possibly a null pointer */
  424.     new_ob->eff_user = new_ob->user;
  425. #else
  426.     if (!current_object)
  427.           fatal("clone_object() from no current_object!\n");
  428.     give_uid_to_object(new_ob);
  429. #endif
  430.     new_ob->next_all = obj_list;
  431.     obj_list = new_ob;
  432.     enter_object_hash(new_ob);    /* Add name to fast object lookup table */
  433.     reset_object(new_ob, 0); 
  434.     command_giver = save_command_giver;
  435.     /* Never know what can happen ! :-( */
  436.     if (new_ob->flags & O_DESTRUCTED)
  437.     return 0;
  438.     return new_ob;
  439. }
  440.  
  441. struct object *environment(arg)
  442.     struct svalue *arg;
  443. {
  444.     struct object *ob = current_object;
  445.  
  446.     if (arg && arg->type == T_OBJECT)
  447.     ob = arg->u.ob;
  448.     else if (arg && arg->type == T_STRING)
  449.     ob = find_object2(arg->u.string);
  450.     if (ob == 0 || ob->super == 0 || (ob->flags & O_DESTRUCTED))
  451.     return 0;
  452.     if (ob->flags & O_DESTRUCTED)
  453.     error("environment() of destructed object.\n");
  454.     return ob->super;
  455. }
  456.  
  457. /*
  458.  * Execute a command for an object. Copy the command into a
  459.  * new buffer, because 'parse_command()' can modify the command.
  460.  * If the object is not current object, static functions will not
  461.  * be executed. This will prevent forcing players to do illegal things.
  462.  *
  463.  * Return cost of the command executed if success (> 0).
  464.  * When failure, return 0.
  465.  */
  466. int command_for_object(str, ob)
  467.     char *str;
  468.     struct object *ob;
  469. {
  470.     char buff[1001];
  471.     extern int eval_cost;
  472.     int save_eval_cost = eval_cost - 1000;
  473.  
  474.     if (strlen(str) > sizeof(buff) - 1)
  475.     error("Too long command.\n");
  476.     if (ob == 0)
  477.     ob = current_object;
  478.     else if (ob->flags & O_DESTRUCTED)
  479.     return 0;
  480.     strncpy(buff, str, sizeof buff);
  481.     buff[sizeof(buff)-1] = 0;
  482.     if (parse_command(buff, ob, ob!=current_object))
  483.     return eval_cost - save_eval_cost;
  484.     else
  485.     return 0;
  486. }
  487.  
  488. /*
  489.  * To find if an object is present, we have to look in two inventory
  490.  * lists. The first list is the inventory of the current object.
  491.  * The second list is all things that have the same ->super as
  492.  * current_object.
  493.  * Also test the environment.
  494.  * If the second argument 'ob' is non zero, only search in the
  495.  * inventory of 'ob'. The argument 'ob' will be mandatory, later.
  496.  */
  497.  
  498. static struct object *object_present2 PROT((char *, struct object *));
  499.  
  500. struct object *object_present(v, ob)
  501.     struct svalue *v;
  502.     struct object *ob;
  503. {
  504.     struct svalue *ret;
  505.     struct object *ret_ob;
  506.     int specific = 0;
  507.  
  508.     if (ob == 0)
  509.     ob = current_object;
  510.     else
  511.     specific = 1;
  512.     if (ob->flags & O_DESTRUCTED)
  513.     return 0;
  514.     if (v->type == T_OBJECT) {
  515.     if (specific) {
  516.         if (v->u.ob->super == ob)
  517.         return v->u.ob;
  518.         else
  519.         return 0;
  520.     }
  521.     if (v->u.ob->super == ob ||
  522.         (v->u.ob->super == ob->super && ob->super != 0))
  523.         return v->u.ob;
  524.     return 0;
  525.     }
  526.     ret_ob = object_present2(v->u.string, ob->contains);
  527.     if (ret_ob)
  528.     return ret_ob;
  529.     if (specific)
  530.     return 0;
  531.     if (ob->super) {
  532.     push_string(v->u.string, STRING_CONSTANT);
  533.     ret = apply("id", ob->super, 1);
  534.     if (ob->super->flags & O_DESTRUCTED)
  535.         return 0;
  536.     if (ret && !(ret->type == T_NUMBER && ret->u.number == 0))
  537.         return ob->super;
  538.     return object_present2(v->u.string, ob->super->contains);
  539.     }
  540.     return 0;
  541. }
  542.  
  543. static struct object *object_present2(str, ob)
  544.     char *str;
  545.     struct object *ob;
  546. {
  547.     struct svalue *ret;
  548.     char *p;
  549.     int count = 0, length;
  550.     char *item;
  551.  
  552.     item = string_copy(str);
  553.     length = strlen(item);
  554.     p = item + length - 1;
  555.     if (*p >= '0' && *p <= '9') {
  556.     while(p > item && *p >= '0' && *p <= '9')
  557.         p--;
  558.     if (p > item && *p == ' ') {
  559.         count = atoi(p+1) - 1;
  560.         *p = '\0';
  561.         length = p - item;    /* This is never used again ! */
  562.     }
  563.     }
  564.     for (; ob; ob = ob->next_inv) {
  565.     push_string(item, STRING_CONSTANT);
  566.     ret = apply("id", ob, 1);
  567.     if (ob->flags & O_DESTRUCTED) {
  568.         free(item);
  569.         return 0;
  570.     }
  571.     if (ret == 0 || (ret->type == T_NUMBER && ret->u.number == 0))
  572.         continue;
  573.     if (count-- > 0)
  574.         continue;
  575.     free(item);
  576.     return ob;
  577.     }
  578.     free(item);
  579.     return 0;
  580. }
  581.  
  582. /* KLUDGE KLUDGE KLUDGE KLUDGE KLUDGE      */
  583. /* ALL THIS TO AVOID 1 BYTE PER OBJECT     */
  584. /* not used very often however -- Raistlin */
  585.  
  586. struct destructor_stack
  587. {
  588.    struct object *element;
  589.    struct destructor_stack *next;
  590. } *d_stack = NULL;
  591.  
  592. static struct object *top_of_stack() 
  593. { 
  594.    if (!d_stack) 
  595.       return NULL; 
  596.    else 
  597.       return d_stack->element; 
  598. }
  599.  
  600. /* cleans up things, just in case of errors... */
  601. static void clean_stack()
  602. {
  603.    struct destructor_stack *current, *previous=NULL;
  604.  
  605.    current = d_stack;
  606.    while(current)
  607.    {
  608.       struct destructor_stack *next;
  609.  
  610.       next = current->next;
  611.       if (current->element->flags&O_DESTRUCTED)
  612.       {
  613.          if (!previous)  d_stack = current->next;
  614.          else previous->next = current->next;
  615.          free((char *)current);
  616.       }
  617.       else 
  618.          previous = current;
  619.       current = next;
  620.    }
  621. }
  622.  
  623. static void push_destructor(ob)
  624. struct object *ob;
  625. {
  626.    struct destructor_stack *new;
  627.    new = (struct destructor_stack *) xalloc(sizeof(struct destructor_stack));
  628.    new->element = ob;
  629.    new->next = NULL;
  630.    if (d_stack)
  631.       new->next = d_stack;
  632.    d_stack = new;
  633.    clean_stack();   
  634. }
  635.  
  636. static struct object *pop_destructor()
  637. {
  638.    struct destructor_stack *popped;
  639.    struct object *ob;
  640.    popped = d_stack;
  641.    d_stack = d_stack->next;
  642.    ob = popped->element;
  643.    free((char *)popped);
  644.    clean_stack();
  645.    return ob;
  646. }
  647.  
  648. static int test_stack(ob)
  649. struct object *ob;
  650. {
  651.    struct destructor_stack *current = d_stack;
  652.    while(current)
  653.    {
  654.       if (current->element == ob) return 1;
  655.       current = current->next;
  656.    }
  657.    return 0;
  658. }
  659.  
  660. /*
  661.  * Remove an object. It is first moved into the destruct list, and
  662.  * not really destructed until later. (see destruct2()).
  663.  */
  664. void destruct_object(v, really)
  665.     struct svalue *v;
  666.     int really;
  667. {
  668.     struct object *ob, *super;
  669.     struct object **pp;
  670.     int removed;
  671.  
  672.     if (v->type == T_OBJECT)
  673.     ob = v->u.ob;
  674.     else {
  675.     ob = find_object2(v->u.string);
  676.     if (ob == 0)
  677.         error("destruct_object: Could not find %s\n", v->u.string);
  678.     }
  679.     if (ob->flags & O_DESTRUCTED)
  680.     return;
  681.     if (ob->flags & O_SWAPPED)
  682.         load_ob_from_swap(ob);
  683.     remove_object_from_stack(ob);
  684. /* 
  685.  * Added 4/26/91 -- Raistlin.  destructor() is called on destructed objects 
  686.  *
  687.  * This means that the object is already in the process of being destructed 
  688.  * and another destructor (or it's own) tried to destruct it. 
  689.  * The "really" flag means "Don't call the destructor", in case of error 
  690.  */
  691.     if (!really && test_stack(ob)) return;
  692.     if (!really && function_exists("destructor", ob))
  693.     {
  694.        push_destructor(ob);
  695.        (void)apply("destructor", ob, 0);
  696.        pop_destructor(); 
  697.     } 
  698.  
  699.     /*
  700.      * If this is the first object being shadowed by another object, then
  701.      * destruct the whole list of shadows.
  702.      */
  703.     if (ob->shadowed && !ob->shadowing) {
  704.     struct svalue svp;
  705.     struct object *ob2;
  706.  
  707.     svp.type = T_OBJECT;
  708.     for (ob2 = ob->shadowed; ob2; ) {
  709.         svp.u.ob = ob2;
  710.         ob2 = ob2->shadowed;
  711.         svp.u.ob->shadowed = 0;
  712.         svp.u.ob->shadowing = 0;
  713.         destruct_object(&svp, 0);
  714.     }
  715.     }
  716.     /*
  717.      * The chain of shadows is a double linked list. Take care to update
  718.      * it correctly.
  719.      */
  720.     if (ob->shadowed)
  721.     ob->shadowed->shadowing = ob->shadowing;
  722.     if (ob->shadowing)
  723.     ob->shadowing->shadowed = ob->shadowed;
  724.     ob->shadowed = ob->shadowing = 0;
  725.  
  726.     if (d_flag > 1)
  727.     debug_message("Destruct object %s (ref %d)\n", ob->name, ob->ref);
  728.     super = ob->super;
  729. #ifdef COMPAT_MODE
  730.     if (super) {
  731.     struct svalue *weight;
  732.     /* Call exit in current room, if player or npc not in mudlib 3.0 */
  733.     if((ob->flags & O_ENABLE_COMMANDS)) {
  734.         push_object(ob, "destruct_object");
  735.         (void)apply("exit",super,1);
  736.     }
  737.     weight = apply("query_weight", ob, 0);
  738.     if (weight && weight->type == T_NUMBER) {
  739.         push_number(-weight->u.number);
  740.         (void)apply("add_weight", super, 1);
  741.     }
  742.     }
  743. #endif
  744.     if (super == 0)
  745.     {
  746.     struct svalue svp;
  747.     svp.type = T_OBJECT;
  748.     while(ob->contains) {
  749.         svp.u.ob = ob->contains;
  750.         push_object(ob->contains, "destruct");
  751.         /*
  752.          * An errer here will not leave destruct() in an inconsistant
  753.              * stage.
  754.          */
  755.         apply_master_ob("destruct_environment_of", 1);
  756.         if (svp.u.ob == ob->contains)
  757.            destruct_object(&svp, 0);
  758.     }
  759.     }
  760.     else
  761.         while(ob->contains)
  762.         move_or_destruct(ob->contains, super);
  763.     if ( ob->interactive ) {
  764.     struct object *save=command_giver;
  765.  
  766.     command_giver=ob;
  767.     if (ob->interactive->ed_buffer) {
  768.         extern void save_ed_buffer();
  769.  
  770.         save_ed_buffer();
  771.     }
  772.     flush_all_player_mess();
  773.     command_giver=save;
  774.     }
  775.     set_heart_beat(ob, 0);
  776.     /*
  777.      * Remove us out of this current room (if any).
  778.      * Remove all sentences defined by this object from all objects here.
  779.      */
  780.     if (ob->super) {
  781.     if (ob->super->flags & O_ENABLE_COMMANDS)
  782.         remove_sent(ob, ob->super);
  783.     add_light(ob->super, - ob->total_light);
  784.     for (pp = &ob->super->contains; *pp;) {
  785.         if ((*pp)->flags & O_ENABLE_COMMANDS)
  786.         remove_sent(ob, *pp);
  787.         if (*pp != ob)
  788.         pp = &(*pp)->next_inv;
  789.         else
  790.         *pp = (*pp)->next_inv;
  791.     }
  792.     }
  793.     /*
  794.      * Now remove us out of the list of all objects.
  795.      * This must be done last, because an error in the above code would
  796.      * halt execution.
  797.      */
  798.     removed = 0;
  799.     /*
  800.      * If any of the calls above (move_or_destruct) caused a call 
  801.      * to the efun destruct, then this object will already be destructed
  802.      * and removed from the list, so everything after this for loop will
  803.      * already have been done, so we can just return here.
  804.      */
  805.     if (ob->flags & O_DESTRUCTED)
  806.         return;
  807.     else
  808.        for (pp = &obj_list; *pp; pp = &(*pp)->next_all) {
  809.     if (*pp != ob)
  810.         continue;
  811.     *pp = (*pp)->next_all;
  812.     removed = 1;
  813.     remove_object_hash(ob);
  814.     break;
  815.     }
  816.     if (!removed)
  817.         fatal("Failed to delete object.\n"); 
  818.     if (ob->living_name)
  819.     remove_living_name(ob);
  820.     ob->super = 0;
  821.     ob->next_inv = 0;
  822.     ob->contains = 0;
  823.     ob->flags &= ~O_ENABLE_COMMANDS;
  824.     ob->next_all = obj_list_destruct;
  825.     obj_list_destruct = ob;
  826.     ob->flags |= O_DESTRUCTED;
  827. }
  828.  
  829. /*
  830.  * This one is called when no program is executing.
  831.  * The super pointer is still maintained.
  832.  */
  833. void destruct2(ob)
  834.     struct object *ob;
  835. {
  836.     if (d_flag > 1) {
  837.     debug_message("Destruct-2 object %s (ref %d)\n", ob->name, ob->ref);
  838.     }
  839.     if (ob->interactive)
  840.     remove_interactive(ob);
  841.     /*
  842.      * We must deallocate variables here, not in 'free_object()'.
  843.      * That is because one of the local variables may point to this object,
  844.      * and deallocation of this pointer will also decrease the reference
  845.      * count of this object. Otherwise, an object with a variable pointing
  846.      * to itself, would never be freed.
  847.      * Just in case the program in this object would continue to
  848.      * execute, change string and object variables into the number 0.
  849.      */
  850.     if (ob->prog->num_variables > 0) {
  851.     /*
  852.      * Deallocate variables in this object.
  853.      * The space of the variables are not deallocated until
  854.      * the object structure is freed in free_object().
  855.      */
  856.     int i;
  857.     for (i=0; i<ob->prog->num_variables; i++) {
  858.         free_svalue(&ob->variables[i], "destruct_object");
  859.         ob->variables[i].type = T_NUMBER;
  860.         ob->variables[i].u.number = 0;
  861.     }
  862.     }
  863.     free_object(ob, "destruct_object");
  864. }
  865.  
  866. #ifdef F_CREATE_WIZARD
  867. /*
  868.  * This is the efun create_wizard(). Create a home dir for a wizard,
  869.  * and other files he may want.
  870.  *
  871.  * The real job is done by the master.c object, so the call could as well
  872.  * have been done to it directly. But, this function remains for
  873.  * compatibility.
  874.  *
  875.  * It should be replaced by a function in simul_efun.c !
  876.  */
  877. char *create_wizard(owner, domain)
  878.     char *owner;
  879.     char *domain;
  880. {
  881.     struct svalue *ret;
  882. #if 0
  883.     struct stat st;
  884.     char cmd[200], lbuf[128];
  885.     static char name[200], name2[200];
  886.     FILE *f;
  887.     struct object *owner_obj;
  888. #endif
  889.  
  890.     /* 
  891.      * Let the master object do the job.
  892.      */
  893.     push_constant_string(owner);
  894.     push_constant_string(domain);
  895.     push_object(current_object, "create_wizard");
  896.     ret = apply_master_ob("master_create_wizard", 3);
  897.     if (ret && ret->type == T_STRING)
  898.         return ret->u.string;
  899.     return 0;
  900. #if 0
  901.     fprintf(stderr, "c_w called with %s and %s from %s\n",
  902.     owner, domain ? domain : "without domain", current_object->name);
  903.     /*
  904.      * Verify that it is a valid call of create_wizard(). This is done
  905.      * by a function in master.c. It will take the calling object as
  906.      * argument, and must return a non-zero value.
  907.      */
  908.     push_object(current_object, "create_wizard");
  909.     ret = apply_master_ob("verify_create_wizard", 1);
  910.     if (ret == 0)
  911.     error("No wizards allowed ! (because no verify_create_wizard() in master.c)\n");
  912.     if (ret->type == T_NUMBER && ret->u.number == 0)
  913.     error("Illegal use of create_wizard() !\n");
  914.  
  915.     /*
  916.      * Even if the object that called create_wizard() is trusted, we won't
  917.      * allow it to use funny names for the owner.
  918.      */
  919.     if (!legal_path(owner))
  920.     error("Bad name to create_wizard: %s\n", owner);
  921.     owner_obj = find_living_object(owner, 1);
  922.     if (owner_obj == 0) {
  923.     fprintf(stderr,
  924.         "create_wizard: Could not find living object %s.\n", owner);
  925.     return 0;
  926.     }
  927.     (void)sprintf(name, "%s/%s", PLAYER_DIR, owner);
  928.     if(domain) {
  929.     (void)sprintf(name2, "%s/%s/%s", DOMAIN_DIR, domain, owner);
  930.     fprintf(stderr, "name = %s, name2 =  %s\n", name, name2);
  931.     if (stat(name, &st) == 0) {
  932.         if((st.st_mode & S_IFMT) == S_IFDIR) {
  933.         rename(name, name2);
  934.         }
  935.     } else {
  936.         if (mkdir(name2, 0777) == -1) {
  937.         perror(name);
  938.         error("Could not mkdir %s\n", name2);
  939.         }
  940.     }
  941.     } else {
  942.     if (stat(name, &st) == 0)
  943.         error("Player %s already has a castle!\n", owner);
  944.  
  945.     else
  946.         if (mkdir(name, 0777) == -1) {
  947.         perror(name);
  948.         error("Could not mkdir %s\n", name);
  949.         }
  950.     }
  951.  
  952.     /* add castle */
  953.     if(domain) {
  954.     (void)sprintf(name, "%s/%s/common/domain.c", DOMAIN_DIR, domain);
  955.     } else {
  956.     (void)sprintf(name, "%s/%s/%s", PLAYER_DIR, owner, "castle.c");
  957.     }
  958.     if(stat(name, &st) == 0) {
  959.     fprintf(stderr, "castle file %s already exists.\n", name);
  960.     } else {
  961.     f = fopen(name, "w");
  962.     if (f == NULL)
  963.         error("Could not create a castle file %s!\n", name);
  964.     (void)fprintf(f, "#define NAME \"%s\"\n", domain ? domain : owner);
  965. #ifdef CASTLE_ROOM
  966.     (void)fprintf(f, "#define DEST \"%s\"\n", CASTLE_ROOM);
  967. #else
  968.         (void)fprintf(f, "#define DEST \"%s\"\n", current_object->super->name);
  969. #endif
  970.     (void)fclose(f);
  971.     (void)sprintf(cmd, "cat %s >> %s", DEFAULT_CASTLE, name);
  972.     (void)system(cmd);
  973.     }
  974.  
  975. #ifdef COMPAT_MODE
  976.     f = fopen(init_file, "a");
  977.     if (f == NULL)
  978.         error("Could not add the new castle to the %s\n", init_file);
  979.     (void)fprintf(f, "%s\n", name);
  980.     (void)fclose(f);
  981. #endif
  982.     return name;
  983. #endif
  984. }
  985. #endif F_CREATE_WIZARD
  986.  
  987. /*
  988.  * A message from an object will reach
  989.  * all objects in the inventory,
  990.  * all objects in the same environment and
  991.  * the surrounding object.
  992.  * Non interactive objects gets no messages.
  993.  *
  994.  * There are two cases to take care of. If this routine is called from
  995.  * a player (indirectly), then the message goes to all in his
  996.  * environment. Otherwise, the message goes to all in the current_object's
  997.  * environment (as the case when called from a heart_beat()).
  998.  *
  999.  * If there is a second argument 'avoid_ob', then do not send the message
  1000.  * to that object.
  1001.  */
  1002.  
  1003. #if 0
  1004. void say(v, avoid_ob)
  1005.     struct svalue *v;
  1006.     struct object *avoid_ob;
  1007. {
  1008.     struct object *ob, *save_command_giver = command_giver;
  1009.     struct object *origin;
  1010.     char buff[257];
  1011.  
  1012.     if (current_object->flags & O_ENABLE_COMMANDS)
  1013.     command_giver = current_object;
  1014.     else if (current_object->shadowing)
  1015.     command_giver = current_object->shadowing;
  1016.     if (command_giver)
  1017.     origin = command_giver;
  1018.     else
  1019.     origin = current_object;
  1020.     switch(v->type) {
  1021.     case T_STRING:
  1022.     strncpy(buff, v->u.string, sizeof buff);
  1023.     buff[sizeof buff - 1] = '\0';
  1024.     break;
  1025.     case T_OBJECT:
  1026.     strncpy(buff, v->u.ob->name, sizeof buff);
  1027.     buff[sizeof buff - 1] = '\0';
  1028.     break;
  1029.     case T_NUMBER:
  1030.     sprintf(buff, "%d", v->u.number);
  1031.     break;
  1032.     default:
  1033.     error("Invalid argument %d to say()\n", v->type);
  1034.     }
  1035.     buff[sizeof buff - 1] = 0;
  1036.     for (ob = origin->contains; ob; ob = ob->next_inv) 
  1037.     {
  1038.     struct object *save_again;
  1039.     if (ob->interactive == 0) 
  1040.         {
  1041.         if ((ob->flags & O_ENABLE_COMMANDS) && ob != command_giver &&
  1042.         ob != avoid_ob)
  1043.         tell_npc(ob, buff);
  1044.         if (ob->flags & O_DESTRUCTED)
  1045.         break;
  1046.         continue;
  1047.     }
  1048.     if (ob == save_command_giver || ob == avoid_ob)
  1049.         continue;
  1050.     save_again = command_giver;
  1051.     command_giver = ob;
  1052.     add_message("%s", buff);
  1053.     command_giver = save_again;
  1054.     }
  1055.     if (origin->super) 
  1056.     {
  1057.     if (origin->super->interactive && origin != command_giver &&
  1058.         origin->super != avoid_ob) 
  1059.         {
  1060.         command_giver = origin->super;
  1061.         add_message("%s", buff);
  1062.     } 
  1063.         else if (origin->super->interactive == 0 && 
  1064.                  origin->super != avoid_ob &&
  1065.         (origin->super->flags & O_ENABLE_COMMANDS) &&
  1066.          ob != command_giver) 
  1067.         tell_npc(origin->super, buff);
  1068.  
  1069.     for (ob = origin->super->contains; ob; ob = ob->next_inv) 
  1070.         {
  1071.         struct object *save_again;
  1072.         if (ob == avoid_ob)
  1073.         continue;
  1074.         if (ob->interactive == 0) 
  1075.         {
  1076.         if ((ob->flags & O_ENABLE_COMMANDS) && ob != command_giver)
  1077.             tell_npc(ob, buff);
  1078.         if (ob->interactive)
  1079.             break;
  1080.         continue;
  1081.         }
  1082.         if (ob == command_giver)
  1083.         continue;
  1084.         save_again = command_giver;
  1085.         command_giver = ob;
  1086.         add_message("%s", buff);
  1087.         command_giver = save_again;
  1088.     }
  1089.     }
  1090.     command_giver = save_command_giver;
  1091. }
  1092. #else
  1093.  
  1094. void say(v, avoid)
  1095.     struct svalue *v;
  1096.     struct vector *avoid;
  1097. {
  1098.     extern struct vector *order_alist PROT((struct vector *));
  1099.     struct vector *vtmpp;
  1100.     static struct vector vtmp = { 1, 1,
  1101. #ifdef DEBUG
  1102.     1,
  1103. #endif
  1104.     (struct wiz_list *)NULL,
  1105.     { { T_POINTER } }
  1106.     };
  1107.  
  1108.     extern int assoc PROT((struct svalue *key, struct vector *));
  1109.     struct object *ob, *save_command_giver = command_giver;
  1110.     struct object *origin;
  1111.     char buff[256];
  1112. #define INITAL_MAX_RECIPIENTS 20
  1113.     int max_recipients = INITAL_MAX_RECIPIENTS;
  1114.     struct object *first_recipients[INITAL_MAX_RECIPIENTS];
  1115.     struct object **recipients = first_recipients;
  1116.     struct object **curr_recipient = first_recipients;
  1117.     struct object **last_recipients =
  1118.     &first_recipients[INITAL_MAX_RECIPIENTS-1];
  1119.  
  1120.     struct object *save_again;
  1121.     static struct svalue stmp = { T_OBJECT };
  1122.  
  1123.     if (current_object->flags & O_ENABLE_COMMANDS)
  1124.     command_giver = current_object;
  1125.     else if (current_object->shadowing)
  1126.     command_giver = current_object->shadowing;
  1127.     if (command_giver) {
  1128.     origin = command_giver;
  1129.         if (avoid->item[0].type == T_NUMBER) {
  1130.             avoid->item[0].type = T_OBJECT;
  1131.             avoid->item[0].u.ob = command_giver;
  1132.             add_ref(command_giver, "ass to var");
  1133.         }
  1134.     } else
  1135.     origin = current_object;
  1136.     vtmp.item[0].u.vec = avoid;
  1137.     vtmpp = order_alist(&vtmp);
  1138.     avoid = vtmpp->item[0].u.vec;
  1139.     if (ob = origin->super) {
  1140.     if (ob->flags & O_ENABLE_COMMANDS || ob->interactive) {
  1141.         *curr_recipient++ = ob;
  1142.     }
  1143.     for (ob = origin->super->contains; ob; ob = ob->next_inv) {
  1144.             if (ob->flags & O_ENABLE_COMMANDS || ob->interactive) {
  1145.                 if (curr_recipient >= last_recipients) {
  1146.                     max_recipients <<= 1;
  1147.                     curr_recipient = (struct object **)
  1148.               alloca(max_recipients * sizeof(struct object *));
  1149.                     memcpy((char*)curr_recipient, (char*)recipients,
  1150.                       max_recipients * sizeof(struct object *)>>1);
  1151.                     recipients = curr_recipient;
  1152.                     last_recipients = &recipients[max_recipients-1];
  1153.                 }
  1154.                 *curr_recipient++ = ob;
  1155.             }
  1156.     }
  1157.     }
  1158.     for (ob = origin->contains; ob; ob = ob->next_inv) {
  1159.     if (ob->flags & O_ENABLE_COMMANDS || ob->interactive) {
  1160.         if (curr_recipient >= last_recipients) {
  1161.         max_recipients <<= 1;
  1162.         curr_recipient = (struct object **)alloca(max_recipients);
  1163.         memcpy((char*)curr_recipient, (char*)recipients,
  1164.           max_recipients * sizeof(struct object *)>>1);
  1165.         recipients = curr_recipient;
  1166.         last_recipients = &recipients[max_recipients-1];
  1167.         }
  1168.         *curr_recipient++ = ob;
  1169.     }
  1170.     }
  1171.     *curr_recipient = (struct object *)0;
  1172.     switch(v->type) {
  1173.     case T_STRING:
  1174.     strncpy(buff, v->u.string, sizeof buff);
  1175.     buff[sizeof buff - 1] = '\0';
  1176.     break;
  1177.     case T_OBJECT:
  1178.     strncpy(buff, v->u.ob->name, sizeof buff);
  1179.     buff[sizeof buff - 1] = '\0';
  1180.     break;
  1181.     case T_NUMBER:
  1182.     sprintf(buff, "%d", v->u.number);
  1183.     break;
  1184.     case T_POINTER:
  1185.     for (curr_recipient = recipients; ob = *curr_recipient++; ) {
  1186.         extern void push_vector PROT((struct vector *));
  1187.  
  1188.         if (ob->flags & O_DESTRUCTED) continue;
  1189.         stmp.u.ob = ob;
  1190.         if (assoc(&stmp, avoid) >= 0) continue;
  1191.         push_vector(v->u.vec);
  1192.         push_object(command_giver, "say");
  1193.         apply("catch_msg", ob, 2);
  1194.     }
  1195.     break;
  1196.     default:
  1197.     error("Invalid argument %d to say()\n", v->type);
  1198.     }
  1199.     save_again = command_giver;
  1200.     for (curr_recipient = recipients; ob = *curr_recipient++; ) {
  1201.         if (ob->flags & O_DESTRUCTED) continue;
  1202.     stmp.u.ob = ob;
  1203.     if (assoc(&stmp, avoid) >= 0) continue;
  1204.     if (ob->interactive == 0) {
  1205.         tell_npc(ob, buff);
  1206.         continue;
  1207.     }
  1208.     command_giver = ob;
  1209.     add_message("%s", buff);
  1210.     command_giver = save_again;
  1211.     }
  1212.     free_vector(vtmpp);
  1213.     command_giver = save_command_giver;
  1214. }
  1215. #endif
  1216.  
  1217. /*
  1218.  * Send a message to all objects inside an object.
  1219.  * Non interactive objects gets no messages.
  1220.  * Compare with say().
  1221.  */
  1222.  
  1223. void tell_room(room, v, avoid)
  1224.     struct object *room;
  1225.     struct svalue *v;
  1226.     struct vector *avoid; /* has to be in alist order */
  1227. {
  1228.     struct object *ob, *save_command_giver = command_giver;
  1229.     char buff[257];
  1230.  
  1231.     switch(v->type) {
  1232.     case T_STRING:
  1233.     strncpy(buff, v->u.string, sizeof buff);
  1234.     buff[sizeof buff - 1] = '\0';
  1235.     break;
  1236.     case T_OBJECT:
  1237.     strncpy(buff, v->u.ob->name, sizeof buff);
  1238.     buff[sizeof buff - 1] = '\0';
  1239.     break;
  1240.     case T_NUMBER:
  1241.     sprintf(buff, "%d", v->u.number);
  1242.     break;
  1243.     default:
  1244.     error("Invalid argument %d to tell_room()\n", v->type);
  1245.     }
  1246.     buff[sizeof buff - 1] = 0;
  1247.     for (ob = room->contains; ob; ob = ob->next_inv) {
  1248.         int assoc PROT((struct svalue *key, struct vector *));
  1249.     static struct svalue stmp = { T_OBJECT, } ;
  1250.  
  1251.     stmp.u.ob = ob;
  1252.     if (assoc(&stmp, avoid) >= 0) continue;
  1253.     if (ob->interactive == 0) {
  1254.         if (ob->flags & O_ENABLE_COMMANDS) {
  1255.         /*
  1256.          * We want the monster code to have a correct this_player()
  1257.          */
  1258.         command_giver = save_command_giver;
  1259.         tell_npc(ob, buff);
  1260.         }
  1261.         if (ob->flags & O_DESTRUCTED)
  1262.         break;
  1263.         continue;
  1264.     }
  1265.     command_giver = ob;
  1266.     add_message("%s", buff);
  1267.     }
  1268.     command_giver = save_command_giver;
  1269. }
  1270.  
  1271. void shout_string(str)
  1272.     char *str;
  1273. {
  1274.     struct object *ob, *save_command_giver = command_giver;
  1275.     int emergency = 0, i;
  1276.     extern int num_player;
  1277. #ifdef LOG_SHOUT
  1278.     FILE *f = 0;
  1279. #endif
  1280.     char *p;
  1281.  
  1282.     if (str[0] == '!') { emergency = 1; }
  1283.     str = string_copy(str+emergency);
  1284.  
  1285. #ifdef LOG_SHOUT
  1286.     if (command_giver) {
  1287.     struct svalue *v = 0;
  1288.     v = apply("query_real_name", command_giver, 0);
  1289.     if (v && v->type == T_STRING)
  1290.         p = v->u.string;
  1291.     } else if (current_object && current_object->user)
  1292.     p = current_object->user->name;
  1293.     if (p)
  1294.     f = fopen("log/SHOUTS", "a");
  1295.     if (f) {
  1296.     fprintf(f, "%s: %s\n", p, str);
  1297.     fclose(f);
  1298.     }
  1299. #endif
  1300. #if 0
  1301.     for (ob = obj_list; ob; ob = ob->next_all) {
  1302.         struct svalue *ret;
  1303.     if (!ob->interactive || ob == save_command_giver || !ob->super)
  1304.         continue;
  1305.         push_object(ob, "shout_string");
  1306.         ret = apply_master_ob("valid_shout", 1);
  1307.         if (!emergency && (!ret || ret->type != T_NUMBER || ret->u.number == 0))
  1308.             continue;
  1309.     command_giver = ob;
  1310.     add_message("%s", str);
  1311.     }
  1312. #endif
  1313.     for (i = 0; i < num_player; ++i)
  1314.     {
  1315.        struct svalue *ret;
  1316.       
  1317.        ob = get_interactive_object(i);
  1318.        if (!ob->interactive || ob == save_command_giver || !ob->super)
  1319.           continue;
  1320.  
  1321.        ret = 0;
  1322.        if (!emergency)
  1323.        {
  1324.           push_object(ob, "shout_string");
  1325.           ret = apply_master_ob("valid_shout", 1);
  1326.           if (ret && ret->type == T_NUMBER && ret->u.number == 0)
  1327.              continue;
  1328.        }
  1329.        command_giver = ob;
  1330.        add_message("%s", str);
  1331.     } 
  1332.     command_giver = save_command_giver;
  1333.     free(str);
  1334. }
  1335.  
  1336. struct object *first_inventory(arg)
  1337.     struct svalue *arg;
  1338. {
  1339.     struct object *ob;
  1340.  
  1341.     if (arg->type == T_STRING)
  1342.     ob = find_object(arg->u.string);
  1343.     else
  1344.     ob = arg->u.ob;
  1345.     if (ob == 0)
  1346.     error("No object to first_inventory()");
  1347.     if (ob->contains == 0)
  1348.     return 0;
  1349.     return ob->contains;
  1350. }
  1351.  
  1352. /*
  1353.  * This will enable an object to use commands normally only
  1354.  * accessible by interactive players.
  1355.  * Also check if the player is a wizard. Wizards must not affect the
  1356.  * value of the wizlist ranking.
  1357.  */
  1358.  
  1359. void enable_commands(num)
  1360.     int num;
  1361. {
  1362.     if (current_object->flags & O_DESTRUCTED)
  1363.     return;
  1364.     if (d_flag > 1) {
  1365.     debug_message("Enable commands %s (ref %d)\n",
  1366.         current_object->name, current_object->ref);
  1367.     }
  1368.     if (num) {
  1369.     current_object->flags |= O_ENABLE_COMMANDS;
  1370.     command_giver = current_object;
  1371.     } else {
  1372.     current_object->flags &= ~O_ENABLE_COMMANDS;
  1373.     command_giver = 0;
  1374.     }
  1375. }
  1376.  
  1377. /*
  1378.  * Set up a function in this object to be called with the next
  1379.  * user input string.
  1380.  */
  1381. int input_to(fun, flag)
  1382.     char *fun;
  1383.     int flag;
  1384. {
  1385.     struct sentence *s;
  1386.  
  1387.     if (!command_giver || command_giver->flags & O_DESTRUCTED)
  1388.     return 0;
  1389.     s = alloc_sentence();
  1390.     if (set_call(command_giver, s, flag)) {
  1391.     s->function = make_shared_string(fun);
  1392.     s->ob = current_object;
  1393.     add_ref(current_object, "input_to");
  1394.     return 1;
  1395.     }
  1396.     free_sentence(s);
  1397.     return 0;
  1398. }
  1399.  
  1400. #define MAX_LINES 50
  1401. #define MAXLSCOLUMNS 6
  1402.  
  1403. struct entry { 
  1404.    int len;
  1405.    int size;
  1406.    char file[34];
  1407. };
  1408.  
  1409. int pstrcmp(p1, p2)
  1410.     char **p1, **p2;
  1411. {
  1412.     return strcmp(((struct entry *)p1)->file,((struct entry *)p2)->file);
  1413. }
  1414.  
  1415. /*
  1416.  * List files in a directory. The standard 'ls' could be used, but
  1417.  * it takes too much time.
  1418.  * Prepared for flag decoding.
  1419.  *
  1420.  * Look at the the last component of the path name. It is a regular
  1421.  * expression, select only matching files.
  1422.  *
  1423.  * All .i files and '.' and '..' are only listed if they match the regexp.
  1424.  */
  1425.  
  1426. void list_files(path)
  1427. char *path;
  1428. {
  1429.    DIR *dirp;
  1430.    struct direct *de;
  1431.    struct stat st;
  1432.    char regexp[80], *p, path2[150];
  1433.    int do_match = 0;
  1434.    struct entry name[MAXLSCOLUMNS*MAX_LINES];
  1435. /*
  1436.    struct entry *nbuf;
  1437. */
  1438.    int colwidth[MAXLSCOLUMNS];
  1439.    char *fname;
  1440.    int num, i, j, k, ncols, npercol, max, total, size;
  1441.    
  1442.    if (!path)
  1443.       path = ".";
  1444. #ifdef COMPAT_MODE
  1445.    path = check_file_name(path, 0);
  1446. #else
  1447.    path = check_valid_path(path, current_object->eff_user,
  1448.                   "list_files", 0);
  1449. #endif
  1450.    if (path  ==  0)
  1451.       return;
  1452.    strncpy(path2, path, sizeof path2);
  1453.    path2[sizeof path2 - 1] = '\0';
  1454.    if(path2[0]==0) 
  1455.      strcpy(path2, "./");
  1456.    p = path2 + strlen(path2) - 2;
  1457.    if (p  >=  path2 && p[0]  ==  '/' && p[1]  ==  '.')
  1458.       p[0] = '\0';
  1459.    if (stat(path2, &st)  ==  -1) 
  1460.    {
  1461.       /* Either the directory does not exist, or it is a regexp
  1462.        * file name. Strip of the last component.
  1463.        */
  1464.       p = strrchr(path2, '/');
  1465.       if (p  ==  0 || p[1]  ==  '\0')
  1466.      return;
  1467.       strncpy(regexp, p+1, sizeof regexp);
  1468.       regexp[sizeof regexp - 1] = '\0';
  1469.       *p = '\0';
  1470.       do_match = 1;
  1471.    }
  1472.    dirp = opendir(path2);
  1473.    if (dirp  ==  0) 
  1474.    {
  1475.       add_message("No such directory '%s'\n", path2);
  1476.       return;
  1477.    }
  1478.    num = 0;
  1479.    total = 0;
  1480.    if (path[0]) strcat(path2,"/");
  1481.    i = strlen(path2);
  1482.    fname = &path2[i];
  1483.    i = sizeof(path2) - i - 1;
  1484. /*
  1485.    nbuf = (struct entry *)xalloc((sizeof(struct entry))*MAXLSCOLUMNS*MAX_LINES);
  1486.    
  1487.    for (j=0; j<MAXLSCOLUMNS*MAX_LINES; j++)
  1488.       name[j] = nbuf+j;
  1489. */
  1490.    
  1491.    for(de = readdir(dirp); (de && num<(MAXLSCOLUMNS*MAX_LINES)); 
  1492.        de = readdir(dirp)) 
  1493.    {
  1494.       if (!do_match && (strcmp(de-> d_name, ".")  ==  0 ||
  1495.             strcmp(de-> d_name, "..")  ==  0))
  1496.      continue;
  1497.       if (do_match && !match_string(regexp, de-> d_name))
  1498.      continue;
  1499.       strncpy(fname, de-> d_name, i);
  1500.       j = 0;
  1501.       if (stat(path2, &st) != -1) 
  1502.       {
  1503.      size = (int)st.st_size / 1024 + ((int)st.st_size % 1024  >  0);
  1504.      total += size;
  1505.      if (S_IFDIR & st.st_mode) j = 1;
  1506.       }
  1507.       else size=0;
  1508.       strncpy(name[num].file, de->d_name, sizeof(name[num].file));
  1509.       name[num].file[sizeof(name[num].file)-1]=0;
  1510.       name[num].len = (int) (de-> d_namlen+j);
  1511.       name[num].size = (int) size;
  1512.       if (j)
  1513.      strcat(name[num].file,"/");
  1514.       num++;
  1515.    }
  1516.    closedir(dirp);
  1517.    
  1518.    if (num == 0) 
  1519.    {
  1520.       add_message(do_match?"No matching files.\n":"No files.\n");
  1521. /*
  1522.       free(nbuf);
  1523. */
  1524.       return;
  1525.    }
  1526.    
  1527.    /* Sort the names. */
  1528.    qsort((char *)name, num, sizeof (struct entry), pstrcmp);
  1529.    
  1530.    ncols = num/(num/MAXLSCOLUMNS+(num%MAXLSCOLUMNS > 0))+
  1531.            ((num%(num/MAXLSCOLUMNS+(num%MAXLSCOLUMNS > 0))) > 0);
  1532.    while (1) 
  1533.    {
  1534.       npercol = num / ncols + (num % ncols  >  0);        
  1535.       for (j=0; j<ncols; j++) 
  1536.       {
  1537.      max = 0;
  1538.      for (i=j*npercol; i<(j+1)*npercol && i<num; i++) 
  1539.         if (name[i].len  >  max)
  1540.            max=name[i].len;
  1541.      colwidth[j] = max+6;
  1542.       }
  1543.       for (i=0, max=0; i<ncols; i++)
  1544.      max+=colwidth[i];
  1545.       if (max<79)
  1546.      break;
  1547.       ncols--;
  1548.       if (ncols<1) 
  1549.       {
  1550.      ncols=1;
  1551.      npercol=num;
  1552.      break;
  1553.       }
  1554.    }
  1555.    
  1556.    for (i=1; i < ncols; i++)
  1557.       colwidth[i]+=colwidth[i-1];
  1558.    
  1559.    add_message("Total %d\n", total);
  1560.    
  1561.    max = 0; i = 0; j = 0;
  1562.    strcpy(path2,
  1563.       "                                                                                ");
  1564.    while (max < num) 
  1565.    {
  1566.       k = (i * npercol) + j;
  1567.       if (i >= ncols) 
  1568.       {
  1569.      j++; i=0;
  1570.      add_message("%s\n", path2);
  1571.      strcpy(path2,
  1572.         "                                                                                ");
  1573.      continue;
  1574.       }            
  1575.       if (k < num) 
  1576.       {
  1577.      if (name[k].size > 9999)
  1578.         sprintf(&path2[(i > 0 ? colwidth[i - 1] : 0)],
  1579.             "BIG! %s ", name[k].file);
  1580.      else
  1581.         sprintf(&path2[(i > 0 ? colwidth[i-1] : 0)],
  1582.             "%4d %s ",
  1583.             name[k].size,
  1584.             name[k].file);
  1585.             if ((i + 1) * npercol + j < num)
  1586.                path2[(i > 0 ? colwidth[i - 1] : 0) +
  1587.                  6 + name[k].len]=' ';
  1588.      max++;
  1589.       }
  1590.       i++;    
  1591.    }
  1592.    add_message("%s\n", path2);
  1593.    if (num == MAXLSCOLUMNS * MAX_LINES)
  1594.       add_message("***Too many files, listing truncated***\n");
  1595. /*
  1596.    free(nbuf);
  1597. */
  1598. }
  1599.  
  1600. int fstrcmp(a, b)
  1601. char **a, **b;
  1602. {
  1603.    return strcmp((char *)a, (char *)b);
  1604. }
  1605.  
  1606. struct vector *get_files(path)
  1607. char *path;
  1608. {
  1609.    DIR *dirp;
  1610.    struct direct *de;
  1611.    struct stat st;
  1612.    char regexp[80], *p, path2[150], *fname;
  1613.    char name[MAX_ARRAY_SIZE][34];/*dunno where 34 comes from, but they use it */
  1614.    int do_match = 0;
  1615.    int num, i, j;
  1616.    struct vector *ret;
  1617.    
  1618.    if (!path)
  1619.       path = ".";
  1620. #ifdef COMPAT_MODE
  1621.    path = check_file_name(path, 0);
  1622. #else
  1623.    path = check_valid_path(path, current_object->eff_user, 
  1624.                   "files", 0);
  1625. #endif
  1626.    if (path  ==  0)
  1627.       return 0;
  1628.    strncpy(path2, path, sizeof path2);
  1629.    path2[sizeof path2 - 1] = '\0';
  1630.    p = path2 + strlen(path2) - 2;
  1631.    if (p  >=  path2 && p[0]  ==  '/' && p[1]  ==  '.')
  1632.       p[0] = '\0';
  1633.    if (stat(path2, &st)  ==  -1) 
  1634.    {
  1635.       /* Either the directory does not exist, or it is a regexp
  1636.        * file name. Strip of the last component.
  1637.        */
  1638.       p = strrchr(path2, '/');
  1639.       if (p  ==  0 || p[1]  ==  '\0')
  1640.      return 0;
  1641.       strncpy(regexp, p+1, sizeof regexp);
  1642.       regexp[sizeof regexp - 1] = '\0';
  1643.       *p = '\0';
  1644.       do_match = 1;
  1645.    }
  1646.    dirp = opendir(path2);
  1647.    if (dirp  ==  0) 
  1648.       return 0;
  1649.    num = 0;
  1650.    if (path[0]) strcat(path2,"/");
  1651.    i = strlen(path2);
  1652.    fname = path2+i;
  1653.    i = sizeof(path2) - i - 1;
  1654.    
  1655.    for(de = readdir(dirp); de; de = readdir(dirp)) 
  1656.    {
  1657.       if (!do_match && (strcmp(de-> d_name, ".")  ==  0 ||
  1658.             strcmp(de-> d_name, "..")  ==  0))
  1659.      continue;
  1660.       if (do_match && !match_string(regexp, de-> d_name))
  1661.      continue;
  1662.       j = 0;
  1663.       strncpy(fname, de-> d_name, i);
  1664.       if (stat(path2, &st) != -1) 
  1665.          if (S_IFDIR & st.st_mode) j = 1;
  1666.       strncpy(name[num], de->d_name, sizeof name[num]);
  1667.       name[num][sizeof(name[num])-1] = 0;
  1668.       if (j)
  1669.      strcat(name[num],"/");
  1670.       num++;
  1671.    }
  1672.    closedir(dirp);
  1673.    
  1674.    /* Sort the names. */
  1675.    if (num)
  1676.       qsort((char *)name, num, sizeof name[0], fstrcmp);
  1677.    
  1678.    ret = allocate_array(num);
  1679.    for (i=0; i<num; ++i)
  1680.    {
  1681.       ret->item[i].type = T_STRING;
  1682.       ret->item[i].u.string = make_shared_string(name[i]);
  1683.       ret->item[i].string_type = STRING_SHARED;
  1684.    }
  1685.    return ret;
  1686. } 
  1687.  
  1688. /*
  1689.  * List files in directory. This function do same as standard list_files
  1690.  * but instead writing files right away to player this returns an array
  1691.  * containing those files. Actually most of code is copied from list_files()
  1692.  * function.
  1693.  * Differenceies with list_files:
  1694.  *
  1695.  *   - file_list("/w"); returns ({ "w" })
  1696.  *
  1697.  *   - file_list("/w/"); and file_list("/w/."); return contents of directory
  1698.  *     "/w"
  1699.  *
  1700.  *   - file_list("/");, file_list("."); and file_list("/."); return contents
  1701.  *     of directory "/"
  1702.  */
  1703. struct vector *get_dir(path)
  1704.     char *path;
  1705. {
  1706.     struct vector *v;
  1707.     int i, count = 0;
  1708.     DIR *dirp;
  1709.     int namelen, do_match = 0;
  1710.     struct direct *de;
  1711.     struct stat st;
  1712.     char *temppath;
  1713.     char *p;
  1714.     char *regexp = 0;
  1715.  
  1716.     if (!path)
  1717.     return 0;
  1718.  
  1719. #ifdef COMPAT_MODE
  1720.     path = check_file_name(path, 0);
  1721. #else
  1722.     path = check_valid_path(path, current_object->eff_user, "get_dir", 0);
  1723. #endif
  1724.  
  1725.     if (path == 0)
  1726.     return 0;
  1727.  
  1728.     /*
  1729.      * We need to modify the returned path, and thus to make a
  1730.      * writeable copy.
  1731.      * The path "" needs 2 bytes to store ".\0".
  1732.      */
  1733.     temppath = (char *)alloca(strlen(path)+2);
  1734.     if (strlen(path)<2) {
  1735.     temppath[0]=path[0]?path[0]:'.';
  1736.     temppath[1]='\000';
  1737.     p = temppath;
  1738.     } else {
  1739.     strcpy(temppath, path);
  1740.     /*
  1741.      * If path ends with '/' or "/." remove it
  1742.      */
  1743.     if ((p = strrchr(temppath, '/')) == 0)
  1744.         p = temppath;
  1745.     if (p[0] == '/' && p[1] == '.' && p[2] == '\0' || 
  1746.         p[0] == '/' && p[1] == '\0')
  1747.         *p = '\0';
  1748.     }
  1749.  
  1750.     if (stat(temppath, &st) < 0) {
  1751.     if (*p == '\0')
  1752.         return 0;
  1753.     regexp = (char *)alloca(strlen(p)+2);
  1754.     if (p != temppath) {
  1755.         strcpy(regexp, p + 1);
  1756.         *p = '\0';
  1757.     } else {
  1758.         strcpy(regexp, p);
  1759.         strcpy(temppath, ".");
  1760.     }
  1761.     do_match = 1;
  1762.     } else if (*p != '\0' && strcmp(temppath, ".")) {
  1763.     if (*p == '/' && *(p + 1) != '\0')
  1764.         p++;
  1765.     v = allocate_array(1);
  1766.     v->item[0].type = T_STRING;
  1767.     v->item[0].string_type = STRING_MALLOC;
  1768.     v->item[0].u.string = string_copy(p);
  1769.     return v;
  1770.     }
  1771.  
  1772.     if ((dirp = opendir(temppath)) == 0)
  1773.     return 0;
  1774.  
  1775.     /*
  1776.      *  Count files
  1777.      */
  1778.     for (de = readdir(dirp); de; de = readdir(dirp)) {
  1779.     namelen = de->d_namlen;
  1780.     if (!do_match && (strcmp(de->d_name, ".") == 0 ||
  1781.               strcmp(de->d_name, "..") == 0))
  1782.         continue;
  1783.     if (do_match && !match_string(regexp, de->d_name))
  1784.         continue;
  1785.     count++;
  1786.     if ( count >= MAX_ARRAY_SIZE)
  1787.         break;
  1788.     }
  1789.     /*
  1790.      * Make array and put files on it.
  1791.      */
  1792.     v = allocate_array(count);
  1793.     if (count == 0) {
  1794.     /* This is the easy case :-) */
  1795.     closedir(dirp);
  1796.     return v;
  1797.     }
  1798.     rewinddir(dirp);
  1799.     for(i = 0, de = readdir(dirp); i < count; de = readdir(dirp)) {
  1800.     namelen = de->d_namlen;
  1801.     if (!do_match && (strcmp(de->d_name, ".") == 0 ||
  1802.               strcmp(de->d_name, "..") == 0))
  1803.         continue;
  1804.     if (do_match && !match_string(regexp, de->d_name))
  1805.         continue;
  1806.     de->d_name[namelen] = '\0';
  1807.     v->item[i].type = T_STRING;
  1808.     v->item[i].string_type = STRING_MALLOC;
  1809.     v->item[i].u.string = string_copy(de->d_name);
  1810.     i++;
  1811.     }
  1812.     closedir(dirp);
  1813.     /* Sort the names. */
  1814.     qsort((char *)v->item, count, sizeof v->item[0], pstrcmp);
  1815.     return v;
  1816. }
  1817.  
  1818. int tail(path)
  1819.     char *path;
  1820. {
  1821.     char buff[1000];
  1822.     FILE *f;
  1823.     struct stat st;
  1824.     int offset;
  1825.  
  1826. #ifdef COMPAT_MODE
  1827.     path = check_file_name(path, 0);
  1828. #else
  1829.     path = check_valid_path(path, current_object->eff_user, "tail", 0);
  1830. #endif
  1831.     if (path == 0)
  1832.         return 0;
  1833.     f = fopen(path, "r");
  1834.     if (f == 0)
  1835.     return 0;
  1836.     if (fstat(fileno(f), &st) == -1)
  1837.     error("Could not stat an open file.\n");
  1838.     offset = st.st_size - 54 * 20;
  1839.     if (offset < 0)
  1840.     offset = 0;
  1841.     if (fseek(f, offset, 0) == -1)
  1842.     fatal("Could not seek.\n");
  1843.     /* Throw away the first incomplete line. */
  1844.     if (offset > 0)
  1845.     (void)fgets(buff, sizeof buff, f);
  1846.     while(fgets(buff, sizeof buff, f)) {
  1847.     add_message("%s", buff);
  1848.     }
  1849.     fclose(f);
  1850.     return 1;
  1851. }
  1852.  
  1853.  
  1854. int print_file(path, start, len)
  1855.     char *path;
  1856.     int start, len;
  1857. {
  1858.     char buff[1000];
  1859.     FILE *f;
  1860.     int i, num_read = 0;;
  1861.  
  1862.     if (len < 0)
  1863.     return -1;
  1864. #ifdef COMPAT_MODE
  1865.     path = check_file_name(path, 0);
  1866. #else
  1867.     path = check_valid_path(path, current_object->eff_user, 
  1868.                 "print_file", 0);
  1869. #endif
  1870.     if (path == 0)
  1871.         return -1;
  1872.     f = fopen(path, "r");
  1873.     if (f == 0)
  1874.     return -1;
  1875.     if (start < 0) {
  1876.     int lines = 0;
  1877.  
  1878.     while (fgets(buff, sizeof buff, f) != 0)
  1879.         lines++;
  1880.     rewind(f);
  1881.     start = lines - len + 1;
  1882.     }
  1883.     for (i = 1; i < start; i++) {
  1884.     if (fgets(buff, sizeof buff, f) == 0)
  1885.         break;
  1886.     }
  1887.     if (!len || len > MAX_LINES)
  1888.     len = MAX_LINES;
  1889.     for (i = 0; i < len; i++) {
  1890.     if (fgets(buff, sizeof buff, f) == 0)
  1891.         break;
  1892.         buff[sizeof buff - 1] = 0;
  1893.     num_read++;
  1894.     add_message("%s", buff);
  1895.     }
  1896.     if (i == MAX_LINES)
  1897.     add_message("*****TRUNCATED*****\n");
  1898.     fclose(f);
  1899.     return num_read;
  1900. }
  1901.  
  1902. int remove_file(path)
  1903.     char *path;
  1904. {
  1905. #ifdef COMPAT_MODE
  1906.     path = check_file_name(path, 1);
  1907. #else
  1908.     path = check_valid_path(path, current_object->eff_user,
  1909.                   "remove_file", 1);
  1910. #endif
  1911.     if (path == 0)
  1912.         return 0;
  1913.     if (unlink(path) == -1)
  1914.        return 0;
  1915.     return 1;
  1916. }
  1917.  
  1918. void log_file(file, str)
  1919.     char *file, *str;
  1920. {
  1921.     FILE *f;
  1922.     char file_name[100];
  1923.     struct stat st;
  1924.  
  1925.     sprintf(file_name, "/log/%s", file);
  1926. #ifdef COMPAT_MODE
  1927.     if (strchr(file, '/') || file[0] == '.' || strlen(file) > 30
  1928. #ifdef MSDOS
  1929.         || !valid_msdos(file)
  1930. #endif
  1931.         )
  1932.           error("Illegal file name to log_file(%s)\n", file);
  1933. #else
  1934.     if (!check_valid_path(file_name, current_object->eff_user, 
  1935.             "log_file", 1))
  1936.           return;
  1937. #endif
  1938.     if (stat(file_name+1, &st) != -1 && st.st_size > MAX_LOG_SIZE) {
  1939.       char file_name2[sizeof file_name + 4];
  1940.     sprintf(file_name2, "%s.old", file_name+1);
  1941.     rename(file_name+1, file_name2);    /* No panic if failure */
  1942.     }
  1943.     f = fopen(file_name+1, "a");    /* Skip leading '/' */
  1944.     if (f == 0)
  1945.     return;
  1946.     fwrite(str, strlen(str), 1, f);
  1947.     fclose(f);
  1948. }
  1949.  
  1950. void
  1951. print_svalue(arg)
  1952.     struct svalue *arg;
  1953. {
  1954.     if (arg == 0)
  1955.     add_message("<NULL>");
  1956.     else if (arg->type == T_STRING) {
  1957.     if (strlen(arg->u.string) > 9500)    /* Not pretty */
  1958.         error("Too long string.\n");
  1959.     /* Strings sent to monsters are now delivered */
  1960.     if (command_giver && (command_giver->flags & O_ENABLE_COMMANDS) &&
  1961.               !command_giver->interactive)
  1962.         tell_npc(command_giver, arg->u.string);
  1963.     else
  1964.         add_message("%s", arg->u.string);
  1965.     } else if (arg->type == T_OBJECT)
  1966.     add_message("OBJ(%s)", arg->u.ob->name);
  1967.     else if (arg->type == T_NUMBER)
  1968.     add_message("%d", arg->u.number);
  1969.     else if (arg->type == T_POINTER)
  1970.     add_message("<ARRAY>");
  1971.     else
  1972.     add_message("<UNKNOWN>");
  1973. }
  1974.  
  1975. void do_write(arg)
  1976.     struct svalue *arg;
  1977. {
  1978.     struct object *save_command_giver = command_giver;
  1979.     if (command_giver == 0 && current_object->shadowing)
  1980.        command_giver = current_object;
  1981.     if (command_giver)
  1982.     while (command_giver->shadowing)
  1983.         command_giver = command_giver->shadowing;
  1984.     print_svalue(arg);
  1985.     command_giver = save_command_giver;
  1986. }
  1987.  
  1988. /* Find an object. If not loaded, load it ! */
  1989.  
  1990. struct object *find_object(str)
  1991.     char *str;
  1992. {
  1993.     struct object *ob;
  1994.  
  1995.     /* Remove leading '/' if any. */
  1996.     while(str[0] == '/')
  1997.     str++;
  1998.     ob = find_object2(str);
  1999.     if (ob)
  2000.     return ob;
  2001.     ob = load_object(str, 0);
  2002.     if (ob->flags & O_DESTRUCTED)        /* *sigh* */
  2003.        return 0;
  2004.     if (ob && ob->flags & O_SWAPPED)
  2005.     load_ob_from_swap(ob);
  2006.     return ob;
  2007. }
  2008.  
  2009. /* Look for a loaded object. Return 0 if non found. */
  2010. struct object *find_object2(str)
  2011.     char *str;
  2012. {
  2013.     register struct object *ob;
  2014.     register int length;
  2015.  
  2016.     /* Remove leading '/' if any. */
  2017.     while(str[0] == '/')
  2018.     str++;
  2019.     /* Truncate possible .c in the object name. */
  2020.     length = strlen(str);
  2021.     if (str[length-2] == '.' && str[length-1] == 'c') {
  2022.     /* A new writreable copy of the name is needed. */
  2023.     char *p;
  2024.     p = (char *)alloca(strlen(str)+1);
  2025.     strcpy(p, str);
  2026.     str = p;
  2027.     str[length-2] = '\0';
  2028.     }
  2029.     if (ob = lookup_object_hash(str)) {
  2030.     if (ob->flags & O_SWAPPED)
  2031.         load_ob_from_swap(ob);
  2032.     return ob;
  2033.     }
  2034.     return 0;
  2035. }
  2036.  
  2037. #if 0
  2038.  
  2039. void apply_command(com)
  2040.     char *com;
  2041. {
  2042.     struct value *ret;
  2043.  
  2044.     if (command_giver == 0)
  2045.     error("command_giver == 0 !\n");
  2046.     ret = apply(com, command_giver->super, 0);
  2047.     if (ret != 0) {
  2048.     add_message("Result:");
  2049.     if (ret->type == T_STRING)
  2050.         add_message("%s\n", ret->u.string);
  2051.     if (ret->type == T_NUMBER)
  2052.         add_message("%d\n", ret->u.number);
  2053.     } else {
  2054.     add_message("Error apply_command: function %s not found.\n", com);
  2055.     }
  2056. }
  2057. #endif /* 0 */
  2058.  
  2059.  
  2060. /*
  2061.  * Transfer an object.
  2062.  * The object has to be taken from one inventory list and added to another.
  2063.  * The main work is to update all command definitions, depending on what is
  2064.  * living or not. Note that all objects in the same inventory are affected.
  2065.  */
  2066. void move_object(item, dest)
  2067.     struct object *item, *dest;
  2068. {
  2069.     struct object **pp, *ob, *next_ob;
  2070.     struct object *save_cmd = command_giver;
  2071.     extern int current_time;
  2072.  
  2073. #ifndef COMPAT_MODE
  2074.     if (item != current_object)
  2075.     error("Illegal to move other object than this_object()\n");
  2076. #endif
  2077.     /* Recursive moves are not allowed. */
  2078.     for (ob = dest; ob; ob = ob->super)
  2079.     if (ob == item)
  2080.             return; 
  2081.     if (item->shadowing)
  2082.         error("Can't move an object that is shadowing.\n");
  2083. #if 0 /* Not now /Lars */
  2084.     /*
  2085.      * Objects must have inherited std/object if they are to be allowed to
  2086.      * be moved.
  2087.      */
  2088. #ifndef COMPAT_MODE
  2089.     if (!(item->flags & O_APPROVED) ||
  2090.             !(dest->flags & O_APPROVED)) {
  2091.     error("Trying to move object where src or dest not inherit std/object\n");
  2092.     return;
  2093.     }
  2094. #endif
  2095. #endif
  2096.     /* if it's past due for a reset, reset the object immediately */
  2097.     /* else mark it to be reset.  Set command_giver to zero to    */
  2098.     /* simulate a normal reset, where there is no command_giver   */
  2099.     /* also, reset the eval_cost, since this shouldn't add to the */
  2100.     /* current execution thread's eval_cost                       */
  2101. #ifdef COMPAT_MODE
  2102.     {
  2103.        extern int eval_cost;
  2104.        if (item->next_reset < current_time)
  2105.        {
  2106.           struct object *s = command_giver;
  2107.           int save = eval_cost;
  2108.           eval_cost = 0;
  2109.           command_giver = 0;
  2110.           reset_object(item, 1);
  2111.           command_giver = s;
  2112.           eval_cost = save;
  2113.           if (item->flags & O_DESTRUCTED)
  2114.              return;
  2115.        }
  2116.        else
  2117.           item->flags &= ~O_RESET_STATE;
  2118.  
  2119.        if (dest->next_reset < current_time)
  2120.        {
  2121.           struct object *s = command_giver;
  2122.           int save = eval_cost;
  2123.           eval_cost = 0;
  2124.           command_giver = 0;
  2125.           reset_object(dest, 1);
  2126.           eval_cost = save;
  2127.           command_giver = s;
  2128.           if (dest->flags & O_DESTRUCTED)
  2129.              return;
  2130.        }
  2131.        else
  2132.           dest->flags &= ~O_RESET_STATE;
  2133.     }
  2134. #endif
  2135.     add_light(dest, item->total_light);
  2136.     if (item->super) {
  2137.     int okey = 0;
  2138.         
  2139.     if (item->flags & O_ENABLE_COMMANDS) {
  2140. #ifdef COMPAT_MODE
  2141.         command_giver = item;
  2142.         push_object(item, "move_object");
  2143.         (void)apply("exit", item->super, 1);
  2144.         if (item->flags & O_DESTRUCTED || dest->flags & O_DESTRUCTED)
  2145.             return;    /* Give up */
  2146. #endif
  2147.         remove_sent(item->super, item);
  2148.     }
  2149.     if (item->super->flags & O_ENABLE_COMMANDS)
  2150.         remove_sent(item, item->super);
  2151.     add_light(item->super, - item->total_light);
  2152.     for (pp = &item->super->contains; *pp;) {
  2153.         if (*pp != item) {
  2154.         if ((*pp)->flags & O_ENABLE_COMMANDS) 
  2155.             remove_sent(item, *pp);
  2156.         if (item->flags & O_ENABLE_COMMANDS) 
  2157.             remove_sent(*pp, item);
  2158.         pp = &(*pp)->next_inv;
  2159.         continue;
  2160.         }
  2161.         *pp = item->next_inv;
  2162.         okey = 1;
  2163.     }
  2164.     if (!okey)
  2165.         fatal("Failed to find object %s in super list of %s.\n",
  2166.           item->name, item->super->name);
  2167.     }
  2168.     item->next_inv = dest->contains;
  2169.     dest->contains = item;
  2170.     item->super = dest;
  2171.     /*
  2172.      * Setup the new commands. The order is very important, as commands
  2173.      * in the room should override commands defined by the room.
  2174.      * Beware that init() in the room may have moved 'item' !
  2175.      *
  2176.      * The call of init() should really be done by the object itself
  2177.      * (except in the -o mode). It might be too slow, though :-(
  2178.      */
  2179.     if (item->flags & O_ENABLE_COMMANDS) {
  2180.     command_giver = item;
  2181.     (void)apply("init", dest, 0);
  2182.     if ((dest->flags & O_DESTRUCTED) || item->super != dest) {
  2183.         command_giver = save_cmd; /* marion */
  2184.         return;
  2185.     }
  2186.     }
  2187.     /*
  2188.      * Run init of the item once for every present player, and
  2189.      * for the environment (which can be a player).
  2190.      */
  2191.     for (ob = dest->contains; ob; ob=next_ob) {
  2192.     next_ob = ob->next_inv;
  2193.     if (ob == item)
  2194.         continue;
  2195.     if (ob->flags & O_DESTRUCTED)
  2196.             continue;
  2197. #if 0 /* Raistlin */
  2198.         error("An object was destructed at call of init()\n");
  2199. #endif
  2200.     if (ob->flags & O_ENABLE_COMMANDS) {
  2201.         command_giver = ob;
  2202.         (void)apply("init", item, 0);
  2203.         if (dest != item->super) {
  2204.         command_giver = save_cmd; /* marion */
  2205.         return;
  2206.         }
  2207.     }
  2208.     if (item->flags & O_DESTRUCTED) /* marion */
  2209.         error("The object to be moved was destructed at call of init()\n");
  2210.     if (item->flags & O_ENABLE_COMMANDS) {
  2211.         command_giver = item;
  2212.         (void)apply("init", ob, 0);
  2213.         if (dest != item->super) {
  2214.         command_giver = save_cmd; /* marion */
  2215.         return;
  2216.         }
  2217.     }
  2218.     }
  2219.     if (dest->flags & O_DESTRUCTED) /* marion */
  2220.     error("The destination to move to was destructed at call of init()\n");
  2221.     if (dest->flags & O_ENABLE_COMMANDS) {
  2222.     command_giver = dest;
  2223.     (void)apply("init", item, 0);
  2224.     }
  2225.     command_giver = save_cmd;
  2226. }
  2227.  
  2228. /*
  2229.  * Every object as a count of number of light sources it contains.
  2230.  * Update this.
  2231.  */
  2232.  
  2233. void add_light(p, n)
  2234.     struct object *p;
  2235.     int n;
  2236. {
  2237.     if (n == 0)
  2238.     return;
  2239.     p->total_light += n;
  2240.     if (p->super)
  2241.     add_light(p->super, n);
  2242. }
  2243.  
  2244. struct sentence *sent_free = 0;
  2245. int tot_alloc_sentence;
  2246.  
  2247. struct sentence *alloc_sentence() {
  2248.     struct sentence *p;
  2249.     if (sent_free == 0) {
  2250.     p = (struct sentence *)xalloc(sizeof *p);
  2251.         tot_alloc_sentence++;
  2252.     } else {
  2253.     p = sent_free;
  2254.     sent_free = sent_free->next;
  2255.     }
  2256. /*
  2257.     p = (struct sentence *)xalloc(sizeof(struct sentence));
  2258.     tot_alloc_sentence++;
  2259. */
  2260.     p->verb = 0;
  2261.     p->ob = 0;
  2262.     p->function = 0;
  2263.     p->next = 0;
  2264.     p->short_verb = 0;
  2265.     p->no_space = 0;
  2266.     return p;
  2267. }
  2268.  
  2269. #ifdef DEALLOCATE_MEMORY_AT_SHUTDOWN
  2270. void free_all_sent() {
  2271.     struct sentence *p;
  2272.     for (;sent_free; sent_free = p) {
  2273.     p = sent_free->next;
  2274.     free((char *)sent_free);
  2275.     }
  2276. }
  2277. #endif
  2278.  
  2279. void free_sentence(p)
  2280.     struct sentence *p;
  2281. {
  2282.     if (p->function)
  2283.     free_string(p->function);
  2284.     if (p->verb)
  2285.     free_string(p->verb);
  2286. /*
  2287.     memset((char *)p, '\0', sizeof(struct sentence));
  2288.     free((char *)p);
  2289.     tot_alloc_sentence--;
  2290. */
  2291.     p->verb = 0;
  2292.     p->function = 0;
  2293.     p->ob = 0;
  2294.     p->next = sent_free;
  2295.     sent_free = p;
  2296. }
  2297.  
  2298. compress_spaces(buff)
  2299. char *buff;
  2300. {
  2301.    char *p, *q;
  2302.    
  2303.    p = buff;
  2304.    while(isspace(*p)) p++;
  2305.    strcpy(buff, p);
  2306.    p = buff;
  2307.    while (*p)
  2308.    {
  2309.       if (isspace(*p) && *p != ' ') *p = ' ';
  2310.       if (isspace(*p) && isspace(*(p+1)))
  2311.       {
  2312.          q = ++p;
  2313.          while (isspace(*q)) ++q;
  2314.          strcpy(p, q);
  2315.       }
  2316.       else
  2317.          ++p;
  2318.    }
  2319. }
  2320.        
  2321.  
  2322. /*
  2323.  * Find the sentence for a command from the player.
  2324.  * Return success status.
  2325.  */
  2326. int player_parser(buff)
  2327.     char *buff;
  2328. {
  2329.     struct sentence *s;
  2330.     char *p;
  2331.     int length;
  2332.     struct object *save_current_object = current_object;
  2333.     char verb_copy[100], verb_arg[1000];
  2334.  
  2335.     if (d_flag > 1)
  2336.     debug_message("cmd [%s]: %s\n", command_giver->name, buff);
  2337. #if 0
  2338.     /* strip trailing spaces. */
  2339.     compress_spaces(buff);
  2340. #endif /* not used yet */
  2341.     for (p = buff + strlen(buff) - 1; p >= buff; p--) {
  2342.     if (*p != ' ')
  2343.         break;
  2344.     *p = '\0';
  2345.     }
  2346.     if (buff[0] == '\0')
  2347.     return 0;
  2348.     if (special_parse(buff))
  2349.     return 1;
  2350.     p = strchr(buff, ' ');
  2351.     if (p == 0)
  2352.     length = strlen(buff);
  2353.     else
  2354.     length = p - buff;
  2355.     clear_notify();
  2356.     for (s=command_giver->sent; s; s = s->next) {
  2357.     struct svalue *ret;
  2358.         struct object *command_object;
  2359.     int len;
  2360.     
  2361.     if (s->verb == 0)
  2362.         error("An 'action' did something, but returned 0 or had an undefined verb.\n");
  2363.     len = strlen(s->verb);
  2364.         if (s->no_space) {
  2365.             if (strncmp(buff, s->verb, len) != 0)
  2366.                continue;
  2367.         }
  2368.     else if (s->short_verb) {
  2369. #ifdef OLD_ADD_ACTION
  2370.             if (strncmp(buff, s->verb, len))
  2371. #else
  2372.             if (length < s->short_verb || strncmp(buff, s->verb, length) != 0)
  2373. #endif
  2374.         continue;
  2375.     } else {
  2376.         if (len != length) continue;
  2377.         if (strncmp(buff, s->verb, length) != 0)
  2378.         continue;
  2379.     }
  2380.     /*
  2381.      * Now we have found a special sentence !
  2382.      */
  2383.     if (d_flag > 1)
  2384.         debug_message("Local command %s on %s\n", s->function, s->ob->name);
  2385.         if (!s->no_space)
  2386.        if (length < sizeof verb_copy)
  2387.            len = length;
  2388.        else
  2389.            len = sizeof verb_copy - 1;
  2390.     strncpy(verb_copy, buff, len);
  2391.     verb_copy[len] = '\0';
  2392.     last_verb = verb_copy;
  2393.     /*
  2394.      * If the function is static and not defined by current object,
  2395.      * then it will fail. If this is called directly from player input,
  2396.      * then we set current_object so that static functions are allowed.
  2397.      */
  2398. #ifndef COMMAND_STATIC
  2399.     if (current_object == 0)  
  2400. #endif
  2401.         current_object = s->ob;
  2402.         command_object = s->ob;
  2403.     if (s->no_space) {
  2404.            push_constant_string(&buff[strlen(s->verb)]);
  2405.            strncpy(verb_arg, buff+strlen(s->verb), sizeof verb_arg -1);
  2406.            verb_arg[sizeof verb_arg - 1] = 0;
  2407.            last_arg = verb_arg;
  2408.            ret = apply(s->function, s->ob, 1);
  2409.         }
  2410.         else if (buff[length] == ' ') {
  2411.            push_constant_string(&buff[length+1]);
  2412.            strncpy(verb_arg, buff+length+1, sizeof verb_arg -1);
  2413.            verb_arg[sizeof verb_arg - 1] = 0;
  2414.            last_arg = verb_arg;
  2415.            ret = apply(s->function, s->ob, 1);
  2416.         } else {
  2417.            last_arg = 0;
  2418.            ret = apply(s->function, s->ob, 0);
  2419.     }
  2420.     if (current_object->flags & O_DESTRUCTED)
  2421.         {
  2422.             if (!command_giver)
  2423.                 return 1;
  2424.         s = command_giver->sent;    /* Restart :-( */
  2425.         }
  2426.         current_object = save_current_object;
  2427.     last_verb = 0;
  2428.         last_arg = 0;
  2429.     /* If we get fail from the call, it was wrong second argument. */
  2430.     if (ret && ret->type == T_NUMBER && ret->u.number == 0)
  2431.         continue;
  2432.     if (s && command_object->user && command_giver->interactive &&
  2433.         !(command_giver->flags & O_IS_WIZARD)) 
  2434.         command_object->user->score++;
  2435.     if (ret == 0)
  2436.         add_message("Error: function %s not found.\n", s->function);
  2437.     break;
  2438.     }
  2439.     if (s == 0) {
  2440.     notify_no_command();
  2441.     return 0;
  2442.     }
  2443.     return 1;
  2444. }
  2445.  
  2446. /*
  2447.  * Associate a command with function in this object.
  2448.  * The optional second argument is the command name. If the command name
  2449.  * is not given here, it should be given with add_verb().
  2450.  *
  2451.  * The optinal third argument is a flag that will state that the verb should
  2452.  * only match against leading characters.
  2453.  *
  2454.  * The object must be near the command giver, so that we ensure that the
  2455.  * sentence is removed when the command giver leaves.
  2456.  */
  2457. void add_action(str, cmd, flag)
  2458.     char *str, *cmd;
  2459.     int flag;
  2460. {
  2461.     struct sentence *p;
  2462.     struct object *ob;
  2463.  
  2464.     if (str[0] == ':')
  2465.     error("Illegal function name: %s\n", str);
  2466.     if (current_object->flags & O_DESTRUCTED)
  2467.     return;
  2468.     ob = current_object;
  2469.     while (ob->shadowing) 
  2470.         ob = ob->shadowing;
  2471.     if (command_giver == 0 || (command_giver->flags & O_DESTRUCTED))
  2472.     return;
  2473.     if (ob != command_giver && ob->super != command_giver &&
  2474.     ob->super != command_giver->super && ob != command_giver->super)
  2475.       error("add_action from object that was not present.\n");
  2476.     if (d_flag > 1)
  2477.     debug_message("--Add action %s\n", str);
  2478. #ifdef COMPAT_MODE
  2479.     if (strcmp(str, "exit") == 0)
  2480.     error("Illegal to define a command to the exit() function.\n");
  2481. #endif
  2482.     p = alloc_sentence();
  2483.     p->function = make_shared_string(str);
  2484.     p->ob = ob;
  2485.     p->next = command_giver->sent;
  2486.     p->short_verb = flag;
  2487.     p->no_space = 0;
  2488.     if (cmd)
  2489.     p->verb = make_shared_string(cmd);
  2490.     else
  2491.     p->verb = 0;
  2492.     command_giver->sent = p;
  2493. }
  2494.  
  2495. void add_verb(str, no_space)
  2496.     char *str;
  2497.     int no_space;
  2498. {
  2499.     if (command_giver == 0 || (command_giver->flags & O_DESTRUCTED))
  2500.     return;
  2501.     if (command_giver->sent == 0)
  2502.     error("No add_action().\n");
  2503.     if (command_giver->sent->verb != 0)
  2504.     error("Tried to set verb again.\n");
  2505.     command_giver->sent->verb = make_shared_string(str);
  2506.     command_giver->sent->no_space = no_space;
  2507.     if (d_flag > 1)
  2508.     debug_message("--Adding verb %s to action %s\n", str,
  2509.         command_giver->sent->function);
  2510. }
  2511.  
  2512. /*
  2513.  * Remove all commands (sentences) defined by object 'ob' in object
  2514.  * 'player'. 
  2515.  */
  2516. void remove_sent(ob, player)
  2517. struct object *ob, *player;
  2518. {
  2519.    struct sentence **s;
  2520.  
  2521.    for (s = &player->sent; *s;) 
  2522.    {
  2523.       struct sentence *tmp;
  2524.  
  2525.       if ((*s)->ob == ob) 
  2526.       {
  2527.          if (d_flag > 1)
  2528.             debug_message("--Unlinking sentence %s\n", (*s)->function);
  2529.          tmp = *s;
  2530.          *s = tmp->next;
  2531.          free_sentence(tmp);
  2532.       } 
  2533.       else
  2534.          s = &((*s)->next);
  2535.    }
  2536. }
  2537.  
  2538. char debug_parse_buff[51]; /* Used for debugging */
  2539.  
  2540. /*
  2541.  * Hard coded commands, that will be available to all players. They can not
  2542.  * be redefined, so the command name should be something obscure, not likely
  2543.  * to be used in the game.
  2544.  */
  2545. int special_parse(buff)
  2546.     char *buff;
  2547. {
  2548.     int verbose = 0;
  2549.     strncpy(debug_parse_buff, buff, sizeof debug_parse_buff-1);
  2550.     debug_parse_buff[sizeof debug_parse_buff - 1] = 0;
  2551.     if (strcmp(buff, "malloc") == 0) {
  2552. #if defined(MALLOC_malloc) || defined(MALLOC_smalloc)
  2553.     dump_malloc_data();
  2554. #endif
  2555. #ifdef MALLOC_gmalloc
  2556.     add_message("Using Gnu malloc.\n");
  2557. #endif
  2558. #ifdef MALLOC_sysmalloc
  2559.     add_message("Using system malloc.\n");
  2560. #endif
  2561.     return 1;
  2562.     }
  2563.     if (strcmp(buff, "dumpallobj") == 0) {
  2564.         dumpstat();
  2565.     return 1;
  2566.     }
  2567. #if defined(MALLOC_malloc) || defined(MALLOC_smalloc)
  2568.     if (strcmp(buff, "debugmalloc") == 0) {
  2569.     extern int debugmalloc;
  2570.     debugmalloc = !debugmalloc;
  2571.     if (debugmalloc)
  2572.         add_message("On.\n");
  2573.     else
  2574.         add_message("Off.\n");
  2575.     return 1;
  2576.     }
  2577. #endif
  2578.     if (strcmp(buff, "status") == 0 || 
  2579.         (strcmp(buff, "status tables") == 0 && (verbose = 1))) {
  2580.     int tot, res;
  2581.     extern int tot_alloc_sentence, tot_alloc_object,
  2582.            num_swapped, total_bytes_swapped, reserved_area,
  2583.                    num_arrays, total_array_size, total_object_size;
  2584.     extern int total_num_prog_blocks, total_prog_block_size;
  2585. #ifdef COMM_STAT
  2586.     extern int add_message_calls,inet_packets,inet_volume;
  2587. #endif
  2588.  
  2589.         if (reserved_area)
  2590.         res = RESERVED_SIZE;
  2591.     else
  2592.         res = 0; 
  2593. #ifdef COMM_STAT
  2594.         if (verbose)
  2595.        add_message(
  2596.       "Calls to add_message: %d    Packets: %d    Average packet size: %f\n", 
  2597.             add_message_calls, inet_packets, (float)inet_volume/inet_packets);
  2598. #endif
  2599.         if (!verbose)
  2600.         {
  2601.        add_message("Sentences:   %5d %7d\n", tot_alloc_sentence, 
  2602.         tot_alloc_sentence * sizeof (struct sentence)); 
  2603.        add_message("Objects:     %5d %7d\n",
  2604.             tot_alloc_object, total_object_size);
  2605.            add_message("Arrays:      %5d %7d\n", num_arrays, total_array_size);
  2606.        add_message("Prog blocks: %5d %7d (%d swapped, %d Kbyte)\n", 
  2607.                     total_num_prog_blocks, total_prog_block_size,
  2608.                     num_swapped, total_bytes_swapped / 1024);
  2609.        add_message("Memory reserved:    %7d\n", res);
  2610.         }
  2611.     /* status_lnodes_matched(); */
  2612.         if (verbose)
  2613.        stat_living_objects();
  2614.     tot =           total_prog_block_size +
  2615.                show_otable_status(verbose) +
  2616.                heart_beat_status(verbose) +
  2617.                add_string_status(verbose) +
  2618.                print_call_out_usage(verbose) +
  2619.                total_array_size +
  2620.                            total_object_size +
  2621.                res;
  2622.         if (!verbose)
  2623.         {
  2624.             add_message("\t\t\t\t\t --------\n");
  2625.             add_message("Total:\t\t\t\t\t %8d\n", tot);
  2626.         }
  2627.     return 1;
  2628.     }
  2629. #ifdef NEED_DIRECTIONS
  2630.     if (strcmp(buff, "e") == 0) {
  2631.     (void)strcpy(buff, "east");
  2632.     return 0;
  2633.     }
  2634.     if (strcmp(buff, "w") == 0) {
  2635.     (void)strcpy(buff, "west");
  2636.     return 0;
  2637.     }
  2638.     if (strcmp(buff, "s") == 0) {
  2639.     (void)strcpy(buff, "south");
  2640.     return 0;
  2641.     }
  2642.     if (strcmp(buff, "n") == 0) {
  2643.     (void)strcpy(buff, "north");
  2644.     return 0;
  2645.     }
  2646.     if (strcmp(buff, "d") == 0) {
  2647.     (void)strcpy(buff, "down");
  2648.     return 0;
  2649.     }
  2650.     if (strcmp(buff, "u") == 0) {
  2651.     (void)strcpy(buff, "up");
  2652.     return 0;
  2653.     }
  2654.     if (strcmp(buff, "nw") == 0) {
  2655.     (void)strcpy(buff, "northwest");
  2656.     return 0;
  2657.     }
  2658.     if (strcmp(buff, "ne") == 0) {
  2659.     (void)strcpy(buff, "northeast");
  2660.     return 0;
  2661.     }
  2662.     if (strcmp(buff, "sw") == 0) {
  2663.     (void)strcpy(buff, "southwest");
  2664.     return 0;
  2665.     }
  2666.     if (strcmp(buff, "se") == 0) {
  2667.     (void)strcpy(buff, "southeast");
  2668.     return 0;
  2669.     }
  2670. #endif
  2671.     return 0;
  2672. }
  2673.  
  2674. void print_local_commands() {
  2675.     struct sentence *s;
  2676.  
  2677.     add_message("Current local commands:\n");
  2678.     for (s = command_giver->sent; s; s = s->next)
  2679.     add_message("%s ", s->verb);
  2680.     add_message("\n");
  2681. }
  2682.  
  2683. /*VARARGS1*/
  2684. void fatal(fmt, a, b, c, d, e, f, g, h)
  2685.     char *fmt;
  2686.     int a, b, c, d, e, f, g, h;
  2687. {
  2688.     static int in_fatal = 0;
  2689.     /* Prevent double fatal. */
  2690.     if (in_fatal)
  2691.     abort();
  2692.     in_fatal = 1;
  2693.     (void)fprintf(stderr, fmt, a, b, c, d, e, f, g, h);
  2694.     fflush(stderr);
  2695.     if (current_object)
  2696.     (void)fprintf(stderr, "Current object was %s\n",
  2697.               current_object->name);
  2698.     debug_message(fmt, a, b, c, d, e, f, g, h);
  2699.     if (current_object)
  2700.     debug_message("Current object was %s\n", current_object->name);
  2701.     debug_message("Dump of variables:\n");
  2702. #if defined(DEBUG) && defined(TRACE_CODE)
  2703.     (void)dump_trace(1);
  2704. #else
  2705.     (void)dump_trace();
  2706. #endif
  2707.     abort();
  2708. }
  2709.  
  2710. int num_error = 0;
  2711.  
  2712. /*
  2713.  * Error() has been "fixed" so that users can catch and throw them.
  2714.  * To catch them nicely, we really have to provide decent error information.
  2715.  * Hence, all errors that are to be caught
  2716.  * (error_recovery_context_exists == 2) construct a string containing
  2717.  * the error message, which is returned as the
  2718.  * thrown value.  Users can throw their own error values however they choose.
  2719.  */
  2720.  
  2721. /*
  2722.  * This is here because throw constructs its own return value; we dont
  2723.  * want to replace it with the system's error string.
  2724.  */
  2725.  
  2726. void throw_error() {
  2727.     extern int error_recovery_context_exists;
  2728.     extern jmp_buf error_recovery_context;
  2729.     if (error_recovery_context_exists > 1) {
  2730.     longjmp(error_recovery_context, 1);
  2731.     fatal("Throw_error failed!");
  2732.     }
  2733.     error("Throw with no catch.\n");
  2734. }
  2735.  
  2736. static char emsg_buf[2000];
  2737.  
  2738. /*VARARGS1*/
  2739. void error(fmt, a, b, c, d, e, f, g, h)
  2740.     char *fmt;
  2741.     int a, b, c, d, e, f, g, h;
  2742. {
  2743.     extern int error_recovery_context_exists;
  2744.     extern jmp_buf error_recovery_context;
  2745.     extern struct object *current_heart_beat;
  2746.     extern struct svalue catch_value;
  2747.     char *object_name;
  2748.  
  2749.     sprintf(emsg_buf+1, fmt, a, b, c, d, e, f, g, h);
  2750.     emsg_buf[0] = '*';    /* all system errors get a * at the start */
  2751.  
  2752.     if (error_recovery_context_exists > 1) { /* user catches this error */
  2753.     struct svalue v;
  2754.     v.type = T_STRING;
  2755.     v.u.string = emsg_buf;
  2756.     v.string_type = STRING_MALLOC;    /* Always reallocate */
  2757.     assign_svalue(&catch_value, &v);
  2758.        longjmp(error_recovery_context, 1);
  2759.        fatal("Catch() longjump failed");
  2760.     }
  2761.     num_error++;
  2762.     if (num_error > 1)
  2763.     error("Too many simultaneous errors.\n");
  2764.     debug_message("%s", emsg_buf+1);
  2765.     if (current_object) {
  2766.     debug_message("Current object was %s, line %d\n",
  2767.               current_object->name, current_line);
  2768.     save_error(emsg_buf, current_object->name, current_line);
  2769.     }
  2770. #if defined(DEBUG) && defined(TRACE_CODE)
  2771.     object_name = dump_trace(1);
  2772. #else
  2773.     object_name = dump_trace();
  2774. #endif
  2775.     fflush(stdout);
  2776.     if (object_name) {
  2777.     struct object *ob;
  2778.     ob = find_object2(object_name);
  2779.     if (!ob) {
  2780.         if (command_giver)
  2781.         add_message("error when executing program in destroyed object %s\n",
  2782.                 object_name);
  2783.         debug_message("error when executing program in destroyed object %s\n",
  2784.             object_name);
  2785.     }
  2786.     }
  2787.     if (command_giver && command_giver->interactive) {
  2788.     struct svalue *v = 0;
  2789.  
  2790.     num_error--;
  2791.     /* 
  2792.      * The stack must be brought in a usable state. After the
  2793.      * call to reset_machine(), all arguments to error() are invalid,
  2794.      * and may not be used any more. The reason is that some strings
  2795.      * may have been on the stack machine stack, and has been deallocated.
  2796.      */
  2797.     reset_machine (0);
  2798.     push_constant_string("error messages");
  2799.     v = apply_master_ob("query_player_level", 1);
  2800.     num_error++;
  2801.     if (v && v->u.number != 0) {
  2802.         add_message("%s", emsg_buf+1);
  2803.         if (current_object)
  2804.         add_message("program: %s, object: %s line %d\n",
  2805.                 current_prog ? current_prog->name : "",
  2806.                 current_object->name,
  2807.                 get_line_number_if_any());
  2808.     } else {
  2809.         add_message("Your sensitive mind notices a wrongness in the fabric of space.\n");
  2810.     }
  2811.     }
  2812.     if (current_heart_beat) {
  2813.     set_heart_beat(current_heart_beat, 0);
  2814.     debug_message("Heart beat in %s turned off.\n",
  2815.               current_heart_beat->name);
  2816.     if (current_heart_beat->interactive) {
  2817.         struct object *save_cmd = command_giver;
  2818.         command_giver = current_heart_beat;
  2819.         add_message("Game driver tells you: You have no heart beat !\n");
  2820.         command_giver = save_cmd;
  2821.     }
  2822.     current_heart_beat = 0;
  2823.     }
  2824.     num_error--;
  2825.     if (error_recovery_context_exists)
  2826.     longjmp(error_recovery_context, 1);
  2827.     abort();
  2828. }
  2829.  
  2830. /*
  2831.  * Check that it is an legal path. No '..' are allowed.
  2832.  */
  2833. int legal_path(path)
  2834.     char *path;
  2835. {
  2836.     char *p;
  2837.  
  2838.     if (path == NULL || strchr(path, ' '))
  2839.     return 0;
  2840.     if (path[0] == '/')
  2841.         return 0;
  2842. #ifdef MSDOS
  2843.     if (!valid_msdos(path)) return(0);
  2844. #endif
  2845.     for(p = strchr(path, '.'); p; p = strchr(p+1, '.')) {
  2846.     if (p[1] == '.')
  2847.         return 0;
  2848.     }
  2849.     for (p=strchr(path, '/'); p; p = strchr(p+1, '/')) 
  2850.        if (p[1] == '/') return 0;
  2851.     return 1;
  2852. }
  2853.  
  2854. /*
  2855.  * There is an error in a specific file. Ask the game driver to log the
  2856.  * message somewhere.
  2857.  */
  2858. void smart_log(error_file, line, what)
  2859.      char *error_file, *what;
  2860.      int line;
  2861. {
  2862.     char buff[500];
  2863.  
  2864.     if (error_file == 0)
  2865.     return;
  2866.     if (strlen(what) + strlen(error_file) > sizeof(buff) - 100)
  2867.        what = "...[too long error message]...";
  2868.     if (strlen(what) + strlen(error_file) > sizeof(buff) - 100)
  2869.        error_file = "...[too long file name]...";
  2870.     sprintf(buff, "%s line %d:%s\n", error_file, line, what);
  2871.     push_constant_string(error_file);
  2872.     push_constant_string(buff);
  2873.     apply_master_ob("log_error", 2);
  2874. }
  2875.  
  2876.  
  2877. /*
  2878.  * Check that a file name is valid for read or write.
  2879.  * Also change the name as if the current directory was at the players
  2880.  * own directory.
  2881.  * This is done by functions in the player object.
  2882.  *
  2883.  * The master object (master.c) always have permissions to access
  2884.  * any file in the mudlib hierarchy, but only inside the mudlib.
  2885.  *
  2886.  * WARNING: The string returned will (mostly) be deallocated at next
  2887.  * call of apply().
  2888.  */
  2889. #ifdef COMPAT_MODE
  2890. char debug_check_file[50];
  2891.  
  2892. char *check_file_name(file, writeflg)
  2893. char *file;
  2894. int writeflg;
  2895. {
  2896.    struct svalue *ret;
  2897.    struct object *stuff = command_giver;
  2898.    char *str;
  2899.    
  2900.    if (current_object == master_ob)
  2901.    {
  2902.       /* Master object can read/write anywhere */
  2903.       if (file[0] == '/')
  2904.      str = file+1;
  2905.       else
  2906.      str = file;
  2907.    }
  2908.    else 
  2909.    {  
  2910.       if (!stuff)
  2911.      stuff = find_object("room/church");
  2912.       if (!stuff)
  2913.       {
  2914.      char *temp;
  2915.      struct object *ob;
  2916.      ob=(command_giver?command_giver:current_object);
  2917.      if (!ob) return 0;
  2918.      if (!legal_path(file)) return 0;
  2919.      if (ob->user) 
  2920.      {
  2921.         int tl;
  2922.         tl = strlen(ob->user->name) + 10;
  2923.         temp=(char *)xalloc(tl);
  2924.         strcpy(temp,"players/");
  2925.         strcat(temp,ob->user->name);
  2926.         strcat(temp,"/");
  2927.         if (strncmp(file, temp, tl-1)==0 ||
  2928.         strncmp(file, "open/", 5)==0 ||
  2929.         (!strchr(file, '/') && !writeflg))
  2930.         { 
  2931.            free(temp); 
  2932.            return file; 
  2933.         }
  2934.         else
  2935.         { 
  2936.            free(temp); 
  2937.            return 0; 
  2938.         }
  2939.      }
  2940.      else if (strncmp(ob->name, "open/", 5) == 0 &&
  2941.                   strncmp(file, "open/", 5) == 0)
  2942.         return file;
  2943.      else if (strncmp(ob->name, "obj/", 4) == 0||
  2944.                   strncmp(ob->name, "room/",5) == 0)
  2945.         return file;
  2946.      else return 0;
  2947.       }
  2948.       /*
  2949.        * We don't have to free the string in ret. This is done
  2950.        * by the garbage collection.
  2951.        */
  2952.       else
  2953.       {
  2954.          push_constant_string(file);
  2955.           if (writeflg)
  2956.              ret = apply("valid_write", stuff, 1);
  2957.          else
  2958.          ret = apply("valid_read",  stuff, 1);
  2959.          if (stuff->flags&O_DESTRUCTED)
  2960.         return 0;
  2961.          if (!ret || ret->type != T_STRING) 
  2962.      {
  2963.         add_message("Bad file name %s.\n", file?file:"<null>");
  2964.         return 0;
  2965.          }
  2966.          str = ret->u.string;
  2967.       } 
  2968.    }
  2969.    strncpy(debug_check_file, str, sizeof debug_check_file);
  2970.    debug_check_file[sizeof debug_check_file- 1] = 0;
  2971.    if (!legal_path(str)) 
  2972.    {
  2973.       add_message("Illegal path: %s\n", str?str:"<null>");
  2974.       return 0;
  2975.    }
  2976.    if (str[0] == '\0')
  2977.        return ".";
  2978.    return str;
  2979. }
  2980. #else
  2981.  
  2982. /*
  2983.  * Check that a path to a file is valid for read or write.
  2984.  * This is done by functions in the master object.
  2985.  * The path is always treated as an absolute path, and is returned without
  2986.  * a leading '/'.
  2987.  * If the path was '/', then '.' is returned.
  2988.  * The returned string may or may not be residing inside the argument 'path',
  2989.  * so don't deallocate arg 'path' until the returned result is used no longer.
  2990.  * Otherwise, the returned path is temporarily allocated by apply(), which
  2991.  * means it will be dealocated at next apply().
  2992.  */
  2993. char *check_valid_path(path, eff_user, call_fun, writeflg)
  2994.     char *path;
  2995.     struct wiz_list *eff_user;
  2996.     char *call_fun;
  2997.     int writeflg;
  2998. {
  2999.     struct svalue *v;
  3000.  
  3001.     if (eff_user == 0)
  3002.     return 0;
  3003.     push_string(make_shared_string(path), STRING_SHARED);/**MALLOC**/
  3004.     push_string(eff_user->name, STRING_CONSTANT);
  3005.     push_string(call_fun, STRING_CONSTANT);
  3006.     if (writeflg)
  3007.     v = apply_master_ob("valid_write", 3);
  3008.     else
  3009.     v = apply_master_ob("valid_read", 3);
  3010.     if (v && v->type == T_NUMBER && v->u.number == 0)
  3011.     return 0;
  3012.     if (path[0] == '/')
  3013.        path++;
  3014.     if (legal_path(path)) 
  3015.         return path;
  3016.     else
  3017.         return 0;
  3018. }
  3019. #endif
  3020.  
  3021. /*
  3022.  * This one is called from HUP.
  3023.  */
  3024. int game_is_being_shut_down;
  3025.  
  3026. #ifndef _AIX
  3027. void startshutdowngame() {
  3028.     (void)signal(SIGHUP, startshutdowngame);
  3029.     game_is_being_shut_down = 1;
  3030. }
  3031. #else
  3032. void startshutdowngame(int arg) {
  3033.     game_is_being_shut_down = 1;
  3034. }
  3035. #endif
  3036.  
  3037. /*
  3038.  * This one is called from the command "shutdown".
  3039.  * We don't call it directly from HUP, because it is dangerous when being
  3040.  * in an interrupt.
  3041.  */
  3042. void shutdowngame() {
  3043.     shout_string("Game driver shouts: LPmud shutting down immediately.\n");
  3044.     save_wiz_file();
  3045.     ipc_remove();
  3046.     remove_all_players();
  3047.     unlink_swap_file();
  3048. #ifdef DEALLOCATE_MEMORY_AT_SHUTDOWN
  3049.     remove_all_objects();
  3050.     free_all_sent();
  3051.     free_all_call_outs();
  3052.     remove_wiz_list();
  3053.     dump_malloc_data();
  3054. #endif
  3055. #ifdef OPCPROF
  3056.     opcdump();
  3057. #endif
  3058.     exit(0);
  3059. }
  3060.  
  3061. /*
  3062.  * Transfer an object from an object to an object.
  3063.  * Call add_weight(), drop(), get(), prevent_insert(), add_weight(),
  3064.  * and can_put_and_get() where needed.
  3065.  * Return 0 on success, and special code on failure:
  3066.  *
  3067.  * 1: To heavy for destination.
  3068.  * 2: Can't be dropped.
  3069.  * 3: Can't take it out of it's container.
  3070.  * 4: The object can't be inserted into bags etc.
  3071.  * 5: The destination doesn't allow insertions of objects.
  3072.  * 6: The object can't be picked up.
  3073.  */
  3074. #ifdef F_TRANSFER
  3075. int transfer_object(ob, to)
  3076.     struct object *ob, *to;
  3077. {
  3078.     struct svalue *v_weight, *ret;
  3079.     int weight;
  3080.     struct object *from = ob->super;
  3081.  
  3082.     /*
  3083.      * Get the weight of the object
  3084.      */
  3085. #ifndef COMPAT_MODE
  3086.     error("transfer() not allowed.\n");
  3087. #endif
  3088.     if (ob->shadowing)
  3089.         error("transfer: cannot move object that is shadowing.\n");
  3090.     v_weight = apply("query_weight", ob, 0);
  3091.     if (v_weight && v_weight->type != T_NUMBER)
  3092.     error("Bad type the weight of object in transfer()\n");
  3093.     weight = 0;
  3094.     if (v_weight)
  3095.     weight = v_weight->u.number;
  3096.     if (ob->flags & O_DESTRUCTED)
  3097.     return 3;
  3098.     /*
  3099.      * If the original place of the object is a living object,
  3100.      * then we must call drop() to check that the object can be dropped.
  3101.      */
  3102.     if (from && (from->flags & O_ENABLE_COMMANDS)) {
  3103.     ret = apply("drop", ob, 0);
  3104.     if (ret && (ret->type != T_NUMBER || ret->u.number != 0))
  3105.         return 2;
  3106.     /* This shold not happen, but we can not trust LPC hackers. :-) */
  3107.     if (ob->flags & O_DESTRUCTED)
  3108.         return 2;
  3109.     }
  3110.     /*
  3111.      * If 'from' is not a room and not a player, check that we may
  3112.      * remove things out of it.
  3113.      */
  3114.     if (from && from->super && !(from->flags & O_ENABLE_COMMANDS)) {
  3115.     ret = apply("can_put_and_get", from, 0);
  3116.     if (!ret || (ret->type != T_NUMBER && ret->u.number != 1) ||
  3117.       (from->flags & O_DESTRUCTED))
  3118.         return 3;
  3119.     }
  3120.     /*
  3121.      * If the destination is not a room, and not a player,
  3122.      * Then we must test 'prevent_insert', and 'can_put_and_get'.
  3123.      */
  3124.     if (to->super && !(to->flags & O_ENABLE_COMMANDS)) {
  3125.     ret = apply("prevent_insert", ob, 0);
  3126.     if (ret && (ret->type != T_NUMBER || ret->u.number != 0))
  3127.         return 4;
  3128.     ret = apply("can_put_and_get", to, 0);
  3129.     if (!ret || (ret->type != T_NUMBER && ret->type != 0) ||
  3130.       (to->flags & O_DESTRUCTED) || (ob->flags & O_DESTRUCTED))
  3131.         return 5;
  3132.     }
  3133.     /*
  3134.      * If the destination is a player, check that he can pick it up.
  3135.      */
  3136.     if (to->flags & O_ENABLE_COMMANDS) {
  3137.     ret = apply("get", ob, 0);
  3138.     if (!ret || (ret->type == T_NUMBER && ret->u.number == 0) ||
  3139.       (ob->flags & O_DESTRUCTED))
  3140.         return 6;
  3141.     }
  3142.     /*
  3143.      * If it is not a room, correct the total weight in the destination.
  3144.      */
  3145.     if (to->super && weight) {
  3146.     /*
  3147.      * Check if the destination can carry that much.
  3148.      */
  3149.     push_number(weight);
  3150.         ret = 0;
  3151.     ret = apply("add_weight", to, 1);
  3152.     if (ret && ret->type == T_NUMBER && ret->u.number == 0)
  3153.         return 1;
  3154.     if (to->flags & O_DESTRUCTED)
  3155.         return 1;
  3156.     }
  3157.     /*
  3158.      * If it is not a room, correct the weight in the 'from' object.
  3159.      */
  3160.     if (from && from->super && weight) {
  3161.     push_number(-weight);
  3162.     (void)apply("add_weight", from, 1);
  3163.         if (from->flags & O_DESTRUCTED)
  3164.            return 1;
  3165.     }
  3166.     move_object(ob, to);
  3167.     return 0;
  3168. }
  3169. #endif /* F_TRANSFER */
  3170.  
  3171. /*
  3172.  * Move or destruct one object.
  3173.  */
  3174. void move_or_destruct(what, to)
  3175.     struct object *what, *to;
  3176. {
  3177.     int res;
  3178.     struct svalue v;
  3179.  
  3180. #ifdef COMPAT_MODE
  3181.     res = transfer_object(what, to);
  3182.     if (res == 0 || (what->flags & O_DESTRUCTED))
  3183.         return;
  3184.     if (res == 1 || res == 4 || res == 5) {
  3185.         if (to->super) {
  3186.              move_or_destruct(what, to->super);
  3187.              return;
  3188.         }
  3189.     }
  3190. #else
  3191.     {
  3192.     struct svalue *svp;
  3193.     push_object(to, "move_or_destruct");
  3194.         push_number(1);
  3195.     svp = apply("move", what, 2);
  3196.     if (svp && svp->type == T_NUMBER && svp->u.number == 0)
  3197.         return;
  3198.     if (what->flags & O_DESTRUCTED)
  3199.         return;
  3200.     }
  3201. #endif
  3202.     
  3203.     v.type = T_OBJECT;
  3204.     v.u.ob = what;
  3205.     destruct_object(&v, 0);
  3206. }
  3207.  
  3208. /*
  3209.  * Call this one when there is only little memory left. It will start
  3210.  * Armageddon.
  3211.  */
  3212. void slow_shut_down(minutes)
  3213.     int minutes;
  3214. {
  3215.     struct object *ob;
  3216.  
  3217.     /*
  3218.      * Swap out objects, and free some memory.
  3219.      */
  3220.     ob = find_object("obj/shut");
  3221.     if (!ob) {
  3222.     struct object *save_current = current_object,
  3223.                   *save_command = command_giver;
  3224.     command_giver = 0;
  3225.     current_object = 0;
  3226.     shout_string("Game driver shouts: Out of memory.\n");
  3227.     command_giver = save_command;
  3228.     current_object = save_current;
  3229. #ifndef _AIX
  3230.     startshutdowngame();
  3231. #else
  3232.         startshutdowngame(1);
  3233. #endif
  3234.     return;
  3235.     }
  3236.     shout_string("Game driver shouts: The memory is getting low !\n");
  3237.     push_number(minutes);
  3238.     (void)apply("shut", ob, 1);
  3239. }
  3240.  
  3241. int match_string(match, str)
  3242.     char *match, *str;
  3243. {
  3244.     int i;
  3245.  
  3246.  again:
  3247.     if (*str == '\0' && *match == '\0')
  3248.     return 1;
  3249.     switch(*match) {
  3250.     case '?':
  3251.     if (*str == '\0')
  3252.         return 0;
  3253.     str++;
  3254.     match++;
  3255.     goto again;
  3256.     case '*':
  3257.     match++;
  3258.     if (*match == '\0')
  3259.         return 1;
  3260.     for (i=0; str[i] != '\0'; i++)
  3261.         if (match_string(match, str+i))
  3262.         return 1;
  3263.     return 0;
  3264.     case '\0':
  3265.     return 0;
  3266.     case '\\':
  3267.     match++;
  3268.     if (*match == '\0')
  3269.         return 0;
  3270.     /* Fall through ! */
  3271.     default:
  3272.     if (*match == *str) {
  3273.         match++;
  3274.         str++;
  3275.         goto again;
  3276.     }
  3277.     return 0;
  3278.     }
  3279. }
  3280.  
  3281. /*
  3282.  * Credits for some of the code below goes to Free Software Foundation
  3283.  * Copyright (C) 1990 Free Software Foundation, Inc.
  3284.  * See the GNU General Public License for more details.
  3285.  */
  3286. #ifndef S_ISDIR
  3287. #define    S_ISDIR(m)    (((m)&S_IFMT) == S_IFDIR)
  3288. #endif
  3289.  
  3290. #ifndef S_ISREG
  3291. #define    S_ISREG(m)    (((m)&S_IFMT) == S_IFREG)
  3292. #endif
  3293.  
  3294. int
  3295. isdir (path)
  3296.      char *path;
  3297. {
  3298.   struct stat stats;
  3299.  
  3300.   return stat (path, &stats) == 0 && S_ISDIR (stats.st_mode);
  3301. }
  3302.  
  3303. void
  3304. strip_trailing_slashes (path)
  3305.      char *path;
  3306. {
  3307.   int last;
  3308.  
  3309.   last = strlen (path) - 1;
  3310.   while (last > 0 && path[last] == '/')
  3311.     path[last--] = '\0';
  3312. }
  3313.  
  3314. struct stat to_stats, from_stats;
  3315.  
  3316. int
  3317. copy (from, to)
  3318.      char *from, *to;
  3319. {
  3320.   int ifd;
  3321.   int ofd;
  3322.   char buf[1024 * 8];
  3323.   int len;            /* Number of bytes read into `buf'. */
  3324.   
  3325.   if (!S_ISREG (from_stats.st_mode))
  3326.     {
  3327.       error ("cannot move `%s' across filesystems: Not a regular file\n", from);
  3328.       return 1;
  3329.     }
  3330.   
  3331.   if (unlink (to) && errno != ENOENT)
  3332.     {
  3333.       error ("cannot remove `%s'\n", to);
  3334.       return 1;
  3335.     }
  3336.  
  3337.   ifd = open (from, O_RDONLY, 0);
  3338.   if (ifd < 0)
  3339.     {
  3340.       error ("%s: open failed\n", from);
  3341.       return errno;
  3342.     }
  3343.   ofd = open (to, O_WRONLY | O_CREAT | O_TRUNC, 0600);
  3344.   if (ofd < 0)
  3345.     {
  3346.       error ("%s: open failed\n", to);
  3347.       close (ifd);
  3348.       return 1;
  3349.     }
  3350. #ifndef FCHMOD_MISSING
  3351.   if (fchmod (ofd, from_stats.st_mode & 0777))
  3352.     {
  3353.       error ("%s: fchmod failed\n", to);
  3354.       close (ifd);
  3355.       close (ofd);
  3356.       unlink (to);
  3357.       return 1;
  3358.     }
  3359. #endif
  3360.   
  3361.   while ((len = read (ifd, buf, sizeof (buf))) > 0)
  3362.     {
  3363.       int wrote = 0;
  3364.       char *bp = buf;
  3365.       
  3366.       do
  3367.     {
  3368.       wrote = write (ofd, bp, len);
  3369.       if (wrote < 0)
  3370.         {
  3371.           error ("%s: write failed\n", to);
  3372.           close (ifd);
  3373.           close (ofd);
  3374.           unlink (to);
  3375.           return 1;
  3376.         }
  3377.       bp += wrote;
  3378.       len -= wrote;
  3379.     } while (len > 0);
  3380.     }
  3381.   if (len < 0)
  3382.     {
  3383.       error ("%s: read failed\n", from);
  3384.       close (ifd);
  3385.       close (ofd);
  3386.       unlink (to);
  3387.       return 1;
  3388.     }
  3389.  
  3390.   if (close (ifd) < 0)
  3391.     {
  3392.       error ("%s: close failed", from);
  3393.       close (ofd);
  3394.       return 1;
  3395.     }
  3396.   if (close (ofd) < 0)
  3397.     {
  3398.       error ("%s: close failed", to);
  3399.       return 1;
  3400.     }
  3401.   
  3402. #ifdef FCHMOD_MISSING
  3403.   if (chmod (to, from_stats.st_mode & 0777))
  3404.     {
  3405.       error ("%s: chmod failed\n", to);
  3406.       return 1;
  3407.     }
  3408. #endif
  3409.  
  3410.   return 0;
  3411. }
  3412.  
  3413. #if 0
  3414. /* Move FROM onto TO.  Handles cross-filesystem moves.
  3415.    If TO is a directory, FROM must be also.
  3416.    Return 0 if successful, 1 if an error occurred.  */
  3417.  
  3418. int
  3419. do_move (from, to)
  3420.      char *from;
  3421.      char *to;
  3422. {
  3423.   if (lstat (from, &from_stats) != 0)
  3424.       return 0;
  3425.  
  3426.   if (lstat (to, &to_stats) == 0)
  3427.     {
  3428. #ifndef MSDOS
  3429.       if (from_stats.st_dev == to_stats.st_dev
  3430.       && from_stats.st_ino == to_stats.st_ino)
  3431. #else
  3432.       if (same_file(from,  to))
  3433. #endif
  3434.       return 0;
  3435.  
  3436.       if (S_ISDIR (to_stats.st_mode))
  3437.       return 0;
  3438.  
  3439.     }
  3440.   else if (errno != ENOENT)
  3441.       return 0;
  3442. #ifdef SYSV
  3443.   if (isdir(from)) {
  3444.       char cmd_buf[100];
  3445.       sprintf(cmd_buf, "/usr/lib/mv_dir %s %s", from, to);
  3446.       return system(cmd_buf);
  3447.   } else
  3448. #endif /* SYSV */      
  3449.   if (rename (from, to) == 0)
  3450.     {
  3451.       return 1;
  3452.     }
  3453.  
  3454.   if (errno != EXDEV)
  3455.       return 0;
  3456.  
  3457.   /* rename failed on cross-filesystem link.  Copy the file instead. */
  3458.  
  3459.   if (copy (from, to))
  3460.       return 0;
  3461.   
  3462.   if (unlink (from))
  3463.       return 0;
  3464.  
  3465.   return 1;
  3466. }
  3467.     
  3468. /*
  3469.  * do_rename is used by the efun rename. It is basically a combination
  3470.  * of the unix system call rename and the unix command mv. Please shoot
  3471.  * the people at ATT who made Sys V.
  3472.  */
  3473.  
  3474. #ifdef F_RENAME
  3475. int
  3476. do_rename(fr, t)
  3477.     char *fr, *t;
  3478. {
  3479.     char *from, *to;
  3480.     
  3481.     from = check_valid_path(fr, current_object->eff_user, "do_rename", 1);
  3482.     if(!from)
  3483.     return 1;
  3484.     to = check_valid_path(t, current_object->eff_user, "do_rename", 1);
  3485.     if(!to)
  3486.     return 1;
  3487.     if(!strlen(to) && !strcmp(t, "/")) {
  3488.     to = (char *)alloca(3);
  3489.     sprintf(to, "./");
  3490.     }
  3491.     strip_trailing_slashes (from);
  3492.     if (isdir (to))
  3493.     {
  3494.         /* Target is a directory; build full target filename. */
  3495.         char *cp;
  3496.         char *newto;
  3497.         
  3498.         cp = strrchr (from, '/');
  3499.         if (cp)
  3500.         cp++;
  3501.         else
  3502.         cp = from;
  3503.         
  3504.         newto = (char *) alloca (strlen (to) + 1 + strlen (cp) + 1);
  3505.         sprintf (newto, "%s/%s", to, cp);
  3506.         return do_move (from, newto);
  3507.     }
  3508.     else
  3509.     return do_move (from, to);
  3510. }
  3511.  
  3512. #endif
  3513.  
  3514. #ifdef LEX_lexical
  3515. void pre_compile(str)
  3516.     char *str;
  3517. {
  3518.     char *c_name, *i_name, buff[1000];
  3519.     FILE *f;
  3520.  
  3521.     if(!legal_path(str))
  3522.     error("Illegal attempt to access %s\n",str);
  3523.     i_name = xalloc(strlen(str)+3);
  3524.     (void)strcpy(i_name, str);
  3525.     (void)strcat(i_name, ".i");
  3526.     c_name = (char *)xalloc(strlen(str)+3);
  3527.     (void)strcpy(c_name, str);
  3528.     (void)strcat(c_name, ".c");
  3529.     sprintf(buff, "%s %s %s", PRE_COMPILE, c_name, i_name);
  3530.     f = (FILE *)vpopen(buff, "r");
  3531.     if (f == 0) {
  3532.     error("Unable to invoke precompiler!\n");
  3533.     alarm(0);
  3534.     }
  3535.     while(1) {
  3536.     if (fgets(buff, sizeof buff, f) == 0)
  3537.         break;
  3538.     add_message("%s", buff);
  3539.     }
  3540.     vpclose(f);
  3541.     free((char *)c_name);
  3542.     free((char *)i_name);
  3543. }
  3544. #endif
  3545. #endif /* F_RENAME */
  3546.  
  3547.