diff options
Diffstat (limited to 'tests/shadow.c')
-rw-r--r-- | tests/shadow.c | 91 |
1 files changed, 91 insertions, 0 deletions
diff --git a/tests/shadow.c b/tests/shadow.c new file mode 100644 index 00000000..2247f397 --- /dev/null +++ b/tests/shadow.c @@ -0,0 +1,91 @@ +/* GNU m4 -- A simple macro processor + Copyright (C) 1999-2000, 2006-2008, 2010, 2013 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 (shadow, false, false, false, 0, -1 ) \ + BUILTIN (test, 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 }, +}; + +static const m4_macro m4_macro_table[] = +{ + /* name text min max */ + { "__test__", "`shadow'", 0, 0 }, + { NULL, NULL, 0, 0 }, +}; + + + +void +include_shadow (m4 *context, m4_module *module, m4_obstack *obs) +{ + const char *s = "Shadow module loaded."; + + if (obs) + obstack_grow (obs, s, strlen (s)); + + m4_install_builtins (context, module, m4_builtin_table); + m4_install_macros (context, module, m4_macro_table); +} + + + +/** + * shadow() + **/ +M4BUILTIN_HANDLER (shadow) +{ + const char *s = "Shadow::`shadow' called."; + obstack_grow (obs, s, strlen (s)); +} + +/** + * test() + **/ +M4BUILTIN_HANDLER (test) +{ + const char *s = "Shadow::`test' called."; + obstack_grow (obs, s, strlen (s)); +} |