140412Sbostic /*
240412Sbostic  * Copyright (c) 1988, 1989, 1990 The Regents of the University of California.
340412Sbostic  * All rights reserved.
440411Sbostic  *
540412Sbostic  * This code is derived from software contributed to Berkeley by
640412Sbostic  * Adam de Boor.
740411Sbostic  *
8*42741Sbostic  * %sccs.include.redist.c%
940411Sbostic  */
1040412Sbostic 
1140411Sbostic #ifndef lint
12*42741Sbostic static char sccsid[] = "@(#)lstDatum.c	5.3 (Berkeley) 06/01/90";
1340412Sbostic #endif /* not lint */
1440411Sbostic 
1540412Sbostic /*-
1640412Sbostic  * LstDatum.c --
1740412Sbostic  *	Return the datum associated with a list node.
1840412Sbostic  */
1940412Sbostic 
2040411Sbostic #include	"lstInt.h"
2140411Sbostic 
2240411Sbostic /*-
2340411Sbostic  *-----------------------------------------------------------------------
2440411Sbostic  * Lst_Datum --
2540411Sbostic  *	Return the datum stored in the given node.
2640411Sbostic  *
2740411Sbostic  * Results:
2840411Sbostic  *	The datum or (ick!) NIL if the node is invalid.
2940411Sbostic  *
3040411Sbostic  * Side Effects:
3140411Sbostic  *	None.
3240411Sbostic  *
3340411Sbostic  *-----------------------------------------------------------------------
3440411Sbostic  */
3540411Sbostic ClientData
3640411Sbostic Lst_Datum (ln)
3740411Sbostic     LstNode	ln;
3840411Sbostic {
3940411Sbostic     if (ln != NILLNODE) {
4040411Sbostic 	return (((ListNode)ln)->datum);
4140411Sbostic     } else {
4240411Sbostic 	return ((ClientData) NIL);
4340411Sbostic     }
4440411Sbostic }
4540411Sbostic 
46