2006-05-11 16:57:23 +02:00
|
|
|
/* This file handles the EXEC system call. It performs the work as follows:
|
|
|
|
* - see if the permissions allow the file to be executed
|
|
|
|
* - read the header and extract the sizes
|
|
|
|
* - fetch the initial args and environment from the user space
|
|
|
|
* - allocate the memory for the new process
|
|
|
|
* - copy the initial stack from PM to the process
|
|
|
|
* - read in the text and data segments and copy to the process
|
|
|
|
* - take care of setuid and setgid bits
|
|
|
|
* - fix up 'mproc' table
|
|
|
|
* - tell kernel about EXEC
|
|
|
|
* - save offset to initial argc (for ps)
|
|
|
|
*
|
|
|
|
* The entry points into this file are:
|
|
|
|
* pm_exec: perform the EXEC system call
|
2006-10-25 15:40:36 +02:00
|
|
|
*
|
|
|
|
* Changes for VFS:
|
|
|
|
* Aug 2006 (Balazs Gerofi)
|
2006-05-11 16:57:23 +02:00
|
|
|
*/
|
|
|
|
|
|
|
|
#include "fs.h"
|
|
|
|
#include <sys/stat.h>
|
|
|
|
#include <minix/callnr.h>
|
|
|
|
#include <minix/endpoint.h>
|
|
|
|
#include <minix/com.h>
|
2006-11-27 15:21:43 +01:00
|
|
|
#include <minix/u64.h>
|
2006-05-11 16:57:23 +02:00
|
|
|
#include <a.out.h>
|
|
|
|
#include <signal.h>
|
|
|
|
#include <string.h>
|
2006-10-25 15:40:36 +02:00
|
|
|
#include <dirent.h>
|
2006-05-11 16:57:23 +02:00
|
|
|
#include "fproc.h"
|
|
|
|
#include "param.h"
|
2006-10-25 15:40:36 +02:00
|
|
|
|
|
|
|
#include "vnode.h"
|
|
|
|
#include "vmnt.h"
|
|
|
|
#include <minix/vfsif.h>
|
2006-05-11 16:57:23 +02:00
|
|
|
|
|
|
|
FORWARD _PROTOTYPE( int exec_newmem, (int proc_e, vir_bytes text_bytes,
|
|
|
|
vir_bytes data_bytes, vir_bytes bss_bytes, vir_bytes tot_bytes,
|
|
|
|
vir_bytes frame_len, int sep_id,
|
|
|
|
Dev_t st_dev, ino_t st_ino, time_t st_ctime, char *progname,
|
|
|
|
int new_uid, int new_gid,
|
|
|
|
vir_bytes *stack_topp, int *load_textp, int *allow_setuidp) );
|
2006-10-25 15:40:36 +02:00
|
|
|
FORWARD _PROTOTYPE( int read_header, (struct vnode *vp, int *sep_id,
|
2006-05-11 16:57:23 +02:00
|
|
|
vir_bytes *text_bytes, vir_bytes *data_bytes,
|
|
|
|
vir_bytes *bss_bytes, phys_bytes *tot_bytes, vir_bytes *pc,
|
|
|
|
int *hdrlenp) );
|
2006-10-25 15:40:36 +02:00
|
|
|
FORWARD _PROTOTYPE( int patch_stack, (struct vnode *vp,
|
2006-05-11 16:57:23 +02:00
|
|
|
char stack[ARG_MAX], vir_bytes *stk_bytes) );
|
|
|
|
FORWARD _PROTOTYPE( int insert_arg, (char stack[ARG_MAX],
|
|
|
|
vir_bytes *stk_bytes, char *arg, int replace) );
|
|
|
|
FORWARD _PROTOTYPE( void patch_ptr, (char stack[ARG_MAX],
|
|
|
|
vir_bytes base) );
|
2006-10-25 15:40:36 +02:00
|
|
|
FORWARD _PROTOTYPE( int read_seg, (struct vnode *vp, off_t off,
|
2006-05-11 16:57:23 +02:00
|
|
|
int proc_e, int seg, phys_bytes seg_bytes) );
|
|
|
|
FORWARD _PROTOTYPE( void clo_exec, (struct fproc *rfp) );
|
|
|
|
|
|
|
|
#define ESCRIPT (-2000) /* Returned by read_header for a #! script. */
|
|
|
|
#define PTRSIZE sizeof(char *) /* Size of pointers in argv[] and envp[]. */
|
|
|
|
|
|
|
|
/*===========================================================================*
|
|
|
|
* pm_exec *
|
|
|
|
*===========================================================================*/
|
|
|
|
PUBLIC int pm_exec(proc_e, path, path_len, frame, frame_len)
|
|
|
|
int proc_e;
|
|
|
|
char *path;
|
|
|
|
vir_bytes path_len;
|
|
|
|
char *frame;
|
|
|
|
vir_bytes frame_len;
|
|
|
|
{
|
|
|
|
/* Perform the execve(name, argv, envp) call. The user library builds a
|
|
|
|
* complete stack image, including pointers, args, environ, etc. The stack
|
|
|
|
* is copied to a buffer inside FS, and then to the new core image.
|
|
|
|
*/
|
2006-10-25 15:40:36 +02:00
|
|
|
int r, sep_id, round, proc_s, hdrlen, load_text, allow_setuid;
|
|
|
|
vir_bytes text_bytes, data_bytes, bss_bytes, pc;
|
|
|
|
phys_bytes tot_bytes; /* total space for program, including gap */
|
|
|
|
vir_bytes stack_top, vsp;
|
|
|
|
off_t off;
|
|
|
|
uid_t new_uid;
|
|
|
|
gid_t new_gid;
|
|
|
|
struct fproc *rfp;
|
|
|
|
struct vnode vn;
|
|
|
|
struct vmnt *vmp;
|
|
|
|
time_t v_ctime;
|
|
|
|
uid_t v_uid;
|
|
|
|
gid_t v_gid;
|
|
|
|
char *cp;
|
|
|
|
char progname[PROC_NAME_LEN];
|
|
|
|
static char mbuf[ARG_MAX]; /* buffer for stack and zeroes */
|
|
|
|
|
|
|
|
/* Request and response structures */
|
|
|
|
struct lookup_req lookup_req;
|
|
|
|
struct access_req access_req;
|
|
|
|
struct open_req open_req;
|
|
|
|
struct node_details res;
|
|
|
|
|
|
|
|
okendpt(proc_e, &proc_s);
|
|
|
|
rfp= fp= &fproc[proc_s];
|
|
|
|
who_e= proc_e;
|
|
|
|
who_p= proc_s;
|
|
|
|
super_user = (fp->fp_effuid == SU_UID ? TRUE : FALSE); /* su? */
|
|
|
|
|
|
|
|
/* Get the exec file name. */
|
|
|
|
r= fetch_name(path, path_len, 0);
|
|
|
|
if (r != OK)
|
|
|
|
{
|
|
|
|
printf("pm_exec: fetch_name failed\n");
|
|
|
|
return(r); /* file name not in user data segment */
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Fetch the stack from the user before destroying the old core image. */
|
|
|
|
if (frame_len > ARG_MAX)
|
|
|
|
{
|
|
|
|
printf("pm_exec: bad frame_len\n");
|
|
|
|
return(ENOMEM); /* stack too big */
|
|
|
|
}
|
|
|
|
r = sys_datacopy(proc_e, (vir_bytes) frame,
|
|
|
|
SELF, (vir_bytes) mbuf, (phys_bytes)frame_len);
|
|
|
|
/* can't fetch stack (e.g. bad virtual addr) */
|
|
|
|
if (r != OK)
|
|
|
|
{
|
|
|
|
printf("pm_exec: sys_datacopy failed\n");
|
|
|
|
return(r);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* The default is the keep the original user and group IDs */
|
|
|
|
new_uid= rfp->fp_effuid;
|
|
|
|
new_gid= rfp->fp_effgid;
|
|
|
|
|
|
|
|
for (round= 0; round < 2; round++)
|
|
|
|
/* round = 0 (first attempt), or 1 (interpreted script) */
|
|
|
|
{
|
|
|
|
/* Save the name of the program */
|
|
|
|
(cp= strrchr(user_fullpath, '/')) ? cp++ : (cp= user_fullpath);
|
|
|
|
|
|
|
|
strncpy(progname, cp, PROC_NAME_LEN-1);
|
|
|
|
progname[PROC_NAME_LEN-1] = '\0';
|
|
|
|
|
|
|
|
/* Fill in lookup request fields */
|
|
|
|
lookup_req.path = user_fullpath;
|
|
|
|
lookup_req.lastc = NULL;
|
|
|
|
lookup_req.flags = EAT_PATH;
|
|
|
|
|
|
|
|
/* Request lookup */
|
|
|
|
if ((r = lookup(&lookup_req, &res)) != OK) return r;
|
|
|
|
|
|
|
|
if ((res.fmode & I_TYPE) != I_REGULAR) {
|
|
|
|
return ENOEXEC;
|
|
|
|
}
|
|
|
|
else {
|
|
|
|
/* Fill in request fields */
|
|
|
|
access_req.fs_e = res.fs_e;
|
|
|
|
access_req.amode = X_BIT;
|
|
|
|
access_req.inode_nr = res.inode_nr;
|
|
|
|
access_req.uid = fp->fp_effuid;
|
|
|
|
access_req.gid = fp->fp_effgid;
|
|
|
|
|
|
|
|
|
|
|
|
/* Issue request */
|
|
|
|
if ((r = req_access(&access_req)) != OK) {
|
|
|
|
printf("VFSexec: access failed\n");
|
2006-05-11 16:57:23 +02:00
|
|
|
return r;
|
2006-10-25 15:40:36 +02:00
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Open request. */
|
|
|
|
open_req.inode_nr = res.inode_nr;
|
|
|
|
open_req.fs_e = res.fs_e;
|
|
|
|
open_req.oflags = 0;
|
|
|
|
open_req.omode = 0;
|
|
|
|
open_req.lastc = NULL;
|
|
|
|
open_req.uid = 0;
|
|
|
|
open_req.gid = 0;
|
|
|
|
|
|
|
|
/* Issue request */
|
|
|
|
if ((r = req_open(&open_req, &res)) != OK) {
|
|
|
|
printf("VFSexec: open failed\n");
|
|
|
|
return r;
|
2006-05-11 16:57:23 +02:00
|
|
|
}
|
|
|
|
|
2006-10-25 15:40:36 +02:00
|
|
|
/* Use the vnode to store file details */
|
|
|
|
vn.v_inode_nr = res.inode_nr;
|
|
|
|
vn.v_mode = res.fmode;
|
|
|
|
vn.v_index = res.inode_index;
|
|
|
|
vn.v_size = res.fsize;
|
|
|
|
vn.v_fs_e = res.fs_e;
|
|
|
|
vn.v_count = 1;
|
|
|
|
if ( (vmp = find_vmnt(vn.v_fs_e)) == NIL_VMNT)
|
|
|
|
printf("VFS: vmnt not found by exec()");
|
|
|
|
|
|
|
|
vn.v_dev = vmp->m_dev;
|
|
|
|
vn.v_vmnt = vmp;
|
|
|
|
|
|
|
|
v_ctime = res.ctime;
|
|
|
|
v_uid = res.uid;
|
|
|
|
v_gid = res.gid;
|
|
|
|
|
|
|
|
if (round == 0)
|
|
|
|
{
|
|
|
|
/* Deal with setuid/setgid executables */
|
|
|
|
if (vn.v_mode & I_SET_UID_BIT)
|
|
|
|
new_uid = v_uid;
|
|
|
|
if (vn.v_mode & I_SET_GID_BIT)
|
|
|
|
new_gid = v_gid;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Read the file header and extract the segment sizes. */
|
|
|
|
r = read_header(&vn, &sep_id, &text_bytes, &data_bytes, &bss_bytes,
|
|
|
|
&tot_bytes, &pc, &hdrlen);
|
|
|
|
if (r != ESCRIPT || round != 0)
|
|
|
|
break;
|
|
|
|
|
|
|
|
/* Get fresh copy of the file name. */
|
|
|
|
r= fetch_name(path, path_len, 0);
|
|
|
|
if (r != OK)
|
|
|
|
{
|
|
|
|
printf("pm_exec: 2nd fetch_name failed\n");
|
|
|
|
put_vnode(&vn);
|
|
|
|
return(r); /* strange */
|
|
|
|
}
|
|
|
|
r= patch_stack(&vn, mbuf, &frame_len);
|
|
|
|
put_vnode(&vn);
|
|
|
|
if (r != OK)
|
|
|
|
{
|
|
|
|
printf("pm_exec: patch stack\n");
|
|
|
|
return r;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
if (r != OK)
|
|
|
|
{
|
|
|
|
printf("pm_exec: returning ENOEXEC, r = %d\n", r);
|
|
|
|
return ENOEXEC;
|
|
|
|
}
|
|
|
|
|
|
|
|
r= exec_newmem(proc_e, text_bytes, data_bytes, bss_bytes, tot_bytes,
|
|
|
|
frame_len, sep_id, vn.v_dev, vn.v_inode_nr, v_ctime,
|
|
|
|
progname, new_uid, new_gid, &stack_top, &load_text, &allow_setuid);
|
|
|
|
if (r != OK)
|
|
|
|
{
|
|
|
|
printf("pm_exec: exec_newmap failed: %d\n", r);
|
|
|
|
put_vnode(&vn);
|
|
|
|
return r;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Patch up stack and copy it from FS to new core image. */
|
|
|
|
vsp = stack_top;
|
|
|
|
vsp -= frame_len;
|
|
|
|
patch_ptr(mbuf, vsp);
|
|
|
|
r = sys_datacopy(SELF, (vir_bytes) mbuf,
|
|
|
|
proc_e, (vir_bytes) vsp, (phys_bytes)frame_len);
|
|
|
|
if (r != OK) panic(__FILE__,"pm_exec stack copy err on", proc_e);
|
|
|
|
|
|
|
|
off = hdrlen;
|
|
|
|
|
|
|
|
/* Read in text and data segments. */
|
|
|
|
if (load_text) {
|
|
|
|
r= read_seg(&vn, off, proc_e, T, text_bytes);
|
|
|
|
}
|
|
|
|
off += text_bytes;
|
|
|
|
if (r == OK)
|
|
|
|
r= read_seg(&vn, off, proc_e, D, data_bytes);
|
|
|
|
|
|
|
|
put_vnode(&vn);
|
|
|
|
|
|
|
|
if (r != OK) return r;
|
|
|
|
|
|
|
|
clo_exec(rfp);
|
|
|
|
|
|
|
|
if (allow_setuid)
|
|
|
|
{
|
|
|
|
rfp->fp_effuid= new_uid;
|
|
|
|
rfp->fp_effgid= new_gid;
|
|
|
|
}
|
|
|
|
|
|
|
|
/* This child has now exec()ced. */
|
|
|
|
rfp->fp_execced = 1;
|
|
|
|
|
|
|
|
/* Check if this is a driver that can now be useful. */
|
|
|
|
dmap_endpt_up(rfp->fp_endpoint);
|
|
|
|
|
|
|
|
/*printf("VFSpm_exec: %s OK\n", user_fullpath);*/
|
|
|
|
return OK;
|
2006-05-11 16:57:23 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
/*===========================================================================*
|
|
|
|
* exec_newmem *
|
|
|
|
*===========================================================================*/
|
|
|
|
PRIVATE int exec_newmem(proc_e, text_bytes, data_bytes, bss_bytes, tot_bytes,
|
|
|
|
frame_len, sep_id, st_dev, st_ino, st_ctime, progname,
|
|
|
|
new_uid, new_gid, stack_topp, load_textp, allow_setuidp)
|
|
|
|
int proc_e;
|
|
|
|
vir_bytes text_bytes;
|
|
|
|
vir_bytes data_bytes;
|
|
|
|
vir_bytes bss_bytes;
|
|
|
|
vir_bytes tot_bytes;
|
|
|
|
vir_bytes frame_len;
|
|
|
|
int sep_id;
|
|
|
|
dev_t st_dev;
|
|
|
|
ino_t st_ino;
|
|
|
|
time_t st_ctime;
|
|
|
|
int new_uid;
|
|
|
|
int new_gid;
|
|
|
|
char *progname;
|
|
|
|
vir_bytes *stack_topp;
|
|
|
|
int *load_textp;
|
|
|
|
int *allow_setuidp;
|
|
|
|
{
|
|
|
|
int r;
|
|
|
|
struct exec_newmem e;
|
|
|
|
message m;
|
|
|
|
|
|
|
|
e.text_bytes= text_bytes;
|
|
|
|
e.data_bytes= data_bytes;
|
|
|
|
e.bss_bytes= bss_bytes;
|
|
|
|
e.tot_bytes= tot_bytes;
|
|
|
|
e.args_bytes= frame_len;
|
|
|
|
e.sep_id= sep_id;
|
|
|
|
e.st_dev= st_dev;
|
|
|
|
e.st_ino= st_ino;
|
|
|
|
e.st_ctime= st_ctime;
|
|
|
|
e.new_uid= new_uid;
|
|
|
|
e.new_gid= new_gid;
|
|
|
|
strncpy(e.progname, progname, sizeof(e.progname)-1);
|
|
|
|
e.progname[sizeof(e.progname)-1]= '\0';
|
|
|
|
|
|
|
|
m.m_type= EXEC_NEWMEM;
|
|
|
|
m.EXC_NM_PROC= proc_e;
|
|
|
|
m.EXC_NM_PTR= (char *)&e;
|
|
|
|
r= sendrec(PM_PROC_NR, &m);
|
|
|
|
if (r != OK)
|
|
|
|
return r;
|
|
|
|
#if 0
|
|
|
|
printf("exec_newmem: r = %d, m_type = %d\n", r, m.m_type);
|
|
|
|
#endif
|
|
|
|
*stack_topp= m.m1_i1;
|
|
|
|
*load_textp= !!(m.m1_i2 & EXC_NM_RF_LOAD_TEXT);
|
|
|
|
*allow_setuidp= !!(m.m1_i2 & EXC_NM_RF_ALLOW_SETUID);
|
|
|
|
#if 0
|
|
|
|
printf("exec_newmem: stack_top = 0x%x\n", *stack_topp);
|
|
|
|
printf("exec_newmem: load_text = %d\n", *load_textp);
|
|
|
|
#endif
|
|
|
|
return m.m_type;
|
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*===========================================================================*
|
|
|
|
* read_header *
|
|
|
|
*===========================================================================*/
|
2006-10-25 15:40:36 +02:00
|
|
|
PRIVATE int read_header(vp, sep_id, text_bytes, data_bytes, bss_bytes,
|
2006-05-11 16:57:23 +02:00
|
|
|
tot_bytes, pc, hdrlenp)
|
2006-10-25 15:40:36 +02:00
|
|
|
struct vnode *vp; /* inode for reading exec file */
|
2006-05-11 16:57:23 +02:00
|
|
|
int *sep_id; /* true iff sep I&D */
|
|
|
|
vir_bytes *text_bytes; /* place to return text size */
|
|
|
|
vir_bytes *data_bytes; /* place to return initialized data size */
|
|
|
|
vir_bytes *bss_bytes; /* place to return bss size */
|
|
|
|
phys_bytes *tot_bytes; /* place to return total size */
|
|
|
|
vir_bytes *pc; /* program entry point (initial PC) */
|
|
|
|
int *hdrlenp;
|
|
|
|
{
|
|
|
|
/* Read the header and extract the text, data, bss and total sizes from it. */
|
|
|
|
off_t pos;
|
|
|
|
struct exec hdr; /* a.out header is read in here */
|
|
|
|
|
|
|
|
/* Read the header and check the magic number. The standard MINIX header
|
|
|
|
* is defined in <a.out.h>. It consists of 8 chars followed by 6 longs.
|
|
|
|
* Then come 4 more longs that are not used here.
|
|
|
|
* Byte 0: magic number 0x01
|
|
|
|
* Byte 1: magic number 0x03
|
|
|
|
* Byte 2: normal = 0x10 (not checked, 0 is OK), separate I/D = 0x20
|
|
|
|
* Byte 3: CPU type, Intel 16 bit = 0x04, Intel 32 bit = 0x10,
|
|
|
|
* Motorola = 0x0B, Sun SPARC = 0x17
|
|
|
|
* Byte 4: Header length = 0x20
|
|
|
|
* Bytes 5-7 are not used.
|
|
|
|
*
|
|
|
|
* Now come the 6 longs
|
|
|
|
* Bytes 8-11: size of text segments in bytes
|
|
|
|
* Bytes 12-15: size of initialized data segment in bytes
|
|
|
|
* Bytes 16-19: size of bss in bytes
|
|
|
|
* Bytes 20-23: program entry point
|
|
|
|
* Bytes 24-27: total memory allocated to program (text, data + stack)
|
|
|
|
* Bytes 28-31: size of symbol table in bytes
|
|
|
|
* The longs are represented in a machine dependent order,
|
|
|
|
* little-endian on the 8088, big-endian on the 68000.
|
|
|
|
* The header is followed directly by the text and data segments, and the
|
|
|
|
* symbol table (if any). The sizes are given in the header. Only the
|
|
|
|
* text and data segments are copied into memory by exec. The header is
|
|
|
|
* used here only. The symbol table is for the benefit of a debugger and
|
|
|
|
* is ignored here.
|
|
|
|
*/
|
|
|
|
|
2006-10-25 15:40:36 +02:00
|
|
|
struct readwrite_req req;
|
|
|
|
struct readwrite_res res;
|
|
|
|
int r;
|
|
|
|
|
2006-05-11 16:57:23 +02:00
|
|
|
pos= 0; /* Read from the start of the file */
|
|
|
|
|
2006-10-25 15:40:36 +02:00
|
|
|
/* Fill in request structure */
|
|
|
|
req.fs_e = vp->v_fs_e;
|
|
|
|
req.rw_flag = READING;
|
|
|
|
req.inode_nr = vp->v_inode_nr;
|
|
|
|
req.user_e = FS_PROC_NR;
|
|
|
|
req.seg = D;
|
2006-11-27 15:21:43 +01:00
|
|
|
req.pos = cvul64(pos);
|
2006-10-25 15:40:36 +02:00
|
|
|
req.num_of_bytes = sizeof(hdr);
|
|
|
|
req.user_addr = (char*)&hdr;
|
|
|
|
req.inode_index = vp->v_index;
|
2006-05-11 16:57:23 +02:00
|
|
|
|
2006-10-25 15:40:36 +02:00
|
|
|
/* Issue request */
|
|
|
|
if ((r = req_readwrite(&req, &res)) != OK) return r;
|
2006-05-11 16:57:23 +02:00
|
|
|
|
|
|
|
/* Interpreted script? */
|
2006-10-25 15:40:36 +02:00
|
|
|
if (((char*)&hdr)[0] == '#' && ((char*)&hdr)[1] == '!' && vp->v_size >= 2)
|
2006-05-11 16:57:23 +02:00
|
|
|
return ESCRIPT;
|
|
|
|
|
2006-10-25 15:40:36 +02:00
|
|
|
if (vp->v_size < A_MINHDR) return(ENOEXEC);
|
2006-05-11 16:57:23 +02:00
|
|
|
|
|
|
|
/* Check magic number, cpu type, and flags. */
|
|
|
|
if (BADMAG(hdr)) return(ENOEXEC);
|
|
|
|
#if (CHIP == INTEL && _WORD_SIZE == 2)
|
|
|
|
if (hdr.a_cpu != A_I8086) return(ENOEXEC);
|
|
|
|
#endif
|
|
|
|
#if (CHIP == INTEL && _WORD_SIZE == 4)
|
|
|
|
if (hdr.a_cpu != A_I80386) return(ENOEXEC);
|
|
|
|
#endif
|
|
|
|
if ((hdr.a_flags & ~(A_NSYM | A_EXEC | A_SEP)) != 0) return(ENOEXEC);
|
|
|
|
|
|
|
|
*sep_id = !!(hdr.a_flags & A_SEP); /* separate I & D or not */
|
|
|
|
|
|
|
|
/* Get text and data sizes. */
|
|
|
|
*text_bytes = (vir_bytes) hdr.a_text; /* text size in bytes */
|
|
|
|
*data_bytes = (vir_bytes) hdr.a_data; /* data size in bytes */
|
|
|
|
*bss_bytes = (vir_bytes) hdr.a_bss; /* bss size in bytes */
|
|
|
|
*tot_bytes = hdr.a_total; /* total bytes to allocate for prog */
|
|
|
|
if (*tot_bytes == 0) return(ENOEXEC);
|
|
|
|
|
|
|
|
if (!*sep_id) {
|
|
|
|
/* If I & D space is not separated, it is all considered data. Text=0*/
|
|
|
|
*data_bytes += *text_bytes;
|
|
|
|
*text_bytes = 0;
|
|
|
|
}
|
|
|
|
*pc = hdr.a_entry; /* initial address to start execution */
|
|
|
|
*hdrlenp = hdr.a_hdrlen & BYTE; /* header length */
|
|
|
|
|
|
|
|
return(OK);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*===========================================================================*
|
|
|
|
* patch_stack *
|
|
|
|
*===========================================================================*/
|
2006-10-25 15:40:36 +02:00
|
|
|
PRIVATE int patch_stack(vp, stack, stk_bytes)
|
|
|
|
struct vnode *vp; /* pointer for open script file */
|
2006-05-11 16:57:23 +02:00
|
|
|
char stack[ARG_MAX]; /* pointer to stack image within FS */
|
|
|
|
vir_bytes *stk_bytes; /* size of initial stack */
|
|
|
|
{
|
|
|
|
/* Patch the argument vector to include the path name of the script to be
|
|
|
|
* interpreted, and all strings on the #! line. Returns the path name of
|
|
|
|
* the interpreter.
|
|
|
|
*/
|
|
|
|
enum { INSERT=FALSE, REPLACE=TRUE };
|
2006-10-25 15:40:36 +02:00
|
|
|
int n, r;
|
2006-05-11 16:57:23 +02:00
|
|
|
off_t pos;
|
|
|
|
char *sp, *interp = NULL;
|
2006-10-25 15:40:36 +02:00
|
|
|
char buf[_MAX_BLOCK_SIZE];
|
|
|
|
struct readwrite_req req;
|
|
|
|
struct readwrite_res res;
|
2006-05-11 16:57:23 +02:00
|
|
|
|
|
|
|
/* Make user_path the new argv[0]. */
|
2006-10-25 15:40:36 +02:00
|
|
|
if (!insert_arg(stack, stk_bytes, user_fullpath, REPLACE)) return(ENOMEM);
|
|
|
|
|
|
|
|
pos = 0; /* Read from the start of the file */
|
|
|
|
|
|
|
|
/* Fill in request structure */
|
|
|
|
req.fs_e = vp->v_fs_e;
|
|
|
|
req.rw_flag = READING;
|
|
|
|
req.inode_nr = vp->v_inode_nr;
|
|
|
|
req.user_e = FS_PROC_NR;
|
|
|
|
req.seg = D;
|
2006-11-27 15:21:43 +01:00
|
|
|
req.pos = cvul64(pos);
|
2006-10-25 15:40:36 +02:00
|
|
|
req.num_of_bytes = _MAX_BLOCK_SIZE;
|
|
|
|
req.user_addr = buf;
|
|
|
|
req.inode_index = vp->v_index;
|
|
|
|
|
|
|
|
/* Issue request */
|
|
|
|
if ((r = req_readwrite(&req, &res)) != OK) return r;
|
|
|
|
|
|
|
|
n = vp->v_size;
|
|
|
|
if (n > vp->v_vmnt->m_block_size)
|
|
|
|
n = vp->v_vmnt->m_block_size;
|
|
|
|
if (n < 2) return ENOEXEC;
|
|
|
|
|
|
|
|
sp = &(buf[2]); /* just behind the #! */
|
2006-05-11 16:57:23 +02:00
|
|
|
n -= 2;
|
2006-10-25 15:40:36 +02:00
|
|
|
if (n > PATH_MAX) n = PATH_MAX;
|
2006-05-11 16:57:23 +02:00
|
|
|
|
|
|
|
/* Use the user_path variable for temporary storage */
|
2006-10-25 15:40:36 +02:00
|
|
|
memcpy(user_fullpath, sp, n);
|
2006-05-11 16:57:23 +02:00
|
|
|
|
2006-10-25 15:40:36 +02:00
|
|
|
if ((sp = memchr(user_fullpath, '\n', n)) == NULL) /* must be a proper line */
|
2006-05-11 16:57:23 +02:00
|
|
|
return(ENOEXEC);
|
|
|
|
|
|
|
|
/* Move sp backwards through script[], prepending each string to stack. */
|
|
|
|
for (;;) {
|
|
|
|
/* skip spaces behind argument. */
|
2006-10-25 15:40:36 +02:00
|
|
|
while (sp > user_fullpath && (*--sp == ' ' || *sp == '\t')) {}
|
|
|
|
if (sp == user_fullpath) break;
|
2006-05-11 16:57:23 +02:00
|
|
|
|
|
|
|
sp[1] = 0;
|
|
|
|
/* Move to the start of the argument. */
|
2006-10-25 15:40:36 +02:00
|
|
|
while (sp > user_fullpath && sp[-1] != ' ' && sp[-1] != '\t') --sp;
|
2006-05-11 16:57:23 +02:00
|
|
|
|
|
|
|
interp = sp;
|
|
|
|
if (!insert_arg(stack, stk_bytes, sp, INSERT)) return(ENOMEM);
|
|
|
|
}
|
|
|
|
|
|
|
|
/* Round *stk_bytes up to the size of a pointer for alignment contraints. */
|
|
|
|
*stk_bytes= ((*stk_bytes + PTRSIZE - 1) / PTRSIZE) * PTRSIZE;
|
|
|
|
|
2006-10-25 15:40:36 +02:00
|
|
|
if (interp != user_fullpath)
|
|
|
|
memmove(user_fullpath, interp, strlen(interp)+1);
|
2006-05-11 16:57:23 +02:00
|
|
|
return(OK);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*===========================================================================*
|
|
|
|
* insert_arg *
|
|
|
|
*===========================================================================*/
|
|
|
|
PRIVATE int insert_arg(stack, stk_bytes, arg, replace)
|
|
|
|
char stack[ARG_MAX]; /* pointer to stack image within PM */
|
|
|
|
vir_bytes *stk_bytes; /* size of initial stack */
|
|
|
|
char *arg; /* argument to prepend/replace as new argv[0] */
|
|
|
|
int replace;
|
|
|
|
{
|
|
|
|
/* Patch the stack so that arg will become argv[0]. Be careful, the stack may
|
|
|
|
* be filled with garbage, although it normally looks like this:
|
|
|
|
* nargs argv[0] ... argv[nargs-1] NULL envp[0] ... NULL
|
|
|
|
* followed by the strings "pointed" to by the argv[i] and the envp[i]. The
|
|
|
|
* pointers are really offsets from the start of stack.
|
|
|
|
* Return true iff the operation succeeded.
|
|
|
|
*/
|
|
|
|
int offset, a0, a1, old_bytes = *stk_bytes;
|
|
|
|
|
|
|
|
/* Prepending arg adds at least one string and a zero byte. */
|
|
|
|
offset = strlen(arg) + 1;
|
|
|
|
|
|
|
|
a0 = (int) ((char **) stack)[1]; /* argv[0] */
|
|
|
|
if (a0 < 4 * PTRSIZE || a0 >= old_bytes) return(FALSE);
|
|
|
|
|
|
|
|
a1 = a0; /* a1 will point to the strings to be moved */
|
|
|
|
if (replace) {
|
|
|
|
/* Move a1 to the end of argv[0][] (argv[1] if nargs > 1). */
|
|
|
|
do {
|
|
|
|
if (a1 == old_bytes) return(FALSE);
|
|
|
|
--offset;
|
|
|
|
} while (stack[a1++] != 0);
|
|
|
|
} else {
|
|
|
|
offset += PTRSIZE; /* new argv[0] needs new pointer in argv[] */
|
|
|
|
a0 += PTRSIZE; /* location of new argv[0][]. */
|
|
|
|
}
|
|
|
|
|
|
|
|
/* stack will grow by offset bytes (or shrink by -offset bytes) */
|
|
|
|
if ((*stk_bytes += offset) > ARG_MAX) return(FALSE);
|
|
|
|
|
|
|
|
/* Reposition the strings by offset bytes */
|
|
|
|
memmove(stack + a1 + offset, stack + a1, old_bytes - a1);
|
|
|
|
|
|
|
|
strcpy(stack + a0, arg); /* Put arg in the new space. */
|
|
|
|
|
|
|
|
if (!replace) {
|
|
|
|
/* Make space for a new argv[0]. */
|
|
|
|
memmove(stack + 2 * PTRSIZE, stack + 1 * PTRSIZE, a0 - 2 * PTRSIZE);
|
|
|
|
|
|
|
|
((char **) stack)[0]++; /* nargs++; */
|
|
|
|
}
|
|
|
|
/* Now patch up argv[] and envp[] by offset. */
|
|
|
|
patch_ptr(stack, (vir_bytes) offset);
|
|
|
|
((char **) stack)[1] = (char *) a0; /* set argv[0] correctly */
|
|
|
|
return(TRUE);
|
|
|
|
}
|
|
|
|
|
|
|
|
/*===========================================================================*
|
|
|
|
* patch_ptr *
|
|
|
|
*===========================================================================*/
|
|
|
|
PRIVATE void patch_ptr(stack, base)
|
|
|
|
char stack[ARG_MAX]; /* pointer to stack image within PM */
|
|
|
|
vir_bytes base; /* virtual address of stack base inside user */
|
|
|
|
{
|
|
|
|
/* When doing an exec(name, argv, envp) call, the user builds up a stack
|
|
|
|
* image with arg and env pointers relative to the start of the stack. Now
|
|
|
|
* these pointers must be relocated, since the stack is not positioned at
|
|
|
|
* address 0 in the user's address space.
|
|
|
|
*/
|
|
|
|
|
|
|
|
char **ap, flag;
|
|
|
|
vir_bytes v;
|
|
|
|
|
|
|
|
flag = 0; /* counts number of 0-pointers seen */
|
|
|
|
ap = (char **) stack; /* points initially to 'nargs' */
|
|
|
|
ap++; /* now points to argv[0] */
|
|
|
|
while (flag < 2) {
|
|
|
|
if (ap >= (char **) &stack[ARG_MAX]) return; /* too bad */
|
|
|
|
if (*ap != NULL) {
|
|
|
|
v = (vir_bytes) *ap; /* v is relative pointer */
|
|
|
|
v += base; /* relocate it */
|
|
|
|
*ap = (char *) v; /* put it back */
|
|
|
|
} else {
|
|
|
|
flag++;
|
|
|
|
}
|
|
|
|
ap++;
|
|
|
|
}
|
|
|
|
}
|
|
|
|
|
|
|
|
/*===========================================================================*
|
|
|
|
* read_seg *
|
|
|
|
*===========================================================================*/
|
2006-10-25 15:40:36 +02:00
|
|
|
PRIVATE int read_seg(vp, off, proc_e, seg, seg_bytes)
|
|
|
|
struct vnode *vp; /* inode descriptor to read from */
|
2006-05-11 16:57:23 +02:00
|
|
|
off_t off; /* offset in file */
|
|
|
|
int proc_e; /* process number (endpoint) */
|
|
|
|
int seg; /* T, D, or S */
|
|
|
|
phys_bytes seg_bytes; /* how much is to be transferred? */
|
|
|
|
{
|
|
|
|
/*
|
|
|
|
* The byte count on read is usually smaller than the segment count, because
|
|
|
|
* a segment is padded out to a click multiple, and the data segment is only
|
|
|
|
* partially initialized.
|
|
|
|
*/
|
2006-10-25 15:40:36 +02:00
|
|
|
struct readwrite_req req;
|
|
|
|
struct readwrite_res res;
|
|
|
|
int r;
|
2006-05-11 16:57:23 +02:00
|
|
|
|
|
|
|
/* Make sure that the file is big enough */
|
2006-10-25 15:40:36 +02:00
|
|
|
if (vp->v_size < off+seg_bytes) return EIO;
|
|
|
|
|
|
|
|
/* Fill in request structure */
|
|
|
|
req.fs_e = vp->v_fs_e;
|
|
|
|
req.rw_flag = READING;
|
|
|
|
req.inode_nr = vp->v_inode_nr;
|
|
|
|
req.user_e = proc_e;
|
|
|
|
req.seg = seg;
|
2006-11-27 15:21:43 +01:00
|
|
|
req.pos = cvul64(off);
|
2006-10-25 15:40:36 +02:00
|
|
|
req.num_of_bytes = seg_bytes;
|
|
|
|
req.user_addr = 0;
|
|
|
|
req.inode_index = vp->v_index;
|
|
|
|
|
|
|
|
/* Issue request */
|
|
|
|
if ((r = req_readwrite(&req, &res)) != OK) return r;
|
|
|
|
|
|
|
|
if (r == OK && res.cum_io != seg_bytes)
|
|
|
|
printf("VFSread_seg segment has not been read properly by exec() \n");
|
|
|
|
|
|
|
|
return r;
|
2006-05-11 16:57:23 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
|
|
|
/*===========================================================================*
|
|
|
|
* clo_exec *
|
|
|
|
*===========================================================================*/
|
|
|
|
PRIVATE void clo_exec(rfp)
|
|
|
|
struct fproc *rfp;
|
|
|
|
{
|
|
|
|
/* Files can be marked with the FD_CLOEXEC bit (in fp->fp_cloexec).
|
|
|
|
*/
|
2006-06-27 18:47:35 +02:00
|
|
|
int i;
|
2006-05-11 16:57:23 +02:00
|
|
|
|
|
|
|
/* Check the file desriptors one by one for presence of FD_CLOEXEC. */
|
2006-06-27 18:47:35 +02:00
|
|
|
for (i = 0; i < OPEN_MAX; i++)
|
|
|
|
if ( FD_ISSET(i, &rfp->fp_cloexec_set))
|
|
|
|
(void) close_fd(rfp, i);
|
2006-05-11 16:57:23 +02:00
|
|
|
}
|
|
|
|
|
|
|
|
|
2006-10-25 15:40:36 +02:00
|
|
|
|