Standardize License information
[openafs.git] / src / afs / SOLARIS / osi_sleep.c
1 /*
2  * Copyright 2000, International Business Machines Corporation and others.
3  * All Rights Reserved.
4  * 
5  * This software has been released under the terms of the IBM Public
6  * License.  For details, see the LICENSE file in the top-level source
7  * directory or online at http://www.openafs.org/dl/license10.html
8  */
9
10 #include "../afs/param.h"       /* Should be always first */
11 #include "../afs/sysincludes.h" /* Standard vendor system headers */
12 #include "../afs/afsincludes.h" /* Afs-based standard headers */
13 #include "../afs/afs_stats.h"   /* afs statistics */
14
15 static int osi_TimedSleep(char *event, afs_int32 ams, int aintok);
16 void afs_osi_Wakeup(char *event);
17 void afs_osi_Sleep(char *event);
18
19 static char waitV;
20
21 void afs_osi_InitWaitHandle(struct afs_osi_WaitHandle *achandle)
22 {
23     AFS_STATCNT(osi_InitWaitHandle);
24     achandle->proc = (caddr_t) 0;
25 }
26
27 /* cancel osi_Wait */
28 void afs_osi_CancelWait(struct afs_osi_WaitHandle *achandle)
29 {
30     caddr_t proc;
31
32     AFS_STATCNT(osi_CancelWait);
33     proc = achandle->proc;
34     if (proc == 0) return;
35     achandle->proc = (caddr_t) 0;   /* so dude can figure out he was signalled */
36     afs_osi_Wakeup(&waitV);
37 }
38
39 /* afs_osi_Wait
40  * Waits for data on ahandle, or ams ms later.  ahandle may be null.
41  * Returns 0 if timeout and EINTR if signalled.
42  */
43 int afs_osi_Wait(afs_int32 ams, struct afs_osi_WaitHandle *ahandle, int aintok)
44 {
45     int code;
46     afs_int32 endTime, tid;
47
48     AFS_STATCNT(osi_Wait);
49     endTime = osi_Time() + (ams/1000);
50     if (ahandle)
51         ahandle->proc = (caddr_t) curthread;
52     do {
53         AFS_ASSERT_GLOCK();
54         code = 0;
55         code = osi_TimedSleep(&waitV, ams, aintok);
56
57         if (code) break;        /* if something happened, quit now */
58         /* if we we're cancelled, quit now */
59         if (ahandle && (ahandle->proc == (caddr_t) 0)) {
60             /* we've been signalled */
61             break;
62         }
63     } while (osi_Time() < endTime);
64     return code;
65 }
66
67
68
69
70 typedef struct afs_event {
71     struct afs_event *next;     /* next in hash chain */
72     char *event;                /* lwp event: an address */
73     int refcount;               /* Is it in use? */
74     int seq;                    /* Sequence number: this is incremented
75                                    by wakeup calls; wait will not return until
76                                    it changes */
77     kcondvar_t cond;            /* Currently associated condition variable */
78 } afs_event_t;
79
80 #define HASHSIZE 128
81 afs_event_t *afs_evhasht[HASHSIZE];/* Hash table for events */
82 #define afs_evhash(event)       (afs_uint32) ((((long)event)>>2) & (HASHSIZE-1));
83 int afs_evhashcnt = 0;
84
85 /* Get and initialize event structure corresponding to lwp event (i.e. address)
86  * */
87 static afs_event_t *afs_getevent(char *event)
88 {
89     afs_event_t *evp, *newp = 0;
90     int hashcode;
91
92     AFS_ASSERT_GLOCK();
93     hashcode = afs_evhash(event);
94     evp = afs_evhasht[hashcode];
95     while (evp) {
96         if (evp->event == event) {
97             evp->refcount++;
98             return evp;
99         }
100         if (evp->refcount == 0)
101             newp = evp;
102         evp = evp->next;
103     }
104     if (!newp) {
105         newp = (afs_event_t *) osi_AllocSmallSpace(sizeof (afs_event_t));
106         afs_evhashcnt++;
107         newp->next = afs_evhasht[hashcode];
108         afs_evhasht[hashcode] = newp;
109         cv_init(&newp->cond, "event cond var", CV_DEFAULT, NULL);
110         newp->seq = 0;
111     }
112     newp->event = event;
113     newp->refcount = 1;
114     return newp;
115 }
116
117 /* Release the specified event */
118 #define relevent(evp) ((evp)->refcount--)
119
120
121 void afs_osi_Sleep(char *event)
122 {
123     struct afs_event *evp;
124     int seq;
125
126     evp = afs_getevent(event);
127     seq = evp->seq;
128     while (seq == evp->seq) {
129         AFS_ASSERT_GLOCK();
130         cv_wait(&evp->cond, &afs_global_lock);
131     }
132     relevent(evp);
133 }
134
135 /* osi_TimedSleep
136  * 
137  * Arguments:
138  * event - event to sleep on
139  * ams --- max sleep time in milliseconds
140  * aintok - 1 if should sleep interruptibly
141  *
142  * Returns 0 if timeout and EINTR if signalled.
143  */
144 static int osi_TimedSleep(char *event, afs_int32 ams, int aintok)
145 {
146     int code = 0;
147     struct afs_event *evp;
148     clock_t ticks;
149
150     ticks = ( ams * afs_hz )/1000;
151     ticks = ticks  + lbolt;
152
153     evp = afs_getevent(event);
154
155     AFS_ASSERT_GLOCK();
156     if (aintok) {
157         if (cv_timedwait_sig(&evp->cond, &afs_global_lock, ticks) == -1)
158             code = EINTR;
159     } else {
160         cv_timedwait(&evp->cond, &afs_global_lock, ticks);
161     }
162     
163     relevent(evp);
164     return code;
165 }
166
167
168 void afs_osi_Wakeup(char *event)
169 {
170     struct afs_event *evp;
171
172     evp = afs_getevent(event);
173     if (evp->refcount > 1) {
174         evp->seq++;    
175         cv_broadcast(&evp->cond);
176     }
177     relevent(evp);
178 }