summaryrefslogtreecommitdiff
diff options
context:
space:
mode:
authorRoland McGrath <roland@gnu.org>1995-10-11 05:46:03 +0000
committerRoland McGrath <roland@gnu.org>1995-10-11 05:46:03 +0000
commita6d694b36b0f2b839dcba97bc69e9d40236e785c (patch)
tree3229f638529f7416b068a02eb26fd3699855eb3f
parent73e2375344cab816abf8ac16998db106c34a0bca (diff)
Initial revision
-rw-r--r--exec/main.c282
1 files changed, 282 insertions, 0 deletions
diff --git a/exec/main.c b/exec/main.c
new file mode 100644
index 00000000..c0575113
--- /dev/null
+++ b/exec/main.c
@@ -0,0 +1,282 @@
+/* GNU Hurd standard exec server, main program and server mechanics.
+ Copyright (C) 1992, 1993, 1994, 1995 Free Software Foundation, Inc.
+ Written by Roland McGrath.
+
+This file is part of the GNU Hurd.
+
+The GNU Hurd is free software; you can redistribute it and/or modify
+it under the terms of the GNU General Public License as published by
+the Free Software Foundation; either version 2, or (at your option)
+any later version.
+
+The GNU Hurd is distributed in the hope that it will be useful,
+but WITHOUT ANY WARRANTY; without even the implied warranty of
+MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the
+GNU General Public License for more details.
+
+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 "priv.h"
+#include <error.h>
+#include <hurd/paths.h>
+#include <hurd/startup.h>
+
+
+bfd_arch_info_type host_bfd_arch_info;
+bfd host_bfd = { arch_info: &host_bfd_arch_info };
+Elf32_Half elf_machine; /* ELF e_machine for the host. */
+
+extern error_t bfd_mach_host_arch_mach (host_t host,
+ enum bfd_architecture *bfd_arch,
+ long int *bfd_machine,
+ Elf32_Half *elf_machine);
+
+
+/* Trivfs hooks. */
+int trivfs_fstype = FSTYPE_MISC;
+int trivfs_fsid = 0;
+int trivfs_support_read = 1;
+int trivfs_support_write = 1;
+int trivfs_support_exec = 1;
+int trivfs_allow_open = O_READ|O_WRITE|O_EXEC;
+
+struct port_class *trivfs_protid_portclasses[1];
+struct port_class *trivfs_cntl_portclasses[1];
+int trivfs_protid_nportclasses = 1;
+int trivfs_cntl_nportclasses = 1;
+
+struct trivfs_control *fsys;
+
+char *exec_version = "0.0 pre-alpha";
+char **save_argv;
+
+
+static int
+exec_demuxer (mach_msg_header_t *inp, mach_msg_header_t *outp)
+{
+ extern int exec_server (mach_msg_header_t *inp, mach_msg_header_t *outp);
+ return exec_server (inp, outp) || trivfs_demuxer (inp, outp);
+}
+
+
+static int going_down;
+
+/* Clean up the storage in BOOT, which was never used. */
+
+void
+deadboot (void *p)
+{
+ struct bootinfo *boot = p;
+ 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));
+
+ if (going_down)
+ {
+ /* We are not accepting new requests, only listening
+ for exec_startup RPCs from tasks we already started.
+ See if there are any more to be answered. */
+ int count = ports_count_class (execboot_portclass);
+ if (count == 0)
+ /* No more tasks starting up. No reason to live. */
+ exit (0);
+ ports_enable_class (execboot_portclass);
+ }
+}
+
+
+int
+main (int argc, char **argv)
+{
+ error_t err;
+ mach_port_t bootstrap;
+
+ 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)
+ error (1, err, "Getting host architecture from Mach");
+
+ task_get_bootstrap_port (mach_task_self (), &bootstrap);
+ if (bootstrap == MACH_PORT_NULL)
+ error (2, 0, "Must be started as a translator");
+
+ /* Fetch our proc server port for easy use. If we are booting, it is not
+ set yet and `getproc' returns MACH_PORT_NULL; we reset PROCSERVER in
+ S_exec_init (below). */
+ procserver = getproc ();
+
+ port_bucket = ports_create_bucket ();
+ trivfs_cntl_portclasses[0] = ports_create_class (trivfs_clean_cntl, 0);
+ trivfs_protid_portclasses[0] = ports_create_class (trivfs_clean_protid, 0);
+ execboot_portclass = ports_create_class (deadboot, NULL);
+
+ /* Reply to our parent. */
+ err = trivfs_startup (bootstrap,
+ trivfs_cntl_portclasses[0], port_bucket,
+ trivfs_protid_portclasses[0], port_bucket,
+ &fsys);
+ mach_port_deallocate (mach_task_self (), bootstrap);
+ if (err)
+ error (3, err, "Contacting parent");
+
+ /* Launch. */
+ ports_manage_port_operations_multithread (port_bucket, exec_demuxer,
+ 2 * 60 * 1000, 0,
+ 0, MACH_PORT_NULL);
+
+ return 0;
+}
+
+
+void
+trivfs_modify_stat (struct trivfs_protid *cred, struct stat *st)
+{
+ st->st_fstype = FSTYPE_MISC;
+}
+
+error_t
+trivfs_goaway (struct trivfs_control *fsys, int flags)
+{
+ int count;
+
+ /* Stop new requests. */
+ ports_inhibit_class_rpcs (trivfs_cntl_portclasses[0]);
+ ports_inhibit_class_rpcs (trivfs_protid_portclasses[0]);
+
+ /* Are there any extant user ports for the /servers/exec file? */
+ count = ports_count_class (trivfs_protid_portclasses[0]);
+ if (count == 0 || (flags & FSYS_GOAWAY_FORCE))
+ {
+ /* No users. Disconnect from the filesystem. */
+ mach_port_deallocate (mach_task_self (), fsys->underlying);
+
+ /* Are there remaining exec_startup RPCs to answer? */
+ count = ports_count_class (execboot_portclass);
+ if (count == 0)
+ /* Nope. We got no reason to live. */
+ exit (0);
+
+ /* Continue servicing tasks starting up. */
+ ports_enable_class (execboot_portclass);
+
+ /* No more communication with the parent filesystem. */
+ ports_destroy_right (fsys);
+ going_down = 1;
+
+ return 0;
+ }
+ else
+ {
+ /* We won't go away, so start things going again... */
+ ports_enable_class (trivfs_protid_portclasses[0]);
+ ports_resume_class_rpcs (trivfs_cntl_portclasses[0]);
+ ports_resume_class_rpcs (trivfs_protid_portclasses[0]);
+
+ return EBUSY;
+ }
+}
+
+/* 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,
+ ports_get_right (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 (struct trivfs_protid *protid,
+ auth_t auth, process_t proc)
+{
+ mach_port_t host_priv, dev_master, startup;
+ error_t err;
+
+ if (! protid || ! protid->isroot)
+ return EPERM;
+
+ _hurd_port_set (&_hurd_ports[INIT_PORT_PROC], proc); /* Consume. */
+ _hurd_port_set (&_hurd_ports[INIT_PORT_AUTH], auth); /* Consume. */
+
+ /* Do initial setup with the proc server. */
+ _hurd_proc_init (save_argv);
+
+ /* Set the active translator on /servers/exec. */
+ set_active_trans ();
+
+ procserver = getproc ();
+
+ err = get_privileged_ports (&host_priv, &dev_master);
+ if (!err)
+ {
+ proc_register_version (procserver, host_priv, "exec", HURD_RELEASE,
+ exec_version);
+ mach_port_deallocate (mach_task_self (), dev_master);
+ err = proc_getmsgport (procserver, 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. */
+
+ struct trivfs_protid *cred;
+ err = trivfs_open (fsys, 0, 0, 0, 0, 0, MACH_PORT_NULL, &cred);
+ assert_perror (err);
+
+ proc_execdata_notify (procserver, ports_get_right (cred),
+ 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;
+}