diff options
Diffstat (limited to 'tests/import.c')
-rw-r--r-- | tests/import.c | 110 |
1 files changed, 0 insertions, 110 deletions
diff --git a/tests/import.c b/tests/import.c deleted file mode 100644 index cdd1176c..00000000 --- a/tests/import.c +++ /dev/null @@ -1,110 +0,0 @@ -/* GNU m4 -- A simple macro processor - Copyright (C) 2003, 2006-2008, 2010, 2013-2014, 2017 Free Software - Foundation, Inc. - - This file is part of GNU M4. - - GNU M4 is free software: you can redistribute it and/or modify - it under the terms of the GNU General Public License as published by - the Free Software Foundation, either version 3 of the License, or - (at your option) any later version. - - GNU M4 is distributed in the hope that it will be useful, - but WITHOUT ANY WARRANTY; without even the implied warranty of - MERCHANTABILITY or FITNESS FOR A PARTICULAR PURPOSE. See the - GNU General Public License for more details. - - You should have received a copy of the GNU General Public License - along with this program. If not, see <http://www.gnu.org/licenses/>. -*/ - -#include <config.h> - -/* Build using only the exported interfaces, unless NDEBUG is set, in - which case use private symbols to speed things up as much as possible. */ -#ifndef NDEBUG -# include <m4/m4module.h> -#else -# include "m4private.h" -#endif - -/* function macros blind side minargs maxargs */ -#define builtin_functions \ - BUILTIN (import, false, false, false, 0, 1) \ - BUILTIN (symbol_fail, false, false, false, 0, 1) \ - BUILTIN (module_fail, false, false, false, 0, 1) \ - -#define BUILTIN(handler, macros, blind, side, min, max) M4BUILTIN (handler) - builtin_functions -#undef BUILTIN - -static const m4_builtin m4_builtin_table[] = -{ -#define BUILTIN(handler, macros, blind, side, min, max) \ - M4BUILTIN_ENTRY (handler, #handler, macros, blind, side, min, max) - - builtin_functions -#undef BUILTIN - - { NULL, NULL, 0, 0, 0 }, -}; - - -void -include_import (m4 *context, m4_module *module, m4_obstack *obs) -{ - m4_install_builtins (context, module, m4_builtin_table); -} - - - -typedef bool export_test_func (const char *); -typedef bool no_such_func (const char *); - -/** - * import() - **/ -M4BUILTIN_HANDLER (import) -{ - M4_MODULE_IMPORT (modtest, export_test); - - const char *s = "`import'::`import' called."; - - assert (obs != 0); - obstack_grow (obs, s, strlen(s)); - - if (export_test && export_test (M4ARG (1))) - fputs ("TRUE\n", stderr); -} - -/** - * symbol_fail() - **/ -M4BUILTIN_HANDLER (symbol_fail) -{ - M4_MODULE_IMPORT (modtest, no_such); - - const char *s = "`import'::`symbol_fail' called."; - - assert (obs != 0); - obstack_grow (obs, s, strlen(s)); - - if (no_such && no_such (M4ARG (1))) - fputs ("TRUE\n", stderr); -} - -/** - * module_fail() - **/ -M4BUILTIN_HANDLER (module_fail) -{ - M4_MODULE_IMPORT (no_such, no_such); - - const char *s = "`import'::`module_fail' called."; - - assert (obs != 0); - obstack_grow (obs, s, strlen(s)); - - if (no_such && no_such (M4ARG (1))) - fputs ("TRUE\n", stderr); -} |