xref: /csrg-svn/usr.bin/make/lst.lib/lstPrev.c (revision 40412)
1*40412Sbostic /*
2*40412Sbostic  * Copyright (c) 1988, 1989, 1990 The Regents of the University of California.
3*40412Sbostic  * All rights reserved.
4*40412Sbostic  *
5*40412Sbostic  * This code is derived from software contributed to Berkeley by
6*40412Sbostic  * Adam de Boor.
7*40412Sbostic  *
8*40412Sbostic  * Redistribution and use in source and binary forms are permitted
9*40412Sbostic  * provided that the above copyright notice and this paragraph are
10*40412Sbostic  * duplicated in all such forms and that any documentation,
11*40412Sbostic  * advertising materials, and other materials related to such
12*40412Sbostic  * distribution and use acknowledge that the software was developed
13*40412Sbostic  * by the University of California, Berkeley.  The name of the
14*40412Sbostic  * University may not be used to endorse or promote products derived
15*40412Sbostic  * from this software without specific prior written permission.
16*40412Sbostic  * THIS SOFTWARE IS PROVIDED ``AS IS'' AND WITHOUT ANY EXPRESS OR
17*40412Sbostic  * IMPLIED WARRANTIES, INCLUDING, WITHOUT LIMITATION, THE IMPLIED
18*40412Sbostic  * WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE.
19*40412Sbostic  */
20*40412Sbostic 
21*40412Sbostic #ifndef lint
22*40412Sbostic static char sccsid[] = "@(#)lstPrev.c	5.2 (Berkeley) 03/11/90";
23*40412Sbostic #endif /* not lint */
24*40412Sbostic 
2540411Sbostic /*-
2640411Sbostic  * LstPrev.c --
2740411Sbostic  *	Get the node previous to the current one in the list and make it the
2840411Sbostic  *	current node.
2940411Sbostic  *	The sequential functions access the list in a slightly different way.
3040411Sbostic  *	CurPtr points to their idea of the current node in the list and they
3140411Sbostic  *	access the list based on it. Because the list is circular, Lst_Next
3240411Sbostic  *	and Lst_Prev will go around the list forever. Lst_IsAtEnd must be
3340411Sbostic  *	used to determine when to stop.
3440411Sbostic  */
3540411Sbostic 
3640411Sbostic #include	"lstInt.h"
3740411Sbostic 
3840411Sbostic /*-
3940411Sbostic  *-----------------------------------------------------------------------
4040411Sbostic  * Lst_Prev --
4140411Sbostic  *	Return the node previous to the current one for the given list.
4240411Sbostic  *
4340411Sbostic  * Results:
4440411Sbostic  *	The previous node or NILLNODE if the list hasn't been opened
4540411Sbostic  *	yet or the beginning was reached.
4640411Sbostic  *
4740411Sbostic  * Side Effects:
4840411Sbostic  *	the curPtr is changed to reflect reality.
4940411Sbostic  *
5040411Sbostic  *-----------------------------------------------------------------------
5140411Sbostic  */
5240411Sbostic LstNode
Lst_Prev(l)5340411Sbostic Lst_Prev (l)
5440411Sbostic     Lst	    	  	l;
5540411Sbostic {
5640411Sbostic     register ListNode	tln;
5740411Sbostic     register List 	list = (List)l;
5840411Sbostic 
5940411Sbostic     if ((LstValid (l) == FALSE) ||
6040411Sbostic 	(list->isOpen == FALSE)) {
6140411Sbostic 	    return (NILLNODE);
6240411Sbostic     }
6340411Sbostic 
6440411Sbostic     list->prevPtr = list->curPtr;
6540411Sbostic 
6640411Sbostic     if (list->curPtr == NilListNode) {
6740411Sbostic 	if (list->atEnd == Unknown) {
6840411Sbostic 	    list->curPtr = tln = list->lastPtr;
6940411Sbostic 	    list->atEnd = Middle;
7040411Sbostic 	} else {
7140411Sbostic 	    tln = NilListNode;
7240411Sbostic 	    list->atEnd = Head;
7340411Sbostic 	}
7440411Sbostic     } else {
7540411Sbostic 	tln = list->curPtr->prevPtr;
7640411Sbostic 	list->curPtr = tln;
7740411Sbostic 	if (tln == list->lastPtr || tln == NilListNode) {
7840411Sbostic 	    list->atEnd = Head;
7940411Sbostic 	} else {
8040411Sbostic 	    list->atEnd = Middle;
8140411Sbostic 	}
8240411Sbostic     }
8340411Sbostic 
8440411Sbostic     return ((LstNode)tln);
8540411Sbostic }
8640411Sbostic 
87