]> git.pond.sub.org Git - empserver/blob - src/lib/lwp/queue.c
Import of Empire 4.2.12
[empserver] / src / lib / lwp / queue.c
1 /*
2  * queue.c -- queue manipulation routines.
3  * Copyright (C) 1991-3 Stephen Crane.
4  *
5  * This library is free software; you can redistribute it and/or
6  * modify it under the terms of the GNU Library General Public
7  * License as published by the Free Software Foundation; either
8  * version 2 of the License, or (at your option) any later version.
9  * 
10  * This library is distributed in the hope that it will be useful,
11  * but WITHOUT ANY WARRANTY; without even the implied warranty of
12  * MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE.  See the GNU
13  * Library General Public License for more details.
14  * 
15  * You should have received a copy of the GNU Library General Public
16  * License along with this library; if not, write to the Free
17  * Software Foundation, Inc., 675 Mass Ave, Cambridge, MA 02139, USA.
18  *
19  * author: Stephen Crane, (jsc@doc.ic.ac.uk), Department of Computing,
20  * Imperial College of Science, Technology and Medicine, 180 Queen's
21  * Gate, London SW7 2BZ, England.
22  */
23 #include "lwp.h"
24 #include "lwpint.h"
25 #include "prototypes.h"
26
27 #if defined(_EMPTH_LWP)
28
29 struct lwpProc *lwpGetFirst(q)
30         struct lwpQueue *q;
31 {
32         struct lwpProc *head;
33
34         if ((head = q->head) && !(q->head = head->next))
35                 q->tail = 0;
36         return (head);
37 }
38
39 void lwpAddTail(q, p)
40         register struct lwpQueue *q;
41         register struct lwpProc *p;
42 {
43         if (!q->tail)
44                 q->head = p;
45         else
46                 q->tail->next = p;
47         q->tail = p;
48         p->next = 0;
49 }
50
51 #endif