2 # Add a pre-defined macro function to $PSI_MACROS.
4 cat >>$PSI_MACROS <<EOF
9 dnl PSI_MACRO(macro, decl args, action-if-true)
11 AC_CHECK_DECL(PSI_VAR_NAME($1)$2, [
12 macro_type="PSI_VAR_TYPE($1)"
13 macro_name="PSI_VAR_NAME($1)"
14 PSI_TYPE_INDIRECTION([$1],, macro_pointer_level, macro_array_size)
15 if test "$macro_array_size" -gt 0; then
16 macro_array="@<:@$macro_array_size@:>@"
17 macro_return="$macro_type*"
20 macro_return="$macro_type"
40 macro_call="(m4_map_args_sep([PSI_VAR_NAME(], [)], [, ], m4_bregexp($2, [(\(.*\))], [\1])))"
44 ifelse(PSI_VAR_TYPE($1), [void], [
45 macro_body="$macro_name$macro_call;"
47 macro_body="return $macro_name$macro_call;"
50 psi_add_macro "$macro_return _psi_${macro_action}_$macro_name$macro_decl { $macro_body }"
51 PSI_REDIR($macro_name, _psi_${macro_action}_$macro_name)
52 ], [], [PSI_INCLUDES])
55 dnl PSI_EXTVAR(type var)
56 AC_DEFUN(PSI_EXTVAR, [
60 psi_add_decl "$psi_decl_args"
62 PSI_REDIR([${macro_name}_get], [_psi_get_$macro_name])
63 PSI_DECL_ARGS([PSI_VAR_TYPE_RETURN($1) PSI_VAR_NAME($1)_get])
64 psi_add_decl "$psi_decl_args"
66 psi_add_macro "void _psi_set_${macro_name}($macro_type value$macro_array) { memcpy(&$macro_name, &value, sizeof($macro_type$macro_array)); }"
67 PSI_REDIR([${macro_name}_set], [_psi_set_${macro_name}])
68 PSI_DECL_ARGS([void PSI_VAR_NAME($1)_set], [($1)])
69 psi_add_decl "$psi_decl_args"