From 73e2375344cab816abf8ac16998db106c34a0bca Mon Sep 17 00:00:00 2001 From: Roland McGrath Date: Wed, 11 Oct 1995 05:45:25 +0000 Subject: Server mechanics removed; now uses libtrivfs/libports. Main program split out into main.c. (std_lock): New variable (rwlock). (do_exec): Acquire reader lock to access std_ints and std_ports. (S_exec_setexecdata): Acquire writer lock to change them. --- exec/exec.c | 594 ++++++++++-------------------------------------------------- 1 file changed, 96 insertions(+), 498 deletions(-) (limited to 'exec/exec.c') diff --git a/exec/exec.c b/exec/exec.c index a4944ef1..35c130df 100644 --- a/exec/exec.c +++ b/exec/exec.c @@ -27,33 +27,20 @@ You should have received a copy of the GNU General Public License along with the GNU Hurd; see the file COPYING. If not, write to the Free Software Foundation, 675 Mass Ave, Cambridge, MA 02139, USA. */ -#include -#include -#include + + +#include "priv.h" +#include +#include +#include +#include +#include +#include #include #include -#include -#include #include -#include -#include -#include -#include -#include -#include -#include -#include "exec_S.h" -#include "fsys_S.h" -#include "notify_S.h" - -#include -#include - - -extern error_t bfd_mach_host_arch_mach (host_t host, - enum bfd_architecture *bfd_arch, - long int *bfd_machine, - Elf32_Half *elf_machine); +#include +#include /* Data shared between check, check_section, @@ -105,23 +92,13 @@ struct execdata }; -/* A BFD whose architecture and machine type are those of the host system. */ -static bfd_arch_info_type host_bfd_arch_info; -static bfd host_bfd = { arch_info: &host_bfd_arch_info }; -static Elf32_Half elf_machine; /* ELF e_machine for the host. */ - -static file_t realnode; -static mach_port_t execserver; /* Port doing exec protocol. */ -static mach_port_t fsys; /* Port doing fsys protocol. */ -static mach_port_t request_portset; /* Portset we receive on. */ -static mach_port_t procserver; /* our proc port */ -char *exec_version = "0.0 pre-alpha"; -char **save_argv; +mach_port_t procserver; /* Our proc port. */ /* Standard exec data for secure execs. */ static mach_port_t *std_ports; static int *std_ints; static size_t std_nports, std_nints; +static struct rwlock std_lock = RWLOCK_INITIALIZER; #ifdef BFD @@ -1077,53 +1054,6 @@ check_gzip (struct execdata *earg) } #endif -static int -request_server (mach_msg_header_t *inp, - mach_msg_header_t *outp) -{ - extern int notify_server (), exec_server (), fsys_server (); - - return (notify_server (inp, outp) || - exec_server (inp, outp) || - fsys_server (inp, outp)); -} - - -/* Allocate SIZE bytes of storage, and make the - resulting pointer a name for a new receive right. */ -static void * -alloc_recv (size_t size) -{ - void *obj = malloc (size); - if (obj == NULL) - return NULL; - - if (mach_port_allocate_name (mach_task_self (), - MACH_PORT_RIGHT_RECEIVE, - (mach_port_t) obj) - == KERN_NAME_EXISTS) - { - void *new = alloc_recv (size); /* Bletch. */ - free (obj); - return new; - } - - return obj; -} - -/* Information kept around to be given to a new task - in response to a message on the task's bootstrap port. */ -struct bootinfo - { - vm_address_t stack_base; - vm_size_t stack_size; - int flags; - char *argv, *envp; - size_t argvlen, envplen, dtablesize, nports, nints; - mach_port_t *dtable, *portarray; - int *intarray; - vm_address_t phdr_addr, phdr_size, user_entry; - }; static inline error_t servercopy (void **arg, u_int argsize, boolean_t argcopy) @@ -1145,8 +1075,7 @@ servercopy (void **arg, u_int argsize, boolean_t argcopy) static error_t -do_exec (mach_port_t execserver, - file_t file, +do_exec (file_t file, task_t oldtask, int flags, char *argv, u_int argvlen, boolean_t argv_copy, @@ -1263,6 +1192,7 @@ do_exec (mach_port_t execserver, newtask = oldtask; + rwlock_reader_lock (&std_lock); { /* Store the data that we will give in response to the RPC on the new task's bootstrap port. */ @@ -1300,13 +1230,15 @@ do_exec (mach_port_t execserver, ports_replaced[idx] = 1; } - boot = alloc_recv (sizeof (*boot)); + boot = ports_allocate_port (port_bucket, sizeof *boot, execboot_portclass); if (boot == NULL) { e.error = ENOMEM; + stdout: + rwlock_reader_unlock (&std_lock); goto out; } - bzero (boot, sizeof *boot); + bzero (&boot->pi + 1, (char *) &boot[1] - (char *) (&boot->pi + 1)); /* First record some information about the image itself. */ boot->phdr_addr = phdr_addr; @@ -1326,7 +1258,11 @@ do_exec (mach_port_t execserver, e.error = servercopy ((void **) &argv, argvlen, argv_copy); if (e.error) - goto bootout; + { + bootout: + ports_port_deref (boot); + goto stdout; + } boot->argv = argv; boot->argvlen = argvlen; e.error = servercopy ((void **) &envp, envplen, envp_copy); @@ -1435,6 +1371,7 @@ do_exec (mach_port_t execserver, && boot->portarray[INIT_PORT_CWDIR] == MACH_PORT_NULL)) use (INIT_PORT_CWDIR, std_ports[INIT_PORT_CWDIR], 1, 0); } + rwlock_reader_unlock (&std_lock); /* We have now concocted in BOOT the complete Hurd context (ports and @@ -1618,64 +1555,17 @@ do_exec (mach_port_t execserver, mach_port_deallocate (mach_task_self (), oldtask); } - mach_port_insert_right (mach_task_self (), (mach_port_t) boot, - (mach_port_t) boot, - MACH_MSG_TYPE_MAKE_SEND); - e.error = task_set_bootstrap_port (newtask, (mach_port_t) boot); - mach_port_deallocate (mach_task_self (), (mach_port_t) boot); - - /* Request no-senders notification on BOOT, so we can release - its resources if the task dies before calling exec_startup. */ { - mach_port_t unused; - mach_port_request_notification (mach_task_self (), - (mach_port_t) boot, - MACH_NOTIFY_NO_SENDERS, 0, - (mach_port_t) boot, - MACH_MSG_TYPE_MAKE_SEND_ONCE, - &unused); + mach_port_t btport = ports_get_right (boot); + mach_port_insert_right (mach_task_self (), btport, btport, + MACH_MSG_TYPE_MAKE_SEND); + e.error = task_set_bootstrap_port (newtask, btport); + mach_port_deallocate (mach_task_self (), btport); + /* Release the original reference. Now there is only one + reference, which will be released on no-senders notification. */ + ports_port_deref (boot); } - /* Add BOOT to the server port-set so we will respond to RPCs there. */ - mach_port_move_member (mach_task_self (), - (mach_port_t) boot, request_portset); - - if (e.error) - { - /* We barfed somewhere along the way. Deallocate any local data - copies we just made. */ - bootout: - mach_port_destroy (mach_task_self (), (mach_port_t) boot); - if (intarray_copy) - vm_deallocate (mach_task_self (), - (vm_address_t) boot->intarray, - boot->nints * sizeof (int)); - if (dtable_copy) - vm_deallocate (mach_task_self (), - (vm_address_t) boot->dtable, - boot->dtablesize * sizeof (mach_port_t)); - if (envp_copy) - vm_deallocate (mach_task_self (), - (vm_address_t) boot->envp, boot->envplen); - if (argv_copy) - vm_deallocate (mach_task_self (), - (vm_address_t) boot->argv, boot->argvlen); - if (boot->portarray) - { - for (i = 0; i < boot->nports; ++i) - if (ports_replaced[i] && boot->portarray[i] != MACH_PORT_NULL) - /* This port was replaced, so we created reference anew and - we must deallocate it. (The references that arrived in - the original portarray will be deallocated by MiG on - failure return.) */ - mach_port_deallocate (mach_task_self (), boot->portarray[i]); - vm_deallocate (mach_task_self (), - (vm_address_t) boot->portarray, - boot->nports * sizeof (mach_port_t)); - } - free (boot); - } - out: if (e.interp.section) finish (&interp, 1); @@ -1741,7 +1631,7 @@ do_exec (mach_port_t execserver, } kern_return_t -S_exec_exec (mach_port_t execserver, +S_exec_exec (struct trivfs_protid *protid, file_t file, task_t oldtask, int flags, @@ -1753,6 +1643,9 @@ S_exec_exec (mach_port_t execserver, mach_port_t *deallocnames, u_int ndeallocnames, mach_port_t *destroynames, u_int ndestroynames) { + if (! protid) + return EOPNOTSUPP; + if (!(flags & EXEC_SECURE)) { const char envar[] = "\0EXECSERVERS="; @@ -1778,27 +1671,35 @@ S_exec_exec (mach_port_t execserver, portarray[INIT_PORT_CWDIR], p, 0, 0, &server)) { - error_t err = (server == execserver ? - do_exec (server, file, oldtask, 0, - argv, argvlen, argv_copy, - envp, envplen, envp_copy, - dtable, dtablesize, dtable_copy, - portarray, nports, portarray_copy, - intarray, nints, intarray_copy, - deallocnames, ndeallocnames, - destroynames, ndestroynames) : - exec_exec (server, - file, MACH_MSG_TYPE_MOVE_SEND, - oldtask, 0, - argv, argvlen, - envp, envplen, - dtable, MACH_MSG_TYPE_MOVE_SEND, - dtablesize, - portarray, MACH_MSG_TYPE_MOVE_SEND, - nports, - intarray, nints, - deallocnames, ndeallocnames, - destroynames, ndestroynames)); + error_t err; + struct trivfs_protid *protid + = ports_lookup_port (port_bucket, server, + trivfs_protid_portclasses[0]); + if (protid) + { + err = do_exec (file, oldtask, 0, + argv, argvlen, argv_copy, + envp, envplen, envp_copy, + dtable, dtablesize, dtable_copy, + portarray, nports, portarray_copy, + intarray, nints, intarray_copy, + deallocnames, ndeallocnames, + destroynames, ndestroynames); + ports_port_deref (protid); + } + else + err = exec_exec (server, + file, MACH_MSG_TYPE_MOVE_SEND, + oldtask, 0, + argv, argvlen, + envp, envplen, + dtable, MACH_MSG_TYPE_MOVE_SEND, + dtablesize, + portarray, MACH_MSG_TYPE_MOVE_SEND, + nports, + intarray, nints, + deallocnames, ndeallocnames, + destroynames, ndestroynames); mach_port_deallocate (mach_task_self (), server); if (err != ENOEXEC) return err; @@ -1814,7 +1715,7 @@ S_exec_exec (mach_port_t execserver, /* There were no user-specified exec servers, or none of them could be found. */ - return do_exec (execserver, file, oldtask, flags, + return do_exec (file, oldtask, flags, argv, argvlen, argv_copy, envp, envplen, envp_copy, dtable, dtablesize, dtable_copy, @@ -1825,24 +1726,36 @@ S_exec_exec (mach_port_t execserver, } kern_return_t -S_exec_setexecdata (mach_port_t me, +S_exec_setexecdata (struct trivfs_protid *protid, mach_port_t *ports, u_int nports, int ports_copy, int *ints, u_int nints, int ints_copy) { error_t err; - /* XXX needs authentication */ + if (! protid || (protid->realnode != MACH_PORT_NULL && ! protid->isroot)) + return EPERM; if (nports < INIT_PORT_MAX || nints < INIT_INT_MAX) return EINVAL; - if (std_ports) - vm_deallocate (mach_task_self (), (vm_address_t)std_ports, - std_nports * sizeof (mach_port_t)); err = servercopy ((void **) &ports, nports * sizeof (mach_port_t), ports_copy); if (err) return err; + err = servercopy ((void **) &ints, nints * sizeof (int), ints_copy); + if (err) + return err; + + rwlock_writer_lock (&std_lock); + + if (std_ports) + { + u_int i; + for (i = 0; i < std_nports; ++i) + mach_port_deallocate (mach_task_self (), std_ports[i]); + vm_deallocate (mach_task_self (), (vm_address_t)std_ports, + std_nports * sizeof (mach_port_t)); + } std_ports = ports; std_nports = nports; @@ -1850,129 +1763,15 @@ S_exec_setexecdata (mach_port_t me, if (std_ints) vm_deallocate (mach_task_self (), (vm_address_t)std_ints, std_nints * sizeof (int)); - err = servercopy ((void **) &ints, nints * sizeof (int), ints_copy); - if (err) - return err; std_ints = ints; std_nints = nints; - return 0; -} - - - -/* fsys server. */ - -kern_return_t -S_fsys_getroot (fsys_t fsys, - mach_port_t dotdot, - uid_t *uids, u_int nuids, - gid_t *gids, u_int ngids, - int flags, - retry_type *retry, - char *retry_name, - file_t *rootfile, - mach_msg_type_name_t *rootfilePoly) -{ - /* XXX eventually this should return a user-specific port which has an - associated access-restricted realnode port which file ops get - forwarded to. */ - - - - *rootfile = execserver; - *rootfilePoly = MACH_MSG_TYPE_MAKE_SEND; - - *retry = FS_RETRY_NORMAL; - *retry_name = '\0'; - return 0; -} + rwlock_writer_unlock (&std_lock); -kern_return_t -S_fsys_goaway (fsys_t fsys, int flags) -{ - if (!(flags & FSYS_GOAWAY_FORCE)) - { - mach_port_t *serving; - mach_msg_type_number_t nserving, i; - mach_port_get_set_status (mach_task_self (), request_portset, - &serving, &nserving); - for (i = 0; i < nserving; ++i) - mach_port_deallocate (mach_task_self (), serving[i]); - if (nserving > 2) - /* Not just fsys and execserver. - We are also waiting on some bootstrap ports. */ - return EBUSY; - } - mach_port_mod_refs (mach_task_self (), request_portset, - MACH_PORT_TYPE_RECEIVE, -1); return 0; } -kern_return_t -S_fsys_startup (mach_port_t bootstrap, - fsys_t control, - mach_port_t *node, - mach_msg_type_name_t *realnodePoly) -{ - return EOPNOTSUPP; -} - -kern_return_t -S_fsys_syncfs (fsys_t fsys, - int wait, - int dochildren) -{ - return EOPNOTSUPP; -} - -kern_return_t -S_fsys_set_options (fsys_t fsys, - char *data, mach_msg_type_number_t len, - int do_children) -{ - return EOPNOTSUPP; -} - -kern_return_t -S_fsys_getfile (fsys_t fsys, - uid_t *uids, - u_int nuids, - uid_t *gids, - u_int ngids, - char *filehandle, - u_int filehandlelen, - mach_port_t *file, - mach_msg_type_name_t *filetype) -{ - return EOPNOTSUPP; -} - -kern_return_t -S_fsys_getpriv (fsys_t fsys, - mach_port_t *hp, - mach_port_t *dm, - mach_port_t *tk) -{ - return EOPNOTSUPP; -} - -kern_return_t -S_fsys_init (fsys_t fsys, - mach_port_t reply, mach_msg_type_name_t replytype, - mach_port_t ps, - mach_port_t ah) -{ - return EOPNOTSUPP; -} - -kern_return_t -S_fsys_forward (fsys_t fsys, mach_port_t requestor, - char *argv, mach_msg_type_name_t argvlen) -{ - return EOPNOTSUPP; -} /* RPC sent on the bootstrap port. */ @@ -1988,241 +1787,40 @@ S_exec_startup (mach_port_t port, u_int *nports, int **intarray, u_int *nints) { - struct bootinfo *boot = (struct bootinfo *)port; - if ((mach_port_t) boot == execserver || (mach_port_t) boot == fsys) + struct bootinfo *boot = ports_lookup_port (port_bucket, port, + execboot_portclass); + if (! boot) return EOPNOTSUPP; + ports_port_deref (boot); + + /* Pass back all the information we are storing. */ *stack_base = boot->stack_base; *stack_size = boot->stack_size; *argvp = boot->argv; *argvlen = boot->argvlen; + boot->argvlen = 0; *envpp = boot->envp; *envplen = boot->envplen; + boot->envplen = 0; *dtable = boot->dtable; *dtablesize = boot->dtablesize; *dtablepoly = MACH_MSG_TYPE_MOVE_SEND; + boot->dtablesize = 0; *intarray = boot->intarray; *nints = boot->nints; + boot->nints = 0; *portarray = boot->portarray; *nports = boot->nports; *portpoly = MACH_MSG_TYPE_MOVE_SEND; + boot->nports = 0; *flags = boot->flags; - mach_port_move_member (mach_task_self (), (mach_port_t) boot, - MACH_PORT_NULL); /* XXX what is this XXX here for? */ - - mach_port_mod_refs (mach_task_self (), (mach_port_t) boot, - MACH_PORT_TYPE_RECEIVE, -1); - free (boot); - return 0; } - -/* Clean up the storage in BOOT, which was never used. */ -void -deadboot (struct bootinfo *boot) -{ - size_t i; - - vm_deallocate (mach_task_self (), - (vm_address_t) boot->argv, boot->argvlen); - vm_deallocate (mach_task_self (), - (vm_address_t) boot->envp, boot->envplen); - - for (i = 0; i < boot->dtablesize; ++i) - mach_port_deallocate (mach_task_self (), boot->dtable[i]); - for (i = 0; i < boot->nports; ++i) - mach_port_deallocate (mach_task_self (), boot->portarray[i]); - vm_deallocate (mach_task_self (), - (vm_address_t) boot->portarray, - boot->nports * sizeof (mach_port_t)); - vm_deallocate (mach_task_self (), - (vm_address_t) boot->intarray, - boot->nints * sizeof (int)); - - free (boot); -} - - -/* Notice when a receive right has no senders. Either this is the - bootstrap port of a stillborn task, or it is the execserver port itself. */ - -kern_return_t -do_mach_notify_no_senders (mach_port_t port, mach_port_mscount_t mscount) -{ - if (port != execserver && port != fsys) - { - /* Free the resources we were saving to give the task - which can no longer ask for them. */ - - struct bootinfo *boot = (struct bootinfo *) port; - deadboot (boot); - } - - /* Deallocate the request port. */ - mach_port_move_member (mach_task_self (), port, MACH_PORT_NULL); - mach_port_mod_refs (mach_task_self (), port, MACH_PORT_TYPE_RECEIVE, -1); - - return KERN_SUCCESS; -} - -/* Attempt to set the active translator for the exec server so that - filesystems other than the bootstrap can find it. */ -void -set_active_trans () -{ - file_t execnode; - - execnode = file_name_lookup (_SERVERS_EXEC, O_NOTRANS | O_CREAT, 0666); - if (execnode == MACH_PORT_NULL) - return; - - file_set_translator (execnode, 0, FS_TRANS_SET, 0, 0, 0, fsys, - MACH_MSG_TYPE_MAKE_SEND); - /* Don't deallocate EXECNODE here. If we drop the last reference, - a bug in ufs might throw away the active translator. XXX */ -} - - -/* Sent by the bootstrap filesystem after the other essential - servers have been started up. */ - -kern_return_t -S_exec_init (mach_port_t server, auth_t auth, process_t proc) -{ - mach_port_t host_priv, dev_master, startup; - error_t err; - - if (_hurd_ports[INIT_PORT_PROC].port != MACH_PORT_NULL) - /* Can only be done once. */ - return EPERM; - - mach_port_mod_refs (mach_task_self (), proc, MACH_PORT_RIGHT_SEND, 1); - procserver = proc; - _hurd_port_set (&_hurd_ports[INIT_PORT_PROC], proc); - _hurd_port_set (&_hurd_ports[INIT_PORT_AUTH], auth); - - /* Do initial setup with the proc server. */ - _hurd_proc_init (save_argv); - - /* Set the active translator on /hurd/exec. */ - set_active_trans (); - - err = get_privileged_ports (&host_priv, &dev_master); - if (!err) - { - proc_register_version (proc, host_priv, "exec", HURD_RELEASE, - exec_version); - mach_port_deallocate (mach_task_self (), dev_master); - err = proc_getmsgport (proc, 1, &startup); - if (err) - { - mach_port_deallocate (mach_task_self (), host_priv); - host_priv = MACH_PORT_NULL; - } - } - else - host_priv = MACH_PORT_NULL; - - /* Have the proc server notify us when the canonical ints and ports change. - The notification comes as a normal RPC on the message port, which - the C library's signal thread handles. */ - proc_execdata_notify (procserver, execserver, MACH_MSG_TYPE_MAKE_SEND); - - /* Call startup_essential task last; init assumes we are ready to - run once we call it. */ - if (host_priv != MACH_PORT_NULL) - { - startup_essential_task (startup, mach_task_self (), MACH_PORT_NULL, - "exec", host_priv); - mach_port_deallocate (mach_task_self (), startup); - mach_port_deallocate (mach_task_self (), host_priv); - } - - return 0; -} - - -int -main (int argc, char **argv) -{ - error_t err; - mach_port_t boot; - - /* XXX */ - stdout = mach_open_devstream (getdport (1), "w"); - stderr = mach_open_devstream (getdport (2), "w"); - /* End XXX */ - - save_argv = argv; - - /* Put the Mach kernel's idea of what flavor of machine this is into the - fake BFD against which architecture compatibility checks are made. */ - err = bfd_mach_host_arch_mach (mach_host_self (), - &host_bfd.arch_info->arch, - &host_bfd.arch_info->mach, - &elf_machine); - if (err) - return err; - - mach_port_allocate (mach_task_self (), MACH_PORT_RIGHT_RECEIVE, &fsys); - mach_port_allocate (mach_task_self (), MACH_PORT_RIGHT_RECEIVE, &execserver); - - task_get_bootstrap_port (mach_task_self (), &boot); - fsys_startup (boot, fsys, MACH_MSG_TYPE_MAKE_SEND, &realnode); - - mach_port_allocate (mach_task_self (), - MACH_PORT_RIGHT_PORT_SET, &request_portset); - mach_port_move_member (mach_task_self (), fsys, request_portset); - mach_port_move_member (mach_task_self (), execserver, request_portset); - - while (1) - { - err = mach_msg_server (request_server, vm_page_size, request_portset); - fprintf (stderr, "%s: mach_msg_server: %s\n", - (argv && argv[0]) ? argv[0] : "exec server", - strerror (err)); - } -} - -/* Nops */ -kern_return_t -do_mach_notify_port_deleted (mach_port_t notify, - mach_port_t name) -{ - return EOPNOTSUPP; -} - -kern_return_t -do_mach_notify_msg_accepted (mach_port_t notify, - mach_port_t name) -{ - return EOPNOTSUPP; -} - -kern_return_t -do_mach_notify_port_destroyed (mach_port_t notify, - mach_port_t rights) -{ - return EOPNOTSUPP; -} - -kern_return_t -do_mach_notify_send_once (mach_port_t notify) -{ - return EOPNOTSUPP; -} - -kern_return_t -do_mach_notify_dead_name (mach_port_t notify, - mach_port_t name) -{ - return EOPNOTSUPP; -} - -- cgit v1.2.3