/*	$NetBSD: tok822_find.c,v 1.1.1.1 2009/06/23 10:08:48 tron Exp $	*/

/*++
/* NAME
/*	tok822_find 3
/* SUMMARY
/*	token list search operators
/* SYNOPSIS
/*	#include <tok822.h>
/*
/*	TOK822	*tok822_find_type(head, type)
/*	TOK822	*head;
/*	int	type;
/*
/*	TOK822	*tok822_rfind_type(tail, type)
/*	TOK822	*tail;
/*	int	type;
/* DESCRIPTION
/*	This module implements token list search operations.
/*
/*	tok822_find_type() searches a list of tokens for the first
/*	instance of the specified token type. The result is the
/*	found token or a null pointer when the search failed.
/*
/*	tok822_rfind_type() searches a list of tokens in reverse direction
/*	for the first instance of the specified token type. The result
/*	is the found token or a null pointer when the search failed.
/* LICENSE
/* .ad
/* .fi
/*	The Secure Mailer license must be distributed with this software.
/* AUTHOR(S)
/*	Wietse Venema
/*	IBM T.J. Watson Research
/*	P.O. Box 704
/*	Yorktown Heights, NY 10598, USA
/*--*/

/* System library. */

#include <sys_defs.h>

/* Utility library. */

#include <vstring.h>

/* Global library. */

#include <tok822.h>

/* tok822_find_type - find specific token type, forward search */

TOK822 *tok822_find_type(TOK822 *head, int op)
{
    TOK822 *tp;

    for (tp = head; tp != 0 && tp->type != op; tp = tp->next)
	 /* void */ ;
    return (tp);
}

/* tok822_rfind_type - find specific token type, backward search */

TOK822 *tok822_rfind_type(TOK822 *tail, int op)
{
    TOK822 *tp;

    for (tp = tail; tp != 0 && tp->type != op; tp = tp->prev)
	 /* void */ ;
    return (tp);
}