/* SPDX-License-Identifier: LGPL-2.1-or-later */

/* FIXME
 *  - issues with parsing stuff like
 *      - validchars = UPPERCASE_LETTERS DIGITS;
 *          - see: https://github.com/coccinelle/coccinelle/issues/341
 *      - keywords in macro invocations like FOREACH_DIRENT_ALL(de, d, return -errno)
 *          - see: https://github.com/coccinelle/coccinelle/issues/340
 *          - also see the FIXME in the TEST() stuff below
 */

/* This file contains parsing hacks for Coccinelle (spatch), to make it happy with some of our more complex
 * macros - it is intended to be used with the --macro-file-builtins option for spatch.
 *
 * Coccinelle's macro support is somewhat limited and the parser trips over some of our more complex macros.
 * In most cases this doesn't really matter, as the parsing errors are silently ignored, but there are
 * special cases in which the parser incorrectly infers information that then causes issues in valid code
 * later down the line.
 *
 * Inspired by a similarly named file [0] from the Coccinelle sources, and the original builtin macros [1].
 *
 * [0] https://github.com/coccinelle/coccinelle/blob/master/parsing_c/parsing_hacks.ml
 * [1] https://github.com/coccinelle/coccinelle/blob/master/standard.h
 *
 */

/* Coccinelle really doesn't like our way of registering unit test cases, and incorrectly assumes that "id"
 * from TEST(id) is the actual function identifier. This then causes name conflicts, since the unit tests
 * are usually named after the functions they test.
 *
 * For example, a unit test for xsetxattr() is defined using TEST(xsetxattr), which eventually yields a
 * procedure with following declaration:
 *
 *      static const void test_xsetxattr(void);
 *
 * However, Coccinelle fails to parse the chain of macros behind TEST(x) and assumes the test function is
 * named "xsetxattr", which then causes a name conflict when the actual "xsetxattr" function is called:
 *
 * (ONCE) SEMANTIC:parameter name omitted, but I continue
 * Warning: PARSING: src/test/test-xattr-util.c:57: type defaults to 'int'; ...
 * ERROR-RECOV: found sync '}' at line 127
 * Parsing pass2: try again
 * ERROR-RECOV: found sync '}' at line 127
 * Parsing pass3: try again
 * ERROR-RECOV: found sync '}' at line 127
 * Parse error
 *  = File "src/test/test-xattr-util.c", line 101, column 12, charpos = 3152
 *   around = 'xsetxattr',
 *   whole content =         r = xsetxattr(AT_FDCWD, x, "user.foo", "fullpath", SIZE_MAX, 0);
 * Badcount: 40
 *
 * The easy way out here is to just provide a simplified version of the TEST(x) macro that pinpoints the most
 * important detail - that the actual function name is prefixed with test_.
 *
 * FIXME: even with this Coccinelle still fails to process TEST(x) instances where x is a keyword, e.g.
 *        TEST(float), TEST(default), ...
 */
#define TEST(x, ...) static void test_##x(void)
#define TEST_RET(x, ...) static int test_##x(void)

/* Coccinelle doesn't know these keywords, so just drop them, since they are not important for any of our rules. */
#define thread_local
#define _Noreturn

/* Coccinelle can't handle the __attribute__((__cleanup__(x))) GCC extension used by our _cleanup_*
 * macros. Without this, any variable declared with _cleanup_free_ or _cleanup_(foo) makes the whole
 * function unparsable. Drop the attribute since it's not relevant for semantic checks. */
#define _cleanup_bitmap_free_
#define _cleanup_close_
#define _cleanup_close_pair_
#define _cleanup_closedir_
#define _cleanup_fclose_
#define _cleanup_fdset_free_
#define _cleanup_file_close_
#define _cleanup_free_
#define _cleanup_freecon_
#define _cleanup_hashmap_free_
#define _cleanup_iterated_cache_free_
#define _cleanup_ordered_hashmap_free_
#define _cleanup_ordered_set_free_
#define _cleanup_pages_
#define _cleanup_pclose_
#define _cleanup_set_free_
#define _cleanup_strv_free_
#define _cleanup_strv_free_erase_
#define _cleanup_umask_

/* Also drop other attributes. */
/* fundmental/macro.h */
#define _alias_(x)
#define _align_(x)
#define _alignas_(x)
#define _alignptr_
#define _cleanup_(x)
#define _const_
#define _deprecated_
#define _destructor_
#define _hidden_
#define _likely_(x) x
#define _malloc_
#define _noclone_
#define _noinline_
#define _noreturn_
#define _packed_
#define _printf_(a, b)
#define _public_
#define _pure_
#define _returns_nonnull_
#define _section_(x)
#define _sentinel_
#define _unlikely_(x) x
#define _unused_
#define _used_
#define _warn_unused_result_
#define _weak_
#define _weakref_(x)
#define _alloc_(...)
#define _fallthrough_
#define _retain_
#define _no_reorder_
#define _nonnull_if_nonzero_(p, n)

/* basic/dlopen-note.h */
#define _dlopen_loader_

/* basic/macro.h */
#define _variable_no_sanitize_address_
#define _function_no_sanitize_float_cast_overflow_

/* systemd/_sd-common.h */
#define _sd_printf_(a, b)
#define _sd_sentinel_
#define _sd_packed_
#define _sd_pure_
#define _sd_deprecated_

