31 lines
858 B
C
31 lines
858 B
C
/*
|
|
* Copyright (c) 1992 by the University of Southern California
|
|
*
|
|
* For copying and distribution information, please see the file <usc-copyr.h>
|
|
*/
|
|
|
|
#include <usc-copyr.h>
|
|
/* Written by swa@ISI.EDU, Sept. 24, 1992 */
|
|
|
|
/* This is used by equal_attributes(), and probably not by much else. */
|
|
/* Compare two token lists. Return nonzero value if they match; zero if
|
|
they don't. */
|
|
|
|
#include <pfs.h>
|
|
|
|
int
|
|
equal_sequences(t1, t2)
|
|
TOKEN t1, t2;
|
|
{
|
|
for (;;t1 = t1->next, t2 = t2->next) {
|
|
if (t1 == t2) /* Handles the case where both are NULL */
|
|
return TRUE;
|
|
if (!t1 || !t2) /* handles the case where one is null and the
|
|
other is not. */
|
|
return FALSE;
|
|
if (!strequal(t1->token, t2->token))
|
|
return FALSE;
|
|
}
|
|
/* NOTREACHED */
|
|
}
|