Add GNU LGPL headers to all .c .C and .h files
[oweals/cde.git] / cde / programs / dthelp / parser.ccdf / htag / parser / parvalok.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: parvalok.c /main/3 1995/11/08 11:29:47 rswiston $ */
24 /*
25                    Copyright 1989 Hewlett-Packard Co.
26 */
27
28 #include <stdio.h>
29 #include "basic.h"
30 #include "trie.h"
31 #include "dtdext.h"
32 #include "parser.h"
33
34 /* Function callable by interface designers.  Returns TRUE if specified value
35    is a legal value for the indicated parameter of the given element,
36    FALSE otherwise. */
37 #if defined(M_PROTO)
38 LOGICAL m_parvalok( M_WCHAR *elt , M_WCHAR *param , const M_WCHAR *value )
39 #else
40 LOGICAL m_parvalok(elt, param, value)
41   M_WCHAR *elt ;
42   M_WCHAR *param ;
43   M_WCHAR *value ;
44 #endif /* M_PROTO */
45   {
46     M_ELEMENT eltid ;
47     int par ;
48     int i ;
49
50     if (! (eltid = m_packedlook(m_entree, elt))) return(FALSE) ;
51     for (par = m_element[eltid - 1].parptr, i = 1 ;
52          i <= m_element[eltid - 1].parcount ;
53          par++, i++)
54       if (! m_wcupstrcmp(&m_pname[m_parameter[par - 1].paramname], param))
55         if (m_partype(par, value)) return(TRUE) ;
56         else return(FALSE) ;
57
58     /* No such parameter */
59     return(FALSE) ;
60     }
61