godzil/ack
1
0
Fork 0
Code Issues Pull Requests Actions Packages Projects Releases Wiki Activity

New installation mechanism, updated to 1.5

Browse Source
This commit is contained in:
ceriel
1991-09-03 14:22:32 +00:00
parent 7512bdd33b
commit c55a542ba4
126 changed files with 1923 additions and 280 deletions
Download Patch File Download Diff File Expand all files Collapse all files

165
mach/minixST/libsys/syslib.c
View File

@@ -1,71 +1,95 @@
#include <minix/const.h>
#include <minix/type.h>
#include <minix/callnr.h>
#include <lib.h>
#include <minix/com.h>
#include <errno.h>
#define FS FS_PROC_NR
#define MM MMPROCNR
extern message M;
/*----------------------------------------------------------------------------
Messages to systask (special calls)
Messages to systask (special calls)
----------------------------------------------------------------------------*/
#if (CHIP == M68000)
PUBLIC _PROTOTYPE( void sys_xit, (int parent, int proc,
phys_clicks *basep, phys_clicks *sizep));
#else
PUBLIC _PROTOTYPE( void sys_xit, (int parent, int proc));
#endif
PUBLIC _PROTOTYPE( void sys_getsp, (int proc, vir_bytes *newsp));
PUBLIC _PROTOTYPE( void sys_sig, (int proc, int sig, void (*sighandler)(int)));
#if (CHIP == M68000)
#ifdef ALCYON_C_BUG_FIXED
PUBLIC _PROTOTYPE( void sys_fork, (int prnt, int chld, int pd, phys_clicks shdw));
#else
PUBLIC _PROTOTYPE( void sys_fork, (int parent, int child, int pid, int shadow));
#endif
#else
PUBLIC _PROTOTYPE( void sys_fork, (int parent, int child, int pid));
#endif
PUBLIC _PROTOTYPE( void sys_exec, (int proc, char *ptr, int traced));
PUBLIC _PROTOTYPE( void sys_newmap, (int proc, char *ptr));
PUBLIC _PROTOTYPE( void sys_copy, (message *mptr));
PUBLIC _PROTOTYPE( void sys_times, (int proc, time_t ptr[4]));
PUBLIC _PROTOTYPE( void sys_abort, (void));
#if (CHIP == M68000)
PUBLIC _PROTOTYPE( void sys_fresh, (int proc, char *ptr, phys_clicks dc,
phys_clicks *basep, phys_clicks *sizep));
#endif
PUBLIC _PROTOTYPE( void sys_kill, (int proc, int sig));
PUBLIC _PROTOTYPE( int sys_trace, (int req, int procnr,
long addr, long *data_p));
PUBLIC _PROTOTYPE( void tell_fs, ( int what, int p1, int p2, int p3));
#ifdef ATARI_ST
PUBLIC sys_xit(parent, proc, basep, sizep)
#if (CHIP == M68000)
PUBLIC void sys_xit(parent, proc, basep, sizep)
phys_clicks *basep, *sizep;
#else
PUBLIC sys_xit(parent, proc)
PUBLIC void sys_xit(parent, proc)
#endif
int parent; /* parent of exiting proc. */
int proc; /* which proc has exited */
{
/* A proc has exited. Tell the kernel. */
callm1(SYSTASK, SYS_XIT, parent, proc, 0, NIL_PTR, NIL_PTR, NIL_PTR);
#ifdef ATARI_ST
*basep = (phys_clicks)M.m1_i1;
*sizep = (phys_clicks)M.m1_i2;
_callm1(SYSTASK, SYS_XIT, parent, proc, 0, NIL_PTR, NIL_PTR, NIL_PTR);
#if (CHIP == M68000)
*basep = (phys_clicks) _M.m1_i1;
*sizep = (phys_clicks) _M.m1_i2;
#endif
}
PUBLIC sys_getsp(proc, newsp)
PUBLIC void sys_getsp(proc, newsp)
int proc; /* which proc has enabled signals */
vir_bytes *newsp; /* place to put sp read from kernel */
{
/* Ask the kernel what the sp is. */
callm1(SYSTASK, SYS_GETSP, proc, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
*newsp = (vir_bytes) M.STACK_PTR;
_callm1(SYSTASK, SYS_GETSP, proc, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
*newsp = (vir_bytes) _M.STACK_PTR;
}
PUBLIC sys_sig(proc, sig, sighandler)
PUBLIC void sys_sig(proc, sig, sighandler)
int proc; /* which proc has exited */
int sig; /* signal number: 1 - 16 */
int (*sighandler)(); /* pointer to signal handler in user space */
_PROTOTYPE(void (*sighandler), (int));/* pointer to signal handler in user space */
{
/* A proc has to be signaled. Tell the kernel. */
M.m6_i1 = proc;
M.m6_i2 = sig;
M.m6_f1 = sighandler;
callx(SYSTASK, SYS_SIG);
_M.m6_i1 = proc;
_M.m6_i2 = sig;
_M.m6_f1 = sighandler;
_callx(SYSTASK, SYS_SIG);
}
#ifdef ATARI_ST
PUBLIC sys_fork(parent, child, pid, shadow)
#if (CHIP == M68000)
PUBLIC void sys_fork(parent, child, pid, shadow)
#ifdef ALCYON_C_BUG_FIXED
phys_clicks shadow; /* memory allocated for shadow */
#else
int shadow;
#endif
#else
PUBLIC sys_fork(parent, child, pid)
PUBLIC void sys_fork(parent, child, pid)
#endif
int parent; /* proc doing the fork */
int child; /* which proc has been created by the fork */
@@ -73,69 +97,68 @@ int pid; /* process id assigned by MM */
{
/* A proc has forked. Tell the kernel. */
#ifdef ATARI_ST
callm1(SYSTASK, SYS_FORK, parent, child, pid, (char *)shadow, NIL_PTR, NIL_PTR);
#if (CHIP == M68000)
_callm1(SYSTASK, SYS_FORK, parent, child, pid, (char *) shadow, NIL_PTR, NIL_PTR);
#else
callm1(SYSTASK, SYS_FORK, parent, child, pid, NIL_PTR, NIL_PTR, NIL_PTR);
_callm1(SYSTASK, SYS_FORK, parent, child, pid, NIL_PTR, NIL_PTR, NIL_PTR);
#endif
}
PUBLIC sys_exec(proc, ptr)
PUBLIC void sys_exec(proc, ptr, traced)
int proc; /* proc that did exec */
char *ptr; /* new stack pointer */
int traced; /* is tracing enabled? */
{
/* A proc has exec'd. Tell the kernel. */
callm1(SYSTASK, SYS_EXEC, proc, 0, 0, ptr, NIL_PTR, NIL_PTR);
_callm1(SYSTASK, SYS_EXEC, proc, traced, 0, ptr, NIL_PTR, NIL_PTR);
}
PUBLIC sys_newmap(proc, ptr)
PUBLIC void sys_newmap(proc, ptr)
int proc; /* proc whose map is to be changed */
char *ptr; /* pointer to new map */
{
/* A proc has been assigned a new memory map. Tell the kernel. */
callm1(SYSTASK, SYS_NEWMAP, proc, 0, 0, ptr, NIL_PTR, NIL_PTR);
_callm1(SYSTASK, SYS_NEWMAP, proc, 0, 0, ptr, NIL_PTR, NIL_PTR);
}
PUBLIC sys_copy(mptr)
PUBLIC void sys_copy(mptr)
message *mptr; /* pointer to message */
{
/* A proc wants to use local copy. */
/* Make this routine better. Also check other guys' error handling -DEBUG */
/* Make this routine better. Also check other guys' error handling
* -DEBUG */
mptr->m_type = SYS_COPY;
if (sendrec(SYSTASK, mptr) != OK) panic("sys_copy can't send", NO_NUM);
if (_sendrec(SYSTASK, mptr) != 0) panic("sys_copy can't send", NO_NUM);
}
PUBLIC sys_times(proc, ptr)
PUBLIC void sys_times(proc, ptr)
int proc; /* proc whose times are needed */
real_time ptr[4]; /* pointer to time buffer */
time_t ptr[4]; /* pointer to time buffer */
{
/* Fetch the accounting info for a proc. */
callm1(SYSTASK, SYS_TIMES, proc, 0, 0, ptr, NIL_PTR, NIL_PTR);
ptr[0] = M.USER_TIME;
ptr[1] = M.SYSTEM_TIME;
ptr[2] = M.CHILD_UTIME;
ptr[3] = M.CHILD_STIME;
_callm1(SYSTASK, SYS_TIMES, proc, 0, 0, (char *)ptr, NIL_PTR, NIL_PTR);
ptr[0] = _M.USER_TIME;
ptr[1] = _M.SYSTEM_TIME;
ptr[2] = _M.CHILD_UTIME;
ptr[3] = _M.CHILD_STIME;
}
PUBLIC sys_abort()
PUBLIC void sys_abort()
{
/* Something awful has happened. Abandon ship. */
callm1(SYSTASK, SYS_ABORT, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
_callm1(SYSTASK, SYS_ABORT, 0, 0, 0, NIL_PTR, NIL_PTR, NIL_PTR);
}
#ifdef ATARI_ST
PUBLIC sys_fresh(proc, ptr, dc, basep, sizep)
#if (CHIP == M68000)
PUBLIC void sys_fresh(proc, ptr, dc, basep, sizep)
int proc; /* proc whose map is to be changed */
char *ptr; /* pointer to new map */
phys_clicks dc; /* size of initialized data */
@@ -143,30 +166,46 @@ phys_clicks *basep, *sizep; /* base and size for free_mem() */
{
/* Create a fresh process image for exec(). Tell the kernel. */
callm1(SYSTASK, SYS_FRESH, proc, (int)dc, 0, ptr, NIL_PTR, NIL_PTR);
*basep = (phys_clicks)M.m1_i1;
*sizep = (phys_clicks)M.m1_i2;
_callm1(SYSTASK, SYS_FRESH, proc, (int) dc, 0, ptr, NIL_PTR, NIL_PTR);
*basep = (phys_clicks) _M.m1_i1;
*sizep = (phys_clicks) _M.m1_i2;
}
#endif
PUBLIC sys_kill(proc, sig)
PUBLIC void sys_kill(proc, sig)
int proc; /* which proc has exited */
int sig; /* signal number: 1 - 16 */
{
/* A proc has to be signaled via MM. Tell the kernel. */
M.m6_i1 = proc;
M.m6_i2 = sig;
callx(SYSTASK, SYS_KILL);
_M.m6_i1 = proc;
_M.m6_i2 = sig;
_callx(SYSTASK, SYS_KILL);
}
PUBLIC int sys_trace(req, procnr, addr, data_p)
int req, procnr;
long addr, *data_p;
{
int r;
PUBLIC int tell_fs(what, p1, p2, p3)
_M.m2_i1 = procnr;
_M.m2_i2 = req;
_M.m2_l1 = addr;
if (data_p) _M.m2_l2 = *data_p;
r = _callx(SYSTASK, SYS_TRACE);
if (data_p) *data_p = _M.m2_l2;
return(r);
}
PUBLIC void tell_fs(what, p1, p2, p3)
int what, p1, p2, p3;
{
/* This routine is only used by MM to inform FS of certain events:
* tell_fs(CHDIR, slot, dir, 0)
* tell_fs(EXEC, proc, 0, 0)
* tell_fs(EXIT, proc, 0, 0)
* tell_fs(FORK, parent, child, pid)
* tell_fs(SETGID, proc, realgid, effgid)
@@ -175,5 +214,5 @@ int what, p1, p2, p3;
* tell_fs(UNPAUSE, proc, signr, 0)
* tell_fs(SETPGRP, proc, 0, 0)
*/
callm1(FS, what, p1, p2, p3, NIL_PTR, NIL_PTR, NIL_PTR);
_callm1(FS, what, p1, p2, p3, NIL_PTR, NIL_PTR, NIL_PTR);
}