From 3081448751067b32ff758f1ac04e2ec7369bfff4 Mon Sep 17 00:00:00 2001 From: Kaz Kylheku Date: Wed, 13 Apr 2022 02:54:08 -0700 Subject: fun now implemented by fun-priv. --- cppawk-include/fun-priv.h | 50 +++++++++++++++++++++++++++++++++++++++++++++++ 1 file changed, 50 insertions(+) create mode 100644 cppawk-include/fun-priv.h (limited to 'cppawk-include/fun-priv.h') diff --git a/cppawk-include/fun-priv.h b/cppawk-include/fun-priv.h new file mode 100644 index 0000000..56313c0 --- /dev/null +++ b/cppawk-include/fun-priv.h @@ -0,0 +1,50 @@ +// cppawk: C preprocessor wrapper around awk +// Kaz Kylheku +// +// BSD-2 License +// +// Redistribution and use in source and binary forms, with or without +// modification, are permitted provided that the following conditions are met: +// +// 1. Redistributions of source code must retain the above copyright notice, +// this list of conditions and the following disclaimer. +// +// 2. Redistributions in binary form must reproduce the above copyright notice, +// this list of conditions and the following disclaimer in the documentation +// and/or other materials provided with the distribution. +// +// THIS SOFTWARE IS PROVIDED BY THE COPYRIGHT HOLDERS AND CONTRIBUTORS "AS IS" +// AND ANY EXPRESS OR IMPLIED WARRANTIES, INCLUDING, BUT NOT LIMITED TO, THE +// IMPLIED WARRANTIES OF MERCHANTABILITY AND FITNESS FOR A PARTICULAR PURPOSE +// ARE DISCLAIMED. IN NO EVENT SHALL THE COPYRIGHT HOLDER OR CONTRIBUTORS BE +// LIABLE FOR ANY DIRECT, INDIRECT, INCIDENTAL, SPECIAL, EXEMPLARY, OR +// CONSEQUENTIAL DAMAGES (INCLUDING, BUT NOT LIMITED TO, PROCUREMENT OF +// SUBSTITUTE GOODS OR SERVICES; LOSS OF USE, DATA, OR PROFITS; OR BUSINESS +// INTERRUPTION) HOWEVER CAUSED AND ON ANY THEORY OF LIABILITY, WHETHER IN +// CONTRACT, STRICT LIABILITY, OR TORT (INCLUDING NEGLIGENCE OR OTHERWISE) +// ARISING IN ANY WAY OUT OF THE USE OF THIS SOFTWARE, EVEN IF ADVISED OF THE +// POSSIBILITY OF SUCH DAMAGE. + +#ifndef __CPPAWK_FUN_PRIV_H +#define __CPPAWK_FUN_PRIV_H + +#ifndef __CPPAWK_BASE_H +#include "base.h" +#endif + +#ifndef __CPPAWK_CONS_H +#include "cons-priv.h" +#endif + +#if !__have_indirect_functions +#warning " requires an Awk with function indirection like newer GNU Awk" +#endif + +#define __bind(fname, env) __cons(#fname, env) +#define __fun(fname) #fname +#define __call(fobj, ...) (__consp(fobj) \ + ? __progn(__g(f) = __car(fobj), \ + @__g(f)(__cdr(fobj), __VA_ARGS__)) \ + : @fobj(__VA_ARGS__)) + +#endif -- cgit v1.2.3