1*40412Sbostic /*
2*40412Sbostic * Copyright (c) 1988, 1989, 1990 The Regents of the University of California.
3*40412Sbostic * All rights reserved.
440411Sbostic *
5*40412Sbostic * This code is derived from software contributed to Berkeley by
6*40412Sbostic * Adam de Boor.
740411Sbostic *
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.
1940411Sbostic */
20*40412Sbostic
2140411Sbostic #ifndef lint
22*40412Sbostic static char sccsid[] = "@(#)lstIndex.c 5.2 (Berkeley) 03/11/90";
23*40412Sbostic #endif /* not lint */
2440411Sbostic
25*40412Sbostic /*-
26*40412Sbostic * lstIndex.c --
27*40412Sbostic * Function to return the index of a datum in a Lst.
28*40412Sbostic */
29*40412Sbostic
3040411Sbostic #include "lstInt.h"
3140411Sbostic
3240411Sbostic /*-
3340411Sbostic *-----------------------------------------------------------------------
3440411Sbostic * Lst_Index --
3540411Sbostic * Return the index of a datum in a Lst. Indices start at 0.
3640411Sbostic *
3740411Sbostic * Results:
3840411Sbostic * Returns -1 if the datum isn't in the Lst, or the index of
3940411Sbostic * the datum if it is.
4040411Sbostic *
4140411Sbostic * Side Effects:
4240411Sbostic * None.
4340411Sbostic *
4440411Sbostic *-----------------------------------------------------------------------
4540411Sbostic */
4640411Sbostic int
Lst_Index(l,d)4740411Sbostic Lst_Index(l, d)
4840411Sbostic Lst l;
4940411Sbostic ClientData d;
5040411Sbostic {
5140411Sbostic List list = (List)l;
5240411Sbostic register ListNode lNode;
5340411Sbostic register int index;
5440411Sbostic
5540411Sbostic lNode = list->firstPtr;
5640411Sbostic
5740411Sbostic if (lNode == NilListNode) {
5840411Sbostic return(-1);
5940411Sbostic }
6040411Sbostic
6140411Sbostic index = 0;
6240411Sbostic
6340411Sbostic do {
6440411Sbostic if (lNode->datum == d) {
6540411Sbostic return(index);
6640411Sbostic } else {
6740411Sbostic lNode = lNode->nextPtr;
6840411Sbostic index += 1;
6940411Sbostic }
7040411Sbostic } while (lNode != NilListNode && lNode != list->firstPtr);
7140411Sbostic return(-1);
7240411Sbostic }
73