xref: /csrg-svn/usr.bin/make/lst.lib/lstLast.c (revision 69094)
140412Sbostic /*
262087Sbostic  * Copyright (c) 1988, 1989, 1990, 1993
362087Sbostic  *	The Regents of the University of California.  All rights reserved.
440411Sbostic  *
540412Sbostic  * This code is derived from software contributed to Berkeley by
640412Sbostic  * Adam de Boor.
740411Sbostic  *
842741Sbostic  * %sccs.include.redist.c%
940411Sbostic  */
1040412Sbostic 
1140411Sbostic #ifndef lint
12*69094Schristos static char sccsid[] = "@(#)lstLast.c	8.2 (Berkeley) 04/28/95";
1340412Sbostic #endif /* not lint */
1440411Sbostic 
1540412Sbostic /*-
1640412Sbostic  * LstLast.c --
1740412Sbostic  *	Return the last element of a list
1840412Sbostic  */
1940412Sbostic 
2040411Sbostic #include	"lstInt.h"
2140411Sbostic 
2240411Sbostic /*-
2340411Sbostic  *-----------------------------------------------------------------------
2440411Sbostic  * Lst_Last --
2540411Sbostic  *	Return the last node on the list l.
2640411Sbostic  *
2740411Sbostic  * Results:
2840411Sbostic  *	The requested node or NILLNODE if the list is empty.
2940411Sbostic  *
3040411Sbostic  * Side Effects:
3140411Sbostic  *	None.
3240411Sbostic  *
3340411Sbostic  *-----------------------------------------------------------------------
3440411Sbostic  */
3540411Sbostic LstNode
Lst_Last(l)3640411Sbostic Lst_Last (l)
3740411Sbostic     Lst	    l;
3840411Sbostic {
3940411Sbostic     if (!LstValid(l) || LstIsEmpty (l)) {
4040411Sbostic 	return (NILLNODE);
4140411Sbostic     } else {
4240411Sbostic 	return ((LstNode)((List)l)->lastPtr);
4340411Sbostic     }
4440411Sbostic }
4540411Sbostic 
46