* Find the length of a lst
* Copyright (c) 1988 by the Regents of the University of California
* Copyright (c) 1988 by Adam de Boor
* Permission to use, copy, modify, and distribute this
* software and its documentation for any purpose and without
* fee is hereby granted, provided that the above copyright
* notice appears in all copies. The University of California nor
* Adam de Boor makes any representations about the suitability of this
* software for any purpose. It is provided "as is" without
* express or implied warranty.
"$Id: lstLength.c,v 1.2 88/11/17 20:53:27 adam Exp $ SPRITE (Berkeley)";
Lst l
; /* List whose length is desired */
register List list
= (List
)l
;
for (len
= 0, node
= list
->firstPtr
;
len
++, node
= node
->nextPtr
) {
if (node
== list
->firstPtr
&& len
!= 0) {