Merge branch 'linux1'
[oweals/cde.git] / cde / programs / dthelp / parser / pass2 / util / trieplk.c
1 /*
2  * CDE - Common Desktop Environment
3  *
4  * Copyright (c) 1993-2012, The Open Group. All rights reserved.
5  *
6  * These libraries and programs are free software; you can
7  * redistribute them and/or modify them under the terms of the GNU
8  * Lesser General Public License as published by the Free Software
9  * Foundation; either version 2 of the License, or (at your option)
10  * any later version.
11  *
12  * These libraries and programs are distributed in the hope that
13  * they will be useful, but WITHOUT ANY WARRANTY; without even the
14  * implied warranty of MERCHANTABILITY or FITNESS FOR A PARTICULAR
15  * PURPOSE. See the GNU Lesser General Public License for more
16  * details.
17  *
18  * You should have received a copy of the GNU Lesser General Public
19  * License along with these librararies and programs; if not, write
20  * to the Free Software Foundation, Inc., 51 Franklin Street, Fifth
21  * Floor, Boston, MA 02110-1301 USA
22  */
23 /* $XConsortium: trieplk.c /main/3 1995/11/08 11:08:55 rswiston $ */
24 /*
25                    Copyright 1986, 1987, 1988, 1989 Hewlett-Packard Co.
26 */
27
28 /* Trie.c contains procedures for maintaining the tree structure
29    used to store element names, delimiter strings, short reference strings,
30    etc. */
31
32 #include <stdio.h>
33 #include "basic.h"
34 #include "common.h"
35 #include "trie.h"
36
37 extern M_CHARTYPE m_ctarray[M_CHARSETLEN] ;
38
39 int m_packedlook(
40 #if defined(M_PROTO)
41   M_PTRIE *xptrie,
42   M_WCHAR *name
43 #endif
44   ) ;
45
46 /* Look for the string NAME in the packed trie PTRIE */
47 int m_packedlook(xptrie, name)
48 M_PTRIE *xptrie ;
49 M_WCHAR *name ;
50 {
51 int current = 0 ;
52 int i ;
53 int c ;
54
55 for ( ; TRUE ; name++)
56     {
57     c = m_ctupper(*name) ;
58     for (i = current ;
59          (int) ((xptrie + i)->symbol) < c && (xptrie + i)->more ;
60          i++) ;
61     if ((int) ((xptrie + i)->symbol) == c)
62         {
63         if (! c) return((xptrie + i)->index) ;
64         current = (xptrie + i)->index ;
65         }
66     else return(FALSE) ;
67     }
68 }