1 /*
2  * Copyright (c) 1988, 1989, 1990, 1993
3  *	The Regents of the University of California.  All rights reserved.
4  *
5  * This code is derived from software contributed to Berkeley by
6  * Adam de Boor.
7  *
8  * %sccs.include.redist.c%
9  */
10 
11 #ifndef lint
12 static char sccsid[] = "@(#)lstDatum.c	8.2 (Berkeley) 04/28/95";
13 #endif /* not lint */
14 
15 /*-
16  * LstDatum.c --
17  *	Return the datum associated with a list node.
18  */
19 
20 #include	"lstInt.h"
21 
22 /*-
23  *-----------------------------------------------------------------------
24  * Lst_Datum --
25  *	Return the datum stored in the given node.
26  *
27  * Results:
28  *	The datum or (ick!) NIL if the node is invalid.
29  *
30  * Side Effects:
31  *	None.
32  *
33  *-----------------------------------------------------------------------
34  */
35 ClientData
Lst_Datum(ln)36 Lst_Datum (ln)
37     LstNode	ln;
38 {
39     if (ln != NILLNODE) {
40 	return (((ListNode)ln)->datum);
41     } else {
42 	return ((ClientData) NIL);
43     }
44 }
45 
46