initial-freebsd-port-work-20010414
[openafs.git] / src / afs / FBSD / 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
11 #include "../afs/param.h"       /* Should be always first */
12 #include "../afs/sysincludes.h" /* Standard vendor system headers */
13 #include "../afs/afsincludes.h" /* Afs-based standard headers */
14 #include "../afs/afs_stats.h"   /* afs statistics */
15
16
17
18 static int osi_TimedSleep(char *event, afs_int32 ams, int aintok);
19 void afs_osi_Wakeup(char *event);
20 void afs_osi_Sleep(char *event);
21
22 static char waitV;
23
24
25 void afs_osi_InitWaitHandle(struct afs_osi_WaitHandle *achandle)
26 {
27     AFS_STATCNT(osi_InitWaitHandle);
28     achandle->proc = (caddr_t) 0;
29 }
30
31 /* cancel osi_Wait */
32 void afs_osi_CancelWait(struct afs_osi_WaitHandle *achandle)
33 {
34     caddr_t proc;
35
36     AFS_STATCNT(osi_CancelWait);
37     proc = achandle->proc;
38     if (proc == 0) return;
39     achandle->proc = (caddr_t) 0;   /* so dude can figure out he was signalled */
40     afs_osi_Wakeup(&waitV);
41 }
42
43 /* afs_osi_Wait
44  * Waits for data on ahandle, or ams ms later.  ahandle may be null.
45  * Returns 0 if timeout and EINTR if signalled.
46  */
47 int afs_osi_Wait(afs_int32 ams, struct afs_osi_WaitHandle *ahandle, int aintok)
48 {
49     int code;
50     afs_int32 endTime, tid;
51
52     AFS_STATCNT(osi_Wait);
53     endTime = osi_Time() + (ams/1000);
54     if (ahandle)
55       ahandle->proc = (caddr_t) curproc;
56     do {
57         AFS_ASSERT_GLOCK();
58         code = 0;
59         code = osi_TimedSleep(&waitV, ams, aintok);
60
61         if (code) break;        /* if something happened, quit now */
62         /* if we we're cancelled, quit now */
63         if (ahandle && (ahandle->proc == (caddr_t) 0)) {
64             /* we've been signalled */
65             break;
66         }
67     } while (osi_Time() < endTime);
68     return code;
69 }
70
71
72
73
74 typedef struct afs_event {
75     struct afs_event *next;     /* next in hash chain */
76     char *event;                /* lwp event: an address */
77     int refcount;               /* Is it in use? */
78     int seq;                    /* Sequence number: this is incremented
79                                    by wakeup calls; wait will not return until
80                                    it changes */
81     int cond;
82 } afs_event_t;
83
84 #define HASHSIZE 128
85 afs_event_t *afs_evhasht[HASHSIZE];/* Hash table for events */
86 #define afs_evhash(event)       (afs_uint32) ((((long)event)>>2) & (HASHSIZE-1));
87 int afs_evhashcnt = 0;
88
89 /* Get and initialize event structure corresponding to lwp event (i.e. address)
90  * */
91 static afs_event_t *afs_getevent(char *event)
92 {
93     afs_event_t *evp, *newp = 0;
94     int hashcode;
95
96     AFS_ASSERT_GLOCK();
97     hashcode = afs_evhash(event);
98     evp = afs_evhasht[hashcode];
99     while (evp) {
100         if (evp->event == event) {
101             evp->refcount++;
102             return evp;
103         }
104         if (evp->refcount == 0)
105             newp = evp;
106         evp = evp->next;
107     }
108     if (!newp) {
109         newp = (afs_event_t *) osi_AllocSmallSpace(sizeof (afs_event_t));
110         afs_evhashcnt++;
111         newp->next = afs_evhasht[hashcode];
112         afs_evhasht[hashcode] = newp;
113         newp->seq = 0;
114     }
115     newp->event = event;
116     newp->refcount = 1;
117     return newp;
118 }
119
120 /* Release the specified event */
121 #define relevent(evp) ((evp)->refcount--)
122
123
124 void afs_osi_Sleep(char *event)
125 {
126     struct afs_event *evp;
127     int seq;
128
129     evp = afs_getevent(event);
130     seq = evp->seq;
131     while (seq == evp->seq) {
132         AFS_ASSERT_GLOCK();
133         assert_wait((vm_offset_t)(&evp->cond), 0);
134         AFS_GUNLOCK();
135         thread_block();
136         AFS_GLOCK();
137     }
138     relevent(evp);
139 }
140
141 /* osi_TimedSleep
142  * 
143  * Arguments:
144  * event - event to sleep on
145  * ams --- max sleep time in milliseconds
146  * aintok - 1 if should sleep interruptibly
147  *
148  * Returns 0 if timeout and EINTR if signalled.
149  */
150 static int osi_TimedSleep(char *event, afs_int32 ams, int aintok)
151 {
152     int code = 0;
153     struct afs_event *evp;
154     int ticks;
155
156     ticks = ( ams * afs_hz )/1000;
157
158
159     evp = afs_getevent(event);
160
161     assert_wait((vm_offset_t)(&evp->cond), aintok);
162     AFS_GUNLOCK();
163     thread_set_timeout(ticks);
164     thread_block();
165     AFS_GLOCK();
166     /*    if (current_thread()->wait_result != THREAD_AWAKENED)
167           code = EINTR; */
168     
169     relevent(evp);
170     return code;
171 }
172
173
174 void afs_osi_Wakeup(char *event)
175 {
176     struct afs_event *evp;
177
178     evp = afs_getevent(event);
179     if (evp->refcount > 1) {
180         evp->seq++;    
181         thread_wakeup((vm_offset_t)(&evp->cond));
182     }
183     relevent(evp);
184 }