From 77e3814f0c0e3dea4d0032e25666f77e6f83bfff Mon Sep 17 00:00:00 2001 From: cgd Date: Sun, 21 Mar 1993 09:45:37 +0000 Subject: initial import of 386bsd-0.1 sources --- trek/schedule.c | 173 ++++++++++++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 173 insertions(+) create mode 100644 trek/schedule.c (limited to 'trek/schedule.c') diff --git a/trek/schedule.c b/trek/schedule.c new file mode 100644 index 00000000..fa7bced0 --- /dev/null +++ b/trek/schedule.c @@ -0,0 +1,173 @@ +/* + * Copyright (c) 1980 Regents of the University of California. + * All rights reserved. + * + * Redistribution and use in source and binary forms, with or without + * modification, are permitted provided that the following conditions + * are met: + * 1. Redistributions of source code must retain the above copyright + * notice, this list of conditions and the following disclaimer. + * 2. Redistributions in binary form must reproduce the above copyright + * notice, this list of conditions and the following disclaimer in the + * documentation and/or other materials provided with the distribution. + * 3. All advertising materials mentioning features or use of this software + * must display the following acknowledgement: + * This product includes software developed by the University of + * California, Berkeley and its contributors. + * 4. Neither the name of the University nor the names of its contributors + * may be used to endorse or promote products derived from this software + * without specific prior written permission. + * + * THIS SOFTWARE IS PROVIDED BY THE REGENTS AND CONTRIBUTORS ``AS IS'' AND + * ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE + * IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE + * ARE DISCLAIMED. IN NO EVENT SHALL THE REGENTS OR CONTRIBUTORS BE LIABLE + * FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR CONSEQUENTIAL + * DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF SUBSTITUTE GOODS + * OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS INTERRUPTION) + * HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN CONTRACT, STRICT + * LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) ARISING IN ANY WAY + * OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE POSSIBILITY OF + * SUCH DAMAGE. + */ + +#ifndef lint +static char sccsid[] = "@(#)schedule.c 5.4 (Berkeley) 6/1/90"; +#endif /* not lint */ + +# include "trek.h" + +/* +** SCHEDULE AN EVENT +** +** An event of type 'type' is scheduled for time NOW + 'offset' +** into the first available slot. 'x', 'y', and 'z' are +** considered the attributes for this event. +** +** The address of the slot is returned. +*/ + +struct event *schedule(type, offset, x, y, z) +int type; +double offset; +char x, y; +char z; +{ + register struct event *e; + register int i; + double date; + + date = Now.date + offset; + for (i = 0; i < MAXEVENTS; i++) + { + e = &Event[i]; + if (e->evcode) + continue; + /* got a slot */ +# ifdef xTRACE + if (Trace) + printf("schedule: type %d @ %.2f slot %d parm %d %d %d\n", + type, date, i, x, y, z); +# endif + e->evcode = type; + e->date = date; + e->x = x; + e->y = y; + e->systemname = z; + Now.eventptr[type] = e; + return (e); + } + syserr("Cannot schedule event %d parm %d %d %d", type, x, y, z); +} + + +/* +** RESCHEDULE AN EVENT +** +** The event pointed to by 'e' is rescheduled to the current +** time plus 'offset'. +*/ + +reschedule(e1, offset) +struct event *e1; +double offset; +{ + double date; + register struct event *e; + + e = e1; + + date = Now.date + offset; + e->date = date; +# ifdef xTRACE + if (Trace) + printf("reschedule: type %d parm %d %d %d @ %.2f\n", + e->evcode, e->x, e->y, e->systemname, date); +# endif + return; +} + + +/* +** UNSCHEDULE AN EVENT +** +** The event at slot 'e' is deleted. +*/ + +unschedule(e1) +struct event *e1; +{ + register struct event *e; + + e = e1; + +# ifdef xTRACE + if (Trace) + printf("unschedule: type %d @ %.2f parm %d %d %d\n", + e->evcode, e->date, e->x, e->y, e->systemname); +# endif + Now.eventptr[e->evcode & E_EVENT] = 0; + e->date = 1e50; + e->evcode = 0; + return; +} + + +/* +** Abreviated schedule routine +** +** Parameters are the event index and a factor for the time +** figure. +*/ + +struct event *xsched(ev1, factor, x, y, z) +int ev1; +int factor; +int x, y, z; +{ + register int ev; + + ev = ev1; + return (schedule(ev, -Param.eventdly[ev] * Param.time * log(franf()) / factor, x, y, z)); +} + + +/* +** Simplified reschedule routine +** +** Parameters are the event index, the initial date, and the +** division factor. Look at the code to see what really happens. +*/ + +xresched(e1, ev1, factor) +struct event *e1; +int ev1; +int factor; +{ + register int ev; + register struct event *e; + + ev = ev1; + e = e1; + reschedule(e, -Param.eventdly[ev] * Param.time * log(franf()) / factor); +} -- cgit v1.2.3-56-ge451