blob: c81564612dc8f5701f9ad8aa841ddc7cd54d62c8 (
plain)
1
2
3
4
5
6
7
8
9
10
11
12
13
14
15
16
17
18
19
20
21
22
23
24
25
26
27
28
29
30
31
32
33
34
35
36
37
38
39
40
41
42
43
44
45
46
47
48
49
50
51
52
53
54
55
56
57
58
59
60
61
62
63
64
65
66
67
68
69
|
/*++
/* 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);
}
|