/* Coccinelle fails to parse these from the included headers, so let's just drop them. */
#define PAM_EXTERN

/* Mark a couple of iterator explicitly as iterators, otherwise Coccinelle gets a bit confused. Coccinelle
 * can usually infer this information automagically, but in these specific cases it needs a bit of help. */
#define FOREACH_ARGUMENT(entry, ...) YACFE_ITERATOR
#define FOREACH_ARRAY(i, array, num) YACFE_ITERATOR
#define FOREACH_DIRENT(de, d, on_error) for (struct dirent *(de) = readdir_ensure_type(d); (de); (de) = readdir_ensure_type(d))
#define FOREACH_DIRENT_ALL(de, d, on_error) FOREACH_DIRENT(de, d, on_error)
#define FOREACH_DIRENT_IN_BUFFER(de, buf, sz) YACFE_ITERATOR
#define FOREACH_ELEMENT(i, array) YACFE_ITERATOR
#define FOREACH_INOTIFY_EVENT_WARN(e, buffer, sz) YACFE_ITERATOR
#define FOREACH_PCR_IN_TPMS_PCR_SELECTION(pcr, tpms) YACFE_ITERATOR
#define FOREACH_STRING(x, y, ...) YACFE_ITERATOR
#define HASHMAP_FOREACH(e, h) YACFE_ITERATOR
#define HASHMAP_FOREACH_KEY(e, k, h) YACFE_ITERATOR
#define LIST_FOREACH(name, i, head) YACFE_ITERATOR
#define LIST_FOREACH_BACKWARDS(name, i, start) YACFE_ITERATOR
#define NULSTR_FOREACH(s, l) YACFE_ITERATOR
#define NULSTR_FOREACH_PAIR(i, j, l) YACFE_ITERATOR
#define ORDERED_HASHMAP_FOREACH(e, h) YACFE_ITERATOR
#define ORDERED_HASHMAP_FOREACH_KEY(e, k, h) YACFE_ITERATOR
#define SD_FIBER_WITH_TIMEOUT(timeout) YACFE_ITERATOR
#define SET_FOREACH(e, s) YACFE_ITERATOR
#define SET_FOREACH_MOVE(e, d, s) YACFE_ITERATOR
#define STRV_FOREACH(s, l) YACFE_ITERATOR
#define STRV_FOREACH_BACKWARDS(s, l) YACFE_ITERATOR
#define STRV_FOREACH_PAIR(x, y, l) YACFE_ITERATOR
#define WITH_UMASK(mask) YACFE_ITERATOR

/* Coccinelle really doesn't like multiline macros that are not in the "usual" do { ... } while(0) format, so
 * let's help it a little here by providing simplified one-line versions. */
#define CMSG_BUFFER_TYPE(x) union { uint8_t align_check[(size) >= CMSG_SPACE(0) && (size) == CMSG_ALIGN(size) ? 1 : -1]; }
#define SD_ID128_MAKE(...) ((const sd_id128) {})

/* sizeof() does not evaluate its argument, so *ptr inside sizeof() is not a real dereference.
 * The SIZEOF() macro is an alias for sizeof() that hides the argument from coccinelle to avoid
 * false positives from check-pointer-deref.cocci. See assert-util.h for the definition. */
#define SIZEOF(x) 8

/* Work around a bug in zlib.h parsing on Fedora (and possibly others)
 * See: https://github.com/coccinelle/coccinelle/issues/413 */
#define Z_EXPORT
#define Z_EXTERN

/* Ignore several more macros */
#define BUS_ERROR_MAP_ELF_REGISTER
#define UPPERCASE_LETTERS ""
#define LOWERCASE_LETTERS ""
#define DIGITS ""
#define ANSI_DCS ""
#define ANSI_ST ""
#define TPM2_SHA256_DIGEST_SIZE 32
#define ElfW(type) Elf__ELF_NATIVE_CLASS_##type
#define STACK_OF(type) struct stack_st_##type

/* shared/options.h */
#define _OPTION_COCCI_ case (0x100 + counter)
#define OPTION_NAMESPACE(ns) _OPTION_COCCI_
#define OPTION_GROUP(gr) _OPTION_COCCI_
#define OPTION_FULL_DATA(fl, sc, lc, mv, d, h) _OPTION_COCCI_
#define OPTION_FULL(fl, sc, lc, mv, h) _OPTION_COCCI_
#define OPTION(sc, lc, mv, h) _OPTION_COCCI_
#define OPTION_LONG(lc, mv, h) _OPTION_COCCI_
#define OPTION_LONG_FLAGS(fl, lc, mv, h) _OPTION_COCCI_
#define OPTION_LONG_DATA(lc, mv, d, h) _OPTION_COCCI_
#define OPTION_SHORT(sc, mv, h) _OPTION_COCCI_
#define OPTION_SHORT_FLAGS(fl, sc, mv, h) _OPTION_COCCI_
#define OPTION_SHORT_DATA(sc, mv, d, h) _OPTION_COCCI_
#define OPTION_POSITIONAL _OPTION_COCCI_
#define OPTION_HELP_VERBATIM(lc, h) _OPTION_COCCI_
#define OPTION_COMMON_PRIVATE_KEY(purpose) _OPTION_COCCI_
#define OPTION_COMMON_CERTIFICATE(purpose) _OPTION_COCCI_

/* libbpf */
#define SEC(x)
#define __weak
#define __ksym