Return to timeout.c CVS log

Up to [MW Coherent from dump] / coherent / d / 286_KERNEL / USRSRC / ldrv

Annotation of coherent/d/286_KERNEL/USRSRC/ldrv/timeout.c, revision 1.1.1.1

1.1       root        1: /* $Header: /usr/src/sys/ldrv/RCS/timeout.c,v 1.1 88/03/24 16:31:21 src Exp $ */
                      2: /*
                      3:  *     The  information  contained herein  is a trade secret  of INETCO
                      4:  *     Systems, and is confidential information.   It is provided under
                      5:  *     a license agreement,  and may be copied or disclosed  only under
                      6:  *     the terms of that agreement.   Any reproduction or disclosure of
                      7:  *     this  material  without  the express  written  authorization  of
                      8:  *     INETCO Systems or persuant to the license agreement is unlawful.
                      9:  *
                     10:  *     Copyright (c) 1987
                     11:  *     An unpublished work by INETCO Systems, Ltd.
                     12:  *     All rights reserved.
                     13:  */
                     14: 
                     15: /*
                     16:  * Loadable Driver - Timed functions.
                     17:  *
                     18:  * $Log:       /usr/src/sys/ldrv/RCS/timeout.c,v $
                     19:  * Revision 1.1        88/03/24  16:31:21      src
                     20:  * Initial revision
                     21:  * 
                     22:  * 87/12/08    Allan Cornish   /usr/src/sys/ldrv/timeout.c
                     23:  * Timed loadable driver functions now supported.
                     24:  */
                     25: #include <sys/coherent.h>
                     26: 
                     27: /*
                     28:  * External functions.
                     29:  */
                     30: extern void Ktimeout();
                     31: extern void Kldtimcall();
                     32: extern saddr_t getcs();
                     33: 
                     34: /*
                     35:  * Given a pointer to a timeout structure, `tp', call the function `f'
                     36:  * with integer argument `a' in `n' ticks of the clock. The list is
                     37:  * searched to see if the specified timeout structure is already in a
                     38:  * list, and it is removed if already there.
                     39:  * This module is specific to loadable drivers.
                     40:  */
                     41: timeout( tp, n, f, a )
                     42: register TIM * tp;
                     43: int n;
                     44: void (*f)();
                     45: int a;
                     46: {
                     47:        register int s;
                     48: 
                     49:        /*
                     50:         * Cancel existing timer.
                     51:         */
                     52:        if ( (f == NULL) || (n <= 0) ) {
                     53:                kcall( Ktimeout, tp, 0, NULL, 0 );
                     54:                return;
                     55:        }
                     56: 
                     57:        /*
                     58:         * Define loadable driver interface.
                     59:         * Kldtimcall will be invoked when timeout occurs.
                     60:         * It will in turn invoke FP_SEL(tp->t_ldrv):4,
                     61:         *      passing FP_OFF(tp->t_ldrv) in AX.
                     62:         */
                     63:        s = sphi();
                     64:        FP_SEL(tp->t_ldrv) = getcs();
                     65:        FP_OFF(tp->t_ldrv) = f;
                     66:        kcall( Ktimeout, tp, n, Kldtimcall, a );
                     67:        spl(s);
                     68: }

This archive runs on limited infrastructure. Preserving old code on modern bandwidth. Automated agents are requested to crawl responsibly.