/*++ /* 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); }