1 /* parse-concrete.c -- Support for calling parsers from Libmaa, continued
2 * Created: Mon Apr 24 17:40:51 1995 by faith@dict.org
3 * Copyright 1995, 1997, 2002 Rickard E. Faith (faith@dict.org)
4 * Copyright 2002-2008 Aleksey Cheusov (vle@gmx.net)
5 *
6 * Permission is hereby granted, free of charge, to any person obtaining
7 * a copy of this software and associated documentation files (the
8 * "Software"), to deal in the Software without restriction, including
9 * without limitation the rights to use, copy, modify, merge, publish,
10 * distribute, sublicense, and/or sell copies of the Software, and to
11 * permit persons to whom the Software is furnished to do so, subject to
12 * the following conditions:
13 *
14 * The above copyright notice and this permission notice shall be
15 * included in all copies or substantial portions of the Software.
16 *
17 * THE SOFTWARE IS PROVIDED "AS IS", WITHOUT WARRANTY OF ANY KIND,
18 * EXPRESS OR IMPLIED, INCLUDING BUT NOT LIMITED TO THE WARRANTIES OF
19 * MERCHANTABILITY, FITNESS FOR A PARTICULAR PURPOSE AND
20 * NONINFRINGEMENT. IN NO EVENT SHALL THE AUTHORS OR COPYRIGHT HOLDERS BE
21 * LIABLE FOR ANY CLAIM, DAMAGES OR OTHER LIABILITY, WHETHER IN AN ACTION
22 * OF CONTRACT, TORT OR OTHERWISE, ARISING FROM, OUT OF OR IN CONNECTION
23 * WITH THE SOFTWARE OR THE USE OR OTHER DEALINGS IN THE SOFTWARE.
24 */
25
26 #include "maaP.h"
27
28 static hsh_HashTable _prs_hash;
29
prs_register_concrete(const char * symbol,const char * concrete)30 void prs_register_concrete(const char *symbol, const char *concrete)
31 {
32 if (!_prs_hash) _prs_hash = hsh_create(NULL, NULL);
33
34 hsh_insert(_prs_hash, str_find(symbol), str_find(concrete));
35 }
36
prs_concrete(const char * symbol)37 const char *prs_concrete(const char *symbol)
38 {
39 if (!_prs_hash) return NULL;
40 return hsh_retrieve(_prs_hash, symbol);
41 }
42
_prs_shutdown(void)43 void _prs_shutdown(void)
44 {
45 if (_prs_hash) hsh_destroy(_prs_hash);
46 }
47